#include "std.h"

string rope;
object snake,orb,bar;
reset(arg) {
    if (!arg)
        set_light(1);
    if (!snake || !living(snake)) {
        int i;
        i = random(10);
        while(i>0) {
            i -= 1;
            snake  = clone_object("obj/monster");
            call_other(snake, "set_name", "snake");
            call_other(snake, "set_level",random(5));
            call_other(snake, "set_short", "A small poison snake");
            call_other(snake, "set_wc",random(30));
            call_other(snake, "set_aggressive", 1);
            move_object(snake, this_object());
}
orb = clone_object("obj/treasure");
            call_other(orb, "set_name", "orb");
            call_other(orb, "set_value",750);
            call_other(orb, "set_short", "A small gold orb");
            call_other(orb, "set_alias", "gold orb");
            move_object(orb, this_object());
bar = clone_object("obj/treasure");
            call_other(bar, "set_name", "bar");
            call_other(bar, "set_value",750);
            call_other(bar, "set_short", "A gold bar");
            call_other(bar,"set_alias", "gold bar");
            move_object(bar, this_object());
}
}



long() {
    write("You are in the snake pit,  it seems impossible to get out !!\n");
    if (call_other("players/kantele/snake_room", "query_rope"))
        write("There is a rope hanging down through the hole.\n");
}
init() {
add_action("go_up"); add_verb("up");
}

short() {
    return "You are in the snake pit";
}
go_up() 
{
    if (!call_other("players/kantele/snake_room","query_rope")) {
        write("You can't go stright up with some kind of support.\n");
        return 1;
    }
    call_other(this_player(), "move_player", "up#players/kantele/snake_room");
}
tie(str)
{
    if (str != "pillar")
        return 0;
    rope = 1;
    return 1;
}

id(str) {
    return str == "pillar";
}

untie(str) {
    rope = 0;
    return 1;
}