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/)
-   -   Bir Tarama Yardımı (https://www.ircforumlari.net/mirc-scripting-sorunlari/6945-bir-tarama-yardimi.html)

Deniz 04 Kasım 2005 18:14

alias Clonescan {
.unset %
cs.*
.
set %cs.chan #
.who #
.timer 1 4 /scan2
}
alias scan2 {
.echo -
s # kanalı için clone scan...
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
.echo -s $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 %4$s $address($nick(#,%cs.a),2) %4$s )
.set %cs.eklenen $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick
.set %cs.nickler $addtok(%cs.nickler,%cs.eklenen,32)
dec %cs.c 1
if (%cs.c == 0) { echo -s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
goto l
}
:
next
dec
%cs.a 1
if (%cs.a != 0) { goto loop }
if (%
cs.d == $null) { echo -s Hiç CLone buLunamadı... }
.echo -
s 4 Eğer cL0ne'u olanlara ceza vermek istiyorsanız (Kick+Ban), F5 e basınız!.. cL0ne'Lar:14 %cs.nickler
halt
}
alias F5 {
%
cs.i = 0
while ($gettok(%cs.nickler,0,32) > %cs.i) {
.
inc %cs.i 1
%cs.atilan = $gettok(%cs.nickler,%cs.i,32)
mode %cs.chan +b $address(%cs.atilan,2)
kick %cs.chan %cs.atilan cL0ne Yasak!..
}
halt

Ben Cloneye Ayrı Bir Yorum getirmek İstiorum Mesela Cloneler Olduu Zaman Tek Bir KAnalda Bana Msg Olarak Gelsin Örneğin a Kanalında Ve Clone SAyısı 3 ü Geçtii Zaman Zline Atayım Sebebi Clonesin İşte :) Olsun Ama İdentinde Helper Yazanları Atmasın Ve Remote X Kanalında İşlemesin

CoCoRiCo 04 Kasım 2005 18:39

yol göstermesi acısından sana yardımı olur..
if ($chan = #x && *help* iswm $address($nick,5)) { return }


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk