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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Mart 2009, 19:18   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Clone Taraması Sorunu



Arkadaşlar merhaba eskiden beri kullandığım bir clone tarama addonum var kodlar şu şekilde.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias scan {
  unset %cs.*
  set %cs.chan #
  who #
  .timer 1 4 /scan2
}
alias scan2 {
  window -l @Clones
  set %cs.a $nick(#,0)
  :loop
  if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) {
    set %cs.d %cs.d $address($nick(#,%cs.a),2)
    set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0)
    :l
    aline @clones $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ )
    dec %cs.c 1
    if (%cs.c == 0) {  aline @clones - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
    goto l
  }
  :next
  dec %cs.a 1
  if (%cs.a != 0) { goto loop }
  if (%cs.d == $null) { aline @clones hiç clone bulunamadı... }
  halt
}  
menu @clones {
  Kick:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone bulunudu.
  -
  Kick/Ban:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone  bulundu.- %kick.logo | /mode %cs.chan +b $address($wildtok($sline(@clones,1), *, 1, 32),2) | /dline @clones $sline(@clones,1).ln
}
#onjoin on
on *:join:#:{
  if (%clonelevel [ $+ [ $chan ] ] == 1) { set %naddress $address($nick,0) }
  if (%clonelevel [ $+ [ $chan ] ] == 2) { set %naddress $address($nick,1) }
  if (%clonelevel [ $+ [ $chan ] ] == 3) { set %naddress $address($nick,2) }
  if (%clonelevel [ $+ [ $chan ] ] == $null) { set %naddress $address($nick,2) }
  if (%clonelevel [ $+ [ $chan ] ] == 4) { set %naddress $address($nick,4) }
  if (%cs_maxclones [ $+ [ $chan ] ] == $null) { set %cs_maxclones [ $+ [ $chan ] ] 0 }
  if ($nick != $me) {
    if ($ialchan(%naddress ,$chan,0) > 1) {
      set %pointer 1
      unset %clones
      :nickanchor
      set %clones %clones $ialchan(%naddress,$chan,%pointer).nick
      inc %pointer 1
      if (%pointer <= $ialchan(%naddress,$chan,0)) { goto nickanchor }
      if (%cs_affectsregular [ $+ [ $chan ] ] != $null) { goto skip }
      if (thechosen isin $level($address($nick,5))) { goto skip }
      if ($gettok(%clones,0,32) <= $calc(( [ %cs_maxclones [ $+ [ $chan ] ] ] ) + 1 )) { goto skip }
      if (%cs_currentaction [ $+ [ $chan ] ] == echo) { echo $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) }
      if (%cs_currentaction [ $+ [ $chan ] ] == $null) { echo $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) }
      if ($mid($level($nick),1,4) == 1002) { .quote notice $nick :4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) %kick.logo | .quote notice $nick :6Clone Protection Listemdesin %kick.logo | goto skip }
      if ($mid($level($address($nick,2)),1,4) == 1002) { .quote notice $nick :4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  | .quote notice $nick :6Clone Protection Listemdesin %kick.logo | goto skip }
      if (%cs_currentaction [ $+ [ $chan ] ] == say) { msg $chan 4Clone Tespit EdiLdi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if (%cs_currentaction [ $+ [ $chan ] ] == notice) { .notice $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if (%cs_currentaction [ $+ [ $chan ] ] == onotice) { /opnot $chan 2 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if ($me isop $chan) {
        if (%naddress iswm $address($me,5)) { goto skip }
        if (%cs_currentaction [ $+ [ $chan ] ] == kick) { kick $chan $nick clone $+ $chr(2) $+ $chr(91) $+ $chr(2) $+ $chr(31) $+ Otomatik-Kick $+ $chr(31) $+ $chr(2) $+ $chr(93) $+ $chr(2) %kick.logo }
        if (%cs_currentaction [ $+ [ $chan ] ] == ban) { mode $chan +b %naddress }
        if (%cs_currentaction [ $+ [ $chan ] ] == kickban) { mode $chan +b %naddress | kick $chan $nick clone $+ $chr(2) $+ $chr(91) $+ $chr(2) $+ $chr(31) $+ Otomatik-KickBan $+ $chr(31) $+ $chr(2) $+ $chr(93) $+ $chr(2)  }
      }
      :skip
      unset %clones %naddress
    }
  }
  unset %clones %naddress
}
#onjoin end
}

Komut kanal popupslarında mevcut ve çalışıyor ayrıca aktif kanal penceresinde /scan yapıncada çalışıyor. scan komutunda o üç satırda birşeyler yapıyor ama tam olarak bilemiyorum sanırım who komutu ile cloneleri buluyor ve 4 sn sonra scan2 yaparak aktif ekranı açıyor ve orada listeliyor cloneleri Eğer direk scan2 komutunu uygularsam sadece @Clones penceresi açılıyor ve boş çıkıyor. Bu komutu diyaloga yükledim.

if ($did == 194) { dialog -x admin admin | timer 1 1 /scan }

sırf dialog kapandıktan sonra devreye girsin dedim timer kurmadan da denedim timer süresini uzatarakta denedim her yolu denedim kısacası dialogtan Clone tara tuşuna basınca tarama penceresi boş çıkıyor ve mirc olduğu gibi kilitleniyor neden böyle oluyor yardımcı olabilirmisiniz ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 01 Mart 2009, 19:56   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Clone Taraması Sorunu



