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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - Clone kill (https://www.ircforumlari.net/mirc-scripting-sorunlari/19697-clone-kill.html)

Requiem

24 Haziran 2006 18:21

Merhaba arkadaslar. Birsey sormak istiyorum. Kanala giren clonleri gosteren /echo $chan komutunu kullanan bir kodum var. Ornegin
> Clone Tespit Edildi!: X goncaday X1 X2 X3 X4 X5 X6 X7 7 Tane! yazınca bunları sunucudan /os kill komutu ile uzaklastirmak istiyorum. Nasıl yapabilirim?

kullandığım kod

Kod:

on *:join:*: {

  %clones = $ialchan($wildsite,#,0)

  if ( %clones > 1 ) {

    var %count = 1

    set %clone.nicks -->

    while (%count <= %clones)  {

      %clone.nicks = %clone.nicks  $ial($wildsite,%count).nick

    inc %count  }

  /echo $chan 14> 1Clone Tespit Edildi!2: $remove(%clone.nicks,-->) 4 %clones 1Tane14! }

  set %change $read -s $+ $address($nick,4) notes.ini

  if (%change == $null) {

    haltdef

    write notes.ini $address($nick,4) $nick

    halt  

  }

}

diEfoRyoU

24 Haziran 2006 22:03

Yanıt: Clone kill

Kod:

alias kontrol { if %clones >= 2 { var %> = 1 | while $gettok($1-,%>,32) { 
 .kill $gettok($1-,%>,32) bla bla | inc %> } } }
 on !*:join:#: {
 %clones = $ialchan($wildsite,#,0)
 if ( %clones > 1 ) {
 var %count = 1
 set %clone.nicks 
 while (%count <= %clones) {
   %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
 inc %count }
 /echo $chan 14> 1Clone Tespit Edildi!2: $+(%clone.nicks,-->) 4 %clones 1Tane14! | kontrol %clone.nicks }
 set %change $read -s $+ $address($nick,4) notes.ini
 if (%change == $null) {
 haltdef
 write notes.ini $address($nick,4) $nick
 halt 
 }
 }

Kırımızı yer belirlediğin clone sayısı olmalı. Mavi yer ise, kill mesajın.
Umarım işine yarar.

Requiem

25 Haziran 2006 02:50

Yanıt: Clone kill

Sen kodu hic kontrol ettin mi bilmiyorum ama bu kod gercekten calismiyor.

MaeLStrOm

25 Haziran 2006 10:08

Yanıt: Clone kill

on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
os kill $ial($wildsite,%count).nick Clone
inc %count
}
/echo $chan 14> 1Clone Tespit Edildi!2: $remove(%clone.nicks,-->) 4 %clones 1Tane14! }
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}

Requiem

25 Haziran 2006 11:46

Yanıt: Clone kill

Hayır bu kodda calismiyor. Bir yerlerde eksik var ama bende bulamiyorum. Sen 1 clone olarak ayarlamıssın burda sanırım onu hic editlemeden 8 tane soktum yine bir ise yaramadı..

MaeLStrOm

25 Haziran 2006 12:28

Yanıt: Clone kill

$ial($wildsite,%count).nick
senin clone korumaneğer çalışıyor ve gösterdiğin gibi X1 X2 fln clone diyorsa yukarda gösterdiğim yer sırasıyla X1 , X2 .. ifade eder ve kill komutuda doğruysa hepsini atması gerekir.

el33t

25 Haziran 2006 12:52

Yanıt: Clone kill

Şunu dener misin?

Kod:

on *:join:#:{ if $ialchan($wildsite,#,0) > 1 { var %; = 1, %: | while $ialchan($wildsite,#,%;) { var %b = $gettok($v1,1,33) | %: = $addtok(%:,%b,32) | os kill %b clone | inc %; } | echo # Clone tespit edildi! %: -- $numtok(%:,32) tane } }

diEfoRyoU

25 Haziran 2006 13:08

Yanıt: Clone kill

[13:17:42] *** Giriş: diEbOtv (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-A43794F8)
> Clone Tespit Edildi!: bla diEbOtv--> 2 Tane!
[13:17:42] *** IRC`den Çıktı: bla (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-A43794F8) ([IRc.xx.Com] Local kill by diEfoRyoU (bla bla))
[13:17:42] *** IRC`den Çıktı: diEbOtv (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-A43794F8) ([IRc.xx.Com] Local kill by diEfoRyoU (bla bla))

Bende çalışan bir kodun, sende çalışmaması ne kadar garip.
biraz daha becerikli olmak gerekiyor.

Requiem

25 Haziran 2006 14:00

Yanıt: Clone kill

Problem için çok üzgünüm. Hepiniz çok sağolun arkadaşlar yardımlar için. Hallettim..

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:05.