Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias _tekle {
if ($1) {
write takip_listesi.txt $1
echo -a $1 takip listesine eklendi.
}
else {
echo -a Lütfen takip etmek istediğiniz nicki belirtin.
}
}
alias _tsil {
if (!$1) {
echo -a Silmek istediğiniz kişiyi belirtin.
}
elseif ($read(takip_listesi.txt, w, $1)) {
write -dl $+ $readn takip_listesi.txt
echo -a $1 takip listesinden silindi.
}
elseif (!$read(takip_listesi.txt, w, $1)) {
echo -a $1 takip listesinde ekli değil.
}
}
on *:snotice:*: {
if (!$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]e)) window -en @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]e
if $regex($1-,/Client\sconnecting/iS) {
var %;port $remove($7,:)
var %;ip $gettok($gettok($9,2,64),1,41)
var %file ip_log.txt
var %;t $date $+ $time
var %;n $8
write %file %;t $+ : %;n $+ : %;ip
echo -tm @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]e 2 %;n : 4 %;ip 5 %;port
if ($read(takip_listesi.txt, w, %;n)) {
echo -tm @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]e 4Takip listesinde yer alan 2 %;n 4 sunucuya giriş yaptı.
}
}
}
on ^*:hotlink:*:@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]e: {
if ($mouse.key & 1) {
if ($regex($1, /^[^:]+$/)) {
var %:nick $gettok($1,1,58)
if ($($+(%,clicked.,%:nick),2)) {
gzline %:nick : Hatalı ise bildirin.
unset $+(%,clicked.,%:nick)
echo -a GZLine komutu çalıştırıldı: %:nick
}
else {
set -u5 $+(%,clicked.,%:nick) 1
whois %:nick
echo -a Whois komutu çalıştırıldı: %:nick
}
}
}
}
Kodu kendi kullanımım için geliştirdim ilk tıklamada whois çekiyor 5 saniye içerisinde aynı tık yapılırsa gzline atıyor.