generic area #114

accept

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:on_reset line 23: this:accept

Source

if (is_a(args[1], $room))
return 1;
elseif (is_a(args[1], $subarea))
return 1;
elseif (is_a(args[1], $prog))
return 1;
else
return 0;
endif

find_all_paths

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:@force-reset line 7: this:find_all_paths
• #334:reset line 13: this:find_all_paths

Source

":find_all_paths()";
"Recalculate .next_hops on all rooms in the area.  Obviously, this may be very tick-intensive.";
old_adj = this.adjacent_areas;
oareas = {};
player.programmer && player:tell((($ansi.bold_on + $ansi.yellow) + "Tracing internal paths...") + $ansi.reset);
total = 0;
for x in (this:occupants($room))
if (a = x:recalc_next_hops())
for y in (a)
oareas = setadd(oareas, y);
endfor
endif
tl = ticks_left();
if ($command_utils:suspend_if_needed(2))
total = total + (100000 - tl);
endif
endfor
this.adjacent_areas = oareas;
if (player.programmer)
change = $set_utils:difference(oareas, old_adj);
if (change)
for x in (change)
player:tell($ansi.bold_on + $ansi.yellow, "WARNING: Link change in area ", $su:nn(x), ".  You should probably @force-reset ", x, "." + $ansi.reset);
endfor
endif
endif

add_stub_room

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

":add_stub_room(OBJ room, OBJ from)";
"Add room to everyone's next_hops, as a stub from 'from'.";
for x in (this:occupants($room))
x:add_stub_room(@args);
endfor

time_msg

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return "";

time_windows_msg

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

"Return a random message appropriate to the time, for window rooms.";
d = $time.day_segments[$time:day_segment()];
if (m = this.(d + "_windows_msg"))
if (typeof(m) == STR)
return m;
else
return m[random(length(m))];
endif
else
return "";
endif

do_reset

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:@force-reset line 31: this:do_reset
• #334:reset line 40: this:do_reset

Source

fork (0)
new_listeners = {};
for x in (this.reset_listeners)
if ($ou:has_verb(x, "on_reset"))
try
x:on_reset();
except e (ANY)
$rpg:report_error(e, tostr("from area ", $su:nn(this)), $nets.heartnet);
endtry
$command_utils:suspend_if_needed(1);
new_listeners = {@new_listeners, x};
endif
endfor
this.reset_listeners = new_listeners;
endfork
this:on_reset();
$cu:sin();
auto_clean = (this.auto_clean && this.owner.programmer) && (this:region() == $earth);
if (auto_clean && (random(10) < 4))
for x in (this:occupants($room))
$cu:sin(1);
`x:auto_clean() ! ANY';
x.tracks = {};
endfor
endif
"if (random(100) <= this.weather_change_chance)";
"  this:change_weather();";
"endif";
"if (random(5000) <= this.quake_chance)";
"  strength = random(5);";
"  if (random(100) <= this.quake_chance)";
"    strength = strength + random(4);";
"  endif";
"  fork (5)";
"    this:earthquake(strength);";
"  endfork";
"endif";
"if (this.invasions && (!is_a(this.invasion, $invasion)))";
"  if (random(100) <= this.invasion_chance)";
"    invasion = this.invasions[random(length(this.invasions))];";
"    invasion = $rpg:spawn(invasion);";
"    this.invasion = invasion;";
"  endif";
"endif";

@force-reset @reset

Spec this none noneFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (player.programmer != 1)
player:tell("I don't understand that.");
return;
endif
player:tell("");
player:tell($ansi.bold_on + "Compiling area ", $su:nn(this), "..." + $ansi.reset);
this:find_all_paths();
suspend(2);
this:find_transitions();
suspend(1);
this:calculate_offset();
suspend(1);
this:find_reset_listeners();
suspend(1);
if (!is_a(this.bigmap, $bigmap))
player:tell($ansi.yellow + $ansi.bold_on, "Storing a cache of z sorted rooms...", $ansi.reset);
this:store_sorted_rooms_by_z();
suspend(1);
endif
"player:tell($ansi.yellow + $ansi.bold_on, \"Rewriting landmark_msg on outdoors...\", $ansi.reset);";
"this:write_landmarks();";
suspend(1);
if (is_a(this.bigmap, $bigmap))
player:tell($ansi.yellow + $ansi.bold_on, ("WARNING: This area is part of a $bigmap so I will not redraw radars. Do @reset-maps " + tostr(this.bigmap)) + " to reset it.", $ansi.reset);
else
player:tell($ansi.yellow + $ansi.bold_on, "Forcing redraw of all radars...", $ansi.reset);
this:reset_map();
suspend(1);
endif
player:tell($ansi.bold_on + $ansi.yellow, "Resetting the area...", $ansi.reset);
this:do_reset();
player:tell($ansi.bold_on + "Done compiling ", $su:nn(this), "." + $ansi.reset);
player:tell("");

on_reset

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:do_reset line 16: this:on_reset

Source

if (valid(this.generic_citizen))
citizens = 0;
for x in (children(this.generic_citizen))
$cu:sin(1);
if (x:area() == this)
citizens = citizens + 1;
endif
endfor
while (citizens < this:citizen_population())
this:spawn_citizen();
citizens = citizens + 1;
$cu:sin(1);
endwhile
endif
nl = {};
"for x in (this.landmarks)";
"  if (x:area() == this)";
"    nl = setadd(nl, x);";
"  endif";
"endfor";
"this.landmarks = nl;";
for x in (this.contents)
if (!this:accept(x))
move(x, $tomb);
$nets.heartnet:announce(this, tostr($su:nn(x), " was in ", $su:nn(this)), 1);
continue;
endif
if (is_a(x, $room))
si = $lu:randomly_permute(x.search_items);
smax = `x.max_search_items ! ANY => 4';
if (length(si) > smax)
si = si[1..smax];
endif
x.search_items_left = si;
x.already_searched = {};
for y in (x:occupants($decal))
y:hear_event_move(0);
endfor
endif
$cu:sin(1);
endfor
np = {};
for x in (this.players)
$cu:sin();
if (is_player(x) && (x:area() == this))
np = {@np, x};
endif
endfor
this.players = np;
if (this.players && this.hibernating)
this:unhibernate();
elseif (((!this.players) && (!this.hibernating)) && (!this.dont_hibernate))
this:hibernate();
elseif (this.hibernating && this.dont_hibernate)
this:unhibernate();
endif

