@verb #963:"tell_www_body" this none this rxdo #1177
@program #963:"tell_www_body" this none this
player:tell(this.www_style)
{minx, miny, maxx, maxy} = this.owner:offsets()
url = $www:fileURL(this, "")
player:tell("<table BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor='#946329' ID='maptable'>")
for y in [miny..maxy]
  y = -y
  "NW, road and NE corners"
  player:tell("<TR>")
  for x in [minx..maxx]
    if (this.owner:xy_exists(x, y))
      if (valid(room = this.owner:xyz_room(x, y, "NW")))
        player:tell("<TD ALIGN='right' VALIGN='bottom' BACKGROUND=\"", this:icon(room), "\"><A HREF='/", toint(room), "' CLASS='lot' TITLE=\"", $html_utils:literal_text(room.name), "\">", this.owner:short_name(room), "</A></TD>")
      else
        player:tell("<TD BACKGROUND=\"", this:icon(room), "\">&nbsp;</TD>")
      endif
      player:tell("<TD><IMG SRC='", url, "road2.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8 + 3, "'><br><IMG SRC='", url, "road2.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8 + 2, "'><br><IMG SRC='", url, "road2.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8 + 1, "'></TD>")
      if (valid(room = this.owner:xyz_room(x, y, "NE")))
        player:tell("<TD ALIGN='left' VALIGN='bottom' BACKGROUND=\"", this:icon(room), "\"><A HREF='/", toint(room), "' CLASS='lot' TITLE=\"", $html_utils:literal_text(room.name), "\">", this.owner:short_name(room), "</A></TD>")
      else
        player:tell("<TD BACKGROUND=\"", this:icon(room), "\">&nbsp;</TD>")
      endif
      if (this.owner:xy_exists(x + 1, y))
        player:tell("<TD></TD>")
      elseif (x < maxx)
        player:tell("<TD></TD>")
      endif
    else
      player:tell("<TD></TD><TD></TD><TD></TD>")
      if (x < maxx)
        player:tell("<TD></TD>")
      endif
    endif
  endfor
  player:tell("</TR>")
  "Horizontal road"
  player:tell("<TR>")
  for x in [minx..maxx]
    if (this.owner:xy_exists(x, y))
      player:tell("<TD><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 - 3, "_", (y - miny + 1) * 8, "'><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 - 2, "_", (y - miny + 1) * 8, "'><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 - 1, "_", (y - miny + 1) * 8, "'></TD>")
      player:tell("<TD><IMG SRC='", url, "road0.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8, "' TITLE=\"", this.owner:x_name(x), " and ", this.owner:y_name(y), "\"></TD>")
      player:tell("<TD><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 + 1, "_", (y - miny + 1) * 8, "'><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 + 2, "_", (y - miny + 1) * 8, "'><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 + 3, "_", (y - miny + 1) * 8, "'></TD>")
      if (this.owner:xy_exists(x + 1, y))
        player:tell("<TD><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 + 4, "_", (y - miny + 1) * 8, "'></TD>")
      elseif (x < maxx)
        player:tell("<TD></TD>")
      endif
    else
      player:tell("<TD></TD><TD></TD><TD></TD>")
      if (x < maxx)
        player:tell("<TD></TD>")
      endif
    endif
  endfor
  player:tell("</TR>")
  "SW, road and SE corners"
  player:tell("<TR>")
  for x in [minx..maxx]
    if (this.owner:xy_exists(x, y))
      if (valid(room = this.owner:xyz_room(x, y, "SW")))
        player:tell("<TD ALIGN='right' VALIGN='top' BACKGROUND=\"", this:icon(room), "\"><A HREF='/", toint(room), "' CLASS='lot' TITLE=\"", $html_utils:literal_text(room.name), "\">", this.owner:short_name(room), "</A></TD>")
      else
        player:tell("<TD BACKGROUND=\"", this:icon(room), "\">&nbsp;</TD>")
      endif
      player:tell("<TD><IMG SRC='", url, "road2.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8 - 1, "'><BR><IMG SRC='", url, "road2.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8 - 2, "'><BR><IMG SRC='", url, "road2.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8 - 3, "'></TD>")
      if (valid(room = this.owner:xyz_room(x, y, "SE")))
        player:tell("<TD ALIGN='left' VALIGN='top' BACKGROUND=\"", this:icon(room), "\"><A HREF='/", toint(room), "' CLASS='lot' TITLE=\"", $html_utils:literal_text(room.name), "\">", this.owner:short_name(room), "</A></TD>")
      else
        player:tell("<TD BACKGROUND=\"", this:icon(room), "\">&nbsp;</TD>")
      endif
      if (x < maxx)
        player:tell("<TD></TD>")
      endif
    else
      player:tell("<TD></TD><TD></TD><TD></TD>")
      if (x < maxx)
        player:tell("<TD></TD>")
      endif
    endif
  endfor
  player:tell("</TR>")
  "Horizontal padding between blocks"
  if (y > miny)
    player:tell("<TR>")
    for x in [minx..maxx]
      if (this.owner:xy_exists(x, y) && this.owner:xy_exists(x, y - 1))
        player:tell("<TD></TD><TD><IMG SRC='", url, "road2.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8, "_", (y - miny + 1) * 8 - 4, "'></TD><TD></TD>")
      else
        player:tell("<TD></TD><TD></TD><TD></TD>")
      endif
      "Intersection of padding between blocks"
      if (x < maxx)
        player:tell("<TD></TD>")
      endif
    endfor
    player:tell("</TR>")
  endif
endfor
player:tell("</table>")
player:tell("<div ID='chopperdiv' STYLE='position:absolute; visibility:visible;'><IMG SRC='http://files.moo.ca/9/6/3/1x1.gif' WIDTH=32 HEIGHT=32 NAME='chopperimg' BORDER=0></div>")
player:tell("<div ID='planediv' STYLE='position:absolute; visibility:visible;'><IMG SRC='http://files.moo.ca/9/6/3/1x1.gif' WIDTH=46 HEIGHT=46 NAME='planeimg' BORDER=0 onclick='planeturn()'></div>")
player:tell("<SCRIPT LANGUAGE='JavaScript'><!--")
player:tell("var aero = false;")
player:tell("//--></SCRIPT>")
player:tell("<SCRIPT LANGUAGE='JavaScript1.2'><!--")
player:tell("if (!document.layers)")
player:tell("  aero = true;")
player:tell("//--></SCRIPT>")
player:tell("<SCRIPT SRC='http://files.moo.ca/9/6/3/cars.js'></SCRIPT>")
player:tell("<SCRIPT SRC='http://files.moo.ca/9/6/3/aero.js'  LANGUAGE='JavaScript1.2'></SCRIPT>")
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.