Id: 7631; Nick: F-X; Timestamp: 2008-03-22 14:13:00; Pasted as: mIRC
Description: badword 
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
}
 
Parsed for bracket errors and indented: 
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
}
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)