mIRC.Net.tr

Yabancı bir siteden Türkçe’ye çevirdiğim ufak ama kullanışlı bir Kanal Flood Koruması. Kod sahibi kod içinde geçiyor. Uyarılar flood yapana Notice olarak gidiyor. Ban maskesi 0-9 arasında sayı ile ayarlanıyor. Örnek: 2 dediğimizde (*!*@host) şeklinde…

dialog doz {
title “Kanal Flood Koruması”
size -1 -1 122 110
option dbu
box “Kanal Ekle/Sil”, 1, 2 2 61 29
edit “”, 2, 3 10 58 9, autohs
button “Ekle”, 3, 3 20 28 9, flat
button “Sil”, 4, 33 20 28 9, flat
box “Kanal Listesi”, 5, 65 2 54 29
list 6, 66 10 51 19, size vsbar
box “Saniye ayarla”, 7, 2 32 38 19
edit “”, 8, 3 40 15 9, autohs center
button “Ayarla”, 9, 19 40 19 9, flat
box “Satır ayarla”, 10, 41 32 38 19
edit “”, 11, 42 40 15 9, autohs center
button “Ayarla”, 12, 58 40 19 9, flat
box “Açık/Kapalı”, 13, 80 32 39 19
radio “On”, 14, 82 40 16 9
radio “Off”, 15, 101 40 17 9
box “Ban şekli ayarla”, 16, 2 52 48 19
edit “”, 17, 3 60 27 9, autohs center
button “Ayarla”, 18, 30 60 19 9, flat
box “İşlevler”, 19, 52 52 67 19
check “Kick”, 20, 55 60 19 9
check “KBan”, 21, 75 60 22 9
check “Uyar”, 22, 98 60 31 9
box “Uyarı sayısı ayarla”, 23, 65 73 54 19
edit “”, 24, 67 81 17 9, autohs center
button “Ayarla”, 25, 85 81 32 9, flat
box “Kullanıcı modlarını da at”, 26, 2 73 61 19
check “+o”, 27, 4 81 18 9
check “+h”, 28, 24 81 18 9
check “+v”, 29, 44 81 18 9
button “Tamam”, 30, 43 95 32 13, ok
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182’s Room Flood Protection Dialog
echo 12 -a A Script0rs Inc. Production
set %bmask 4
set %sec 2
set %line 5
set %fkban on
echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199 ),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48) ,$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
alias doz { dialog $iif($dialog(doz),-v,-mied) doz doz }

