Swear Protection

Code:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;    Swear protection          ;;
;;                                ;;
;;  Author  : Amidos              ;;
;;  Version : 1.03                ;;
;;                                ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:load:{
  .set %kiket on
  .set %oplar on
  .set %banvaxt 200
  .set %kickmsj BAD-WORD Detected. Please stop swearing-
  .set %soyush fuck,shit,bitch,idiot
  .echo -a 2Swear4 protection...
  .echo -a 4Type 2/bad4 to open !
  .echo -a 10 Good luck!! 4:12> 
}



on @*:text:*:#: {
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on)  { return }
  _swer_ $1-
}

on @*:action:*:#: {
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  _swer_ $1-
}



on @*:notice:*:#: {
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on)  { return }
  _swer_ $1-
}



alias _swer_ {
  var %x $strip($1-) , %i $numtok(%soyush,44)
  while (%i) {
    if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
      if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }   
      if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj ,BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) }
      if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
      return
    }
    dec %i
  }
}


dialog swear {
  title "Swear protection By Amidos"
  size -1 -1 185 111
  option dbu
  box "List of Bad Words", 1, 90 1 94 79
  combo 2, 94 10 87 53, size
  button "Add", 3, 98 66 31 10
  button "Del", 4, 144 65 31 10
  box "", 5, 96 60 36 18
  box "", 6, 142 60 36 18
  box "Penalty", 7, 2 2 84 45
  check "Kick ", 8, 5 13 39 10
  check "Ban ", 9, 5 31 32 10
  edit "", 10, 36 30 23 12, disable
  text "Seconds", 11, 62 32 21 8, disable
  box "Except", 12, 2 49 84 31
  check "@ps", 13, 6 57 77 10
  check "+Voices", 14, 6 68 75 10
  box "Kick Message", 15, 2 81 182 27
  edit "", 16, 6 90 174 13, autohs
}

alias bad { .dialog -m swear swear }

on *:dialog:swear:init:*:{
  if (%soyush) didtok $dname 2 44 $ifmatch
  if (%kiket) { .did -c $dname 8 }
  if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
  if (%oplar) { .did -c $dname 13 }
  if (%vlar) { .did -c $dname 14 }
  did -a $dname 10 %banvaxt
  did -a $dname 16 %kickmsj
}

on *:dialog:swear:sclick:*:{
  if ($did == 3) {
    if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
  }
  if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
  if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
  if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
  if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
  if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}

on *:dialog:swear:edit:*:{
  %kickmsj = $did(16)
  %banvaxt = $did(10)
}

Stavi cod u code x) na pocetku [*code] pa addon na kraj [*/code] i bez * x) ok je x)

P.S. okaci link skripte na sajt samo ovako [*url=link]Gradiska Script v.2[*/url]