mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 10 Ekim 2009, 22:09
Avatar Yok

mS Puan: 21
mS Derece: UnLimitedBOY
 
Üyelik tarihi: 08 Ekim 2009
Mesajlar: 8
Konular: 8
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart Muaf Listesi

PHP- Kodu:
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
    ;--------------------------------------------

Code: UnLimitedBOY
Tarih: 20.10.2008

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
Sponsored Links
Cevapla

Etiketler
muaf listesi

Seçenekler

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 Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
IRC dersleri. WeiLSiDe mIRC commands - Komutlar 23 08 Haziran 2015 02:07
Cipmercy v3 download WeiLSiDe Bots - Botlar 1 01 Ocak 2014 02:47


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76