/*    /domains/Ylsrim/virtual/desert.c
 *    from the Dead Souls Mud Library
 *    created by Descartes of Borg 960302
 */

#include <lib.h>
#include <dirs.h>
#include <virtual.h>

inherit LIB_VIRT_LAND;

static private int XPosition, YPosition;

varargs void SetLongAndItems(int x, int y, int z);

varargs static void create(int x, int y) {
    string n, s, e, w;

    SetNoReplace(1);
    virt_land::create();
    XPosition = x;
    YPosition = y;
    SetClimate("arid");
    SetAmbientLight(30);
    SetLongAndItems();
    SetShort(x == 25 ? "the edge of a desert" : "deep within a desert");
    if( x == 25 ) e = "desert/" + random(25) + "," + y;
    else e = "desert/" + (x+1) + "," + y;
    if( x == 1 ) w = "desert/" + random(25) + "," + y;
    else w = "desert/" + (x-1) + "," + y;
    if( y == 25 ) n = "desert/" + x + "," + random(25);
    else n = "desert/" + x + "," + (y+1);
    if( y == 1 ) s = "desert/" + x+ "," + random(25);
    else s = "desert/" + x + "," + (y-1);
    SetGoMessage("The dunes are too high to let you pass in that direction.");
    if( n ) AddExit("north", __DIR__ + n);
    if( s ) AddExit("south", __DIR__ + s);
    if( e ) AddExit("east", __DIR__ + e);
    if( w ) AddExit("west", __DIR__ + w);
    if(x == 7 && y == 7){
        RemoveExit("east");
        AddExit("east","/domains/Ylsrim/room/sand_room");
    }
}

varargs void SetLongAndItems(int x, int y, int z) {
    mapping inv, items;
    string str;
    ::SetLongAndItems(x, y, z);

    inv = ([]);
    str = "You are at the heart of a vast desert.  The emptiness of endless "
        "sand cuts at your morale with the strength of a scimitar.  No path "
        "marks your way.";
    SetItems( ([ "desert" : "It is so vast." ]) );
    if( !random(50) ) {
        str += "  Burnt wood, scattered rocks and twigs, and other signs "
            "of an abandoned camp site are scattered about.";
        AddItem( ({ "twigs", "sticks", "kindling", "wood", "burnt wood" }) , 
                "Though long since burnt to nothing, scattered kindling "
                "and burnt wood lie about as a memory of travellers who have "
                "passed through");
        if( random(2) ) {
            string thing;

            foreach(thing in ({ "twigs", "sticks", "kindling", "wood" })) 
                SetSearch(thing, function(object who, string str) {
                        object ob;
                        string thing2;

                        if( !(ob = new("/domains/Ylsrim"+ "/etc/pole")) )
                        return 0;
                        who->eventPrint("You find a fishing pole!");
                        eventPrint(who->GetName() + " finds a fishing pole "
                            "among the abandoned campsite.", who);
                        foreach(thing2 in ({ "twigs", "sticks", "kindling", "wood"}))
                        RemoveSearch(thing2);
                        if( !(ob->eventMove(this_player())) ) {
                        who->eventPrint("You drop the pole!");
                        eventPrint(who->GetName() + " drops the pole.",
                            who);
                        ob->eventMove(this_object());
                        }
                        return;
                        });
        }
    }
    else if( !random(10) ) 
        SetSmell("default", "You smell a distant camp fire.");
    if( !random(25) )
        inv["/domains/Ylsrim"+ "/npc/traveller"] = random(3) + 1;
    else if( !random(4) ) 
        SetListen("default", "You hear voices whispering in the distance.");
    SetLong(str);
    SetInventory(inv);
}