on $*:text:/^[!@]whois*/Si:#: {
  if (%whoised) {
    notice $nick Error:Whois currently in use, please try again.
    { halt }
  }
  if (!$2) {
    .notice $nick Please specify a name to WhoIs.
    { halt }
  }
  set -u4 %whoised $2
  set -u4 %whoischan $chan
  set -u4 %whoisnick $nick
  set -u4 %whois.out $iif($left($1,1) == @,msg %whoischan,.notice %whoisnick) 
  whois $2
}

raw 319:*:{
  if ($2 == %whoised) { 
    %whois.out $blue($2) $grey(is currently on channel(s):) $replace($3-,@,$bold($red(@)),%,$bold($orange(%)),+,$bold($navy(+)),$chr(35),$chr(3) $+ 12 $+ $chr(35)) $bold($purple($chr(171))) $bold($red($matchtok($3-, $chr(35), 0, 32))) $grey(Channels in total $chr(40)) $+ $grey(O:) $bold($red($matchtok($3-, $chr(64), 0, 32))) $grey(H:) $bold($orange($matchtok($3-, $chr(37), 0, 32))) $grey(V:) $bold($navy($matchtok($3-, $chr(43), 0, 32))) $+ $grey($chr(41)) $bold($purple($chr(187)))
    unset %whois.out
    unset %whoised
    unset %whoischan
    unset %whoisnick
  }
}

raw 401:*:{
  if ($2 == %whoised) {
    %whois.out $grey(The nick) $blue($2) $grey(does not exist.)
    unset %whois.out
    unset %whoised
    unset %whoischan
    unset %whoisnick
  }
}

on $*:text:/^[!@]chantopic*/Si:#: {
  if (%topiced) {
    notice $nick Error:ChanTopic currently in use, please try again.
    { halt }
  }
  set -u4 %topiced $2
  set -u4 %topicchan $chan
  set -u4 %topicnick $nick
  set -u4 %topic.out $iif($left($1,1) == @ || $left($1,1) == @,msg %topicchan,.notice %topicnick) 
  topic $2
}

raw 332:*:{
  if ($2 == %topiced) { 
    %topic.out $grey(The current topic for) $blue($2) $grey(is:) 
    %topic.out $brown($3-)
    unset %topic.out
    unset %topiced
    unset %topicchan
    unset %topicnick
  }
}

raw 403:*:{
  if ($2 == %topiced) {
    %topic.out $grey(The channel) $blue($2) $grey(does not exist.)
    unset %topic.out
    unset %topiced
    unset %topicchan
    unset %topicnick
  }
}