/*    /d/standard/hotel.c
 *    from Nightmare IV
 *    a place to stay for rest and other things
 *    created by Descartes of Borg (what a cutie!) 
 *    and Lassondra@Nightmare 940424
 */

#include <lib.h>
#include <clock.h>
#include <daemons.h>

inherit LIB_ROOM;

int query_occupied(int chambre);
string query_key_id(int chambre);
object query_room(int chambre);
void check_out();
static private void random_key(int chambre);

static private mapping __Rooms;
void create() {
    int x;

    room::create();
    SetProperties( ([ "indoors":1, "light":2, "no castle":1]) );
    SetShort("the Nightmare Inn");
    SetLong(
            "You find yourself at the entrance of the most prestigious "
            "inn in Nightmare. The floor is carpeted with plush red carpet, "
            "and the walls are trimmed with golden paint. Large oaken "
            "doors from where you entered stand behind you, and directly "
            "in front of you the front desk of the hotel stands."
            " Type list to see the available rooms, and <rent 'type'> to rent a certain type of room."
           );
    SetItems( ([ "entrance" : "The lobby of the hotel is very "
                "large and spacious. It looks like it is a rather "
                "expensive hotel.",
                "floor" : "The floor is covered with a very thick "
                "red carpet, with golden fringes at the edges.",
                "carpet" : "The carpet is in good shape, although "
                "it is a bit worn in spots. There is a golden "
                "symbol of the hotel standing in the center of it.",
                ({ "wall", "walls" }) : 
                "The walls have been painted white with some gold "
                "trim on all the edges.",
                ({ "doors", "door" }) :
                "The heavy oaken doors are ornately carved with "
                "the hotel ensignia. The doors gleam in the light "
                "from the large amount of polishing they receive.",
                "desk" : "The front desk is also made from oak, and "
                "stands at the back of the lobby.",
                "hotel" : "You are in the Nightmare Inn."
                ])
            );
    SetExits( ([
                "north" : "/domains/Praxis/hall",
                "west" : "/domains/Praxis/n_centre1.c",
                ]) );
    //    if(!event_pending(this_object())) {
    //        if((x=hour(time())) > 9) x= (9+(20-x))*HOUR;
    //        else x = HOUR*(9-x);
    //        event("check_out", x, 0, 1);
    //    }
    //    SetNoClean(1);
    //    __Rooms = allocate_mapping(10);
    //    this_object()->check_out();
}
void reset() {
    int x;

    room::reset();
    if(present("receptionist")) return;
    new("/domains/Praxis/obj/mon/receptionist")->move(this_object());
}
void set_occupied(int x) { __Rooms[x]["occupied"] = 1; }
int query_occupied(int chambre) {
    return __Rooms[chambre]["occupied"];
}
string query_key_id(int chambre) {
    return __Rooms[chambre]["key id"];
}

object query_room(int x) {
    return load_object(sprintf("/domains/Praxis/inn%d", x));
}
void check_out() {
    object *tmp;
    int i, j;

    if(previous_object() != this_object() &&
            base_name(previous_object()) != EVENTS_D) return;
    for(i=1; i<11; i++) {
        __Rooms[100+i] = ([ "occupied":0, "key id": random_key(100+i) ]);
        j = sizeof(tmp = livings() & all_inventory(query_room(100+i)));
        while(j--) {
            message("my_action", "Check out time!\nThe receptionist "
                    "hurries you out into the lobby.", tmp[j]);
            tmp[j]->eventMoveLiving("/domains/Praxis/hotel", "out");
        }
    }
}
string random_key(int chambre) {
    return sprintf("praxishotel%d%d", chambre, random(100));
}
void init(){
    ::init();
}