/*  /verbs/players/stealth.c
 *  by BillGates 961109
 *  allows players to move silently from room to room
 */

#include <lib.h>
#include "include/stealth.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("stealth");
    SetRules("","WRD");
}

mixed can_stealth() {
    return this_player()->CanCastMagic(0, "stealth");
}

mixed can_stealth_wrd() {
    return can_stealth();
}

mixed do_stealth() {
    return do_stealth_wrd("");
}

mixed do_stealth_wrd(string args) {
    object caster  = this_player();
    object env = environment(caster);

    int skill = (int)this_agent()->GetSkillLevel("stealth");
    if( skill < 20 ) {
	caster->eventPrint("You are not devious enough.");
	return 1;
    }


    if( args == "on" ) {  
	if( (int)caster->GetStaminaPoints() < 50 ) {
	    caster->eventPrint("You are too tired to move silently.",env);
	    env->eventPrint((string)caster->GetName() + " looks tired.",caster);
	    return 0;
	}


	if( caster->GetInCombat() ) {
	    caster->eventPrint("You are too busy fighting at the moment.",env);
	    return 0;
	}
    }	    
    eventStealth(caster, args, skill);
    return 1;
}


int eventStealth(object caster, string args, int skill) {

    if( !(caster) ) return 0;

    if( !environment(caster) ) {
	caster->eventPrint("You are nowhere.");
	return 0;
    }

    if(args == "") {
	if(caster->GetProperty("stealthy")) {
	    caster->eventPrint("You are currently moving silently.");
	}
	else caster->eventPrint("You are moving as noisily as ever.");
	return 1;
    }

    if(args == "on") {
	if(caster->GetProperty("stealthy")) {
	    caster->eventPrint("You are already moving quietly!");
	    return 0;
	}
	caster->SetProperty("stealthy",1);
	caster->eventPrint("%^RED%^You begin to sneak around.");
	caster->AdStaminaPoints(-30 - random(40));
	caster->AddSkillPoints("stealth",skill*skill/8);
	return 1;
    }    

    if(args == "off") {
	if(caster->GetProperty("stealthy")) {
	    caster->SetProperty("stealthy",0);
	    caster->eventPrint("%^BOLD%^%^CYAN%^You stop your sneaky ways.",
	      environment(caster));
	    return 1;
	}
	else caster->eventPrint("You are not currently sneaking around!");
	return 0;
    }  		     

    return 1;
}