©º©º®î©º Nickli Üyeden Alıntı (Mesaj 21825)

;;@Giris/Cikis Penceresinde veya menual pencerede görünen
;[23:36] *** Notice -- Client connecting on port 6669: Auth ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [clients]
;[23:36] *** Notice -- Client exiting: Auth ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [Quit]
; giriş ve cıkışlar gibi ip lere tek tık ile K:line atar..

on ^1:SNOTICE:*:{
if (exiting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 4 -t @Giris/Cikis Çıkış : $1- | halt
}
if (Connecting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 3 -t @Giris/Cikis Giriş : $1- | halt
}
halt
}
on ^1:HOTLINK:*.*.*:*:{
if ( $active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,2)
return $1
}
}
halt
}
on *:HOTLINK:*.*.*:*:{
if ($active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,1)
}
}
}

alias -l X:CoCoRiCo {
if ($2 = 1 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) - 1 )
;S:ban secenegi (Kline)
.Kline $+(*,$left(%q,%x)) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
echo 4:lined ip $+(*,$left(%q,%x))
}
if ($2 = 2 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) - 1 )
Titlebar: K:LINED EDILECEK! $+(*,$left(%q,%x))
}
}