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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Eylül 2009, 17:47   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
sağ tuş clone




öncelikle aranıza yeni katıldım selamun aleyküm
benim aradığım sey nick listesinde bir nicki sağ tıkladıpımda aynı kanalda clone olup olmadığı mesela sağ tıklayınca clone 2 -3 -4 kac kışıyse yazması var mı böyle bir imkan

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 07 Eylül 2009, 22:25   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




cevap yok mu arkadaşlar acil lazımdı

 
Alıntı ile Cevapla

Alt 08 Eylül 2009, 21:24   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu nicklist {
  -
  .
$iif($ialchan($address($$1,2),#,0) > 1,clones( $+ $ialchan($address($$1,2),#,0) $+ ),$style(2) cloneyok)
  
.$address($$1,2):echo -%cln adet clone var .
  .-
  .
$ialchan($address($$1,2),#,1).nick:w $ialchan($address($$1,2),#,1).nick
  
.$ialchan($address($$1,2),#,2).nick:w $ialchan($address($$1,2),#,2).nick
  
.$ialchan($address($$1,2),#,3).nick:w $ialchan($address($$1,2),#,3).nick
  
.$ialchan($address($$1,2),#,4).nick:w $ialchan($address($$1,2),#,4).nick
  
.$ialchan($address($$1,2),#,5).nick:w $ialchan($address($$1,2),#,5).nick
  
.$iif($ialchan($address($$1,2),#,0) > 5,Daha Fazlası icin clone taraması yapın.):echo -a clone taraması yapın
  
.-
  .
Ban Kick mode # +b $address($$1,2) | var %a $ialchan($address($$1,2),#,0) | while %a { kick # $ialchan($address($$1,2),#,%a).nick | dec %a }
  
.-
  -


bu komutta eksik nedir arkadaşlar çalışmıyo bir turlu normalde nicki sağ tıklayınca kaç clone olduğunu soylemesi lazım

 
Alıntı ile Cevapla

Alt 09 Eylül 2009, 01:07   #4
Çevrimdışı
rX
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




Bu whois kodlarını remotenize ekleyin whois çektiginde clonlarını gösterir kırmızı ile işaretledim kodda clon yerlerini, diğer bir code var uğraştırıyor vaktim kısıtlı oldugu için bununla idare et şimdilik.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
raw 311:*:{ echo -a 4-------------------------14------------------------ echo -a 4» Nick: $2 echo -a 4» FullName: $6- echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4 var %clone = $kanalclone($2) if (%clone == $null) echo -a 4» Kanaldaki Klonları: (14 Clone yok! 4) else echo -a 4» Klonları: 4( $+ $numtok(%clone,44) $+ 4) 1kişi:12 %clone haltdef } alias kanalclone { if ($ial($address($1,2),0) == 1) return var %nickler = 0 | var %clone = $1 while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) } return %clone } raw 338:*:{ haltdef echo -a 4» Gerçek İp Adresi: $3 echo -a 4» Gerçek İp: $4 } raw 312:*:{ haltdef echo -a 4» Bağlı Olduğu Server: $3 } raw 313:*: { haltdef echo -a 4» Network Özelliği: $3 $4 $5 $6 $7 $8 $9 } raw 307:*: { haltdef echo -a 4» Kayıt Durumu: Bu Nick Kayıtlı ve İdentify Edilmiştir. } raw 314:*:{ haltdef echo -a 4————————114——————— echo -a 4» Nick: $2 echo -a 4» FullName: $6- echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4 } raw 317:*:{ haltdef %idle = $replace($duration($3),secs, saniye,sec, saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,day s,gün,day,gün,wks,hafta,wk,hafta) %baglanis = $replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Ç arşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pa zar,jan,Ocak,Feb,Şubat,Mar,Mart,apr,Nisan,May,Mayı s,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct ,Ekim,Nov,Kasım,Dec,Aralık) echo -a 4» Bağlandığı Zaman: %baglanis echo -a 4» Boş Olduğu Süre: %idle echo -a 4» Bağlandıktan Sonra Geçen Süre: $duration($calc($ctime - $4)) } raw 318:*:{ haltdef echo -a 4———————–14——————— } raw 319:*:{ haltdef echo -a 4» Kanalları: $3- } raw 320:*:{ haltdef echo -a 4» Swhois: $3- } raw 378:*:{ haltdef echo -a 4» Gerçek Ip Adresi: $3 } raw 379:*:{ haltdef echo -a 4» Nick modeleri: $3- } raw 671:*:{ haltdef echo -a 4» Bağlantı: $3- } on *^:ERROR:*Excess Flood*:{ echo -s 14~ 1Flood yaptığınız için server ile bağlantınız koptu. halt } on *^:ERROR:*has been throttled*:{ echo -s 14~ 1Serverda clone koruması var. Tekrar bağlanmak için bekleyiniz, otomatik bağlanacaksınız. halt } on *^:ERROR:*Kill By*:{ echo -s 14~ 4 $+ $gettok($4,1,33) 1Tarafından Kill Yediniz! (Sebep: $5- ) halt } on *^:ERROR:*BANNED*:{ echo 12 -a 14~ 1Server'dan kline yediniz. (Banlandınız) ( $+ $9- $+ ) $chr(91) $+ $server $+ $chr(93) | halt halt } on ^*:PART:#: { echo $colour(part) $chan *** Çıkış: $nick ( $+ $address $+ ) # | updatenl | haltdef } on ^*:JOIN:#: { echo $colour(join) $chan *** Giriş: $nick ( $+ $address $+ ) # | updatenl | haltdef } on *^:JOiN:#:{ if ($nick == $me) { echo $chan %giris2 6[ 4 $+ # 2Kanalına Girdiniz 6] | halt } } raw 332:* { echo $2 14~ 12Kanal Başlığı1: $3- halt } raw 333:* { echo $2 14~ 12Kanalın Kuruluş Tarihi1 $asctime($4) echo $2 14~ 12Kanal Başlığını Yazan1: $3 halt } raw 366:*: { echo 10 $2 14~ 12Kanaldaki Op Sayısı :1 $opnick($2,0) 12Voice Sayısı:1 $vnick($2,0) 12Toplam:1 $nick($2,0) 12Kişi Bulunmaktadır } echo -s 10 $str(¯,60) halt }

Iyi Forumlar.

 
Alıntı ile Cevapla

Alt 09 Eylül 2009, 02:55   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




sağol guzelmiş ama benim istediğim bu değil whois cekmeden nıckı sağ tıklayınca gostermese
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 02 Kasım 2009, 21:52   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




sihaye Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu nicklist {
  -
  .
$iif($ialchan($address($$1,2),#,0) > 1,clones( $+ $ialchan($address($$1,2),#,0) $+ ),$style(2) cloneyok)
  
.$address($$1,2):echo -%cln adet clone var .
  .-
  .
$ialchan($address($$1,2),#,1).nick:w $ialchan($address($$1,2),#,1).nick
  
.$ialchan($address($$1,2),#,2).nick:w $ialchan($address($$1,2),#,2).nick
  
.$ialchan($address($$1,2),#,3).nick:w $ialchan($address($$1,2),#,3).nick
  
.$ialchan($address($$1,2),#,4).nick:w $ialchan($address($$1,2),#,4).nick
  
.$ialchan($address($$1,2),#,5).nick:w $ialchan($address($$1,2),#,5).nick
  
.$iif($ialchan($address($$1,2),#,0) > 5,Daha Fazlası icin clone taraması yapın.):echo -a clone taraması yapın
  
.-
  .
Ban Kick mode # +b $address($$1,2) | var %a $ialchan($address($$1,2),#,0) | while %a { kick # $ialchan($address($$1,2),#,%a).nick | dec %a }
  
.-
  -


bu komutta eksik nedir arkadaşlar çalışmıyo bir turlu normalde nicki sağ tıklayınca kaç clone olduğunu soylemesi lazım




Bu komutta eksik yer neresi acaba
arkadaşında belirttiği gibi menu de cıkmıyor acaba düzeltebilirmiyiz ???

 
Alıntı ile Cevapla

Alt 03 Kasım 2009, 03:29   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




o kod'da eksik olanla uğraşmasanız da size Alience'nin yazdığı bi clone tarama addon'undan bahsetsem ?

kullandığım kadarıyla kısaca anlatıyım..

manuel olarak tarama yapabilirsiniz..
kanala giren ve çıkan eş clone'leri görebilirsiniz..
clone olan nickleri nick listesinde farklı bi renkle görebilirsiniz..
clone olan nickin üzerinde sağ tıklayıp hangi nicklerle clone oldugunu görebilirsiniz..
clone olan nickin üzerinde sağ tıklayıp ban atabilirsiniz..

zamanında kullanmış oldugum addon'lardan biriydi..

ihtiyacı olan için ve denemek isterseniz diye sizler için ekliyorum arkadaslar..

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;Codded By Alience 
;Fin 9/1/2005 17:45

on 
*:load: { 
  if (
$version 6) { echo -a Dikkat Mirc versiyonunuz 6 dan küçük addon düzgün çalışmayabilir.! }
  
writeini $+(",$scriptdir,clonetool.ini"main $chr(354.0.1.1.0
  writeini 
$+(",$scriptdir,clonetool.ini"main genel 0.0.0.0.1.4.1.[k]5>[k]7>[k]5> [k]7[[k]5[b]C[b]lones[k]7][k]5: [clone].1.[k]5<[k]7<[k]5< [k]7[[k]5[b]C[b]lones[k]7][k]5: [clone].250.1
  
echo -a Addonu /clonetool yazarak çalıştırabilirsiniz
  
echo -.. Eğer kanal menüsünü iptal etmişseniz veya addonu kapamışsanız 
  
echo -.. ana menüden veya /clonetool komutu ile ancak çalıştırabilirsiniz.
  echo 
-a Addonu /clonetool clonelister komutu ile clone list dialoğunu çalıştırırsınız
}
on *:start: { if (!$hget(clonetool)) { hmake clonetool 250 } | hload -i clonetool $+(",$scriptdir,clonetool.ini"main }
on *:exit: { hsave -i clonetool $+(",$scriptdir,clonetool.ini"main }

alias clonetool {
  if (!
$isid) {
    if (!$
1) { if (!$dialog(clonetool)) { dialog -m clonetool dlgclonetool } }
    if ($
== clonelister) { if (!$dialog(clonelister)) { dialog -m clonelister dlgclonelister } }
  }
}
dialog dlgclonetool {
  
title "Clonetool - Ayarlar"
  
size --1 207 164
  option dbu
  tab 
"Genel"1, --16 262 183
  check 
"Kanal menüsünde Clones'i iptal et"65 5 93 10tab 1
  check 
"Nick menüsündeki Clones'i iptal et"75 16 93 9tab 1
  check 
"Nick list'te clonu olan nickleri renkli göster"85 26 109 10tab 1
  combo 9
115 24 25 150tab 1 size ,drop
  check 
"Join'lerde cloneleri göster."105 36 75 10tab 1
  edit 
""1146 46 140 10tab 1
  check 
"Part ve Quit'lerde cloneleri göster."125 57 105 10tab 1
  edit 
""1346 68 140 10tab 1
  edit 
""1434 82 16 10tab 1
  check 
"Kanal listesi belirtilenden büyükse ial'i çekmek isteyip istemediğimi sor."155 109 171 9tab 1
  text 
"Gösterme stili:"1611 47 34 8tab 1
  text 
"Gösterme stili:"1711 69 34 8tab 1
  text 
"kanal listesi "185 83 29 8tab 1
  text 
"kişiden büyükse ial (internal address list)'i yükleme. Not: laga girersiniz, eğer yüklenmezse cloner çalışmaz tercih sizin."1952 83 112 22tab 1
  tab 
"Kanal"2
  check 
"Yetkim olan tüm kanallarda aktif et"201 1 94 10tab 2
  check 
"Kanala girince otomatik tarama yap ve cloneleri banla"211 11 135 7tab 2
  edit 
""2230 20 13 10tab 2
  check 
"Op"2313 39 20 10tab 2
  check 
"Halfop"2436 39 27 10tab 2
  check 
"Voice"2568 39 27 10tab 2
  edit 
""2623 49 112 10tab 2
  
list 272 59 204 70tab 2 size
  text 
"'dan çoksa otomatik banla"3243 21 66 8tab 2
  text 
"Clone'lar"317 21 22 8tab 2
  text 
"Kanalda clonelerden aşağıdaki yetkilere sahip olanları gözardı et"337 30 152 9tab 2
  text 
"Kanal:"346 50 16 8tab 2
  button 
"&Ekle"28177 4 28 12tab 2
  button 
"&Düzelt"29177 16 28 12tab 2
  button 
"&Sil"30177 28 28 12tab 2
  check 
"Addon'u kapat"32 154 47 10
  radio 
"Genel Ayarlar"41 136 50 10push
  radio 
"Kanal Ayarları"552 136 50 10push
  box 
""35, -5 128 145 4
  button 
"iptal"36148 151 28 12cancel
  button 
"Tamam"37178 151 28 12ok

}
on *:dialog:clonetool:*:*: {
  if (
$devent == init) {
    var %
| while (%<= 15) { did -a $dname 9 %inc %i 1 }
    
tokenize 46 $replace($hget(clonetool,genel),[comma],$chr(44),[b],,[k],,[o],,[u],,[r],)
    if ($
== 1) { did -c $dname 3 }
    
did -c $dname $iif($== 1,4,5)
    if (
$did(5).state == 1) { .timer -m 1 2 did -f $dname 2 }
    var %
| while (%<= 7) { if ([ $ $+  [ %] ] >= 1) { did -c $dname $calc(%3$calc($eval([ $ $+  [ %] ]) + 1) } | inc %i 1 }
    var %
| while (%<= $hget(clonetool,0).item) { if (($left($hget(clonetool,%i).item,1) == $chr(35)) && ($right($hget(clonetool,%i).item,-1) != $null)) { did -a $dname 27 $hget(clonetool,%i).item } | inc %i 1 }
    
did -ra $dname 11 $8
    
if ($== 1) { did -c $dname 12 }
    
did -ra $dname 13 $10
    did 
-ra $dname 14 $11
    
if ($12 == 1) { did -c $dname 15 }
    if (
$did(8).state == 0) { did -b $dname 9 }
    if (
$hget(clonetool,$chr(35)) != $null) {
      
did -b $dname 34,26,27,28,29,30
      tokenize 46 $hget
(clonetool,$chr(35))
      if ($
== 1) { did -c $dname 21 }
      if ($
== 1) { did -c $dname 23 }
      if ($
== 1) { did -c $dname 24 }
      if ($
== 1) { did -c $dname 25 }
      
did -ra $dname 22 $1
      did 
-c $dname 20
    
}
  }
  if (
$devent == edit) {
    if ((
$did == 14) && ($right($did(14),1) !isnum)) { did -ra $dname 14 $left($did(14),-1) }
    if ((
$did == 22) && ($right($did(22),1) !isnum)) { did -ra $dname 22 $left($did(22),-1) }
    if ((
$did == 26) && ($left($did(26),1) != $chr(35))) { did -ra $dname 26 $+($chr(35),$did(26)) }
  }
  if (
$devent == sclick) {
    if (
$did == 4) { did -f $dname 1 }
    if (
$did == 5) { did -f $dname 2 }
    if (
$did == 8) { did $iif($did(8).state == 1,-e,-b$dname 9 }
    if (
$did == 20) {
      if (
$did(20).state == 1) { did -b $dname 34,26,27,28,29,30 }
      if (
$did(20).state == 0) { did -e $dname 34,26,27,28,29,30 }
    }
    if (
$did == 27) {
      
did -u $dname 21,23,24,25
      
if ($gettok($hget(clonetool,$did(27).seltext),2,46) == 1) { did -c $dname 21 }
      if (
$gettok($hget(clonetool,$did(27).seltext),3,46) == 1) { did -c $dname 23 }
      if (
$gettok($hget(clonetool,$did(27).seltext),4,46) == 1) { did -c $dname 24 }
      if (
$gettok($hget(clonetool,$did(27).seltext),5,46) == 1) { did -c $dname 25 }
      
did -ra $dname 22 $gettok($hget(clonetool,$did(27).seltext),1,46)
      
did -ra $dname 26 $did(27).seltext
    
}
    if (
$did == 28) {
      if ((
$did(26) == $chr(35)) || ($did(26) == $null) || ($did(22) == $null) || ($hget(clonetool,$did(26)) != $null)) { halt }
      
did -a $dname 27 $did(26) | did -f $dname 26 did -c $dname 27 $did(27).lines
      hadd clonetool $did
(26) $+($did(22),.,$did(21).state,.,$did(23).state,.,$did(24).state,.,$did(25).state)
    }
    if ((
$did == 29) && ($did(27).sel != $null)) {
      if ((
$did(26) == $chr(35)) || ($did(26) == $null) || ($did(22) == $null)) { halt }
      var %
confirmation $hget(clonetool,$did(27).seltext)
      
hdel clonetool $did(27).seltext
      
if ($hget(clonetool,$did(26)) != $null) { hadd clonetool $did(27).seltext %confirmation halt 
      
hadd clonetool $did(26) $+($did(22),.,$did(21).state,.,$did(23).state,.,$did(24).state,.,$did(25).state)
      var %
lastsel $did(27).sel did -o $dname 27 $did(27).sel $did(26) | did -c $dname 27 %lastsel
    
}
    if ((
$did == 30) && ($did(27).sel != $null)) {  hdel clonetool $did(27).seltext did -d $dname 27 $did(27).sel did -c $dname 27 1 }
    if (
$did == 37) { 
      
hadd clonetool genel $replace($+($did(3).state,.,$did(4).state,.,$did(6).state,.,$did(7).state,.,$did(8).state,.,$did(9),.,$did(10).state,.,$remove($did(11),$chr(46)),.,$did(12).state,.,$remove($did(13),$chr(46)),.,$did(14),.,$did(15).state),,[b],,[k],,[o],,[u],,[r],$chr(44),[comma])
      if (
$did(20).state == 1) { 
        if (
$did(22) == $null) { halt }
        
hadd clonetool $chr(35) $+($did(22),.,$did(21).state,.,$did(23).state,.,$did(24).state,.,$did(25).state)
      }
      if (
$did(20).state == 0) { hdel clonetool $chr(35) }
      if (
$did(3).state == 1) { .disable #clonetool }
      
if ($did(3).state == 0) { .enable #clonetool }
    
}
  } 
}
alias clonelister_alias {
  if ($
!= $null) var %kb~ $| var %= $1,%= $| var %mt $iif(%m isnum,%m,%§.clonetype), %$ticks |  var %1, %mask, %found, %found2 
  
while ($address($nick(%c,%i,a),%mt)) { %mask $ifmatch | if ($ialchan(%mask,%c,2)) { if ($len(%found) <= 850) %found $addtok(%found,%mask,32) | else %found2 $addtok(%found2,%mask,32) } | inc %}
  if (%
found == $null) { if (($dialog(clonelister)) && (%kb~ == $null)) { did -ra clonelister 3 Hiçbir sonuç bulunamadı $+($calc($ticks - %a),ms) } | return } | :
  
var %| while ($gettok(%found,%n,32)) { var %$ifmatch, %nicks, %| while ($ialchan(%g,%c,%v).nick) { %nicks = %nicks $ifmatch inc %
    if ((
$dialog(clonelister)) && (%kb~ == $null)) { did -a clonelister 1 $+([,$numtok(%nicks,32),]) %: %nicks 
    if (((%
kb~ != $null) && ($numtok(%nicks,32) >= %kb~)) && (($me isop %c) || ($me ishop %c))) { 
      
mode %+%|  var %kbi 
      
while ($gettok(%nicks,%kbi,32)) { 
        if (
$ifmatch ison %c) { 
          if (($
== 1) && ($gettok(%nicks,%kbi,32isop %c)) { goto cloend }
          if (($
== 1) && ($gettok(%nicks,%kbi,32ishop %c)) { goto cloend }
          if (($
== 1) && ($gettok(%nicks,%kbi,32isvop %c)) { goto cloend }
          
kick %c $gettok(%nicks,%kbi,32$numtok(%nicks,32Clones found on host %
        

        :
cloend
        inc 
%kbi 1 
      
}
    }
    unset %
nicks  inc %
  
}
  if (%
found2) { %found = %found2 | unset %found2 | goto }
  if ((
$dialog(clonelister)) && (%kb~ == $null)) { did -ra clonelister 3  Tarama işlemi  $+($calc($ticks - %a),msde tamamlandı... }
}

dialog dlgclonelister {
  
title "Clonetool - Liste"
  
size --1 250 151
  option dbu
  
list 10 13 219 129size ,vsbar ,hsbar
  text 
"Status:"21 143 17 8
  text 
"Hazır..."320 143 198 8
  combo 4
38 1 100 140size drop
  text 
"Taranacak tip:"51 2 36 8
  button 
"Tara"6220 1 30 10
  text 
"Kanal:"7140 2 17 8
  combo 8
158 1 60 140size drop
  button 
"&Kick"9220 14 30 10
  button 
"&Ban/Kick"10220 24 30 10
  button 
"Kapat"11220 141 30 10cancel
}
on *:dialog:clonelister:*:*: {
  if (
$devent == init) {
    
did -a $dname 4 0: *!user@host.domain.net did -a $dname 4  1: *!*user@host.domain.net did -a $dname 4  2: *!*@host.domain.net did -a $dname 4  3: *!*user@*.host.domain.net did -a $dname 4 4: *!*@*.host.domain.net did -c $dname 4 3
    
var %| while ($chan(%i)) { did -a $dname 8 $chan(%i) | if ($chan(%i) == $active) { did -c $dname 8 %} | inc %i 1 }
  }
  if (
$devent == sclick) {
    if (
$did == 6) { did -r $dname 1 | $+($dname,_alias$did(8$calc($did(4).sel 1) }
    if ((
$did == 9) && ($did(1).sel != $null)) { var %| while ($gettok($gettok($did(1).seltext,2,58),%i,32)) { if (($ifmatch ison $did(8)) && (($me isop $did(8)) || ($me ishop $did(8)))) { kick $did(8$gettok($gettok($did(1).seltext,2,58),%i,32$remove($gettok($gettok($did(1).seltext,1,58),1,32),[,]) Clone found on host $gettok($gettok($did(1).seltext,1,58),2,32) } | inc %i 1 } }
    if ((
$did == 10) && ($did(1).sel != $null)) { if (($me isop $did(8)) || ($me ishop $did(8))) { mode $did(8) +b $gettok($gettok($did(1).seltext,1,58),2,32) } | var %| while ($gettok($gettok($did(1).seltext,2,58),%i,32)) { if (($ifmatch ison $did(8)) && (($me isop $did(8)) || ($me ishop $did(8)))) { kick $did(8$gettok($gettok($did(1).seltext,2,58),%i,32$remove($gettok($gettok($did(1).seltext,1,58),1,32),[,]) Clone found on host $gettok($gettok($did(1).seltext,1,58),2,32) } | inc %i 1 } }
  }
}
menu menubar {
  -
  Clone 
Tool clonetool
  
Clone ListerClonetool Clonelister
  
-
}
#clonetool on
menu channel {
  
$iif($gettok($hget(clonetool,genel),3,46) == 0,Clones)
  .
Ayarlar clonetool
  
.-
  .
Listeleclonetool clonelister
  
.Kick Ban
  
..Clone'ler > 2 : clonelister_alias # 2 2 1 1 1
  ..Clone'
ler clonelister_alias # 2 3 1 1 1
  
..Clone'ler > 4 : clonelister_alias # 2 4 1 1 1
  ..Clone'
ler clonelister_alias # 2 5 1 1 1
}
menu nicklist {
  
$iif((($gettok($hget(clonetool,genel),4,46) == 0) && ($ialchan($address($1,2),#,0) > 1)),Clones)
  
.Listeleclonetool clonelister
  
.-
  .
$submenu($clonelists($1))
}
alias clonelists {
  if ($
<= $ialchan($address($snick($active,1),2),$active,0)) return $ialchan($address($snick($active,1),2),$active,$1).nick kick $active $ialchan($address($snick($active,1),2),$active,$1).nick Clone
  
if ($== end) return -
}

on *:join:#: {
  
var %1
  
while (%<= $ialchan($address($nick,2),$chan,0)) {
    if (
$gettok($hget(clonetool,$chr(35)),1,46) < $ialchan($address($nick,2),$chan,0)) {
      if ((
$gettok($hget(clonetool,$chr(35)),3,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isop $chan)) { goto nextgb }
      if ((
$gettok($hget(clonetool,$chr(35)),4,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick ishop $chan)) { goto nextgb }
      if ((
$gettok($hget(clonetool,$chr(35)),5,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isvoice $chan)) { goto nextgb }
      
mode $chan +b $address($nick,2) | kick $chan $ialchan($address($nick,2),$chan,%i).nick 7C5lone join!
    }
    :
nextgb
    
if (($hget(clonetool,$chr(35)) == $null) && ($gettok($hget(clonetool,$chan),1,46) < $ialchan($address($nick,2),$chan,0))) {
      if ((
$gettok($hget(clonetool,$chan),3,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isop $chan)) { goto nextch }
      if ((
$gettok($hget(clonetool,$chan),4,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick ishop $chan)) { goto nextch }
      if ((
$gettok($hget(clonetool,$chan),5,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isvoice $chan)) { goto nextch }
      
mode $chan +b $address($nick,2) | kick $chan $ialchan($address($nick,2),$chan,%i).nick 7C5lone Join!
    }
    :
nextch
    inc 
%i 1
  
}
  if ((
$gettok($hget(clonetool,genel),7,46) == 1) && ($ialchan($address($nick,2),$chan,0) > 1)) {
    var %
1, %clonetool $null
    
while (%<= $ialchan($address($nick,2),$chan,0)) {
      if (
$gettok($hget(clonetool,genel),5,46) == 1) { cline $gettok($hget(clonetool,genel),6,46$chan $ialchan($address($nick,2),$chan,%i).nick }
      if (
$len(%clonetool) < 800) { %clonetool = %clonetool $ialchan($address($nick,2),$chan,%i).nick }
      
inc %i 1
    
}
    echo 
$iif([tstampisin $gettok($hget(clonetool,genel),8,46),-t$chan $remove($replace($gettok($hget(clonetool,genel),8,46),[clone],%clonetool,[comma],$chr(44),[b],,[k],,[o],,[u],,[r],),[tstamp])
  }
}

on *:part:#: {
  
if (($gettok($hget(clonetool,genel),9,46) == 1) && ($ialchan($address($nick,2),$chan,0) > 1)) {
    var %
1, %clonetool $null
    
while (%<= $ialchan($address($nick,2),$chan,0)) {
      if (
$gettok($hget(clonetool,genel),5,46) == 1) { if ($ialchan($address($nick,2),$chan,0) <= 2) { cline $color(listbox text$chan $ialchan($address($nick,2),$chan,%i).nick } }
      if (
$len(%clonetool) < 800) { %clonetool = %clonetool $ialchan($address($nick,2),$chan,%i).nick }
      
inc %i 1
    
}
    echo 
$iif([tstampisin $gettok($hget(clonetool,genel),10,46),-t$chan $remove($replace($gettok($hget(clonetool,genel),10,46),[clone],%clonetool,[comma],$chr(44),[b],,[k],,[o],,[u],,[r],),[tstamp])
  }
}

on *:quit: {
  if (
$gettok($hget(clonetool,genel),9,46) == 1) {
    var %
1, %1, %clonetool $null
    
while (%<= $comchan($nick,0)) {
      if (
$ialchan($address($nick,2),$comchan($nick,1),0) > 1) {
        while (%
<= $ialchan($address($nick,2),$comchan($nick,%L),0)) {
          if (
$gettok($hget(clonetool,genel),5,46) == 1) { if ($ialchan($address($nick,2),$comchan($nick,%L),0) <= 2) { cline $color(listbox text$comchan($nick,%L$ialchan($address($nick,2),$comchan($nick,%L),%i).nick } }
          if (
$len(%clonetool) < 800) { %clonetool = %clonetool $ialchan($address($nick,2),$comchan($nick,%L),%i).nick }
          
inc %i 1
        
}
        echo 
$iif([tstampisin $gettok($hget(clonetool,genel),10,46),-t$comchan($nick,%L$remove($replace($gettok($hget(clonetool,genel),10,46),[clone],%clonetool,[comma],$chr(44),[b],,[k],,[o],,[u],,[r],),[tstamp])
      }
      
inc %L 1
    
}
  }
}

raw 329:*: { var %| while ([ $ $+ [ %] ] != $null) { if ([ $ $+ [ %] ] ischan) { .timer -m 1 15 raw329 [ $ $+ [ %] ] | halt  } | inc %i 1 } }
alias raw329 {
  if ((
$nick($1,0) > $gettok($hget(clonetool,genel),11,46)) && ($iif($gettok($hget(clonetool,genel),12,46) == 1,$input(Kanalın listesi $gettok($hget(clonetool,genel),11,46den fazla ial listesini bu kanal için güncellemek istiyormusunuz$crlf $+ NotEğer çekmezseniz cloner çalışmaz),$true) == $true)) {
    
set %329 $who $
  
}
  if (
$nick($1,0) <= $gettok($hget(clonetool,genel),11,46)) {  set %329 $who $}
}
raw 352:*: { if (%329) { halt } }
raw 315:*: { 
  if (
$gettok($hget(clonetool,$chr(35)),2,46) == 1) { .timer 1 5 if (($me isop $2) || ($me ishop $2)) /clonelister_alias %329 2 $gettok($hget(clonetool,$chr(35)),1,46$gettok($hget(clonetool,$chr(35)),3,46$gettok($hget(clonetool,$chr(35)),4,46$gettok($hget(clonetool,$chr(35)),5,46) | goto end }
  if (
$gettok($hget(clonetool,$2),2,46) == 1) { .timer 1 5 if (($me isop $2) || ($me ishop $2)) /clonelister_alias %329 2 $gettok($hget(clonetool,$2),1,46$gettok($hget(clonetool,$2),3,46$gettok($hget(clonetool,$2),4,46$gettok($hget(clonetool,$2),5,46) }
  :
end | unset %329 halt 

#clonetool end 


 
Alıntı ile Cevapla

Alt 03 Kasım 2009, 23:28   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




sihaye Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu nicklist {
  -
  .
$iif($ialchan($address($$1,2),#,0) > 1,clones( $+ $ialchan($address($$1,2),#,0) $+ ),$style(2) cloneyok)
  
.$address($$1,2):echo -%cln adet clone var .
  .-
  .
$ialchan($address($$1,2),#,1).nick:w $ialchan($address($$1,2),#,1).nick
  
.$ialchan($address($$1,2),#,2).nick:w $ialchan($address($$1,2),#,2).nick
  
.$ialchan($address($$1,2),#,3).nick:w $ialchan($address($$1,2),#,3).nick
  
.$ialchan($address($$1,2),#,4).nick:w $ialchan($address($$1,2),#,4).nick
  
.$ialchan($address($$1,2),#,5).nick:w $ialchan($address($$1,2),#,5).nick
  
.$iif($ialchan($address($$1,2),#,0) > 5,Daha Fazlası icin clone taraması yapın.):echo -a clone taraması yapın
  
.-
  .
Ban Kick mode # +b $address($$1,2) | var %a $ialchan($address($$1,2),#,0) | while %a { kick # $ialchan($address($$1,2),#,%a).nick | dec %a }
  
.-
  -


bu komutta eksik nedir arkadaşlar çalışmıyo bir turlu normalde nicki sağ tıklayınca kaç clone olduğunu soylemesi lazım


bu komutu düzeltebilirmiyiz Sağ tıkladığında çalışmıyor coder arkadaşlar bu kodda ki bozukluğu giderirlerse .. çok işime yarıyacak ..

 
Alıntı ile Cevapla

Alt 04 Kasım 2009, 01:46   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sağ tuş clone




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { - .$iif($ialchan($address($$1,2),#,0) > 1,clones( $+ $ialchan($address($$1,2),#,0) $+ ),$style(2) cloneyok) .$address($$1,2):echo -a %cln adet clone var . .- .$ialchan($address($$1,2),#,1).nick:w $ialchan($address($$1,2),#,1).nick .$ialchan($address($$1,2),#,2).nick:w $ialchan($address($$1,2),#,2).nick .$ialchan($address($$1,2),#,3).nick:w $ialchan($address($$1,2),#,3).nick .$ialchan($address($$1,2),#,4).nick:w $ialchan($address($$1,2),#,4).nick .$ialchan($address($$1,2),#,5).nick:w $ialchan($address($$1,2),#,5).nick .$iif($ialchan($address($$1,2),#,0) > 5,Daha Fazlası icin clone taraması yapın.):echo -a clone taraması yapın .- .Ban + Kick : mode # +b $address($$1,2) | var %a $ialchan($address($$1,2),#,0) | while %a { kick # $ialchan($address($$1,2),#,%a).nick | dec %a } .- -


Rumuza seçili olan rumuz'a, sağ tıkladığında, cloneleri, ipi vsvsvs.. çıkacaktır

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Cevapla

Etiketler
clone, mirc download, mirc indir, sad, sag, tuk, tuş


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

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 ban!! Emrax mIRC Scripting Sorunları 1 11 Haziran 2009 10:39
@clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin. DarK^ mIRC Scripting Sorunları 8 22 Ekim 2008 17:13
clone uslanmaz53 mIRC Scripting Sorunları 7 30 Nisan 2006 05:45
Clone Gostergesi / Clone Bans morveotesii mIRC Scripting Sorunları 3 23 Şubat 2006 16:01