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

1Beğeni(ler)
  • 1 Post By Geologist

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 06 Nisan 2009, 12:53   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Muaf Listesi




Code: UnLimitedBOY
Tarih: 20.10.2008

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 
alias MuafListesi 
dialog -m koru koru }
 
dialog koru {
  
title "Ban Muaf Listesi"
  
size --1 265 170
  tab 
"Nickler",9,5 5 255 140
  tab 
"IP'ler",100
  tab 
"Yazılar",200
  tab 
"Kanallar",300
  button 
"Tamam",2100 146 80 30ok
  box 
"Serbest Nickler",18 32 140 102tab 9
  
list 313 47 130 90tab 9
  box 
"Ayarlar ( Ekle/Sil )",8152 32 102 102tab 9
  text 
"Nick: ",6157 47 35 15tab 9
  edit 
"",5157 62 90 20tab 9
  button 
"Ekle",4157 87 50 40tab 9
  button 
"Sil",7209 87 40 40tab 9
  box 
"Serbest IP'ler",1018 32 140 102tab 100
  
list 10313 47 130 90tab 100
  box 
"Ayarlar ( Ekle/Sil )",108152 32 102 102tab 100
  text 
"IP: ",106157 47 35 15tab 100
  edit 
"",105157 62 90 20tab 100
  button 
"Ekle",104157 87 50 40tab 100
  button 
"Sil",107209 87 40 40tab 100
  box 
"Serbest Yazılar",2018 32 140 102tab 200
  
list 20313 47 130 90tab 200
  box 
"Ayarlar ( Ekle/Sil )",208152 32 102 102tab 200
  text 
"Yazı: ",206157 47 35 15tab 200
  edit 
"",205157 62 90 20tab 200
  button 
"Ekle",204157 87 50 40tab 200
  button 
"Sil",207209 87 40 40tab 200
  box 
"Serbest Kanallar",3018 32 140 102tab 300
  
list 30313 47 130 90tab 300
  box 
"Ayarlar ( Ekle/Sil )",308152 32 102 102tab 300
  text 
"#Kanal: ",306157 47 35 15tab 300
  edit 
"",305157 62 90 20tab 300
  button 
"Ekle",304157 87 50 40tab 300
  button 
"Sil",307209 87 40 40tab 300
}
 
