/*  /cmds/verbs/player/bump.c
 *  Allows players to possibly bump a target into another room
 *  created by Blitz@Dead Souls
*/

#pragma save_binary

#include <lib.h>
#include <damage_types.h>
#include "include/bump.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("bump");
    SetRules("LIV");
    SetErrorMessage("Whom would you like to bump?");
    SetHelp( "Syntax: bump LIV\n\n"        
      "This command allows you bump the living object named "
      "into an adjacent room.  It is quite possible that "
      "bumping may cause you bodily injury.");
}

mixed can_bump_liv() {
    object env = environment(this_player());

    if( !env ) return "You are nowhere!";
    if( env->GetProperty("no bump") )
	return "Mystical forces prevent your pushy actions.";
    return 1;
}

mixed do_bump_liv(object ob) {
    int Strength, TargetStrength;
    string *Exits;
    string NewLocation, OldLocation;
    mixed var;
    object env;

    if( !ob ) return 0;
    if( !(env = environment(ob)) ) return 0;
    if( (int)ob->GetProperty("no bump") ) {
	message("my_action", "You try to bump "+
	  (string)ob->GetCapName()+".",
	  this_player() );
	message("other_action", (string)this_player()->GetCapName()+" tries "
	  "to bump "+(string)ob->GetCapName()+".",
	  environment(ob), ({ ob, this_player() }) );
	message("other_action", (string)this_player()->GetCapName()+" tries "
	  "to bump you.",
	  ob);
	if( !playerp(ob) )
	    ob->eventForce("growl "+(string)this_player()->GetKeyName());
	return 1;
    }
    if( var = ob->eventBump(this_player()) ) return var;
    this_player()->AddStaminaPoints( -(random(15) + 3) );
    if( ( (int)ob->GetStatLevel("agility") / 2 ) >
      ( (int)this_player()->GetStatLevel("strength")) ) {
	message("my_action", "You deftly sidestep "+
	  possessive_noun((string)this_player()->GetCapName())+" attempt "
	  "to bump you.",
	  ob);
	message("other_action", (string)ob->GetCapName()+" deftly sidesteps "
	  "your attempt to bump "+objective(ob)+".",
	  this_player() );
	message("other_action", (string)ob->GetCapName()+" deftly sidesteps "+
	  possessive_noun((string)this_player()->GetCapName())+" attempt "
	  "to bump "+objective(ob)+".",
	  env, ({ this_player(), ob }));
	return 1;
    }
    Strength = (int)this_player()->GetStatLevel("strength") +
    random((int)this_player()->GetStatLevel("speed") / 2);
    TargetStrength = (int)ob->GetStatLevel("strength") +
    random( (int)ob->GetStatLevel("agility") / 2 );
    if( (Strength - TargetStrength) < -10 ) {
	this_player()->eventReceiveDamage(ob, BLUNT, random(5) + 1);
	message("other_action", (string)ob->GetCapName()+" shoves you "
	  "to the ground!",
	  this_player() );
	message("my_action", (string)this_player()->GetCapName()+" is shoved "
	  "to the ground while trying to bump you.",
	  ob);
	message("other_action", (string)this_player()->GetCapName()+" is shoved "
	  "to the ground while trying to bump "+(string)ob->GetCapName()+".",
	  env, ({ ob, this_player() }) );
	return 1;
    }
    else if( (Strength - TargetStrength) < (5 + random(20)) ) {
	this_player()->eventReceiveDamage(ob, BLUNT, random(3) + 1);
	message("my_action", "You fail to bump "+(string)ob->GetCapName()+" out "
	  "of the way.", this_player() );
	message("other_action", (string)this_player()->GetCapName()+" fails in "
	  "an attempt to bump you.",
	  ob);
	message("other_action", (string)this_player()->GetCapName()+" fails in "
	  "an attempt to bump "+(string)ob->GetCapName()+".",
	  environment(ob), ({ ob, this_player() }) );
	return 1;
    } else {
	this_player()->AddStatPoints("strength", random(5));
	Exits = (string *)env->GetExits();
	Exits = filter(Exits,
	  (: !(object)$(env)->GetDoor($1) ||
	    !(object)$(env)->GetDoor($1)->GetClosed() :) );
	if( !sizeof(Exits) ) {
	    message("system", "There is nowhere for "+(string)ob->GetCapName()
	      +" to go!", this_player() );
	    return 1;
	}
	NewLocation = Exits[ random(sizeof(Exits)) ];
	NewLocation = environment(ob)->GetExit(NewLocation);
	OldLocation = base_name(environment(ob));
	message("my_action", "You shove "+(string)ob->GetCapName()+" out "
	  "of the way!",
	  this_player() );
	message("other_action", "You are shoved out of the way by "+
	  (string)this_player()->GetCapName()+"!",
	  ob);
	message("other_action", (string)this_player()->GetCapName()+" shoves "+
	  (string)ob->GetCapName()+" out of the way!",
	  environment(ob), ({ ob, this_player() }) );
	if( !(int)ob->eventMove(NewLocation) ) {
	    message("other_action", (string)ob->GetCapName()+" is bounced "
	      "back into the room.", environment(ob), ob);
	    message("my_action", "You are bounced back to your original "
	      "location.",
	      ob);
	} else {
	    ob->eventDescribeEnvironment(0);
	    if( !userp(ob) )
		call_out((: MoveBack :), 12 + random(6), ob, OldLocation);
	}
	if( (int)ob->GetHealthPoints() > 5 )
	    ob->eventReceiveDamage(this_player(), BLUNT, random(5));
	return 1;
    }
    return 0;
}

void MoveBack(object ob, string where) {
    if( !ob ) return;
    ob->eventMoveLiving(where, "$N leaves angrily", "$N enters angrily");
    ob->eventForce("growl");
}