/* /lib/climb.c
* from the Dead Souls Object Library
* handles different methods of climbing
* created by Descartes of Borg 960120
* Version: @(#) climb.c 1.7@(#)
* Last modified: 96/12/22
*/
#include <climb.h>
#include <function.h>
static private mapping Climb = 0;
int ccc = 0;
// abstract methods
string GetDefiniteShort();
// end abstract methods
mapping GetClimbs(){
return Climb;
}
int SetCanClimbCarried(int i){
ccc = i;
return 1;
}
int GetCanClimbCarried(){
return ccc;
}
varargs static mapping SetClimb(mixed val, int type){
if( !type ){
type = CLIMB_UP;
}
if( !Climb ){
Climb = ([ type : val ]);
}
else {
Climb[type] = val;
}
return Climb;
}
mixed CanClimb(object who, int type){
int array tmp;
object dude;
string thingname;
dude=this_player();
thingname=this_object()->GetKeyName();
if(present(thingname,dude) && ccc == 0){
return "You can't climb that while it's being carried.";
}
if( Climb[type] ){
return 1;
}
tmp = keys(Climb);
if( !sizeof(tmp) ){
return 0;
}
else {
type = tmp[0];
}
switch(type){
case CLIMB_UP:
return "Perhaps you mean to climb up it?";
case CLIMB_DOWN:
return "Perhaps you mean to climb down it?";
case CLIMB_OUT:
return "Perhaps you mean to climb out of it?";
case CLIMB_INTO:
return "Perhaps you mean to climb into it?";
case CLIMB_THROUGH:
return "Perhaps you mean to climb through it?";
}
return 0;
}
varargs mixed eventClimb(object who, int type, string where){
mixed dest = Climb[type];
if(where && where !="") dest = where;
if( functionp(dest) ){
if( functionp(dest) & FP_OWNER_DESTED ){
who->eventPrint("There will be no climbing that today!");
return 1;
}
return evaluate(dest, who, type);
}
else {
string omsg, imsg;
switch(type){
case CLIMB_UP:
omsg = "$N climbs up " + GetDefiniteShort() + ".";
imsg = "$N comes climbing in.";
break;
case CLIMB_DOWN:
omsg = "$N climbs down " + GetDefiniteShort() + ".";
imsg = "$N comes climbing in.";
break;
case CLIMB_OUT:
omsg = "$N climbs out " + GetDefiniteShort() + ".";
imsg = "$N comes climbing in.";
break;
case CLIMB_INTO:
omsg = "$N climbs into " + GetDefiniteShort() + ".";
imsg = "$N comes climbing in.";
break;
case CLIMB_THROUGH:
omsg = "$N climbs through " + GetDefiniteShort() + ".";
imsg = "$N comes climbing in.";
break;
}
who->eventMoveLiving(dest, omsg, imsg);
return 1;
}
}
mixed direct_climb_obj(object ob){
return CanClimb(this_player(), CLIMB_UP);
}
mixed direct_climb_out_of_obj(object ob){
return CanClimb(this_player(), CLIMB_OUT);
}
mixed direct_climb_word_obj(string word, object ob){
if( !Climb ){
return 0;
}
switch(word){
case "up":
return CanClimb(this_player(), CLIMB_UP);
case "down":
return CanClimb(this_player(), CLIMB_DOWN);
case "out":
return CanClimb(this_player(), CLIMB_OUT);
case "in": case "into":
return CanClimb(this_player(), CLIMB_INTO);
case "through":
return CanClimb(this_player(), CLIMB_THROUGH);
default:
return 0;
}
}
