23a
@verb #9458:"@new_c*olors" none none none rxdo #9458
@program #9458:"@new_c*olors" none none none
"Copied from ChocolateGuy (#4813):newcolors Apr 22 14:49:57 2002"
af = "6789ab"
colors = {}
bgcolors = {}
for i in [1..random(4) + 1]
  cstr = af[random($)] + af[random($)] + af[random($)] + af[random($)] + af[random($)] + af[random($)]
  colors = {@colors, cstr}
endfor
this.title = $gu:mg(colors, this.name)
player:tell(tostr("Your name now looks like this: ", player:title(), "."))
"Last modified by TheGreatME (#9458) on Tue Apr 23 13:12:02 2002 MDT."
.

0