259
@verb #4457:"@addtheme" any any any rxdo #4457
@program #4457:"@addtheme" any any any
while (!argstr)
  player:tell("Enter the name.")
  argstr = $cmd_utils:read()
endwhile
name = argstr
if (name in this.gmodes)
  player:tell("Already has that name.")
else
  this.oldgrads = {@this.oldgrads, this.grads}
  this.gmodes = {@this.gmodes, name}
  this.location:announce_all(player:title(), " adds the theme ", $gu:mg(@this.grads, name), ". He now has ", length(this.gmodes) * 2 - length(this.oldgrads), " grads.")
endif
"Last modified by Rubbie (#4457) on Tue Aug  8 03:56:03 2000 MDT."
.

0