@verb #1924:"shake" this none none rdo #9982
@program #1924:"shake" this none none
$msg:mtell("shake")
suspend(this.delay)
answer = this.answers[random(length(this.answers))]
player:tell("It says: \"", answer, "\"")
"Last modified by Even (#9982) on Fri Jan 31 06:22:04 2003 MST."
.