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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Mayıs 2020, 14:48   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Flood koruması




arkadaşlar bu korumayı burada buldum fakat sadece kick yada kickban yapıyor sadece ban yapsa kullanıcı kanalda dursa bi süre konuşması yasaklansa denedim ama yapamadım yardımcı olabilecek arkadaşlarıma şimdiden teşekkürler
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog doz {
  
title "Kanal Flood Koruması"
  
size --1 122 110
  option dbu
  box 
"Kanal Ekle/Sil"12 2 61 29
  edit 
""23 10 58 9autohs
  button 
"Ekle"33 20 28 9flat
  button 
"Sil"433 20 28 9flat
  box 
"Kanal Listesi"565 2 54 29
  
list 666 10 51 19size vsbar
  box 
"Saniye ayarla"72 32 38 19
  edit 
""83 40 15 9autohs center
  button 
"Ayarla"919 40 19 9flat
  box 
"Satır ayarla"1041 32 38 19
  edit 
""1142 40 15 9autohs center
  button 
"Ayarla"1258 40 19 9flat
  box 
"Açık/Kapalı"1380 32 39 19
  radio 
"On"1482 40 16 9
  radio 
"Off"15101 40 17 9
  box 
"Ban şekli ayarla"162 52 48 19
  edit 
""173 60 27 9autohs center
  button 
"Ayarla"1830 60 19 9flat
  box 
"İşlevler"1952 52 67 19
  check 
"Kick"2055 60 19 9
  check 
"KBan"2175 60 22 9
  check 
"Uyar"2298 60 31 9
  box 
"Uyarı sayısı ayarla"2365 73 54 19
  edit 
""2467 81 17 9autohs center
  button 
"Ayarla"2585 81 32 9flat
  box 
"Kullanıcı modlarını da at"262 73 61 19
  check 
"+o"274 81 18 9
  check 
"+h"2824 81 18 9
  check 
"+v"2944 81 18 9
  button 
"Tamam"3043 95 32 13ok
}
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



 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 29 Mayıs 2020, 19:03   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Flood koruması




diyalog kodlarından zerre anlamıyorum her gördügün kodu kullanmana gerek yok bence
bunu kullanmakta gereksiz
bunda action ve notice koruması var ee zaten kanallar +nC notice ve renkli yazı koruma modunda bu kod ne işe yarıcak? kuru kalabalık.

 
Alıntı ile Cevapla

Alt 30 Mayıs 2020, 01:42   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Flood koruması




abi dialog şeklinde bişi arıyorum buluyorum ama buda tam istedigim gibi degil ondan yani...

 
Alıntı ile Cevapla

Alt 30 Mayıs 2020, 16:05   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Flood koruması




Alıntı:
kick # $nick

ban -ku600 # $nick %bmask

kodda bulunan yukarıdaki kısımların hepsini

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
mode # +b $nick

olarak değiştirirsen kullanıcı kanaldan atılmaz sadece konuşamaz hale gelir.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Cevapla

Etiketler
flood koruma, kanal koruması, sadece ban


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

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ı 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
Flood KorumaSı MoonsheLL mIRC Scripting Sorunları 4 28 Aralık 2007 21:01
cs flood koruması adnan_34 Unreal IRCd 5 04 Mart 2007 17:57