/* /cmds/verbs/player/bump.c
* Allows players to possibly bump a target into another room
* created by Blitz@Dead Souls
*/
#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 <LIVING>\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( ob->GetProperty("no bump") ) {
message("my_action", "You try to bump "+
ob->GetCapName()+".",
this_player() );
message("other_action", this_player()->GetCapName()+" tries "
"to bump "+ob->GetCapName()+".",
environment(ob), ({ ob, this_player() }) );
message("other_action", this_player()->GetCapName()+" tries "
"to bump you.",
ob);
if( !playerp(ob) )
ob->eventForce("growl "+this_player()->GetKeyName());
return 1;
}
if( var = ob->eventBump(this_player()) ) return var;
this_player()->AddStaminaPoints( -(random(15) + 3) );
if( ( ob->GetStatLevel("agility") / 2 ) >
( this_player()->GetStatLevel("strength")) ) {
message("my_action", "You deftly sidestep "+
possessive_noun(this_player()->GetCapName())+" attempt "
"to bump you.",
ob);
message("other_action", ob->GetCapName()+" deftly sidesteps "
"your attempt to bump "+objective(ob)+".",
this_player() );
message("other_action", ob->GetCapName()+" deftly sidesteps "+
possessive_noun(this_player()->GetCapName())+" attempt "
"to bump "+objective(ob)+".",
env, ({ this_player(), ob }));
return 1;
}
Strength = this_player()->GetStatLevel("strength") +
random(this_player()->GetStatLevel("speed") / 2);
TargetStrength = ob->GetStatLevel("strength") +
random( ob->GetStatLevel("agility") / 2 );
if( (Strength - TargetStrength) < -10 ) {
this_player()->eventReceiveDamage(ob, BLUNT, random(5) + 1);
message("other_action", ob->GetCapName()+" shoves you "
"to the ground!",
this_player() );
message("my_action", this_player()->GetCapName()+" is shoved "
"to the ground while trying to bump you.",
ob);
message("other_action", this_player()->GetCapName()+" is shoved "
"to the ground while trying to bump "+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 "+ob->GetCapName()+" out "
"of the way.", this_player() );
message("other_action", this_player()->GetCapName()+" fails in "
"an attempt to bump you.",
ob);
message("other_action", this_player()->GetCapName()+" fails in "
"an attempt to bump "+ob->GetCapName()+".",
environment(ob), ({ ob, this_player() }) );
return 1;
} else {
this_player()->AddStatPoints("strength", random(5));
Exits = env->GetExits();
Exits = filter(Exits,
(: !(object)$(env)->GetDoor($1) ||
!(object)$(env)->GetDoor($1)->GetClosed() :) );
if( !sizeof(Exits) ) {
message("system", "There is nowhere for "+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 "+ob->GetCapName()+" out "
"of the way!",
this_player() );
message("other_action", "You are shoved out of the way by "+
this_player()->GetCapName()+"!",
ob);
message("other_action", this_player()->GetCapName()+" shoves "+
ob->GetCapName()+" out of the way!",
environment(ob), ({ ob, this_player() }) );
if( !ob->eventMove(NewLocation) ) {
message("other_action", 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( ob->GetHealthPoints() > 5 )
ob->eventReceiveDamage(this_player(), BLUNT, random(5));
return 1;
}
return 0;
}
void MoveBack(object ob, string where) {
if( !ob ) return;
ob->eventForce("growl");
tell_room(environment(ob),capitalize(ob->GetShort())+" leaves angrily.");
ob->eventMove(where);
tell_room(environment(ob),capitalize(ob->GetShort())+" enters angrily.");
ob->eventForce("say wtf");
}
