20d
@verb #1155:"eh seh" any any any rxdo #9620
@program #1155:"eh seh" any any any
"Simple verb that accepts a string of speech and changes the last bit to say to have a Canadian style \"eh?\"."
if (!argstr)
  $msg:mtell("huh")
  return
endif
if (argstr[$] == "." || argstr[$] == "!" || argstr[$] == "?")
  canstr = argstr[1..$ - 1] + ", eh?"
else
  canstr = argstr + ", eh?"
endif
player.location:announce_all(player:title() + ": " + canstr)
"Last modified by Lao-Tzu (#8084) on Wed Mar 12 21:08:12 2003 MST."
.

0