Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $regex($right($4,-1),/^[!.&](clear|s[ıiİ]l|tem[ıiİ]zle)$/Si) {
if !%clearkont. [ $+ [ $_nick($1) ] ] {
inc -u5 %clearkont. [ $+ [ $_nick($1) ] ] 3
if $hget(Takim,$_nick($1)) == FB {
.timer 50 00 sockwrite -nt $sockname privmsg $3 2,2FENERBAHÇE FENERBAHÇE FENERBAHÇE 8,8FENERBAHÇE FENERBAHÇE FENERBAHÇE | .timer 1 2 sockwrite -nt $sockname privmsg $3 Kanal temizlenmistir,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
return
}
else if $hget(Takim,$_nick($1)) == GS {
.timer 50 00 sockwrite -nt $sockname privmsg $3 4,4GALATASARAYGALATASARAY 8,8GALATASARAY GALATASARAY GALATASARAY
return
}
else if $hget(Takim,$_nick($1)) == BJK {
.timer 50 00 sockwrite -nt $sockname privmsg $3 1,1BEŞİKTAŞ BEŞİKTAŞ BEŞİKTAŞ 0,0BEŞİKTAŞ BEŞİKTAŞ BEŞİKTAŞ
return
}
else if $hget(Takim,$_nick($1)) == TS {
.timer 50 00 sockwrite -nt $sockname privmsg $3 5,5TRABZON TRABZON TRABZON 11,11TRABZON TRABZON TRABZON
return
}
else if $hget(Takim,$_nick($1)) == KONYA {
.timer 50 00 sockwrite -nt $sockname privmsg $3 0,3 Konya Spor 0,3 Konya Spor 0,3 Konya Spor
return
}
else if $hget(Takim,$_nick($1)) == NORMAL {
.timer 50 00 sockwrite -nt $sockname privmsg $3 x
return
}
else {
swbot privmsg $3 :4Kanal Temizleniyor.
var %:clear = 1 | while %:clear <= 60 { swbot privmsg $3 : $+($chr(3),$r(2,13),•) | inc %:clear }
swbot privmsg $3 :4Kanal Temizlendi.
}
}
}
Selam arkadaslar bu kodda bir sorun var hiç yetkisi olmayan biride !temizle yazdıgında kanal siliniyor sorun nerde acaba yardım ederseniz sevinirim.