PDA

Դիտել ողջ տարբերակը : IRC: eggdrop ռոբոտ



Shah
03.10.2011, 17:01
ունեմ սկրիպտ 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"