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