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

#pragma save_binary

#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");
    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\n"
      "Allows you to use another object to climb down or out of an "
      "area.\n\n"
      "See also: enter, go, jump");
}

mixed can_climb_obj() { 
    if( this_player()->GetParalyzed() ) {
	return "You cannot do anything!";
    }
    if(this_player()->GetPosition() != POSITION_STANDING ) {
	return "You must be standing in order to climb.";
    }
    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 do_climb_obj(object ob) {
    return do_climb_word_obj("up", ob);
}

mixed do_climb_word_obj(string word, object ob) {
    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;
    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);
}