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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - clone (https://www.ircforumlari.net/mirc-scripting-sorunlari/173795-clone.html)

merhaba. halil'in yazdigi bu codeye gore kanala iki clone gorerse uyari gonderiyor uyariyi dikkate alirda cloneyi cikarirsa tesekkur mesaji iletiliyor cikarmaz ise gline uyguluyor.bundaki sorun;kanala clone goren sahis sunucudan cikmaz ve kanaldan ayrilir tekrar gorerse bu sefer 3 clone gosteriyor bu her join part olayinda cogaliyor ve gline atmiyor.cikan hata ise sudur..

[error] Cannot have ! in masks

on !*:join:#:{
if !$regex($wildsite,/(helper|admin|ircop|services)/i) && $ialchan($wildsite,#,0) >= 2 {
var %x = 1
while %x <= $ialchan($wildsite,#,0) {
set %clones $addtok(%clones,$ialchan($wildsite,#,%x),32)
inc %x 1
}
msg # %clones Çoklu giriş yasaktır. Lütfen clonelardan bir tanesini çıkarınız. Bir dakika içerisinde bu işlemi yapmazsanız, sunucudan uzaklaştırılacaksınız.
$+(.timer,$wildsite) 1 60 cloneban $wildsite $chan
}
}
alias cloneban {
if $ialchan($1,$2,0) >= 2 { gzline $ialchan($1,$2,1) +süre Sebep }
}
on !*:part:#:{
if !$regex($wildsite,/(helper|admin|ircop|services)/i) && $ialchan($wildsite,#,1) {
if $findtok(%clones,$nick,1,32) { set %clones $deltok(%clones,$v1,32) }
if $ialchan($wildsite,#,0) == 1 { msg # $ialchan($wildsite,#,1) cloneleri çıkarttığınız için teşekkürler. | $+(.timer,$wildsite) off }
}
}
on *:start:unset %clones

tesekkur ederim..

Kod:

on !*:join:#:{

  if !$regex($wildsite,/(helper|admin|ircop|services)/i) && $ialchan($wildsite,#,0) == 2 {

    var %x = 1

    while %x <= $ialchan($wildsite,#,0) {

      set %clones $addtok(%clones,$ialchan($wildsite,#,%x),32)

      inc %x 1

    }

    msg # %clones Çoklu giriş yasaktır. Lütfen clonelardan bir tanesini çıkarınız. Bir dakika içerisinde bu işlemi yapmazsanız, sunucudan uzaklaştırılacaksınız.

    $+(.timer,$wildsite) 1 60 cloneban $wildsite $chan

  }

  if !$regex($wildsite,/(helper|admin|ircop|services)/i) && $ialchan($wildsite,#,0) == 3 {

    gzline $gettok($ialchan($wildsite,#,1),1,33) +süre SEBEP

    $+(.timer,$wildsite) off

  }

}

alias cloneban {

  if $ialchan($1,$2,0) >= 2 { gzline $token($ialchan($1,$2,1),1,33) +süre Sebep }

}

on !*:part:#:{

  if !$regex($wildsite,/(helper|admin|ircop|services)/i) && $ialchan($wildsite,#,1) {

    if $findtok(%clones,$fulladdress,1,32) { set %clones $deltok(%clones,$v1,32) }    

    if $ialchan($wildsite,#,0) == 2 { msg # $ialchan($wildsite,#,1) cloneleri çıkarttığınız için teşekkürler. | $+(.timer,$wildsite) off }

  }

}

on *:start:unset %clones

Clone sayısı 2 olduğunda Uyarı verecektir ve kanaldan çıkarmadığı takdirde 60 sn. süre sonunda gzline uygulayacaktır.(Hatalı mask işlemi yaptığından atmıyordu)

Clone sayısı 3 olduğu takdirde beklemeden(uyarmaksızın) uzaklaştırır.

İyi forumlar...

pekı ßu olayı gzline deqılde sadece kanldan usaklastırma olarak Kıckßan atsa Ve Clone sayıSıda 4 de uyarı 5 de kıcklese nasıl olur ? yaßaßılırmıyıs ßöle ßırsey ?

Kod içerisindeki 2 ve 3 rakamlarını yükseltebilirsin.
gzline .... satırınıda kick+ban'a çevirebilirsin.
vs vs kurcalamak gerekiyor yani...
Gözlem + düzenleme + sonuç = Başarı

merhaba..

kanala iki clone girerse bunlardan birisi kanaldan yarilip tekrar kanala girerse ikiden fazla clone gosteriyor bu her kanaldan ayrilip giriste artiyor..