Çeşitli Korumalar - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

LeadeR · 17 Aralık 2005, 01:02

Forumlarda bir cok kez soruldu bunlar.. bende bunları bir dialog sekline getirip sizlere sundum..

Birinci dialog'umuz ;

Kelime belirleriz , eğer bu kelimeler kanal 'da herhangi bir cümle icerisinde gecerse secenekleri uygular örneğin [ uyarmasını isterseniz önünüze bilgi gelir ]
Yok [ kullananlar atılsın derseniz o kelimeyi kullanan kanaldan atılır ]

Kod ;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias leader { dialog -m leader1 leader1 }
dialog leader1 {
  title "[ Coded : LeadeR ] • [ 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size -1 -1 150 155
  option dbu
  box "", 1, 9 9 132 130
  box "", 2, 2 3 146 142
  list 3, 74 34 62 101, size vsbar
  edit "", 4, 74 19 62 12, return autohs autovs
  button "Ekle", 5, 39 19 25 11
  button "Çıkart", 6, 39 33 25 11
  box "", 7, 33 13 39 34
  check "Check Box", 8, 12 52 8 10
  edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi
  check "Check Box", 10, 12 92 8 10
  edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır..", 11, 19 93 53 27, read multi
  button "Kapat", 13, 56 145 37 10, ok
}

on *:dialog:leader1:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { did -ra $dname 4 $did(3).seltext }    
    if ($did == 5) {
      if ($istok(%l,$did(4),32) == $true) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }
      did -r $dname 4
    }
    if ($did == 6) {
      if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }
      did -r $dname 4
    }
    if ($did == 13) {
      if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }
      if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }
    }
  }
  if ($devent == init) {
    var %l.e = 1
    var %l.d = $numtok(%l,32)
    while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }
    if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }
    if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }
  }
}

#uyari on
on *:text:*:#: {
  var %i 1
  while %i <= $numtok(%l,32) {
    if $gettok(%l,%i,32) isin $1- {
      echo -a 0,5« Bilgi » 0,4 •• # •• Kanalından ••  $nick •• $ifmatch Kelimesini Kullandı ••
    }
    inc %i  
  }
}
#uyari end

#kickle off
on *:text:*:#: {
  var %i 1
  while %i <= $numtok(%l,32) {
    if $gettok(%l,%i,32) isin $1- {
      mode $active +b $wildsite
      kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
    } 
    inc %i  
  }
}
#kickle end

/leader

Yazmanız Yeterli olacaktır..

LeadeR · 17 Aralık 2005, 01:03

İkinci dialog'umuz

Eklemiş olduğunuz kanallara , eklediğiniz nickler girerse seceneğe göre nick kanalda +v alır yada kanaldan atılır

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias ldr { dialog -m ldr ldr }
dialog ldr {
  title "[ Coded : LeadeR ] • 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size -1 -1 192 138
  option dbu
  box "", 1, 4 7 184 117
  box "", 2, 0 3 192 125
  list 3, 35 38 59 50, size vsbar
  edit "", 4, 35 24 59 12, return autohs autovs
  edit " Kanallar", 5, 50 13 28 10, read
  list 6, 127 38 59 50, size vsbar
  edit "", 7, 127 24 59 12, return autohs autovs
  edit " Nickler", 8, 142 13 28 10, read
  button "Ekle", 9, 8 25 25 10
  button "Çıkart", 10, 8 40 25 10
  button "Ekle", 11, 100 25 25 10
  button "Çıkart", 12, 100 39 25 10
  check "Check Box", 13, 23 101 8 10
  edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler giris yaparsa voice alır..", 14, 35 90 59 31, read multi
  check "Check Box", 15, 115 100 8 10
  edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler girerse kanaldan atılır", 16, 127 89 59 30, read multi
  button "Kapat", 17, 163 128 29 10, ok
}

on *:dialog:ldr:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { did -ra $dname 4 $did(3).seltext }    
    if ($did == 9) {
      if ($istok(%j,$did(4),32) == $true) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%j,$did(4),32) == $false) { set %j $addtok(%j,$did(4),32) | did -a $dname 3 $did(4) }
      did -r $dname 4
    }
    if ($did == 10) {
      if ($istok(%j,$did(4),32) == $false) && ($did(4) != $null) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%j,$did(4),32) == $true) { set %j $remtok(%j,$did(4),32) | did -d ldr 3 $did(3).sel }
      did -r $dname 4
    }
    if ($did == 17) {
      if ($did(13).state == 1) { .enable #vle } | else { .disable #vle }
      if ($did(15).state == 1) { .enable #at } | else { .disable #at }
    }
    if ($did == 6) { did -ra $dname 7 $did(6).seltext }    
    if ($did == 11) {
      if ($istok(%n,$did(7),32) == $true) { halt }
      if ($did(7) == $null) { halt }
      if ($istok(%n,$did(7),32) == $false) { set %n $addtok(%n,$did(7),32) | did -a $dname 6 $did(7) }
      did -r $dname 7
    }
    if ($did == 12) {
      if ($istok(%n,$did(7),32) == $false) && ($did(7) != $null) { halt }
      if ($did(7) == $null) { halt }
      if ($istok(%n,$did(7),32) == $true) { set %n $remtok(%n,$did(7),32) | did -d ldr 6 $did(6).sel }
      did -r $dname 7
    }  
  }
  if ($devent == init) {
    var %j.e = 1
    var %j.d = $numtok(%j,32)
    while (%j.e <= %j.d) { did -a $dname 3 $gettok(%j,%j.e,32) | inc %j.e }
  }    
  if ($devent == init) {
    var %n.e = 1
    var %n.d = $numtok(%n,32)
    while (%n.e <= %n.d) { did -a $dname 6 $gettok(%n,%n.e,32) | inc %n.e }
    if ($group(#vle) == on) { did -c $dname 13 } | if ($group(#vle) == off) { did -u $dname 13 }
    if ($group(#at) == on) { did -c $dname 15 } | if ($group(#at) == off) { did -u $dname 15 }
  }
}

#vle off
on *:join:#: {
  if $me isop %j {  
    if # == %j {
      if $nick == %n {
        mode %j +v %n
      }
    }
  }
}
#vle end

#at on
on *:join:#: {
  if $me isop %j {  
    if # == %j {
      if $nick == %n {
        mode %j +b $wildsite
        kick %j %n 0,5« Kickban » 0,4 •• # •• Kanalına •• $nick Nick'i ile giriş Yapamazsınız ( Düşman Listemdesin ) ••
      }
    }
  }
}
#at end

/ldr

Yazmanız Yeterli olacaktır..

LeadeR · 17 Aralık 2005, 01:05

Ücüncü dialog'umuz [ Küfür koruması ]

Küfürleri eklersiniz , kanal icerisinde kullanılır ise kelimeler kullanan kişi atılır

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias cihan { dialog -m cihan cihan }
dialog cihan {
  title "[ Coded : LeadeR ] • [ 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size -1 -1 150 155
  option dbu
  box "", 1, 9 9 132 130
  box "", 2, 2 3 146 142
  list 3, 74 34 62 101, size vsbar
  edit "", 4, 74 19 62 12, return autohs autovs
  button "Ekle", 5, 39 19 25 11
  button "&#199;ıkart", 6, 39 33 25 11
  box "", 7, 33 13 39 34
  check "Check Box", 8, 12 52 8 10
  edit "Eklemiş olduğunuz kelimeler kanalda kullanılırsa nick'e kickban atılır", 9, 19 53 53 36, read multi
  button "Kapat", 13, 56 145 37 10, ok
}

on *:dialog:cihan:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { did -ra $dname 4 $did(3).seltext }    
    if ($did == 5) {
      if ($istok(%c,$did(4),32) == $true) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%c,$did(4),32) == $false) { set %c $addtok(%c,$did(4),32) | did -a $dname 3 $did(4) }
      did -r $dname 4
    }
    if ($did == 6) {
      if ($istok(%c,$did(4),32) == $false) && ($did(4) != $null) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%c,$did(4),32) == $true) { set %c $remtok(%c,$did(4),32) | did -d cihan 3 $did(3).sel }
      did -r $dname 4
    }
    if ($did == 13) {
      if ($did(8).state == 1) { .enable #vur } | else { .disable #vur }
    }
  }
  if ($devent == init) {
    set %c amınıza memeler g&#246;ğ&#252;sler vacina ***lek amsuyu d&#246;l fahişe fahi$e kaltak KOYİM ******** s&#252;rt&#252;k sİke bastard siktim gotlek sikeyim sicker domal ziken **** **** orgazm ***** penis siker sprem sikik z&#252;kerim siterim sittir siktir ***oş ***ler koyarım annenin ananın ebenin zoqarım zokarım zokarim zittir sikme yarağım yarrağım yarragim yaragim yarağım sikiselim sikiş erefsiz erefsİz erefsız amcuk amcug amuş amu$ amcık amcik ancuq ****** ****** uruspu sİkeyim İBNE ***&#220;N ***&#252;n gotune pi&#231; pİ&#231; *** seks seviş sevİş sevi$ ananı anani ****** taşşak taşak ta$$ak ta$ak tassak orosp kaşar ka$ar     
    var %c.e = 1
    var %c.d = $numtok(%c,32)
    while (%c.e <= %c.d) { did -a $dname 3 $gettok(%c,%c.e,32) | inc %c.e }
    if ($group(#vur) == on) { did -c $dname 8 } | if ($group(#vur) == off) { did -u $dname 8 }
  }
}

#vur on
on *:text:*:#: {  
  var %i 1
  while %i <= $numtok(%c,32) {
    if $gettok(%c,%i,32) isin $1- {
      mode $active +b $wildsite
      kick $active $nick 0,5&#171; Kickban &#187; 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
    }
    inc %i  
  }
}
#vur end