on *:dIALOG:doz:init:0:{
$iif(%warn,did -c $dname 22,did -u $dname 22)
$iif(!%warn,did -b $dname $+(24,$chr(44),25),did -e $dname $+(24,$chr(44),25))
$iif(%rfpd,did -c $dname 14,did -c $dname 15)
$iif(%fkick,did -c $dname 20,$iif(%fkban,did -c $dname 21,))
if (%y.o) { did -c $dname 27 }
if (%y.h) { did -c $dname 28 }
if (%y.v) { did -c $dname 29 }
did -b $dname 3,4
did -a $dname 17 %bmask
did -a $dname 24 %numwarn
did -a $dname 8 %sec
did -a $dname 11 %line
didtok $dname 6 44 %rfloodchan
}
on *:dIALOG:doz:edit:*:{
$iif($did(2).text,did -e $dname $+(3,$chr(44),4),did -b $dname $+(3,$chr(44),4))
$iif($did(8).text,did -e $dname 9,did -b $dname 9)
$iif(!$did(11).text,did -b $dname 12,did -e $dname 12)
$iif(!$did(17).text,did -b $dname 18,did -e $dname 18)
}
on *:dIALOG:doz:sclick:*:{
if ($did == 6) { did -e $dname 4 }
$iif($did(22).state == 0,unset %warn,set %warn on)
$iif($did(22).state == 1,did -e $dname $+(24,$chr(44),25),did -b $dname $+(24,$chr(44),25))
if ($did == 14) { set %rfpd on }
if ($did == 15) { unset %rfpd }
if ($did == 20) { set %fkick on | unset %fkban | did -c $dname 20 | did -u $dname 21 }
if ($did == 21) { set %fkban on | unset %fkick | did -c $dname 21 | did -u $dname 20 }
$iif($did(27).state == 0,unset %y.o,set %y.o on)
$iif($did(28).state == 0,unset %y.h,set %y.h on)
$iif($did(29).state == 0,unset %y.v,set %y.v on)
if ($did == 25) {
if ($did(24).text !isnum 1-5) { noop $input(Lütfen uyarı sayısını giriniz. 1-5,uwo,Hata!) | did -r $dname 24 }
else { set %numwarn $did(24).text }
}
if ($did == 18) {
if ($did(17).text !isnum 0-9) { noop $input(Lütfen kullanılacak ban maskesi sayısını giriniz. 0-9,uwo,Hata!) | did -r $dname 17 }
else { set %bmask $did(17).text }
}
if ($did == 3) {
if (!$did(2).text || $left($did(2).text,1) != $chr(35) || $istok(%rfloodchan,$did(2).text,44)) {
noop $iif(!$did(2).text,$input(Kanal girilmedi,uwo,Hata!),$iif($left($did(2).text,1) != $chr(35),$input(Lütfen kanal ismini giriniz: #kanaladı,uwo,Syntax Hata!),$iif($istok(%rfloodchan,$did(2).text,44),$i nput(Kanal zaten mevcut,uwo,Hata!),)))
did -r $dname 2
}
else {
set %rfloodchan $addtok(%rfloodchan,$did(2).text,44)
did -r $dname 6,2
didtok $dname 6 44 %rfloodchan
}
}
if ($did == 4) {
if (!$did(2).text && !$did(6).seltext || $left($did(2).text,1) != $chr(35) && !$did(6).seltext || $did(2).text && !$did(6).seltext && !$istok(%rfloodchan,$did(2).text,44)) {
noop $iif(!$did(2).text && !$did(6).seltext,$input(Girilen ya da seçilen kanal yok,uwo,Hata!),$iif($left($did(2).text,1) != $chr(35) && !$did(6).seltext,$input(Lütfen kanal ismini giriniz: #kanaladı,uwo,Syntax Hata!),$iif($did(2).text && !$did(6).seltext && !$istok(%rfloodchan,$did(2).text,44),$input(Kanal mevcut değil,uwo,Hata!),)))
did -r $dname 2
}
elseif ($did(2).text && !$did(6).seltext && $istok(%rfloodchan,$did(2).text,44)) {
set %rfloodchan $remtok(%rfloodchan,$did(2).text,1,44)
did -r $dname 6,2
didtok $dname 6 44 %rfloodchan
}
elseif ($did(6).seltext && !$did(2).text) {
set %rfloodchan $remtok(%rfloodchan,$did(6).seltext,1,44)
did -r $dname 6,2
didtok $dname 6 44 %rfloodchan
}
}
if ($did == 9) {
if ($did(8).text !isnum) { noop $input(Lütfen saniyeleri ayarlayın,uwo,Hata!) }
else { set %sec $did(8).text }
}
if ($did == 12) {
if ($did(11).text !isnum) { noop $input(Satır sayısı giriniz,uwo,Hata!) }
else { set %line $did(11).text }
}
}
on @*:text:*:#: {
if (%rfpd && $istok(%rfloodchan,$chan,44) && $nick(#,$nick,$+(r,$iif(%y.v,v,$iif(%y.h,h,$iif(%y .o,o,)))))) {
inc -u $+ %sec $+(%,flood,.,$chan,.,$nick)
if ($($+(%,flood,.,$chan,.,$nick),2) >= %line ) {
if (%warn) {
inc -u300 $+(%,warn,$chan,$nick)
if ($($+(%,warn,$chan,$nick),2) <= %numwarn) { .notice $nick Lütfen kanalda flood yapmayın. }
if ($($+(%,warn,$chan,$nick),2) > %numwarn) {
$iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak.)
unset $+(%,warn,$chan,$nick)
}
}
else { $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak.) }
}
}
}
on @*:notice:*:#: {
if (%rfpd && $istok(%rfloodchan,$chan,44) && $nick(#,$nick,$+(r,$iif(%y.v,v,$iif(%y.h,h,$iif(%y .o,o,)))))) {
inc -u $+ %sec $+(%,flood,.,$chan,.,$nick)
if ($($+(%,flood,.,$chan,.,$nick),2) >= %line ) {
if (%warn) {
inc -u300 $+(%,warn,$chan,$nick)
if ($($+(%,warn,$chan,$nick),2) <= %numwarn) { .notice $nick Lütfen kanalda flood yapmayın }
if ($($+(%,warn,$chan,$nick),2) > %numwarn) {
$iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yapmayın.)
unset $+(%,warn,$chan,$nick)
}
}
else { $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yapmayın.) }
}
}
}
on @*:action:*:#: {
if (%rfpd && $istok(%rfloodchan,$chan,44) && $nick(#,$nick,$+(r,$iif(%y.v,v,$iif(%y.h,h,$iif(%y .o,o,)))))) {
inc -u $+ %sec $+(%,flood,.,$chan,.,$nick)
if ($($+(%,flood,.,$chan,.,$nick),2) >= %line ) {
if (%warn) {
inc -u300 $+(%,warn,$chan,$nick)
if ($($+(%,warn,$chan,$nick),2) <= %numwarn) { .notice $nick Lütfen kanalda flood yapmayınız. }
if ($($+(%,warn,$chan,$nick),2) > %numwarn) {
$iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak.)
unset $+(%,warn,$chan,$nick)
}
}
else { $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak!.) }
}
}
}

menu * {
® Kanal Flood Koruma:/doz
}