Oncelikle konunuzu gerekli bolume tasidik, konu acarken basliklara dikkat ettiginiz gibi konunun olmasi gerektigi yere de dikkat ederseniz daha hizli yardim edinebilirsiniz.
Asagidaki kod satiri vermis oldugunuz TCL kodlarinin Gline atmasi icin duzeltilmis olanidir.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
## HeRe We Go eh!
bind pubm - "*fuck*" badword
bind pub - "orosp*" badword
bind pub - "orosb*" badword
bind pubm - "irc.*" reklam
bind pubm - "*.com" reklam
bind pubm - "*.c o m" reklam
bind pubm - "*.net" reklam
bind pubm - "*.n e t" reklam
set ZName "Kufur Korumasi]"
set ZZ "-=( ZimoZimo )=-"
set ZBan "4Kufurlu yazilar yazmayin"
set 1ST "\[1st COUNT\]"
set 2ED "\[2ed COUNT\]"
set 3ED "\[3ed COUNT\]"
set Ohh "\[Perm Ban\]"
proc badword {nick host hand chan rest} {
putlog "$nick $hand $chan $host $rest"
global repeat_last repeat_num repeat-badword channel botnick ZBan 1ST 2ED 3ED Ohh ZName ZZ text
if {$hand != "*"} {
if {([ matchattr $hand n ])} {
return 0
}}
if {([ matchattr $hand m ])} {
putserv "GLINE $nick :$ZBan"
return 1
} elseif {([matchattr $hand 3])} {
chattr $hand +k
set ZZReason "$ZName Detected $Ohh For $hand"
# newchanban $chan [maskhost $host] $botnick $ZZReason perm
putserv "GLINE $nick :$ZBan"
return 1
} elseif {([matchattr $hand 2])} {
chattr $nick +3-2
set 3EDReason "$ZName Detected $3ED For $hand"
# newchanban $chan [maskhost $host] $botnick $3EDReason perm
putserv "GLINE $nick :$ZBan"
return 0
} elseif {([matchattr $hand 1])} {
chattr $hand +2-1o
set 2EDReason "$ZName Detected $2ED For $hand"
# newchanban $chan [maskhost $host] $botnick $2EDReason 60
putserv "GLINE $nick :$ZBan"
return 1
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv "GLINE $nick :$ZBan"
return 1
} {
adduser $nick [maskhost [getchanhost $nick $chan]]
chattr $hand +1-op
putserv "GLINE $nick :$ZBan"
return 0
}}
proc reklam {nick host hand chan rest} {
putlog "$nick $hand $chan $host $rest"
global repeat_last repeat_num repeat-reklam channel botnick ZBan 1ST 2ED 3ED Ohh ZName ZZ text
if {$hand != "*"} {
if {([ matchattr $hand n ])} {
return 0
}}
if {([ matchattr $hand m ])} {
putserv "GLINE $nick :4Server reklami yasaktir"
return 1
} elseif {([matchattr $hand 3])} {
chattr $hand +k
set ZZReason "$ZName Detected $Ohh For $hand"
# newchanban $chan [maskhost $host] $botnick $ZZReason perm
putserv "GLINE $nick :4Server reklami yasaktir"
return 1
} elseif {([matchattr $hand 2])} {
chattr $nick +3-2
set 3EDReason "$ZName Detected $3ED For $hand"
# newchanban $chan [maskhost $host] $botnick $3EDReason perm
putserv "GLINE $nick :4Server reklami yasaktir"
return 0
} elseif {([matchattr $hand 1])} {
chattr $hand +2-1o
set 2EDReason "$ZName Detected $2ED For $hand"
# newchanban $chan [maskhost $host] $botnick $2EDReason 60
putserv "GLINE $nick :4Server reklami yasaktir"
return 1
} elseif {[ matchattr $hand o ]} {
chattr $hand +1
putserv "GLINE $nick :4Server reklami yasaktir"
return 1
} {
# adduser $nick [maskhost [getchanhost $nick $chan]]
# chattr $hand +1-op
putserv "GLINE $nick :4Server reklami yasaktir"
return 0
}}
putlog "\[Word|KiCk\] v3.0 By -=( ZimoZimo )=- is Loaded"
ikisi arasinda ufak 1 inceleme yapacak olursaniz, kick ve kill satirlarini degistirip GLINE olarak yeniden adlandirdigimi goreceksiniz, basit 1 calisma umarim sizde pratik anlamda cozum uretebilirsiniz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.