213 lines
8.0 KiB
C
213 lines
8.0 KiB
C
#include <lib.h>
|
|
#include <dirs.h>
|
|
#include <virtual.h>
|
|
|
|
inherit LIB_VIRT_LAND;
|
|
|
|
static private int XPosition, YPosition, found;
|
|
static string lupus;
|
|
int max_north = 25;
|
|
int max_south = 1;
|
|
int max_east = -3;
|
|
int max_west = -28;
|
|
|
|
|
|
varargs void SetLongAndItems(int x, int y, int z);
|
|
|
|
varargs int LimitTravel(int requested, int maximum, int lessthan){
|
|
if(lessthan && requested < maximum) return maximum;
|
|
else if(lessthan && requested > maximum) return requested;
|
|
else if(requested > maximum) return maximum;
|
|
else return requested;
|
|
}
|
|
|
|
mixed SearchFun(object who, string str){
|
|
object ob;
|
|
if( found || !(ob = new("/domains/Ylsrim/etc/pole")))
|
|
return "You find nothing of interest.";
|
|
found = 1;
|
|
eventPrint(who->GetName() + " finds a fishing pole " "among the abandoned campsite.", who);
|
|
if( !(ob->eventMove(this_player())) ) {
|
|
ob->eventMove(this_object());
|
|
}
|
|
return "You find a fishing pole!";
|
|
}
|
|
|
|
varargs static void create(int x, int y) {
|
|
string n, s, e, w;
|
|
string ne, nw, se, sw;
|
|
string fly;
|
|
|
|
SetNoReplace(1);
|
|
virt_land::create();
|
|
/* Without the virtual exemption, virts with npc's
|
|
* wind up being perpetual motion NPC factories.
|
|
*/
|
|
SetExemptVirtual(1);
|
|
XPosition = x;
|
|
YPosition = y;
|
|
SetClimate("temperate");
|
|
SetAmbientLight(30);
|
|
SetLongAndItems(x, y);
|
|
SetShort("a thick forest");
|
|
if( x == max_east ) e = "forest/" + (x) + "," + y;
|
|
else e = "forest/" + (x+1) + "," + y;
|
|
if( x == max_west ) w = "forest/" + (x) + "," + y;
|
|
else w = "forest/" + (x-1) + "," + y;
|
|
if( y == max_north ) n = "forest/" + x + "," + (y);
|
|
else n = "forest/" + x + "," + (y+1);
|
|
if( y == max_south ) s = "forest/" + x+ "," + (y);
|
|
else s = "forest/" + x + "," + (y-1);
|
|
fly = "sky/" + x + "," + y + "," + 1;
|
|
|
|
nw = "forest/" + LimitTravel(x - 1, max_west, 1) + "," + LimitTravel(y+1, max_north);
|
|
ne = "forest/" + LimitTravel(x + 1, max_east) + "," + LimitTravel(y+1, max_north);
|
|
sw = "forest/" + LimitTravel(x - 1, max_west, 1) + "," + LimitTravel(y-1, max_south, 1);
|
|
se = "forest/" + LimitTravel(x + 1, max_east) + "," + LimitTravel(y-1, max_south, 1);
|
|
|
|
SetFlyRoom(__DIR__+fly);
|
|
|
|
SetGoMessage("You can't travel 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( ne ) AddExit("northeast", __DIR__ + ne);
|
|
if( nw ) AddExit("northwest", __DIR__ + nw);
|
|
if( se ) AddExit("southeast", __DIR__ + se);
|
|
if( sw ) AddExit("southwest", __DIR__ + sw);
|
|
|
|
if(x == -4 && y == 1){
|
|
RemoveExit("south");
|
|
RemoveExit("west");
|
|
AddExit("south","/domains/town/room/forest_path1");
|
|
RemoveExit("southeast");
|
|
RemoveExit("southwest");
|
|
|
|
}
|
|
else if(y == max_south){
|
|
RemoveExit("south");
|
|
RemoveExit("southeast");
|
|
RemoveExit("southwest");
|
|
}
|
|
if(y == max_north){
|
|
RemoveExit("north");
|
|
RemoveExit("northeast");
|
|
RemoveExit("northwest");
|
|
}
|
|
if(x == max_west){
|
|
RemoveExit("west");
|
|
RemoveExit("northwest");
|
|
RemoveExit("southwest");
|
|
}
|
|
if(x == max_east){
|
|
RemoveExit("east");
|
|
RemoveExit("northeast");
|
|
RemoveExit("southeast");
|
|
}
|
|
}
|
|
|
|
varargs void SetLongAndItems(int x, int y, int z) {
|
|
mapping inv, items;
|
|
string str;
|
|
::SetLongAndItems(x, y, z);
|
|
|
|
inv = ([]);
|
|
str = "You are in a vast forest. The trees and "
|
|
"thick vegetation press in from all sides, appearing almost "
|
|
"threatening. "
|
|
"No path marks your way. ";
|
|
if(query_night()) str += "The stars of the night sky "
|
|
"are barely visible through the heavy forest canopy overhead.";
|
|
else str+= "Sunlight penetrates the tree cover with great "
|
|
"difficulty, rendering the forest cool and dark.";
|
|
if(x == max_east) str+= " Travel east is made impossible by a river "
|
|
"rushing north to south here. On the other side of the river "
|
|
"a great slope rises, and it appears that on top of it is "
|
|
"a road that leads north to a high plateau.";
|
|
if(y == max_north) str+= " A steep cliff rises north of here, making "
|
|
"travel north into the mountains impossible.";
|
|
if(x == max_west) str += " The forest is impassably thick to the west.";
|
|
if(y == max_south) str += " The forest is impassably thick southward.";
|
|
if(x == -4 && y == 1) str += "\n%^GREEN%^There is a sign here you can read.%^RESET%^";
|
|
if(x == -4 && y == 25) str += "\n%^GREEN%^There is a cave entrance in the cliff wall.%^RESET%^";
|
|
if(x == -3 && y == 25) str += "\n%^GREEN%^There is a cave entrance in the cliff wall.%^RESET%^";
|
|
SetItems( ([ "forest" : "It is so vast.",
|
|
({"woods","trees","vegetation","plants"}) : "Thick, foreboding and "
|
|
"oppressive, these seem to add to an air of danger and claustrophobia.",
|
|
"no path" : "You observe the presence of its absence.",
|
|
({"mountain","mountains"}): "The snow capped peaks of the great "
|
|
"northern range are faintly visible from here.",
|
|
"cliff" : "To the north, a high cliff rises from the forest.",
|
|
({"canopy","forest canopy","heavy forest canopy"}) : "The great "
|
|
"branches and heavy leaves of the trees here form the forest "
|
|
"canopy, almost a ceiling through which little light can pass.",
|
|
]) );
|
|
if(y == max_north) {
|
|
AddItem( ({ "river", "stream", "great river"}),
|
|
"This narrow but powerful river presents an insurmountable "
|
|
"obstacle to further travel east." );
|
|
AddItem( ({ "slope","road","plateau"}), "Looks like that's "
|
|
"Fort Road, high on a slope and running north to the Fortress "
|
|
"on the Frontiers.");
|
|
}
|
|
if(x == -4 && y == 25) {
|
|
AddItem(({"cave","opening","entrance","cave entrance"}) ,
|
|
"This is a rather scary looking opening in the cliff wall, leading "
|
|
"north into the ground.");
|
|
AddEnter("cave","/domains/town/room/cave_entrance");
|
|
RemoveExit("north");
|
|
RemoveExit("northeast");
|
|
RemoveExit("northwest");
|
|
}
|
|
|
|
if(x == -3 && y == 25) {
|
|
AddItem(({"cave","opening","entrance","cave entrance"}) ,
|
|
"This is a dark opening in the cliff wall, leading "
|
|
"north into the ground.");
|
|
AddEnter("cave","/domains/amigara/room/cave");
|
|
RemoveExit("north");
|
|
RemoveExit("northeast");
|
|
RemoveExit("northwest");
|
|
}
|
|
|
|
if(x == -4 && y == 1) {
|
|
if(random(99) > 95) lupus = "Bad Wolf!";
|
|
else lupus = "Straight on! Beware th";
|
|
AddItem("sign" , "This is a hastily-lettered sign planted on the ground.");
|
|
SetRead( ({"sign"}) , lupus);
|
|
}
|
|
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) ){
|
|
SetSearch( (: SearchFun :) );
|
|
}
|
|
}
|
|
else if( !random(10) )
|
|
SetSmell("default", "You smell a distant camp fire.");
|
|
if( !random(55) )
|
|
inv["/domains/town/npc/forest_orc"] = random(2)+1;
|
|
if( !random(45) )
|
|
inv["/domains/town/npc/bear"] = 1;
|
|
if( !random(15) )
|
|
inv["/domains/town/npc/deer"] = 1;
|
|
if( !random(65) )
|
|
inv["/domains/town/npc/gecko"] = 1;
|
|
if( !random(35) )
|
|
inv["/domains/town/npc/newt"] = 1;
|
|
if( !random(75) )
|
|
inv["/domains/town/npc/spider"] = 1;
|
|
|
|
else if( !random(14) )
|
|
SetListen("default", "You hear voices in the distance.");
|
|
SetLong(str);
|
|
SetDayLight(25);
|
|
SetNightLight(0);
|
|
SetInventory(inv);
|
|
}
|