big map #202

@setup-areas

Spec this none noneFlags rxdOwner #361Definer #202

Referenced by

none

Source

if (!player.programmer)
player:tell("Fuck off.");
return;
endif
if (this.f)
player:tell("Can't do this on a fertile object.");
return;
endif
for area in (this.areas)
if (area.bigmap != this)
player:tell($su:nn(area), " needed updating, old value was ", $su:nn(area.bigmap), ".");
area.bigmap = this;
endif
endfor
player:tell("Done!");

area_link_icons

Spec this none thisFlags rxdOwner #361Definer #202

Referenced by

none

Source

icons = {};
for area in (this.areas)
icons = listappend(icons, {area, area.area_link_icons});
endfor
return icons;

@reset-maps

Spec this none noneFlags rxdOwner #361Definer #202

Referenced by

none

Source

if (!player.programmer)
player:tell("Fuck off.");
return;
endif
if (this.f)
player:tell("Can't do that on a fertile object, boss.");
return;
endif
fork (0)
player:tell("Updating cache of z sorted rooms...");
this:store_sorted_rooms_by_z();
suspend(1);
player:tell("Resetting:");
stime = time();
done = {};
for area in (this.areas)
done = setadd(done, area);
player:tell("  ", $su:nn(area), " (left: ", $su:nn($set_utils:diff(this.areas, done)), ")");
area:reset_map();
$cu:sin(2);
endfor
etime = time() - stime;
player:tell("done, generation time: ", tostr(etime / 60), " minutes, ", tostr(etime % 60), " seconds.");
this:reset_maps_additional();
endfork

@merge-icons

Spec any in/inside/into thisFlags rxdOwner #361Definer #202

Referenced by

none

Source

if (!is_a(dobj, $area))
player:tell(dobjstr, " is not an area.");
return;
endif
area = dobj;
if (!area.icon_blocks)
player:tell($su:nn(area), " has no icon blocks.");
return;
endif
if (!(area in this.areas))
if (!$cu:yes_or_no((($su:nn(area) + " is not in ") + $su:nn(this)) + "'s areas, do it anyway?"))
player:tell("Cancelling.");
return;
endif
endif
while (1)
try
z = $cu:read(("z to insert " + $su:nn(area)) + "'s icon_blocks into");
z = toint(z);
except (ANY)
player:tell("Try a number.");
continue;
endtry
break;
endwhile
idx = z in this.icon_block_z;
if (!idx)
this.icon_block_z = setadd(this.icon_block_z, z);
this.icon_block_data = listappend(this.icon_block_data, {});
idx = z in this.icon_block_z;
endif
if (!idx)
player:tell("Failed to find Z in data.");
return;
endif
this.icon_block_data[idx] = {@this.icon_block_data[idx], @area.icon_blocks};
player:tell("Done.");

store_sorted_rooms_by_z

Spec this none thisFlags rxdOwner #361Definer #202

Referenced by

• #202:@reset-maps line 11: this:store_sorted_rooms_by_z

Source

rooms = {};
for area in (this.areas)
rooms = {@rooms, @area:occupants_suspended($room)};
$cu:sin(1);
endfor
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;

reset_maps_additional

Spec this none thisFlags rxdOwner #361Definer #202

Referenced by

• #202:@reset-maps line 24: this:reset_maps_additional

Source

No program (verb defined but unprogrammed).