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