Something

alias nexus.join %:echo $+(,%::c1,-,,%::c3,-,,%::c1,-) $+(,%::c3,Created on) $+(,%::c1,:) $replace($asctime(%::text,dddd $+ $chr(44) mmmm dd hh:nn:sstt),$chr(44),$+(,%::c1,,$chr(44),),$chr(58),$+(,%::c1,,$chr(58),))
alias nexus.lusersstart {
  %:echo $+(,%::c2,$chr(91),,%::c3,/lusers,$chr(32),,%::c1,%::server,,%::c2,$chr(93),$str(—,35))
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Users,) $+(,%::c1,:,) $+(,%::c3,%::users)
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Invisible,) $+(,%::c1,:,) $+(,%::c3,%::invisible)
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Servers,) $+(,%::c1,:,) $+(,%::c3,%::value)
}
alias nexus.lusersend {
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Local Clients,) $+(,%::c1,:,) $+(,%::c3,%::users)
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Leaves,) $+(,%::c1,:,) $+(,%::c3,%::value)
  %:echo $+(,%::c2,$chr(91),,%::c3,/lusers,$chr(32),,%::c1,%::server,,%::c2,$chr(93),$str(—,35))
}
alias nexus.namesstart {
  if (!%nexus.names) { 
    %:echo $+(,%::c2,$chr(91),,%::c3,/names,$chr(32),,%::c1,%::chan,,%::c2,$chr(93),$str(—,35))
    set -u2 %nexus.names 1
  }
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,$replace($gettok(%::text,2-,32),@,$+(,%::c1,@,),+,$+(,%::c1,+,),%,$+(,%::c1,%,)))
  set -u2 %nexus.foundwho 1
}
alias nexus.namesend { %:echo $+(,%::c2,$chr(91),,%::c3,/names,$chr(32),,%::c1,%::chan,,%::c2,$chr(93),$str(—,35)) | unset %nexus.names }

alias nexus.topicstart {
  %:echo $+(,%::c2,$chr(91),,%::c3,/topic,$chr(32),,%::c1,%::nick,,%::c2,$chr(93),$str(—,35))
  %:echo $str( ,3)  $+ %::c1 $+ »  $+ %:c3 $+ Topic  $+ %::c1 $+ : %::text
}
alias nexus.topicend {
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Setby) $+(,%::c1,:,) $+(,%::c3,%::nick,) $+(,%::c3,on) $+(,%::c1,,$asctime($ctime(%::text),ddd hh:nn:sstt),) $+(,%::c2,$chr(40),,%::c1,$remove($duration($calc($ctime - $ctime(%::text))),ks,k,ays,ay,rs,r,ins,in,ecs,ec,$chr(32)),$chr(32),,%::c3,ago,%::c2,$chr(41))
  %:echo $+(,%::c2,$chr(91),,%::c3,/topic,$chr(32),,%::c1,%::chan,,%::c2,$chr(93),$str(—,35))
}
alias nexus.who {
  if (!%nexus.who) { 
    %:echo $+(,%::c2,$chr(91),,%::c3,/who,$chr(32),,%::c1,start,,%::c2,$chr(93),$str(—,35))
    set -u2 %nexus.who 1
  }
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c1,%::cmode,,%::c3,%::nick,) $+(,%::c2,$chr(40),,%::c1,%::realname,,%::c2,$chr(41),,%::c3) is $+(,$iif(%::away == H,HERE,AWAY),) on $+(,%::c1,%::wserver,) $iif(not !isin %::isoper,$+(,%::c2,$chr(40),,%::c3,IRC Operator,,%::c2,$chr(41),))
  set -u2 %nexus.foundwho 1
}
alias nexus.whoend {
  if (%nexus.foundwho) %:echo $+(,%::c2,$chr(91),,%::c3,/who,$chr(32),,%::c1,end,,%::c2,$chr(93),$str(—,35))
  else %:echo $+(,%::c1,-,,%::c3,-,,%::c1,-,) No matches for $+(,%::c2,$chr(40),,%::c1,,%::value,,%::c2,$chr(41),)
  unset %nexus.*
}
alias nexus.whoisstart {
  %:echo $+(,%::c2,$chr(91),,%::c3,/whois,$chr(32),,%::c1,%::nick,,%::c2,$chr(93),$str(—,35))
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Address,) $+(,%::c1,:,) $+(,%::c3,$replace(%::address,$chr(46),$+(,%::c1,$chr(46),,%::c3),@,$+(,%::c1,@,,%::c3))) $+(,%::c2,$chr(40),,%::c1,%::realname,,%::c2,$chr(41))
}
alias nexus.whowasstart {
  %:echo $+(,%::c2,$chr(91),,%::c3,/whowas,$chr(32),,%::c1,%::nick,,%::c2,$chr(93),$str(—,35))
  %:echo $str( ,3) $+(,%::c1,»,) $+(,%::c3,Address,) $+(,%::c1,:,) $+(,%::c3,$replace(%::address,$chr(46),$+(,%::c1,$chr(46),,%::c3),@,$+(,%::c1,@,,%::c3))) $+(,%::c2,$chr(40),,%::c1,%::realname,,%::c2,$chr(41))
}