Clone Taramasına eklenti. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

High · 13 Aralık 2020, 19:06

Dipnot Mesajı: on *:load:{
if ($ial == $true) {
var %a = 1, %b
while ($scon(%a)) {
.scid $v1
var %x = 1, %y
while ($chan(%x)) { %y = $v1 | if ($chan(%y).ial == $false) { who %y } | inc %x }
inc %a
}
.scid -r
}
echo -a 4[Clonescan] 1Tarama verileri yüklendi .
}
on me:*:join:#:{ who # }
raw 352:*:{ halt }
raw 315:*:{ halt }
;

#thetara on

menu channel {
-
$iif($server,Clone Tarayıcı) { thetara # }
-
}

alias thetara {
tokenize 32 $iif($1 ischan,$1,$iif($active ischan,$active))
if ($1 && $server) {
echo -a Clone Taraması sonuçları yansıtılıyor : $1 $+ ...
var %x 0 , %s 0 , %c 0
while ($nick($1,%x)) {
var %x %x + 1 , %n $v1 , %a $address($v1,2)
if (!$var($+(%,Match.,%a),1) && $ialchan(%a,$1,0) > 1) { var %s %s + 1 , %c %c + $v1 , % $+ [ Match. $+ [ %a ] ] 1 | echo -a $+([,%s,]) %a $+($chr(40),$regsubex($mid($str($chr(32),$v1),2),//g,$ialchan(%a, [ $1 ] ,\n).nick),$chr(41)) }
}
echo -a 4[Clones] $iif(!%s,Clone Bulunamadı . $1 $+ .,10Clone Bulundu :4 %c - 10Clone Bulunan Uzantı:4 %s - 2 $1 10kanalındaki ortalama :4 %c $+ / $+ $nick($1,0) $+($chr(40),$round($calc(%c / $nick($1,0) * 100),2),%,$chr(41)) The Control Systems)
}
}
#thetara end

Arkadaşlar KOD kime ait bilgim yok. Eski bi Clone taraması kodu. Bu Kod normalde kanala yansıtıyor idi taramayı. echo -a yaparak kendim görüyorum fakat istediğim. Bu KOD'a muaf host eklemek ve tarama sonuçlarını CloneList adı altında ayrı pencere de göstermesi. Şimdiden teşekkürler.

diEfoRyoU · 13 Aralık 2020, 20:16

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

if ($1 && $server) {

hemen altına

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

$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List),window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List)

ekle daha sonra echo -a yazan kısımları echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List olarak düzenle

muaf host eklemek için de

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

var %x %x + 1 , %n $v1 , %a $address($v1,2)

kısmını da

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

var %x %x + 1 , %n $v1 , %a $iif(!$regex($address(%n,2),/(admin|oper)/i),$address(%n,2))

şeklinde değiştir.
Kolay gelsin

High · 13 Aralık 2020, 21:45

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , çok sağ ol. Gerekli değişiklikleri yapıyorum (;

High · 29 Ocak 2021, 19:17

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], hocamın dokunuşundan sonra ki son hali KOD'un aşağıda'dır. Belki kullanmak isteyen olursa diye ;

Dipnot Mesajı: on *:load:{
if ($ial == $true) {
var %a = 1, %b
while ($scon(%a)) {
.scid $v1
var %x = 1, %y
while ($chan(%x)) { %y = $v1 | if ($chan(%y).ial == $false) { who %y } | inc %x }
inc %a
}
.scid -r
}
echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List 4[Clonescan] 1Tarama verileri yüklendi .
}
on me:*:join:#:{ who # }
raw 352:*:{ halt }
raw 315:*:{ halt }
;

#thetara on

menu channel {
-
$iif($server,Clone Tarayıcı) { thetara # }
-
}

alias thetara {
tokenize 32 $iif($1 ischan,$1,$iif($active ischan,$active))
if ($1 && $server) {
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List),window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List)
echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List Clone Taraması sonuçları yansıtılıyor : $1 $+ ...
var %x 0 , %s 0 , %c 0
while ($nick($1,%x)) {
var %x %x + 1 , %n $v1 , %a $iif(!$regex($address(%n,2),/(admin|oper)/i),$address(%n,2))
if (!$var($+(%,Match.,%a),1) && $ialchan(%a,$1,0) > 1) { var %s %s + 1 , %c %c + $v1 , % $+ [ Match. $+ [ %a ] ] 1 | echo -a $+([,%s,]) %a $+($chr(40),$regsubex($mid($str($chr(32),$v1),2),//g,$ialchan(%a, [ $1 ] ,\n).nick),$chr(41)) }
}
echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List 4[Clones] $iif(!%s,Clone Bulunamadı . $1 $+ .,10Clone Bulundu :4 %c - 10Clone Bulunan Uzantı:4 %s - 2 $1 10kanalındaki ortalama :4 %c $+ / $+ $nick($1,0) $+($chr(40),$round($calc(%c / $nick($1,0) * 100),2),%,$chr(41)) The Control Systems)
}
}
#thetara end

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
"Topuk kanı taramasına immün yetmezlik de konulsun"	Sanem	Sağlık Köşesi	0	13 Nisan 2018 13:47
Eklenti – Plugin Nedir ? Eklenti – Plugin Yazarak (Kodlayarak) Para Kazan	duhan05	İnternetten Para Kazanma Yolları	0	11 Mayıs 2013 13:43
Çok eklenti = çok sorun!	Deep	Bilgisayar Donanımı	0	02 Mayıs 2012 16:56
@clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin.	DarK^	mIRC Scripting Sorunları	8	22 Ekim 2008 17:13
Clone Gostergesi / Clone Bans	morveotesii	mIRC Scripting Sorunları	3	23 Şubat 2006 16:01

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.