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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Çeşitli Korumalar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/9432-cesitli-korumalar.html)

Çeşitli Korumalar

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:

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..

Eklenilen Kanala , Eklenilen Nickler girerse voice verir yada kanaldan atar..

İ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:

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..

Ü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:

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 "Çı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öğüsler vacina ***lek amsuyu döl fahişe fahi$e kaltak KOYİM ******** sürtük sİke bastard siktim gotlek sikeyim sicker domal ziken **** **** orgazm ***** penis siker sprem sikik zü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 ***ÜN ***ün gotune piç pİç *** 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« Kickban » 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

Reklam Koruması [ Ekle - Cıkart ]

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

Kod:

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

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

#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

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

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

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

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...

Yanıt: Çeşitli Korumalar

ßu Diyalogları ßir paneL haLinde Ayrı ßir Diyalogda Toplama İmkanımız war Mı Acaba ? ßir Tane Örnek Yeterli.. Şimdiden Teşekkurler..

Yanıt: Çeşitli Korumalar

küfür koruması güzelde küfürleri kaydetmiyor ben her girdiğimde küfürleri ekleyecekmiyim?

Yanıt: Çeşitli Korumalar

Küfüleri Kaydetmiyor gerçekten.. ekliyorum kapat diyorum aynı , kaydetmiyor.

Yanıt: Çeşitli Korumalar

Küfürleri Kaydetmiyor gerçekten , ekliyorum kapatıyorum kaydetmiyor.

remoteler ( renkli yazılar ):( çalışmıyor arkadaşlar yardımmm ...

Yanıt: Çeşitli Korumalar

PayLaşım İcin tşkler , Ellerine Saglık

Cevap: Çeşitli Korumalar

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 Uygunsuz Kelime Argo/Küfür Nedeni İle Uzaklaştırıldınız. ••
cs akick # enforce
cs akick # del $+($nick,!*@*)
olsa biraz daha iyi olur gibi :)

Cevap: Çeşitli Korumalar

denemedim , fakat hata olcağını sanmıyorum LeadeR işini bilir ;)

Cevap: Çeşitli Korumalar

pardon arkadaslar ama .. tam olarak nereye ekleyecegimizi söylerseniz sewinirim .. aliases , remote , popup ?

Cevap: Çeşitli Korumalar

Alıntı:

ExdesperadO Nickli Üyeden Alıntı (Mesaj 616622)

pardon arkadaslar ama .. tam olarak nereye ekleyecegimizi söylerseniz sewinirim .. aliases , remote , popup ?

Aliases Bölümune Eklicen Arkadasim.

Cevap: Çeşitli Korumalar

Bu konunun tarihi, 2005 arkadaşlar. Bilmem bu size birşeyler ifade ediyor mu? Nasıl bu kadar eski bir tarihe gidip de, bunları buluyorsunuz da! Diğer yazılmış o şahane korumaları göremiyorsunuz?

Lütfen, biraz daha göz gezdirin ve şahane korumaları sizde fark edin ve deneyin, bu korumadan çok daha iyi çalışacaklarına eminim.

Saygılar;

Cevap: Çeşitli Korumalar

Önerilerini buraya yazarsan sevinirim. Modern olalım :D