Whois

[script]
n0=on $*:text:/^[!@]whois*/Si:#: {
n1=  if (%whoised) {
n2=    notice $nick Error:Whois currently in use, please try again.
n3=    { halt }
n4=  }
n5=  if (!$2) {
n6=    .notice $nick Please specify a name to WhoIs.
n7=    { halt }
n8=  }
n9=  set -u4 %whoised $2
n10=  set -u4 %whoischan $chan
n11=  set -u4 %whoisnick $nick
n12=  set -u4 %whois.out $iif($left($1,1) == @,msg %whoischan,.notice %whoisnick) 
n13=  whois $2
n14=}
n15=
n16=raw 319:*:{
n17=  if ($2 == %whoised) { 
n18=    %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)))
n19=    unset %whois.out
n20=    unset %whoised
n21=    unset %whoischan
n22=    unset %whoisnick
n23=  }
n24=}
n25=
n26=raw 401:*:{
n27=  if ($2 == %whoised) {
n28=    %whois.out $grey(The nick) $blue($2) $grey(does not exist.)
n29=    unset %whois.out
n30=    unset %whoised
n31=    unset %whoischan
n32=    unset %whoisnick
n33=  }
n34=}
n35=
n36=on $*:text:/^[!@]chantopic*/Si:#: {
n37=  if (%topiced) {
n38=    notice $nick Error:ChanTopic currently in use, please try again.
n39=    { halt }
n40=  }
n41=  set -u4 %topiced $2
n42=  set -u4 %topicchan $chan
n43=  set -u4 %topicnick $nick
n44=  set -u4 %topic.out $iif($left($1,1) == @ || $left($1,1) == @,msg %topicchan,.notice %topicnick) 
n45=  topic $2
n46=}
n47=
n48=raw 332:*:{
n49=  if ($2 == %topiced) { 
n50=    %topic.out $grey(The current topic for) $blue($2) $grey(is:) 
n51=    %topic.out $brown($3-)
n52=    unset %topic.out
n53=    unset %topiced
n54=    unset %topicchan
n55=    unset %topicnick
n56=  }
n57=}
n58=
n59=raw 403:*:{
n60=  if ($2 == %topiced) {
n61=    %topic.out $grey(The channel) $blue($2) $grey(does not exist.)
n62=    unset %topic.out
n63=    unset %topiced
n64=    unset %topicchan
n65=    unset %topicnick
n66=  }
n67=}