Kanal Flood Koruması 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... [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod: 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 } |
Cevap: Kanal Flood Koruması kodu yükledim fakat kanal eklenmiyor. on/off aktif olmuyor sadece pencere acılıyor neden acaba. |
Cevap: Kanal Flood Koruması Anladım. Kodun orjinal halini paylasırsan sevinirim. |
Cevap: Kanal Flood Koruması Alıntı:
|
Cevap: Kanal Flood Koruması hayır arkadasım link felan yok. ilk basta yukardaydı indirdim ama calısmadı. simdi link felan gözükmüyor nasıl indirebilirim simdi kodu. |
Cevap: Kanal Flood Koruması Link derken? Ben link falan koymadım, olduğu gibi kodu yapıştırdım. İlk mesaja bak kod duruyor. Resmin altında uzun bir kod var. |
Cevap: Kanal Flood Koruması Tamam kardes özür dilerim benim kafa gitmis dalgınlıktan. ok Yine aynı degisen bisey yok calısmıyor kod ben de. neyse sildim yinede saol paylasım icin. |
Cevap: Kanal Flood Koruması Kodu düzelttim şu an gayet güzel çalışıyor. Kodun çalışmamasının sebebi aslında buraya yapıştırırken; on *:DIALOG:doz:edit:*:{ , on *:DIALOG:doz:sclick:*:{ ... kısımlarında DIALOG yazısının büyük olmasından dolayı :D şeklinde gülmesi. Dolayısıyla kodu kopyalarken eksik kopyalıyor on *:IALOG:doz:sclick:*:{ şeklinde. Sonuçta yukarıdaki kod Türkçe ve güzel çalışıyor. :) |
Cevap: Kanal Flood Koruması evet hersey tamam ama bu sefer de * /if: Geçersiz format diyor neyse arkadasım ben bunu biraz daha kurcalarsam kesin fare elimde kalır :)) en iyisi biseyi kırmadan vaz gecim :D sen kullan ok |
Cevap: Kanal Flood Koruması eyw kardeşim bnc ye kurulmuyor mu peki ? |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:48. |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net