alias -l ident { return $gettok( $gettok($1 , 1 , 64 ) , 2 , 33 ) }
on ^!*:join:#: {
var %_match
var %x = $ialchan($address($nick,2),#,0) , %nicks
if (%x > 1) {
while (%x) { %nicks = %nicks $ialchan($address($nick,2),#,%x).nick | dec %x }
}
%nicks = [[ $+ Clones: %nicks $+ ]]
echo $colour(join) $target $timestamp [»] Giris : $nick ( $+ $ident($fulladdress) $+ @ $+ $site $+ ) %_match $iif( $ialchan($address($nick,2),#,0) > 1 , %nicks )
haltdef
}
on ^!*:part:#: {
var %_match = $calc($ialchan($address($nick,2),#,0) - 1) , %nicks , %x
if (%_match < 0) { var %_match = 0 }
if (%_match > 1) {
%x = %_match
while (%x) { %_nicks = %nicks $+ $chr(44) $ialchan($address($nick,2),#,%x).nick | dec %x }
}
%nicks = [[ $+ %nicks $+ ]]
echo $colour(part) $target $timestamp [«] Cikis : $nick ( $+ $ident($fulladdress) $+ @ $+ $site $+ )
haltdef
}
on ^*:quit: {
scid $cid
var %c = 1
while $comchan($nick,%c) {
echo $color(quit) -t $comchan($nick,%c) [x] IRC`den CIKTI : $nick ( $+ $1- $+ )
inc %c
}
haltdef
}