IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Mart 2010, 14:39   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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...


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
}


Konu SovaLyem tarafından (19 Mart 2010 Saat 17:00 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 19 Mart 2010, 14:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kanal Flood Koruması




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

 
Alıntı ile Cevapla

Alt 19 Mart 2010, 15:48   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kanal Flood Koruması




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

 
Alıntı ile Cevapla

Alt 19 Mart 2010, 16:12   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kanal Flood Koruması




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.

 
Alıntı ile Cevapla

Alt 19 Mart 2010, 16:16   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 19 Mart 2010, 16:30   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 19 Mart 2010, 16:32   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.


Konu yabadabadu tarafından (19 Mart 2010 Saat 16:38 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 19 Mart 2010, 17:04   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 *
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.

 
Alıntı ile Cevapla

Alt 19 Mart 2010, 17:53   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
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

 
Alıntı ile Cevapla

Alt 25 Mart 2010, 22:22   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kanal Flood Koruması




eyw kardeşim bnc ye kurulmuyor mu peki ?

 
Alıntı ile Cevapla

Cevapla

Etiketler
flood, kanal, korumasi, koruması, mirc, mirc download, mirc indir


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Flood Koruması Deniz´ mIRC Scripting Sorunları 5 06 Haziran 2014 17:49
Flood Koruması breakwolf mIRC Scripting Sorunları 10 21 Aralık 2011 13:17
Flood Koruması moonman mIRC Scripting Sorunları 6 10 Aralık 2011 13:58
Flood Koruması Syst3m vBulletin 0 29 Ekim 2011 16:30
cs flood koruması adnan_34 Unreal IRCd 5 04 Mart 2007 17:57