SCOPE2 void
header(int adr, int len, int up)
{
int canstr;
int threadp = up + DATA(voc_unum + T(CURRENT));
canstr = alcanonical(adr, len, up);
cfwarn(canstr, len, up);
place_name(canstr, len, TOKEN(threadp), up);
// Link into vocabulary search list and remember lfa for hide/reveal
tokstore(V(DP), threadp);
}
void
init_dictionary(cell *up)
{
/* reserve space for an array of tokens to the cfa of prim headers */
V(DP) += (MAXPRIM * sizeof(token_t));
#if 0
// Make a temporary vocabulary structure so header will have
// a place to put its various links
tokstore(CT_FROM_XT((xt_t)V(DP), up), &V(CONTEXT));
tokstore(CT_FROM_XT((xt_t)V(DP), up), &V(CURRENT));
linkcomma(DOVOC);
linkcomma(CT_FROM_XT(V(TORIGIN), up));
linkcomma(CT_FROM_XT(V(TORIGIN), up));
/* Make the initial dictionary entry */
header("forth", sizeof("forth")-1);
#else
place_name("forth", sizeof("forth")-1, CT_FROM_XT((xt_t)V(TORIGIN), up), up);
#endif
// Install the new vocabulary in the search order and the vocabulary list
tokstore(CT_FROM_XT((xt_t)V(DP), up), (xt_t)&V(CONTEXT));
tokstore(CT_FROM_XT((xt_t)V(DP), up), (xt_t)&V(CURRENT));
tokstore(CT_FROM_XT((xt_t)V(DP), up), (xt_t)&V(VOC_LINK));
compile((token_t)DOVOC); // Code field
#ifdef RELOCATE
set_relocation_bit(V(DP));
#endif
#if 0
linkcomma(T(LASTP)); // last-word field
#else
unumcomma(0); // Forth voc threads are first thing in user area
*(xt_t)(&up[0]) = T(LASTP);
#endif
linkcomma(CT_FROM_XT((xt_t)V(TORIGIN), up)); // voc-link field
init_variables(sizeof(cell), up); // arg is first avail user number
init_entries(up);
}
// this function is really ugly
static void generate(zone * z)
{
static int first = 1;
int i, x, y, max, timeout;
int rc;
int ** walls;
room * rv;
item * it;
creature * cr;
if (first) {
fill_walls();
first = 0;
}
z->name = place_name(world.eth);
// generate rooms
rc = random() % ((z->width * z->height) / ROOM_INFREQ) + ROOM_MIN;
rv = malloc(sizeof(room) * rc);
for (i = 0; i < rc; i++) {
rv[i].w = random() % 12 + 5;
rv[i].h = random() % 8 + 3;
rv[i].x = random() % (z->width - rv[i].w - 1) + 1;
rv[i].y = random() % (z->height - rv[i].h - 1) + 1;
}
// cut out rooms
walls = malloc(sizeof(int *) * z->width);
for (x = 0; x < z->width; x++) {
walls[x] = malloc(sizeof(int) * z->height);
for (y = 0; y < z->height; y++) {
for (i = 0; i < rc; i++) {
if (in_room(rv + i, x, y)) break;
}
z->tiles[x][y].ch = '.';
z->tiles[x][y].show_ch = '.';
z->tiles[x][y].linked = 0;
walls[x][y] = (i == rc);
}
}
// draw walls
for (x = 0; x < z->width; x++) {
for (y = 0; y < z->height; y++) {
if (walls[x][y]) {
z->tiles[x][y].impassible = 1;
set_wall_char(walls,z,x,y);
}
}
}
// place some random junk
max = random() % (z->width * z->height / ITEM_INFREQ) + ITEM_MIN;
for (i = max; i >= 0; i--) {
it = gen_item(world.gitems, 1);
timeout = 1000;
do {
x = random() % z->width;
y = random() % z->height;
timeout--;
} while ((z->tiles[x][y].impassible || !inv_try(z->tiles[x][y].inv, it)) && timeout);
if (timeout) {
item_tele(it, x, y, z);
zone_update(z, x, y);
} else {
item_free(it);
}
}
// place some more random junk
if (!config.all_alone) {
max = random() % (z->width * z->height / CRTR_INFREQ) + CRTR_MIN;
for (i = max; i >= 0; i--) {
cr = gen_crtr(world.gcrtrs, 1);
crtr_spawn(cr, z);
zone_update(z, cr->x, cr->y);
}
}
// place random zone jumpers
for (i = 0; i < 4; i++) {
do {
x = random() % z->width;
y = random() % z->height;
timeout--;
} while (z->tiles[x][y].impassible);
z->tiles[x][y].linked = 1;
z->tiles[x][y].link_z = NULL;
z->tiles[x][y].ch = '@';
z->tiles[x][y].show_ch = '@';
}
// cleanup
for (x = 0; x < z->width; x++) free(walls[x]);
free(walls);
free(rv);
}
// this function is really ugly
static void generate(zone * z)
{
static int first = 1;
int i, x, y, max, timeout;
int wall;
int x1,x2,y1,y2;
int rc;
room ** rooms;
item * it;
creature * cr;
if (first) {
fill_walls();
first = 0;
}
z->name = place_name(world.eth);
rc = random() % ((z->width * z->height) / ROOM_INFREQ) + ROOM_MIN;
rooms = malloc(sizeof(room*) * rc);
//make everything walls!
for (x = 0; x < z->width; x++) {
for (y = 0; y < z->height; y++) {
z->tiles[x][y].impassible = 1;
}
}
//gen rooms and cut out
for(i=0; i< rc; i++){
rooms[i]=gen_room(world.grooms,1);
build_room(z,rooms[i]);
}
//make sure rooms are connected!
//connect each room to one other room
for(i=0; i< rc; i++){
max = random() % rc;
room_spot(z,rooms[i],&x1,&y1);
room_spot(z,rooms[max],&x2,&y2);
wall=0;
if(x1 == -1 || x2 == -1){
warning("Room generation timed out!");
break;
}
for(;x1 != x2; x1-= sign(x1-x2)){
if(z->tiles[x1][y1].impassible) wall=1;
else if (wall) break;
zone_empty_tile(z,x1,y1);
}
for(;y1 != y2; y1-= sign(y1-y2)){
if(z->tiles[x1][y1].impassible) wall=1;
else if (wall) break;
zone_empty_tile(z,x1,y1);
}
}
//do rendering thing
for (x = 0; x < z->width; x++) {
for (y = 0; y < z->height; y++) {
if (z->tiles[x][y].impassible) {
set_wall_char(z,x,y);
}
}
}
for(i=0; i< rc; i++)
free(rooms[i]);
free(rooms);
// place some random junk
max = random() % (z->width * z->height / ITEM_INFREQ) + ITEM_MIN;
for (i = max; i >= 0; i--) {
it = gen_item(world.gitems, 1);
timeout = 1000;
do {
x = random() % z->width;
y = random() % z->height;
timeout--;
} while ((z->tiles[x][y].impassible || !inv_try(z->tiles[x][y].inv, it)) && timeout);
if (timeout) {
item_tele(it, x, y, z);
zone_update(z, x, y);
} else {
item_free(it);
}
}
// place some more random junk
if (!config.all_alone) {
max = random() % (z->width * z->height / CRTR_INFREQ) + CRTR_MIN;
for (i = max; i >= 0; i--) {
cr = gen_crtr(world.gcrtrs, 1);
crtr_spawn(cr, z);
zone_update(z, cr->x, cr->y);
}
}
// place random zone jumpers
for (i = 0; i < 4; i++) {
do {
x = random() % z->width;
y = random() % z->height;
timeout--;
} while (z->tiles[x][y].impassible);
z->tiles[x][y].linked = 1;
z->tiles[x][y].link_z = NULL;
z->tiles[x][y].ch = '@';
z->tiles[x][y].show_ch = '@';
}
// cleanup
//for (x = 0; x < z->width; x++) free(walls[x]);
//free(walls);
//free(rv);
}
