ունեմ սկրիպտ eggdrop1.6.20, suzi patch-ով

տվյալ պահին անում ա հետևյալ գործաղությունները
1. vatbar հայտնաբերելու դեպքում kick
2. 2-րդ անգամ - kick+ban 3 րոպե
3. 3-րդ անգամ - մշտական ban կանալից

օգնեք սկրիպտը խմբագրել հետևյալ կերպ
1. vatbar հայտնաբերելու դեպքում - զգուշացում
2. 2-րդ անգամ հայտնաբերելու դեպքում - kick+ban 3 րոպեով
3. 3-րդ անգամ - kick+ban 15 րոպեով
4. 4-րդ անգամ ցիկլը պիտի կրկնվի 1-ից

Կոդ:
############################################################################
# File Name   : badword.tcl
#############################################################################
 
## script-ի սկիզբ



 bind pubm - "vatbar1" badword
 bind pubm - "vatbar2" badword
 bind pubm - "vatbar3" badword

 
proc badword {nick uhost hand chan rest} {
putlog "$nick $uhost $hand $chan $rest"
  global channel bantime banlamer
  if {$hand != "*"} {
    if {([matchattr $hand m]) || ([matchattr $hand n])} {
      putserv "PRIVMSG $chan :\001ACTION ը հետևում է $nick-ին \001"
      return 0
    }
  }
  if {[ matchattr $hand 3 ]} {
     putserv "MODE $chan -o+b $nick [maskhost [getchanhost $nick $chan]]"
     putserv "KICK $chan $nick : արգելափակված է վատ լեքսիկոնի պատճառով"
     return 1 
  } elseif {[ matchattr $hand 2 ]} {
    adduser $nick [maskhost [getchanhost $nick $chan]]
    chattr $nick +3
    putserv "PRIVMSG $chan :\001ACTION վատ լեքսիկոն: 3-րդ անգամ. \001"
    set banlamer [maskhost [getchanhost $nick $chan]]
    putserv "MODE $chan -o+b $nick $banlamer"
    putserv "KICK $chan $nick :արգելափակված է ընդմիշտ. վատ լեքսիկոն ."
    return 1
  } elseif {[ matchattr $hand 1]} {
    adduser $nick [maskhost [getchanhost $nick $chan]]
    chattr $nick +2
    putserv "PRIVMSG $chan :\001ACTION $nick Դուք արգելափակված եք 3 րոպեով.\001"
    set bantime 3
    set banlamer [maskhost [getchanhost $nick $chan]]
    putserv "MODE $chan -o+b $nick $banlamer"
    putserv "KICK $chan $nick : վատ լեքսիկոն: 2-րդ անգամ."
    putserv "PRIVMSG $nick : հաջորդ անգամ մուտքը տվյալ կանալ վերջնականապես կփակվի."
    timer $bantime [putserv "MODE $channel -b $banlamer"]
    return 1
  } {
  adduser $nick [maskhost [getchanhost $nick $chan]]
  chattr $nick +1
  putserv "PRIVMSG $chan :\001ACTION հայտնաբերված է վատ լեքսիկոն $nick ի կողմից  <$rest>\001"
#եթե BW-ն օգտագործել է OP-ը ապա նրանից հանվում ա OP-ը
 putserv "MODE $chan -o $nick"
  putserv "KICK $chan $nick :վատ լեքսիկոն"
  putserv "NOTICE $nick : հաջորդ անգամ ձեր մուտքը կարգելափակվի 3 րոպեով."
  return 0
  }
}
putlog "BW Loaded"