/*  /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");
}