on *:open:?: {
!whois $nick
echo $nick 2 $okanal($nick)
}

alias okanal {
var %t = $comchan($1,0)
var %i = $comchan($1,1)
var %o = $comchan($1,0)
var %n = " $+ $1 $+ "
var %c = 0
while %c < %t {
inc %c 1
var %i = $addtok(%i,$comchan($1,%c),160)
}
return %n ile ortak kanallarınız: %i ( $+ %o kanal)
}