on 1:dialog:Koru:sclick:*: {
  if (
$did == 3) { 
    
did -ra $dname 5 $did(3).seltext
  
}
  if (
$did == 103) { 
    
did -ra $dname 105 $did(103).seltext
  
}
  if (
$did == 203) { 
    
did -ra $dname 205 $did(203).seltext
  
}
  if (
$did == 303) { 
    
did -ra $dname 305 $did(303).seltext
  
}
  if (
$did == 4) { 
    
set %Korumali-Nick [ %Korumali-Nick $did(5)
    
did -a $dname 3 $did(5)
    
did -ra $dname 5 
  
}
  if (
$did == 104) { 
    
set %Korumali-IP [ %Korumali-IP $did(105)
    
did -a $dname 103 $did(105)
    
did -ra $dname 105 
  
}
  if (
$did == 204) { 
    
set %Korumali-Yazi [ %Korumali-Yazi $did(205)
    
did -a $dname 203 $did(205)
    
did -ra $dname 205 
  
}
  if (
$did == 304) { 
    
set %Korumali-Kanal [ %Korumali-Kanal $did(305)
    
did -a $dname 303 $did(305)
    
did -ra $dname 305 
  
}
  if (
$did == 7) { 
    if (
$did(3).sel 0) { 
      
set %Korumali-Nick $remtok(%Korumali-Nick,$did(3).seltext,32)
      
did -d Koru 3 $did(3).sel 
      did 
-ra $dname 5 
    

  }
  if (
$did == 107) { 
    if (
$did(103).sel 0) { 
      
set %Korumali-IP $remtok(%Korumali-IP,$did(103).seltext,32)
      
did -d Koru 103 $did(103).sel 
      did 
-ra $dname 105 
    

  }
  if (
$did == 207) { 
    if (
$did(203).sel 0) { 
      
set %Korumali-Yazi $remtok(%Korumali-Yazi,$did(203).seltext,32)
      
did -d Koru 203 $did(203).sel 
      did 
-ra $dname 205 
    

  }
  if (
$did == 307) { 
    if (
$did(303).sel 0) { 
      
set %Korumali-Kanal $remtok(%Korumali-Kanal,$did(303).seltext,32)
      
did -d Koru 303 $did(303).sel 
      did 
-ra $dname 305 
    

  }
}
 
on *:dialog:Koru:init:*: {
  var %
1
  
while ($gettok(%Korumali-Nick,%a,32)) {
    
did -a Koru 3 $gettok(%Korumali-Nick,%a,32)
    
inc %a
  
}
  var %
1
  
while ($gettok(%Korumali-IP,%a,32)) {
    
did -a Koru 103 $gettok(%Korumali-IP,%a,32)
    
inc %a
  
}
  var %
1
  
while ($gettok(%Korumali-Yazi,%a,32)) {
    
did -a Koru 203 $gettok(%Korumali-Yazi,%a,32)
    
inc %a
  
}
  var %
1
  
while ($gettok(%Korumali-Kanal,%a,32)) {
    
did -a Koru 303 $gettok(%Korumali-Kanal,%a,32)
    
inc %a
  
}
}
 
on  *:join:#: {
    
var %Z 1
    
while %<= $numtok(%Korumali-Nick,32) {
      if 
$nick == $gettok(%Korumali-Nick,%Z,32) { halt }
      
inc %Z
    
}
    var %
A 1
    
while %<= $numtok(%Korumali-IP,32) {
      if 
$gettok(%Korumali-IP,%A,32isin $address($nick,2)) { halt }
      
inc %A
    
}
    var %
K 1
    
while %<= $numtok(%Korumali-Kanal,32) {
      if 
$gettok(%Korumali-Kanal,%K,32isin $chan halt }
      
inc %K
    
}
    ;-------------------------------------------------------------------
    ; 
Eventa ait Kendi kodlarınız bu kısma yazacaksınız
    
;-------------------------------------------------------------------
}
 
on *:text:*:#:{
    
var %Z 1
    
while %<= $numtok(%Korumali-Nick,32) {
      if 
$nick == $gettok(%Korumali-Nick,%Z,32) { halt }
      
inc %Z
    
}
    var %
A 1
    
while %<= $numtok(%Korumali-IP,32) {
      if 
$gettok(%Korumali-IP,%A,32isin $address($nick,2)) { halt }
      
inc %A
    
}
    var %
K 1
    
while %<= $numtok(%Korumali-Kanal,32) {
      if 
$gettok(%Korumali-Kanal,%K,32isin $chan halt }
      
inc %K
    
}
    var %
T 1
    
while %<= $numtok(%Korumali-Yazi,32) {
      if 
$gettok(%Korumali-Yazi,%T,32isin $1- { halt }
      
inc %T
    
}
    ;-------------------------------------------------------------------
    ; 
Eventa ait Kendi kodlarınızı bu kısma yazacaksınız
    ;-------------------------------------------------------------------


Komut Kullanım: /MuafListesi

Ne işe yarar?
Çeşitli sebeplerden dolayı koruma sisteminiz istemediğiniz banlar atabilir. Scriptinize ait korumaların, istemediğiniz kişileri / ip'leri / Kanalları yada kanalda yazılan herhangi bir yazıyı es geçmesi (Muaf) gereken durumlar olabilir. Kendi script korumalarınızı görüldüğü üzere ayarlarsanız, size büyük kolaylık sağlayacaktır.

Not: Örnek olarak sadece, Join ve Text eventini verdim, bunu Notice, Action vs vs event'ları altında aynı mantık ile çoğullaştırabilirsiniz. Muaflistesinde kayıtlı mask'lar, veriables kısmında depolanacaktır.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 12 Nisan 2009, 11:40   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf Listesi




Tesekkürler UnLimitedBOY Güzel 1 Çalışma Abi... Dewamını Bekliyoruz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 12 Nisan 2009, 13:23   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf Listesi




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

__________________
- maybe this world is another planet's hell.
 
Alıntı ile Cevapla

Alt 13 Nisan 2009, 01:31   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf Listesi




tşk guzel bir calişma

 
Alıntı ile Cevapla

Alt 30 Aralık 2012, 19:03   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf Listesi




Tşkler

 
Alıntı ile Cevapla

Alt 25 Kasım 2013, 18:07   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf Listesi




Dostum mesela Op ve Djleri bütün korumalarımdan muaf tutmak istiyorum ip adresi kısmına OP ve Dj şeklinde hostunu eklemem yeterli mi?

 
Alıntı ile Cevapla

Cevapla

Etiketler
listesi, mirc, mirc download, mirc indir, muaf, muaf listesi


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
Muaf kanal Darnasus mIRC Scripting Sorunları 7 15 Haziran 2021 05:27
Muaf Nick TİGeR mIRC Scripting Sorunları 6 19 Şubat 2014 20:35
Yerel Seçim Listesi Adınız Var mı Yok Mu? Seçmen Listesi Sorgulama yaSmin Haber Arşivi 0 10 Ocak 2014 21:16
Muaf Kanal rasinti mIRC Scripting Sorunları 7 13 Mayıs 2011 09:52
Koruma muaf Braun mIRC Scripting Sorunları 5 09 Nisan 2008 16:36