;;@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))
}
}