301
@verb #9239:"@teachok" this is any rxdo #7788
@program #9239:"@teachok" this is any
if (!player:controls(this))
  player:tell("Permission denied.")
  return
endif
if (iobjstr == "on")
  this.teachok = 1
  player:sub_tell("%t's teachok is now on.")
  return
endif
if (iobjstr == "off")
  this.teachok = 0
  player:sub_tell("%t's teachok is now off.")
  return
endif
player:tell("Bad arg; try this instead:")
"ick; we'll try to make this error message 'generic' and it's too ugly"
"to do all at once."
STR = " \"" + verb + " %t" + " " + prepstr + " on\""
STR = STR + " or"
STR = STR + " \"" + verb + " %t" + " " + prepstr + " off\""
player:tell($msg:substitute(this, STR))
return
"Last modified by Dax (#789) on Tue Jun  2 17:10:15 1998 EDT."
.

0