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