Çevrimdışı

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...


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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
}

 

Çevrimdışı

kodu yükledim fakat kanal eklenmiyor. on/off aktif olmuyor
sadece pencere acılıyor neden acaba.

 

Çevrimdışı

Anladım. Kodun orjinal halini paylasırsan sevinirim.

 

Çevrimdışı

cumali935 Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Anladım. Kodun orjinal halini paylasırsan sevinirim.

Yukarıdaki kodun orijinal hali... Çalışıyor bende.

 

Çevrimdışı

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.

 

Çevrimdışı

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.

 

Çevrimdışı

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.

 

Çevrimdışı

Kodu düzelttim şu an gayet güzel çalışıyor. Kodun çalışmamasının sebebi aslında buraya yapıştırırken;

on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
IALOG:doz:edit:*:{ , on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
IALOG:doz:sclick:*:{ ... kısımlarında DIALOG yazısının büyük olmasından dolayı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ş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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
en iyisi biseyi kırmadan vaz gecim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sen kullan ok

 

Çevrimdışı

eyw kardeşim bnc ye kurulmuyor mu peki ?