Who is theme

on 1:load: {
  echo -a 4*****11 whois by 4[85]
  echo -a 4*****11 server: irc.utonet.org
  echo -a 4*****11 channel: #kool
}
raw 301:*: {
  echo -a 0·4away9:0 $3-
  halt
}
raw 307:*: {
  echo -a 0·4registred9:0 Yes
  halt
}
raw 310:*: {
  echo -a 0·4IRC helper9:0 Yes
  halt
}
raw 311:*: {
  echo -a 4-------------=[ /whois $2 ]=-------------
  echo -a 0·4username9:0 $6-
  echo -a 0·4vhost9:0 $3 $+ 4@0 $+ $4
  halt
}
raw 378:*: {
  echo -a 0·4localhost9:0 $6
  echo -a 0·4IP9:0 $7
  halt
}
raw 379:*: {
  echo -a 0·4usermodes9:0 $6-
  halt
}
raw 671:*: {
  echo -a 0·4secure connection9:0 Yes
  halt
}
raw 312:*: {
  echo -a 0·4network9:0 $network
  echo -a 0·4server9:0 $3
  echo -a 0·4description9:0 $4-
  halt
}

raw 313:*: {
  echo -a 0·4network rank9:0 $5-9
  halt
}

raw 319:*: {
  echo -a 0·4channels9:0 $Replace($3-,~,4~14,&,4&4,@,4@14,%,4%14,+,2+14)
  halt
}
raw 317:*: {
  echo -a 0·4signed on9:0 $asctime($4,dddd mm/dd/yyyy HH:nn'tt)
  echo -a 0·4idle9:0 $duration($3)
  echo -a 0·4total online time9:0 $duration($calc($ctime - $4))
  halt
}
raw 335:*: {
  echo -a 0·4bot9:0 Yes
  halt
}
raw 318:*: {
  haltdef
  var %whois.Clones $ial($address($2,2),0)
  if (%whois.Clones > 1) {
    echo -a 0·4user9:0 $2 have $calc($ial($address($2,2),0) - 1) clones on $server
    var %iee $ial($address($2,2),0)
    while %iee {
      if ($gettok($ial($address($2,2),%iee),1,33) != $2) {
        echo -a 0·4clone detected at9:0 $addtok($replace($ial($v1),!,$chr(40)),$chr(32),41)
      }
      dec %iee
    }
  }
  echo -a 4---------=[ end of /whois $2 ]=---------
}