define object <character>speak {set string <talk[1]; Hello>set string <talk[2]; Hi>set string <talk[3]; What?>set <talknum; $rand(1; 3)$>msg <Character says, "#talk[talknum]#">}