@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("
")
for y in [miny..maxy]
y = -y
"NW, road and NE corners"
player:tell("")
for x in [minx..maxx]
if (this.owner:xy_exists(x, y))
if (valid(room = this.owner:xyz_room(x, y, "NW")))
player:tell("| ", this.owner:short_name(room), " | ")
else
player:tell(" | ")
endif
player:tell("

 | ")
if (valid(room = this.owner:xyz_room(x, y, "NE")))
player:tell("", this.owner:short_name(room), " | ")
else
player:tell(" | ")
endif
if (this.owner:xy_exists(x + 1, y))
player:tell(" | ")
elseif (x < maxx)
player:tell(" | ")
endif
else
player:tell(" | | | ")
if (x < maxx)
player:tell(" | ")
endif
endif
endfor
player:tell("
")
"Horizontal road"
player:tell("")
for x in [minx..maxx]
if (this.owner:xy_exists(x, y))
player:tell("   | ")
player:tell(" | ")
player:tell("   | ")
if (this.owner:xy_exists(x + 1, y))
player:tell(" | ")
elseif (x < maxx)
player:tell(" | ")
endif
else
player:tell(" | | | ")
if (x < maxx)
player:tell(" | ")
endif
endif
endfor
player:tell("
")
"SW, road and SE corners"
player:tell("")
for x in [minx..maxx]
if (this.owner:xy_exists(x, y))
if (valid(room = this.owner:xyz_room(x, y, "SW")))
player:tell("| ", this.owner:short_name(room), " | ")
else
player:tell(" | ")
endif
player:tell("

 | ")
if (valid(room = this.owner:xyz_room(x, y, "SE")))
player:tell("", this.owner:short_name(room), " | ")
else
player:tell(" | ")
endif
if (x < maxx)
player:tell(" | ")
endif
else
player:tell(" | | | ")
if (x < maxx)
player:tell(" | ")
endif
endif
endfor
player:tell("
")
"Horizontal padding between blocks"
if (y > miny)
player:tell("")
for x in [minx..maxx]
if (this.owner:xy_exists(x, y) && this.owner:xy_exists(x, y - 1))
player:tell(" |  | | ")
else
player:tell(" | | | ")
endif
"Intersection of padding between blocks"
if (x < maxx)
player:tell(" | ")
endif
endfor
player:tell("
")
endif
endfor
player:tell("
")
player:tell("
")
player:tell("
")
player:tell("")
player:tell("")
player:tell("")
player:tell("")
"Last modified by Dax (#789) on Tue May 3 14:09:33 2005 MDT."
.