View/Edit #963:tell_www_body

Name(s): tell_www_body
1:   player:tell(this.www_style)
2:   {minx, miny, maxx, maxy} = this.owner:offsets()
3:   url = $www:fileURL(this, "")
4:   player:tell("<table BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor='#946329' ID='maptable'>")
5:   for y in [miny..maxy]
6:     y = -y
7:     "NW, road and NE corners"
8:     player:tell("<TR>")
9:     for x in [minx..maxx]
10:      if (this.owner:xy_exists(x, y))
11:        if (valid(room = this.owner:xyz_room(x, y, "NW")))
12:          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>")
13:        else
14:          player:tell("<TD BACKGROUND=\"", this:icon(room), "\"> </TD>")
15:        endif
16:        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>")
17:        if (valid(room = this.owner:xyz_room(x, y, "NE")))
18:          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>")
19:        else
20:          player:tell("<TD BACKGROUND=\"", this:icon(room), "\"> </TD>")
21:        endif
22:        if (this.owner:xy_exists(x + 1, y))
23:          player:tell("<TD></TD>")
24:        elseif (x < maxx)
25:          player:tell("<TD></TD>")
26:        endif
27:      else
28:        player:tell("<TD></TD><TD></TD><TD></TD>")
29:        if (x < maxx)
30:          player:tell("<TD></TD>")
31:        endif
32:      endif
33:    endfor
34:    player:tell("</TR>")
35:    "Horizontal road"
36:    player:tell("<TR>")
37:    for x in [minx..maxx]
38:      if (this.owner:xy_exists(x, y))
39:        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>")
40:        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>")
41:        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>")
42:        if (this.owner:xy_exists(x + 1, y))
43:          player:tell("<TD><IMG SRC='", url, "road1.gif' height=16 width=16 NAME='road_", (x - minx + 1) * 8 + 4, "_", (y - miny + 1) * 8, "'></TD>")
44:        elseif (x < maxx)
45:          player:tell("<TD></TD>")
46:        endif
47:      else
48:        player:tell("<TD></TD><TD></TD><TD></TD>")
49:        if (x < maxx)
50:          player:tell("<TD></TD>")
51:        endif
52:      endif
53:    endfor
54:    player:tell("</TR>")
55:    "SW, road and SE corners"
56:    player:tell("<TR>")
57:    for x in [minx..maxx]
58:      if (this.owner:xy_exists(x, y))
59:        if (valid(room = this.owner:xyz_room(x, y, "SW")))
60:          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>")
61:        else
62:          player:tell("<TD BACKGROUND=\"", this:icon(room), "\"> </TD>")
63:        endif
64:        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>")
65:        if (valid(room = this.owner:xyz_room(x, y, "SE")))
66:          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>")
67:        else
68:          player:tell("<TD BACKGROUND=\"", this:icon(room), "\"> </TD>")
69:        endif
70:        if (x < maxx)
71:          player:tell("<TD></TD>")
72:        endif
73:      else
74:        player:tell("<TD></TD><TD></TD><TD></TD>")
75:        if (x < maxx)
76:          player:tell("<TD></TD>")
77:        endif
78:      endif
79:    endfor
80:    player:tell("</TR>")
81:    "Horizontal padding between blocks"
82:    if (y > miny)
83:      player:tell("<TR>")
84:      for x in [minx..maxx]
85:        if (this.owner:xy_exists(x, y) && this.owner:xy_exists(x, y - 1))
86:          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>")
87:        else
88:          player:tell("<TD></TD><TD></TD><TD></TD>")
89:        endif
90:        "Intersection of padding between blocks"
91:        if (x < maxx)
92:          player:tell("<TD></TD>")
93:        endif
94:      endfor
95:      player:tell("</TR>")
96:    endif
97:  endfor
98:  player:tell("</table>")
99:  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>")
100: 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>")
101: player:tell("<SCRIPT LANGUAGE='JavaScript'><!--")
102: player:tell("var aero = false;")
103: player:tell("//--></SCRIPT>")
104: player:tell("<SCRIPT LANGUAGE='JavaScript1.2'><!--")
105: player:tell("if (!document.layers)")
106: player:tell("  aero = true;")
107: player:tell("//--></SCRIPT>")
108: player:tell("<SCRIPT SRC='http://files.moo.ca/9/6/3/cars.js'></SCRIPT>")
109: player:tell("<SCRIPT SRC='http://files.moo.ca/9/6/3/aero.js'  LANGUAGE='JavaScript1.2'></SCRIPT>")
110: "Last modified by whiz (#3135) on Tue Oct 28 18:49:03 2008 EDT."
Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Hacker (#60)
You are not logged in.