1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
on *:text:*mytrigger*:#: {
var %trg = $
if (%trg. [ $+ [ $address($nick,2) ] ] != $null) /var %trg = %trg. [ $+ [ $address($nick,2) ] ]
if ($1 == $+(%trg $+ mytrigger)) || ($1 == $ $+ mytrigger) {
if ($2 != $null) {
if ($trg($2) != $null) {
/set %trg. $+ $address($nick,2) $trg($2)
/.notice $nick 4,1:::5:0 Your trigger has been successfully set to: 4,1:::5:0 $trg($2) 4,1:::5:0
/halt
}
/.notice $nick 4,1:::5:0 Did not found this trigger. 4,1:::5:0 Triggers: 4,1:::5:0 $trglist 4,1:::5:0
/halt
}
/.notice $nick 4,1:::5:0 Your trigger: 4,1:::5:0 %trg 4,1:::5:0
/.notice $nick 4,1:::5:0 Trigger list: 4,1:::5:0 $trglist 4,1:::5:0
}
}
///////////////
alias trg {
var %x = 0
while (%x <= $lines(trg.txt)) {
if ($1 == $gettok($read(trg.txt,%x),1,32)) /return $gettok($read(trg.txt,%x),2,32)
/inc %x
}
}
alias trglist {
var %x = 1
set %trg $null
while (%x <= $lines(trg.txt)) {
if (%trg != $null) /set %trg %trg $+ , $gettok($read(trg.txt,%x),1,32) ( $+ $gettok($read(trg.txt,%x),2,32) $+ )
if (%trg == $null) /set %trg $gettok($read(trg.txt,%x),1,32) ( $+ $gettok($read(trg.txt,%x),2,32) $+ )
/inc %x
}
var %asd = %trg
/unset %trg
/return %asd
}
|