/cihan

Yazmanız yeterli olacaktır

LeadeR · 17 Aralık 2005, 01:06

Dördüncü Dialog'umuz [ Reklam Koruması ]

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias cihans { dialog -m cihans cihans }
dialog cihans {
  title "[ Coded : LeadeR ] • [ 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size -1 -1 150 155
  option dbu
  box "", 1, 9 9 132 130
  box "", 2, 2 3 146 142
  list 3, 74 34 62 101, size vsbar
  edit "", 4, 74 19 62 12, return autohs autovs
  button "Ekle", 5, 39 19 25 11
  button "Çıkart", 6, 39 33 25 11
  box "", 7, 33 13 39 34
  check "Check Box", 8, 12 52 8 10
  edit "Eklemiş olduğunuz reklamlar kanalda kullanılırsa nick'e kickban atılır", 9, 19 53 53 36, read multi
  button "Kapat", 13, 56 145 37 10, ok
}

on *:dialog:cihans:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { did -ra $dname 4 $did(3).seltext }    
    if ($did == 5) {
      if ($istok(%r,$did(4),32) == $true) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%r,$did(4),32) == $false) { set %r $addtok(%r,$did(4),32) | did -a $dname 3 $did(4) }
      did -r $dname 4
    }
    if ($did == 6) {
      if ($istok(%r,$did(4),32) == $false) && ($did(4) != $null) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%r,$did(4),32) == $true) { set %r $remtok(%r,$did(4),32) | did -d cihans 3 $did(3).sel }
      did -r $dname 4
    }
    if ($did == 13) {
      if ($did(8).state == 1) { .enable #rekvur } | else { .disable #rekvur }
    }
  }
  if ($devent == init) {
    set %r http: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
irc.     
    var %r.e = 1
    var %r.d = $numtok(%r,32)
    while (%r.e <= %r.d) { did -a $dname 3 $gettok(%r,%r.e,32) | inc %r.e }
    if ($group(#rekvur) == on) { did -c $dname 8 } | if ($group(#rekvur) == off) { did -u $dname 8 }
  }
}

#rekvur on
on *:text:*:#: {  
  var %i 1
  while %i <= $numtok(%r,32) {
    if $gettok(%r,%i,32) isin $1- {
      mode $active +b $wildsite
      kick $active $nick 0,5« Reklam Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullanarak Reklam Yaptınız ••
    }
    inc %i  
  }
}
#rekvur end

/cihans

Yazmanız yeterli olacaktır

Alience · 17 Aralık 2005, 01:53

son 2 koruma zaten forumda mevcut, yinede teşekkürler.

KeReM123 · 17 Aralık 2005, 14:23

#vur on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%c,32) {
if $gettok(%c,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
}
inc %i
}
}
#vur end
Bu kısmı cs den ban olarak ayarlama istıyom yarmcı olurmusunuz .Şimdiden teşekkurler

MaeLStrOm · 18 Aralık 2005, 10:03

mode $active +b $wildsite
kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
kısmını;
cs akick # add $+($nick,!*@*) 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
cs akick # enforce
cs akick # del $+($nick,!*@*)
olarak değiştirmelisin

KeReM123 · 18 Aralık 2005, 18:31

teşekkurler Maelstrom bide ikinci dialog ta sadece 1kanaldan 1 nick atıyor ekledigim ikinci nicki atmıyor

Alience · 18 Aralık 2005, 19:08

konu ile alakasız ama shitlistin bayağı gelişmiş hali [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

BaDiGuaRt39 · 18 Mart 2006, 05:54

Ellerinize Sağlık Ben Bunları Uyguladım Hele Küfür Korumasını Fakat Yetkili Olduğum Kanalın Scriptimde Çalışmadı.... Sorunu Nasıl Çözebilirim...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Korumalar v4	Duffy`DuCk	mIRC Scripting Hazır Kodlar	69	21 Şubat 2013 00:34
Korumalar v1-v2-v3-v4	SovaLyem	mIRC Scripting Hazır Kodlar	3	14 Nisan 2010 12:54
Korumalar	neobre	mIRC Scripting Sorunları	1	29 Ekim 2009 22:12
korumalar v2	IrCbaStarD	mIRC Scripting Hazır Kodlar	50	24 Nisan 2008 16:44

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.