dialog Tekrarceza {
title "Tekrar Ceza Ayarları"
size -1 -1 210 150
box "Ceza Seçenekleri" 1, 5 5 200 135
radio "Tekrar'da Banla" 2, 20 25 100 20,flat
radio "Tekrar'da Kill" 3, 20 45 100 20,flat
radio "Tekrar'da kline" 4, 20 65 100 20,flat
button "Tamam" 5, 20 90 100 20,flat
button "Kapat\Aç" 6, 140 20 50 90,flat
list 7,20 115 170 30
}
on *:dialog:Tekrarceza:sclick:2:set %Tekrarceza ban
on *:dialog:Tekrarceza:sclick:3:set %Tekrarceza kill
on *:dialog:Tekrarceza:sclick:4:set %Tekrarceza kline
on *:dialog:Tekrarceza:sclick:5:dialog -c $dname $dname
on *:dialog:Tekrarceza:sclick:6:{
if ($group(#Tekrarceza).status == on) { did -r $dname 7 | did -a $dname 7 Tekrar Koruması Kapalı | .disable #Tekrarceza }
else { did -r $dname 7 | did -a $dname 7 Tekrar Koruması Açık | .enable #Tekrarceza }
}
on *:dialog:Tekrarceza:init:*:{
did -a $dname 7 Tekrar Koruması Kapalı
if (%Tekrarceza == ban) did -c $dname 2
if (%Tekrarceza == kill) did -c $dname 3
if (%Tekrarceza == kline) did -c $dname 4
if ($group(#Tekrarceza).status == on) { did -r $dname 7 | did -a $dname 7 Tekrar Koruması Açık }
}
#Tekrarceza off
on 1:text:*:#:{
if ($regex($address($nick,2),/(helper|admin|ircop|services|tech|global)/i)) { halt }
if ($nick isop #) { halt }
if ($nick ison #Admin) { halt }
if ($nick ison #yönetim) { halt }
if ($nick ison #KontroL) { halt }
if ($chan == #helpops) { halt }
if ($chan == #operhelp) { halt }
if ($chan == #dj) { halt }
if ($chan == #ops) { halt }
if ($chan == #irc) { halt }
if ($chan == #HeLp) { halt }
if $nick == Radyobot { halt }
if $nick == Sorubot { halt }
if $nick == Yarima { halt }
if $nick == EmRaH { halt }
if $nick == KeLime { halt }
if $nick == Oyuncu { halt }
if $nick == Fantasy { halt }
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 3) {
if (%tekrarceza == ban) { .samode $chan +b $wildsite | .samode $chan +b $nick 2IRC Sunucu Uzerinde 4Tekrar Repeat YaptIgInIz 2IcIn BanLandInIz. Sizi BanLayan 1By: $me %logo }
elseif (%tekrarceza == kline) { kline $nick 2IRC Sunucu Uzerinde 4Tekrar Repeat YaptIgInIz 2IcIn BanLandInIz. Sizi BanLayan 1By: $me %logo }
else { kill $nick 2IRC Sunucu Uzerinde 4Tekrar Repeat YaptIgInIz 2IcIn BagLantInIz KesILmIstIr 4! 1By: $me %logo }
{ Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »2 4Suç : 2Tekrar / Repeat 4Nick : 2 $nick 4Kanal 2 $chan }
unset %*_ [ $+ [ $nick ] ] |
}
}
#Tekrarceza end