@verb #4980:"hypreport" any any any rxd #9223
@program #4980:"hypreport" any any any
"hyperpeople reporter"
this.owner:tell("hypreport executed by ", $string_utils:nn(player))
r = {}
myth = "| "
mytd = {" | ", " | "}
w = 1
r = {@r, "
"}
r = {@r, ""}
r = {@r, ""}
r = {@r, "| HyperPeople Report ", " | "}
r = {@r, " "}
r = {@r, myth, "Record Owner", ""}
r = {@r, myth, "HyperTargets", ""}
r = {@r, myth, "Extra Crap", ""}
r = {@r, " "}
if (db = this.hyperpeople)
r = {@r, ""}
for record in (db)
w = w == 1 ? 2 | 1
r = {@r, mytd[w], " " + toliteral(record[1]) + " "}
r = {@r, mytd[w], " " + toliteral(record[2]) + " "}
r = {@r, mytd[w], " " + toliteral(record[3]) + " "}
r = {@r, " "}
endfor
endif
r = {@r, "
"}
player:tell($string_utils:from_list(r))
"Last modified by Wingy (#9223) on Tue Jan 28 07:51:52 2003 MST."
.
|