/*    /verbs/items/climb.c
 *    from the Dead Souls Mud Library
 *    climb WRD OBJ
 *    created by Descartes of Borg 951018
 *    Version: @(#) climb.c 1.3@(#)
 *    Last modified: 96/10/20
 */

#include <lib.h>
#include <climb.h>
#include <position.h>

inherit LIB_VERB;

mixed do_climb_word_obj(string word, object ob);

static void create(){
    verb::create();
    SetVerb("climb");
    SetErrorMessage("Climb up or down what?");
    SetRules("up OBJ", "down OBJ", "out of OBJ", "out OBJ", "into OBJ",
            "in OBJ", "through OBJ", "OBJ", "out");
    SetHelp("Syntax: climb <OBJECT>\n"
            "        climb up <OBJECT>\n"
            "        climb down <OBJECT>\n"
            "        climb out of <OBJECT>\n"
            "        climb into <OBJECT>\n"
            "        climb through <OBJECT>\n"
            "        climb out\n\n"
            "Allows you to use another object to climb down or out of an "
            "area.\n"
            "See also: enter, go, jump");
}

mixed can_climb_obj(){ 
    if( this_player()->GetParalyzed() ) {
        return "You cannot do anything!";
    }
    if(!stringp(hobbled(this_player()))){
        return "Your injuries prevent that movement.";
    }
    return this_player()->CanManipulate();
}

mixed can_climb_word_obj(){
    return can_climb_obj();
}

mixed can_climb_out_of_obj(){
    return can_climb_obj();
}

mixed can_climb_out(){
    return can_climb_obj();
}

mixed do_climb_obj(object ob){
    return do_climb_word_obj("up", ob);
}

mixed do_climb_word_obj(string word, object ob, mixed args...){
    int type;
    switch(word) {
        case "up": type = CLIMB_UP; break;
        case "down": type = CLIMB_DOWN; break;
        case "out": type = CLIMB_OUT; break;
        case "in": case "into": type = CLIMB_INTO; break;
        case "through": type = CLIMB_THROUGH;break;
        default: type = CLIMB_UP; break;
    }
    return ob->eventClimb(this_player(), type);
}

mixed do_climb_out_of_obj(object ob) {
    return do_climb_word_obj("out", ob);
}

mixed do_climb_out(object ob){
    return do_climb_word_obj("out", (ob || environment(this_player())));
}