1// compass/voice actions 2 3voice_num = 0 4addvoice = [ 5 voice_num = (+ $voice_num 1) 6 [voice@[voice_num]str] = $arg1 7 [voice@[voice_num]snd] = (registersound $arg2 255 512 8 $arg3) 8] 9 10addvoice "argh" "voice/argh" 2 11addvoice "lucky shot" "voice/luckyshot" 2 12addvoice "nice shot" "voice/niceshot" 2 13addvoice "ns~" "voice/niceshot" 1 // reuse 14addvoice "boom" "voice/boom" 2 15addvoice "damn" "voice/damnit" 2 16addvoice "haha" "voice/haha" 2 17addvoice "suck" "voice/suckit" 2 18addvoice "pzap" "voice/pzap" 2 19addvoice "yes~" "voice/yes" 2 20addvoice "sorry" "voice/sorry" 2 21addvoice "sry~" "voice/sorry" 1 // reuse 22addvoice "no problem" "voice/noproblem" 2 23addvoice "np~" "voice/noproblem" 1 // reuse 24addvoice "no prob" "voice/noproblem" 1 // reuse 25addvoice "no~" "voice/no" 2 26addvoice "go go go" "voice/gogogo" 2 27addvoice "gogogo" "voice/gogogo" 1 // reuse 28addvoice "hang on" "voice/hangon" 2 29addvoice "thanks" "voice/thanks" 2 30addvoice "ty~" "voice/thanks" 1 // reuse 31 32on_text = [ 33 voice_id = 0 34 voice_reg = [@(filter $arg4)~] // the ~ allows absolute matching, like in yes/no/etc 35 loopwhile i $voice_num [= $voice_id 0] [ 36 voice_str = $[voice@(+ $i 1)str] 37 if (~=sn $voice_str $voice_reg (strlen $voice_str)) [ voice_id = (+ $i 1) ] 38 ] 39 result (getalias [voice@[voice_id]snd]) 40] 41