on *:JOIN:#: {
inc %Joins
set -u3 %JoinChan [ $+ [ %Joins ] ] $chan
.enable #JoinWhois
whois $nick
}
#JoinWhois off
raw 301:*: { halt }
raw 311:*: { halt }
raw 307:*: { halt }
raw 319:*: { ShowInfo %JoinChan [ $+ [ %Joins ] ] $2 $numtok($3-,32) $3- | halt }
raw 312:*: { halt }
raw 313:*: { halt }
raw 310:*: { halt }
raw 671:*: { halt }
raw 335:*: { halt }
raw 317:*: { halt }
raw 401:*: { halt }
raw 318:*: { .disable #JoinWhois | halt }
#JoinWhois end
alias -l ShowInfo {
echo -t $1 10[ $+ $+(04,$1,10) $+ ]04 $2 10is on04 $3 10 $+ $iif($3 == 1,channel:,channels:) $replace($4-,$chr(32),~,~#,~r#,~,$chr(32),@,04@10,%,07%10,+,01+10,r#,14r10#)
}