143 lines
4.4 KiB
C
143 lines
4.4 KiB
C
#include <lib.h>
|
|
#include <daemons.h>
|
|
#include <dirs.h>
|
|
#include <terrain_types.h>
|
|
#include <medium.h>
|
|
#include <virtual.h>
|
|
|
|
inherit LIB_VIRT_SKY;
|
|
|
|
static private int XPosition, YPosition, ZPosition;
|
|
int overland;
|
|
string dexit;
|
|
int max_north = 1000000;
|
|
int max_south = -1000000;
|
|
int max_east = 1000000;
|
|
int max_west = -1000000;
|
|
int max_up = 1000;
|
|
int max_down = 0;
|
|
|
|
|
|
varargs void SetLongAndItems(int x, int y, int z);
|
|
|
|
varargs int LimitTravel(int requested, int maximum, int lessthan, int minimum){
|
|
if(lessthan && requested < minimum) return maximum;
|
|
else if(lessthan && requested > maximum) return requested;
|
|
else if(requested > maximum) return minimum;
|
|
else return requested;
|
|
}
|
|
|
|
varargs static void create(int x, int y, int z) {
|
|
string n, s, e, w, u, d;
|
|
string ne, nw, se, sw;
|
|
|
|
SetNoReplace(1);
|
|
virt_sky::create();
|
|
XPosition = x;
|
|
YPosition = y;
|
|
ZPosition = z;
|
|
SetClimate("temperate");
|
|
SetLongAndItems(x, y, z);
|
|
SetShort("The sky");
|
|
if( x >= max_east ) e = "sky/" + (max_west) + "," + y + "," + z;
|
|
else e = "sky/" + (x+1) + "," + y + "," + z;
|
|
if( x <= max_west ) w = "sky/" + (max_east) + "," + y + "," + z;
|
|
else w = "sky/" + (x-1) + "," + y + "," + z;
|
|
if( y >= max_north ) n = "sky/" + x + "," + (max_south) + "," + z;
|
|
else n = "sky/" + x + "," + (y+1) + "," + z;
|
|
if( y <= max_south ) s = "sky/" + x+ "," + (max_north) + "," + z;
|
|
else s = "sky/" + x + "," + (y-1) + "," + z;
|
|
if( z == max_up ) u = "sky/" + x + "," + y + "," + (z);
|
|
else u = "sky/" + x + "," + y + "," + (z+1);
|
|
if( z == max_down ) d = "sky/" + x+ "," + (y) + "," + z;
|
|
else d = "sky/" + x + "," + y + "," + (z-1);
|
|
|
|
nw = "sky/" + LimitTravel(x - 1, max_east, 1, max_west) + "," + LimitTravel(y+1, max_north)+ "," + z;
|
|
ne = "sky/" + LimitTravel(x + 1, max_east) + "," + LimitTravel(y+1, max_north)+ "," + z;
|
|
sw = "sky/" + LimitTravel(x - 1, max_east, 1, max_west) + "," + LimitTravel(y-1, max_north, 1, max_south)+ "," + z;
|
|
se = "sky/" + LimitTravel(x + 1, max_east) + "," + LimitTravel(y-1, max_north, 1, max_south)+ "," + z;
|
|
|
|
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( u ) AddExit("up", __DIR__ + u);
|
|
if( d ) AddExit("down", __DIR__ + d);
|
|
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 < 26 && x > 0) && (y < 26 && y > 0) ){
|
|
overland = 1;
|
|
}
|
|
if(z == 1000){
|
|
RemoveExit("up");
|
|
AddExit("up","/domains/town/virtual/space/1,1,1");
|
|
return;
|
|
}
|
|
if(z == 1){
|
|
string wut;
|
|
mapping gloc = ROOMS_D->GetGrid(x+","+y+",0");
|
|
|
|
if(sizeof(gloc)){
|
|
dexit = gloc["room"];
|
|
SetSinkRoom(gloc["room"]);
|
|
}
|
|
|
|
if(dexit){
|
|
RemoveExit("down");
|
|
AddExit("down", dexit);
|
|
}
|
|
|
|
else {
|
|
if( (x < 10 && x > -26) && (y < 26 && y > -10) ){
|
|
wut = "forest";
|
|
}
|
|
else {
|
|
wut = "surface";
|
|
}
|
|
RemoveExit("down");
|
|
AddExit("down", __DIR__ + wut+"/" + x + "," + y);
|
|
}
|
|
}
|
|
}
|
|
|
|
varargs void SetLongAndItems(int x, int y, int z) {
|
|
mapping inv, items;
|
|
string str;
|
|
::SetLongAndItems(x, y, z);
|
|
|
|
inv = ([]);
|
|
if(overland || dexit) str = "You are in the air above a small island in a vast sea that stretches from horizon to horizon.";
|
|
else str = "You are in the air above a vast sea that stretches from horizon to horizon.";
|
|
if(query_night()) str += " The stars of the night sky glitter overhead.";
|
|
|
|
SetItems( ([ ({ "sea", "ocean" }) : "A seemingly endless body of water.",
|
|
]) );
|
|
|
|
SetLong(str);
|
|
SetDayLight(30);
|
|
SetNightLight(30);
|
|
SetTerrainType(T_MIDAIR);
|
|
SetMedium(MEDIUM_AIR);
|
|
}
|
|
|
|
//int eventReceiveObject(object ob){
|
|
// if(this_object() && ob && (living(ob) || ob->GetMapper())){
|
|
// tc("1");
|
|
// if(MASTER_D->GetPerfOK()){
|
|
// int array Coords = ROOMS_D->SetRoom(this_object(), ob);
|
|
// tc("2: "+identify(Coords));
|
|
// CompileNeighbors(Coords);
|
|
// }
|
|
// }
|
|
// return ::eventReceiveObject(ob);
|
|
//}
|
|
|
|
void init(){
|
|
::init();
|
|
}
|