powerplant

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return this.powerplant;

announce_all

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return;
fork (0)
for x in (this.contents)
x:announce_all(@args);
$cu:sin(0);
endfor
endfork

initialize

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (this.reset_interval)
$heart:register_long(this);
endif
return pass(@args);

recycle

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

$heart:unregister_long(this);
return pass(@args);

calculate_offset

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:@force-reset line 11: this:calculate_offset
• #334:reset line 17: this:calculate_offset

Source

player:tell(($ansi.bold_on + $ansi.yellow) + "Computing border area map offsets...", $ansi.reset);
offsets = {};
for x in (this.contiguous_map)
offsets = {@offsets, {0, 0, 0}};
endfor
alinks = {};
for room in (this:occupants($room))
for ex in (room.exits)
if (((!is_a(ex, $exit)) || (!valid(ex.otherside))) || (!is_a(ex.otherside.location, $room)))
player:tell("BROKEN EXIT: ", $su:nn(ex), ".  Aborted.");
return;
endif
a = #-1;
if (valid(ex.otherside) && (i = (a = ex.otherside.location:area()) in this.contiguous_map))
minex = ex.location.x;
miney = ex.location.y;
minez = ex.location.z;
if (ex.direction in {"north", "northeast", "northwest"})
miney = miney - 1;
elseif (ex.direction in {"south", "southeast", "southwest"})
miney = miney + 1;
endif
if (ex.direction in {"east", "southeast", "northeast"})
minex = minex + 1;
elseif (ex.direction in {"west", "southwest", "northwest"})
minex = minex - 1;
elseif (ex.direction == "up")
minez = minez - 1;
elseif (ex.direction == "down")
minez = minez + 1;
endif
ol = ex.otherside.location;
offx = minex - ol.x;
offy = miney - ol.y;
offz = minez - ol.z;
offsets[i] = {offx, offy, offz};
endif
if ((valid(a) && (a != this)) && `a.linkable ! ANY => 0')
if (!`ex.linkable ! ANY => 1')
continue;
endif
oax = ex.location.x;
oay = ex.location.y;
oaz = ex.location.z;
if (ex.direction in {"east", "southeast", "northeast"})
oax = oax + 1;
elseif (ex.direction in {"west", "southwest", "northwest"})
oax = oax - 1;
endif
if (ex.direction in {"north", "northwest", "northeast"})
oay = oay - 1;
elseif (ex.direction in {"south", "southwest", "southeast"})
oay = oay + 1;
elseif (ex.direction == "up")
oaz = oaz - 1;
elseif (ex.direction == "down")
oaz = oaz + 1;
endif
alinks = {@alinks, {a, oax, oay, oaz}};
endif
endfor
$cu:sin(1);
endfor
this.area_link_icons = alinks;
return this.contiguous_map_offsets = offsets;

find_reset_listeners

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:@force-reset line 13: this:find_reset_listeners
• #334:reset line 19: this:find_reset_listeners

Source

player:tell($ansi.yellow + $ansi.bold_on, "Finding reset objects...", $ansi.reset);
rl = {};
door = 0;
for x in (this:occupants($room))
for y in ({x, @x.contents})
$cu:sin();
if ($ou:has_verb(y, "on_reset"))
if (`y:should_reset(this) ! E_VERBNF => 1')
if (!is_a(y, $door))
player:tell("  Found ", $su:nn(y), " at ", y.location.name, ".");
else
door = door + 1;
endif
rl = {@rl, y};
endif
endif
endfor
$cu:sin(0);
endfor
if (door)
player:tell("  Found ", door, " door", (door == 1) ? "" | "s", ".");
endif
this.reset_listeners = rl;

weather_msg

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return `this:weather():look_place_msg() ! ANY => ""';

change_weather

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (this.weather_master != #-1)
return;
endif
ow = this:weather();
pw = {};
found = 0;
if (!args)
if (!this.weather_tree)
return;
endif
nw = ow;
for x in (this.weather_tree)
if (x[1] == this.weather)
if (length(x) == 1)
"doesn't ever change!";
return;
endif
nw = x[2..$];
nw = nw[random(length(nw))];
found = 1;
endif
pw = {@pw, x[1]};
endfor
if (!found)
nw = pw[random(length(pw))];
endif
else
nw = args[1];
endif
m = `nw.("change_from_" + ow.name) ! ANY => 0' || `ow.("change_to_" + nw.name) ! ANY => 0';
for x in ({this, @this.weather_slaves})
if (m)
x:weather_announce(m);
endif
x.weather = nw;
endfor
this.weather = nw;

announce_all_players

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

for x in (this.players)
x:tell(@args);
endfor

heartbeat

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

weather_announce

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

fork (0)
for x in (this.players)
if (is_a(x.location, $room) && x.location.outdoor)
x:tell(@args);
endif
endfor
endfork

@weather-compile @compile-weather @cw @wc

Spec this none noneFlags rxdOwner #361Definer #114

Referenced by

none

Source

wt = {};
for line in (this.weather_tree_msg)
wl = {};
for x in ($su:explode(line, ","))
w = $su:match(x, $ou:leaves($weather), "name");
if (!valid(w))
player:tell("ERROR: no such weather as '", x, "'.  Aborted.");
return;
endif
wl = {@wl, w};
endfor
wt = {@wt, wl};
endfor
this.weather_tree = wt;
player:tell("Compiled!");

weather

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:weather_msg line 1: this:weather
• #114:change_weather line 4: this:weather

Source

if (is_a(w = this.weather_master, $area))
return w:weather();
endif
return this.weather;

find_transitions

Spec this none thisFlags rxOwner #361Definer #114

Referenced by

• #114:@force-reset line 9: this:find_transitions
• #334:reset line 15: this:find_transitions

Source

player:tell($ansi.bold_on + $ansi.yellow, "Locating area transition rooms...", $ansi.reset);
ar = {};
na = {};
for x in (this.adjacent_areas)
if (is_a(x, $area) && (!is_a(x, #376063)))
ar = {@ar, #-1};
na = {@na, x};
endif
endfor
this.adjacent_areas = na;
for x in (this:occupants($room))
for exit in (x.exits)
if (exit.next_hop_ok && (!`exit.not_interconnect ! ANY'))
if ((e2 = exit.otherside:area()) != this)
if (i = e2 in this.adjacent_areas)
ar[i] = x;
endif
endif
endif
endfor
$cu:sin(0);
endfor
this.adjacent_area_rooms = ar;
if (valid(this:region().map_area))
if (is_a(this.maproom, $room))
this.maproom:setup();
else
maproom = $recycler:_create(#111089);
this.maproom = maproom;
maproom.area = this;
maproom:moveto(this:region().map_area);
maproom:setup();
endif
endif

next_area_to

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:next_hop_out line 14: this:next_area_to

Source

da = args[1];
if (da == this)
return #-1;
elseif (da in this.adjacent_areas)
return da;
elseif (length(this.adjacent_areas) == 1)
return this.adjacent_areas[1];
elseif (!this.adjacent_areas)
return #-1;
else
if (((!$recycler:valid(this.maproom)) || (!$recycler:valid(da))) || (!$recycler:valid(da.maproom)))
return #-1;
endif
maproom = this.maproom:next_hop_to(da.maproom);
if (valid(maproom))
return maproom.dest_area;
endif
endif
return #-1;

random_room

Spec this none thisFlags rxdOwner #29Definer #114

Referenced by

none

Source

"Select a random room from this area.";
"Optional argument: type of room to be selected.";
roomtype = args ? args[1] | $room;
rooms = this:occupants(roomtype);
if (rooms)
rooms = $lu:randomly_permute(rooms);
return rooms[1];
else
return #-1;
endif

area

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return this;

tree_tag

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return this.blank_icon;

creature_enterfunc

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #321:creature_enterfunc line 5: pass(

Source

":creature_enterfunc(OBJ who, OBJ from-area)";
"Do something if a creature enters the area.";
who = args[1];
if (is_player(who))
this.players = setadd(this.players, who);
"if ((!valid(this.travel_quest)) && this.make_travel_quest)";
"  this:make_travel_quest();";
"endif";
"if (valid(this.travel_quest))";
"  this.travel_quest:award_to(who);";
"endif";
endif

creature_exitfunc

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

who = args[1];
if (is_player(who))
this.players = setremove(this.players, who);
endif

dname

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #334:edit line 2: this:dname
• #334:authorize line 5: this:dname

Source

if (this.has_proper_name)
return $su:capitalize_words(this.name);
else
return pass(@args);
endif

dnamec

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (this.has_proper_name)
return $su:capitalize(this.name);
else
return pass(@args);
endif

hibernate

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:on_reset line 53: this:hibernate

Source

this.hibernating = 1;
total = 0;
for x in (this:occupants($room))
for y in (x:occupants($npc))
if (((!y.dont_hibernate) && y.heart) && (!y.f))
$heart:unregister(y);
y:cancel_current_action();
y:clear_queue();
y.fighting = {};
if (task_valid(y.process_queue))
kill_task(y.process_queue);
endif
total = total + 1;
yield;
endif
endfor
endfor
if (total)
$nets.gamenet:announce(#-1, ((this.name + " hibernating (") + tostr(total)) + " NPCs sleeping).", 1);
else
$nets.gamenet:announce(#-1, this.name + " hibernating.", 1);
endif

unhibernate

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:on_reset line 51: this:unhibernate
• #114:on_reset line 55: this:unhibernate

Source

this.hibernating = 0;
total = 0;
for x in (this:occupants($room))
for y in (x:occupants($npc))
if ((!y.heart) && (!y.f))
$heart:register(y);
total = total + 1;
$cu:sin(0);
endif
endfor
endfor
if (total)
$nets.gamenet:announce(#-1, ((this.name + " waking up (") + tostr(total)) + " NPCs awakened).", 1);
else
$nets.gamenet:announce(#-1, this.name + " waking up.", 1);
endif

_www

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

text = {((("<HTML><head><title>" + $network.MOO_name) + ": ") + $su:nn(this)) + "</title></head>"};
text = {@text, "<body bgcolor=\"#000000\" text=\"#22cc22\">"};
text = {@text, ("<h2>" + $su:capitalize($su:nn(this))) + "</h2>"};
text = {@text, this:description()};
text = {@text, "<hr>"};
max_x = -999;
max_y = -999;
min_x = 999;
min_y = 999;
for room in (this:occupants($room))
$cu:sin();
if (room.z == 0)
if (room.x > max_x)
max_x = room.x;
endif
if (room.x < min_x)
min_x = room.x;
endif
if (room.y > max_y)
max_y = room.y;
endif
if (room.y < min_y)
min_y = room.y;
endif
endif
endfor
min_diff = 9999;
x_size = abs(max_x - min_x) + 1;
y_size = abs(max_y - min_y) + 1;
x_cent = min_x + tonum(tofloat(x_size) / 2.0);
y_cent = min_y + tonum(tofloat(y_size) / 2.0);
for room in (this.contents)
$cu:sin();
if (is_a(room, $room))
if (room.z == 0)
x_diff = abs(room.x - x_cent);
y_diff = abs(room.y - y_cent);
if ((x_diff + y_diff) < min_diff)
min_diff = x_diff + y_diff;
firstroom = room;
endif
endif
endif
endfor
x_size = x_size + min_diff;
y_size = y_size + min_diff;
map_www = $rpg:draw_map_www(firstroom, x_size, y_size);
text = {@text, @map_www};
text = {@text, "</body></html>"};
return text;

reset_map

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:@force-reset line 27: this:reset_map
• #334:reset line 6: this:reset_map
• #334:reset line 36: this:reset_map

Source

for x in (this:occupants($room))
x.map = {};
x:draw_map();
$cu:sin(0);
endfor

who_name

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return $ansi:strip(this.name);

_allows

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (!(args[1] in $rpg.allowable_area_settings))
raise(E_PROPNF);
endif
if (valid(this:region()) && (!this:region():_allows(args[1])))
return 0;
endif
return `this.("_allow_" + args[1]) ! E_PROPNF => 0';

spy_report

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

players = {};
animals = {};
loot = {};
bodies = {};
for room in (this:contents())
$cu:sin(0);
if ((!is_a(room, $room)) || is_a(room, this.depositbox))
continue;
endif
{rplayers, ranimals, rloot, rbodies} = room:spy_report();
players = {@players, @rplayers};
animals = {@animals, @ranimals};
loot = {@loot, @rloot};
bodies = {@bodies, @rbodies};
endfor
return {players, animals, loot, bodies};

path_ok

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

return this.next_hop_ok;

next_hop_override

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

":next_hop_override(OBJ sourceroom, OBJ dest) => Do we want to override a next_hop_to headed for us from sourceroom?";
"If so, return back a room to walk toward instead of dest.";
return #-1;

next_hop_out

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

":next_hop_out(OBJ area) => What room should we head for, to get to area targetarea?";
targetarea = args[1];
from = args[2];
room = #-1;
if (!is_a(targetarea, $area))
#98:tell("ERROR!  ", $su:nn(targetarea), " not area");
endif
if (!this.adjacent_areas)
return #-1;
endif
if (i = targetarea in this.adjacent_areas)
room = this.adjacent_area_rooms[i];
else
if (valid(targetarea = this:next_area_to(targetarea)))
room = this.adjacent_area_rooms[targetarea in this.adjacent_areas];
endif
endif
if (valid(room))
if (room != from)
return room;
else
for exit in (room.exits)
if (valid(exit.otherside) && (exit.otherside:area() == targetarea))
return exit;
endif
endfor
endif
endif
return #-1;

look_self

Spec this none thisFlags rxdOwner #29Definer #114

Referenced by

none

Source

"Copied from generic maze area (#15767):look_self by Necanthrope (#142) Tue Sep 11 15:26:09 2007 CDT";
player:tell_lines($rpg:draw_map(this.contents[1], 40, 20));

enterfunc

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

what = args[1];
if (is_a(what, $creature))
what:moveto(this.contents[1]);
elseif (is_a(what, $room))
this:room_added(what);
endif

@list-costs

Spec this none noneFlags rxdOwner #361Definer #114

Referenced by

none

Source

total = 0;
for thing in ($lu:sort_alist($blueprint:_itemize_costs(this), 2))
$cu:sin(1);
if (thing[2] <= 0)
continue;
endif
total = total + thing[2];
player:tell($su:left($su:nn(thing[1]), -50), " ", $ansi.green, "$", $su:right($su:group_number(thing[2]), -15), $ansi.reset);
endfor
player:tell($ansi.bold_on, $su:left("  Total:", -50), " ", $ansi.green, "$", $su:right($su:group_number(total), -15), $ansi.reset);

room_added

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:enterfunc line 5: this:room_added

Source

room = args[1];
if ($ou:has_property(room, "airstrip"))
this.airstrips = setadd(this.airstrips, room);
endif

exitfunc

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

what = args[1];
if (is_a(what, $room))
this:room_removed(what);
endif
"there is no :exitfunc above $area, this would raise E_VERBNF";
"return pass(@args);";

room_removed

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:exitfunc line 3: this:room_removed
• #334:room_removed line 5: pass(

Source

room = args[1];
if (room in this.airstrips)
this.airstrips = setremove(this.airstrips, room);
endif

store_sorted_rooms_by_z

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

• #114:@force-reset line 17: this:store_sorted_rooms_by_z
• #334:reset line 26: this:store_sorted_rooms_by_z

Source

if (!is_a(this.bigmap, $bigmap))
rooms = this:occupants_suspended($room);
heights = {};
for height in (rooms)
heights = listappend(heights, height.z * -1);
$cu:sin(1);
endfor
rooms = $lu:sort(rooms, heights);
this.z_sorted_rooms = rooms;
endif

ambience

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

where = args[1];
who = args[2];
m = $su:msg(this.weather.ambience_msg);
who:tell(m);

random_npc

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (valid(cit = this.generic_citizen))
while kids (children(cit))
cit = kids[random($)];
if (!cit.f)
return cit;
endif
endwhile
endif
rooms = this.contents;
while (rooms)
room = rooms[i = random($)];
if (npcs = room:occupants($npc))
return npcs[random($)];
endif
rooms[i..i] = {};
yield;
endwhile
return $ou:leaves(#750)[random($)];

chown

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

set_task_perms(caller_perms());
who = args[1];
for x in (this.contents)
$wiz_utils:set_owner(x, who);
for y in (`x.exits ! ANY => {}')
$wiz_utils:set_owner(y, who);
$cu:sin();
endfor
$cu:sin();
endfor
return $wiz_utils:set_owner(this, who);

offset_shift

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

{xs, ys, zs} = args;
for x in (this.contents)
x.x = x.x + xs;
x.y = x.y + ys;
x.z = x.z + zs;
endfor
player:tell("Done.");

announce_low_sky

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

text = args[1];
source = args[2];
radius = args[3];
at_source = (length(args) > 3) ? args[4] | 1;
fork (0)
for x in (this.contents)
if (is_a(x, $room) && x.outdoor)
if (x == source)
at_source && x:announce_all("Overhead, you see ", text, ".");
else
adx = abs(source.x - x.x);
ady = abs(source.y - x.y);
dist = `$math_utils:sqrt((adx * adx) + (ady * ady)) ! ANY => 0';
if (dist <= radius)
dir = $rpg:describe_coord_dir(x, source);
x:announce_all("In the sky to the ", dir, ", you see ", text, ".");
endif
endif
endif
$cu:sin(1);
endfor
endfork

may_chat

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

{?who = player} = args;
return is_a(who, $immortal) || this.may_chat;

random_ground

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

p = {};
for x in (this.contents)
$cu:sin();
if ((x.outdoor && x.public) && (x.exits != {}))
p = setadd(p, x);
endif
endfor
if (p)
return p[random(length(p))];
else
return #-1;
endif

tell

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (this.listening)
for x in (this.contents)
if (is_a(x, $room))
x:announce_all(@args);
endif
endfor
else
pass(@args);
endif

junk_ok

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

if (has_callable_verb(this, "uninstantiate"))
return 1;
endif
return 0;

ok_to_pick

Spec this none thisFlags rxdOwner #29Definer #114

Referenced by

none

Source

return E_NONE;

make_public make_private

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

for x in (this:occupants($room))
if (verb[6..$] == "public")
x.grind_ok = 1;
x.public = 1;
else
x.grind_ok = 0;
x.public = 0;
endif
endfor

indoor_darkness

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

No program (verb defined but unprogrammed).

path_between

Spec this none thisFlags rxdOwner #361Definer #114

Referenced by

none

Source

":path_between(OBJ start, OBJ end[, LIST legal_rooms]) => Generate a path using the given legal rooms.";
{end, start, ?legal_rooms = {}, ?suspend = 0} = args;
round = 0;
last_round = {start};
marks = [];
marks[start] = -1;
found = 0;
while (!found)
if (!last_round)
return {};
endif
pool = last_round;
last_round = {};
for x in (pool)
for exit in (x.exits)
if (is_a(exit.otherside, $exit) && is_a(exit.otherside.location, $room))
oside = exit.otherside.location;
if (oside == end)
found = 1;
elseif ((!legal_rooms) || (oside in legal_rooms))
if ((!(oside in keys(marks))) && (!(oside in last_round)))
marks[oside] = round;
last_round = {@last_round, oside};
endif
endif
endif
if (suspend)
yield;
endif
endfor
endfor
round = round + 1;
endwhile
cursor = end;
path = {};
epath = {};
for ii in [2..round + 2]
i = round - ii;
path = {@path, cursor};
if (cursor != start)
for x in (cursor.exits)
if (is_a(x.otherside, $exit) && is_a(x.otherside.location, $room))
oside = x.otherside.location;
if (oside in keys(marks))
if (marks[oside] == i)
cursor = oside;
epath = {@epath, x};
endif
endif
endif
if (suspend)
yield;
endif
endfor
endif
if (suspend)
yield;
endif
endfor
path = {@path, start};
return epath;