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

#include <lib.h>
#include <dirs.h>
#include <virtual.h>
#define __DIR__ "/domains/Ylsrim/virtual/"

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((string)who->GetName() + " finds a fishing pole "
		    "among the abandoned campsite.", who);
		  foreach(thing2 in ({ "twigs", "sticks", "kindling", "wood"}))
		  RemoveSearch(thing2);
		  if( !((int)ob->eventMove(this_player())) ) {
		      who->eventPrint("You drop the pole!");
		      eventPrint((string)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);
    }