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

 
on *:active:?:{ if (!$eval(%4$s(%,Query.Opened.,$active),2)) { set %4$s(%,Query.Opened.,$active) yes | !whois $active } }
on *:close:?:if ($eval(%4$s(%,Query.Opened.,$target),2)) { unset %4$s(%,Query.Opened.,$target) }