Teşekkür neden anlamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
, kod işinemi yaradı yoksa..

 
Alıntı ile Cevapla

Alt 01 Mart 2009, 20:15   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Clone Taraması Sorunu



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

alias scan {
  set %kanal $$?="Hangi Kanalda Clone Taraması Yapılacak?"
  unset %cs.*
  set %cs.chan %kanal
  who %kanal
  .timer 1 4 /scan2
}
alias scan2 {
  window -l @Clones
  set %cs.a $nick(#,0)
  :loop
  if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) {
    set %cs.d %cs.d $address($nick(#,%cs.a),2)
    set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0)
    :l
    aline @clones $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ )
    dec %cs.c 1
    if (%cs.c == 0) {  aline @clones - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
    goto l
  }
  :next
  dec %cs.a 1
  if (%cs.a != 0) { goto loop }
  if (%cs.d == $null) { aline @clones hiç clone bulunamadı... }
  halt
}  
menu @clones {
  Kick:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone bulunudu.
  -
  Kick/Ban:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone  bulundu.- %kick.logo | /mode %cs.chan +b $address($wildtok($sline(@clones,1), *, 1, 32),2) | /dline @clones $sline(@clones,1).ln
}
#onjoin on
on *:join:#:{
  if (%clonelevel [ $+ [ $chan ] ] == 1) { set %naddress $address($nick,0) }
  if (%clonelevel [ $+ [ $chan ] ] == 2) { set %naddress $address($nick,1) }
  if (%clonelevel [ $+ [ $chan ] ] == 3) { set %naddress $address($nick,2) }
  if (%clonelevel [ $+ [ $chan ] ] == $null) { set %naddress $address($nick,2) }
  if (%clonelevel [ $+ [ $chan ] ] == 4) { set %naddress $address($nick,4) }
  if (%cs_maxclones [ $+ [ $chan ] ] == $null) { set %cs_maxclones [ $+ [ $chan ] ] 0 }
  if ($nick != $me) {
    if ($ialchan(%naddress ,$chan,0) > 1) {
      set %pointer 1
      unset %clones
      :nickanchor
      set %clones %clones $ialchan(%naddress,$chan,%pointer).nick
      inc %pointer 1
      if (%pointer <= $ialchan(%naddress,$chan,0)) { goto nickanchor }
      if (%cs_affectsregular [ $+ [ $chan ] ] != $null) { goto skip }
      if (thechosen isin $level($address($nick,5))) { goto skip }
      if ($gettok(%clones,0,32) <= $calc(( [ %cs_maxclones [ $+ [ $chan ] ] ] ) + 1 )) { goto skip }
      if (%cs_currentaction [ $+ [ $chan ] ] == echo) { echo $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) }
      if (%cs_currentaction [ $+ [ $chan ] ] == $null) { echo $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) }
      if ($mid($level($nick),1,4) == 1002) { .quote notice $nick :4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) %kick.logo | .quote notice $nick :6Clone Protection Listemdesin %kick.logo | goto skip }
      if ($mid($level($address($nick,2)),1,4) == 1002) { .quote notice $nick :4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  | .quote notice $nick :6Clone Protection Listemdesin %kick.logo | goto skip }
      if (%cs_currentaction [ $+ [ $chan ] ] == say) { msg $chan 4Clone Tespit EdiLdi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if (%cs_currentaction [ $+ [ $chan ] ] == notice) { .notice $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if (%cs_currentaction [ $+ [ $chan ] ] == onotice) { /opnot $chan 2 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if ($me isop $chan) {
        if (%naddress iswm $address($me,5)) { goto skip }
        if (%cs_currentaction [ $+ [ $chan ] ] == kick) { kick $chan $nick clone $+ $chr(2) $+ $chr(91) $+ $chr(2) $+ $chr(31) $+ Otomatik-Kick $+ $chr(31) $+ $chr(2) $+ $chr(93) $+ $chr(2) %kick.logo }
        if (%cs_currentaction [ $+ [ $chan ] ] == ban) { mode $chan +b %naddress }
        if (%cs_currentaction [ $+ [ $chan ] ] == kickban) { mode $chan +b %naddress | kick $chan $nick clone $+ $chr(2) $+ $chr(91) $+ $chr(2) $+ $chr(31) $+ Otomatik-KickBan $+ $chr(31) $+ $chr(2) $+ $chr(93) $+ $chr(2)  }
      }
      :skip
      unset %clones %naddress
    }
  }
  unset %clones %naddress
}
#onjoin end 

/scan komutu hangi kanalda kullanılırsa o kanalda tarama yapmaktaydı.
dialoga ekleyince doğal olarak hangi kanalda tarama yapacağı belirtilmediğinden, @Clones penceresi boş çıkmaktaydı.
ben basit bir çözüm getirdim
kodu böyle değiştirmen yeterli.
dialog eklerken de
mesela diyelimki clone tarama did'i 147

if ($did == 147) { /scan }

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Cevapla

Etiketler
clone, mirc download, mirc indir, sorunu, taramasi, taraması

« önceki Konu | sonraki Konu »

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

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

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Clone Koruması Sorunu KiLLed mIRC Scripting Sorunları 2 02 Aralık 2012 10:24
Clone Sorunu MoonsheLL IRCServices 3 25 Ağustos 2008 03:17
Clone Taraması Kan mIRC Scripting Hazır Kodlar 5 07 Ekim 2007 10:41
clone taraması Absolve mIRC Scripting Sorunları 3 11 Ekim 2006 21:14




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org