function improbablehousing_shownearbyhouses($loc)
{
global $session;
$list = improbablehousing_getnearbyhouses($loc);
$nlist = count($list);
if ($nlist) {
for ($i = 0; $i < $nlist; $i++) {
addnav("Nearby Dwellings");
$house = $list[$i];
$house = improbablehousing_canenter_house($house);
if ($house['canenter']) {
addnav(array("Enter %s", $house['data']['name']), "runmodule.php?module=improbablehousing&op=interior&hid=" . $house['id'] . "&rid=0");
} else {
addnav(array("You cannot enter %s", $house['data']['name']), "");
}
output_notl("`0%s`0`n`n", $house['data']['desc_exterior']);
}
}
return true;
}
output("`b`n");
viewcommentary($room, "Intervene:", 100);
break;
case "dwellmap":
$x = httpget('x');
$y = httpget('y');
$maploc = $x . "," . $y . ",1";
require_once "modules/improbablehousing/lib/lib.php";
global $session;
$list = improbablehousing_getnearbyhouses($maploc);
$nlist = count($list);
output("`bAccessible Dwellings at %s`b`n", $maploc);
if ($nlist) {
for ($i = 0; $i < $nlist; $i++) {
$house = $list[$i];
$house = improbablehousing_canenter_house($house);
if ($house['canenter']) {
// assemble dwelling code here
$nrooms = count($house['data']['rooms']);
if ($nrooms) {
output("`n%s`0 (owner: %s)`n", $house['data']['name'], moderate_getlogin($house['ownedby']));
$hid = $house['id'];
foreach ($house['data']['rooms'] as $rid => $roomdet) {
if (improbablehousing_canenter_room($house, $rid)) {
rawoutput("<a href=\"moderate.php?op=dwellchat&hid={$hid}&rid={$rid}&x={$x}&y={$y}\">" . "[Mod]" . "</a>");
addnav("", "moderate.php?op=dwellchat&hid={$hid}&rid={$rid}&x={$x}&y={$y}");
output(" %s`n", $roomdet['name']);
}
}
}
}
