;;@Giris/Cikis Penceresinde veya menual pencerede görünen 
; 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)) http://www.sohbet.com/rules
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))
}
}