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
39
40
41
42
43
44
45
46
47
|
on *:text:*:#:{
var %i = 1
while ($gettok(%badword,%i,32)) {
if ($v1 isin $1-) {
var %bwtemp = $v1
inc -u600 %badword. [ $+ [ $wildsite ] ]
goto after
}
inc %i
}
goto finish
:after
if (%badword. [ $+ [ $wildsite ] ] == 1) { badword.action1 %bwtemp }
elseif (%badword. [ $+ [ $wildsite ] ] >= 2) { badword.action2 %bwtemp }
:finish
}
menu * {
.-
.Bad Word System:
..Add Bad Word(s):set %badword $addtok(%badword,$$input(Please enter the new bad word(s) you want $crlf $+ Multiple bad words are separated by a SPACE,edq),32)
..Delete Bad Word:
...$submenu($badword.menu($1))
}
alias badword.menu {
if ($1 != 0) {
if ($1 == begin) return -
if ($1 isnum) && ($gettok(%badword,$1,32)) { return $v1 $+ :badword.rem $v1 $(|) echo -atgec info * Bad Word System: Successfuly removed $qt($v1) from the Bad Word list! }
if ($1 == end) return -
}
}
alias -l badword.rem {
set %badword $remtok(%badword,$1,32)
}
;Here, you change the actions of the script.
;Action1 is when badword is used once (warning)
;Action2 is when badword is used again (after warning)
alias -l badword.action1 {
kick # $nick This is your only warning! BadWord detected: $1
}
alias -l badword.action2 {
kill $nick You have been warned! BadWord detected: $1
}
|