; ––––––––––––––––––––––––––––––––––––––––
; NoNameScript v4.03 - dynamic theme file - coded by greeny
; Don't edit anything in here unless you REALLY know what you're doing!
; File dynamically generated by NoNameScript 4.03 theme engine 1.01 at 11/07/2006 15:52:01
; ––––––––––––––––––––––––––––––––––––––––
alias msg {
  if (!$isid) && ($remove($2-,$chr(32)) != $null) {
    !.msg $$1-
    if ($show) {
      if ($1 ischan) || ($query($1)) || (=* iswm $1) {
        if ($1 ischan) {
          echo -ti12c own $1 07{ $+ $cmod($1,$me) $+  $+ $me $+ 07} $2-
        }
        else {
          echo -ti12c own $1 07{ $+ $me $+ 07} $2-
        }
      }
      else {
        echo $actcid(ti12c) normal     15« 01 07*01 $+ $1 $+ 07*01 $2-
      }
    }
  }
}
alias amsg {
  var %t = $$1-
  if (!$isid) && ($remove(%t,$chr(32)) != $null) {
    !.amsg %t
    if ($show) {
      if ($chan(0)) {
        var %c = $v1
        while (%c) {
          tokenize 32 $chan(%c) %t
          echo -ti12c own $1 07{ $+ $cmod($1,$me) $+  $+ $me $+ 07} $2-
          dec %c
        }
      }
    }
  }
}
alias describe {
  if (!$isid) {
    !.describe $1-
    if (!$show) { return }
    if ($1 ischan) || ($query($1)) || (=* iswm $1) {
      if ($1 ischan) {
        echo -ti12c action $1 15» 07 $+ $cmod($1,$me) $+ 01 $+ $me $2-
      }
      else {
        echo -ti12c action $1 15»01 $me $2-
      }
    }
    else {
      echo $actcid(ti12c) action 07—› 15»01 $1 $2-
    }
  }
}
alias ame {
  var %t = $$1-
  if (!$isid) && ($remove(%t,$chr(32)) != $null) {
    !.ame %t
    if ($show) {
      if ($chan(0)) {
        var %c = $v1
        while (%c) {
          tokenize 32 $chan(%c) %t
          echo -ti12c action $1 15» 07 $+ $cmod($1,$me) $+ 01 $+ $me $2-
          dec %c
        }
      }
    }
  }
}
alias notice {
  if (!$isid) {
    .!notice $1-
    if (!$show) { return }
    echo $actcid(ti12c) notice 07—› 07- $+ $1 $+ 01- $2-
  }
}
alias dns {
  if (!$isid) {
    !.dns $1-
    if ($show) {
      var %h = $1,%f
      if ($istok(-h -c,$1,32)) { var %f = $1,%h = $2 }
      if (%f != -h) && (. !isin %h) && ($address(%h,5)) { %h = $gettok($v1,2,64) }
      echo -ati12c info     15« 01 15dns » 14resolving $thmbr(%h) $+ ...
    }
  }
}
alias ctcp {
  if (!$isid) {
    !.ctcp $1-
    if ($2 == PING) { set -u100 $+(%,pingticks.,$cid,.,$1) $nn.ticks }
    if ($show) && ($2 != DCC) {
      echo $actcid(ti12c) ctcp 07—› ?01 $+ $1 $+ 07?01 $2 $3-
    }
  }
}
alias ctcpreply {
  if (!$isid) {
    !.ctcpreply $1-
    if ($show) {
      echo $actcid(ti12c) ctcp 07—› !01 $+ $1 $+ 07!01 $2 $3-
    }
  }
}
on ^&*:notify:{
  haltdef
  echo $actcid(ti12c) info     15« 01 notify 15» $thmbr($nick) is now online!
}
on ^&*:unotify:{
  haltdef
  echo $actcid(ti12c) info     15« 01 unnotify 15» $thmbr($nick) is now offline!
}
alias thmecho {
  if ($1 == -s) { var %e = -sti12c info }
  elseif ($1 == -a) { var %e = $actcid(ti12c info) }
  else { var %e = -ti12c info $1 }
  echo %e     15« 01 01 $+ $2-
}
alias thmerror {
  if ($1 == -s) { var %e = -sti12c info }
  elseif ($1 == -a) { var %e = $actcid(ti12c info) }
  else { var %e = -ti12c info $1 }
  echo %e     15« 01 15error » 14 $+ $2-
}
alias thmls {
  if ($1 == -s) { var %e = -sti12c info }
  elseif ($1 == -a) {
    if (@* iswm $active) || ($cid != $activecid) { var %e = -sti12c info }
    else { var %e = -ati12c info }
  }
  else { var %e = -ti12c info $1 }
  echo %e -
}
alias thmhl {
  if ($1- != $null) {
    return 07{14 $+ $1- $+ 07}01
  }
}
alias thmbr {
  if ($1- != $null) {
    return 07{14 $+ $1- $+ 07}01
  }
}
on &^*:join:#:{
  haltdef
  if ($chan !ischan) { return }
  if ($nick != $me) {
    var %e = $thmev($chan)
    if (%e isnum 0-1) { %e = -ti12c join $chan }
    elseif (%e == 2) { %e = -sti12c join }
    elseif (%e == 3) { goto skip }
    echo %e     15« 01 join 15» $thmbr($nick) $thmbr($address)
    :skip
    if (%qryevent) && ($query($nick)) && (j isin %qrytypes) {
      echo -ti12c join $nick     15« 01 join 15» $thmbr($+($nick,:,$chan)) $thmbr($address)
    }
  }
  else { set -u100 %joinprog. [ $+ [ $chan ] $+ ] . [ $+ [ $cid ] ] $nn.ticks }
}
on &!^*:part:#:{
  haltdef
  if ($chan !ischan) { return }
  var %e = $thmev($chan)
  if (%e isnum 0-1) { %e = -ti12c part $chan }
  elseif (%e == 2) { %e = -sti12c part }
  elseif (%e == 3) { goto skip }
  echo %e     15« 01 part 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
  :skip
  if (%qryevent) && ($query($nick)) && (p isin %qrytypes) {
    echo -ti12c part $nick     15« 01 part 15» $thmbr($+($nick,:,$chan)) $thmbr($address) $+ 07 $1-
  }
}
on &^*:kick:#:{
  haltdef
  if ($chan !ischan) { return }
  if ($knick == $me) {
    echo -sti12c kick     15« 01 kick 15» $thmbr($me) was kicked by $thmbr($nick) $+ 07 $1-
  }
  var %e = $thmev($chan)
  if (%e isnum 0-1) { %e = -ti12c kick $chan }
  elseif (%e == 2) { %e = -sti12c kick }
  elseif (%e == 3) { goto skip }
  echo %e     15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($nick) $+ 07 $1-
  if ($away.chklog($null).event) && ($ccontrol($chan)) {
    echo -ti12c kick $away.logwin     15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $+ 07 $1-
  }
  :skip
  if (%qryevent) && (k isin %qrytypes) {
    if ($query($knick)) {
      echo -ti12c kick $knick     15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $+ 07 $1-
    }
    if ($query($nick)) {
      echo -ti12c kick $nick     15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $+ 07 $1-
    }
  }
}
on &^*:quit:{
  haltdef
  var %c = $comchan($nick,0)
  while (%c) {
    var %e = $thmev($comchan($nick,%c))
    if (%e isnum 0-1) { %e = -ti12c quit $comchan($nick,%c) }
    elseif (%e == 2) { %e = -sti12c quit }
    elseif (%e == 3) {
      %e = -sti12c quit
      echo %e     15« 01 quit 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
      %e = -ti12c quit $comchan($nick,%c)
    }
    elseif (%e == 4) { goto skip }
    echo %e     15« 01 quit 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
    :skip
    dec %c
  }
  if (%qryevent) && ($query($nick)) && (q isin %qrytypes) {
    echo -ti12c quit $nick     15« 01 quit 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
  }
}
on &^*:nick:{
  haltdef
  if ($nick === $newnick) { return }
  var %c = $comchan($newnick,0),%q = $query(0)
  while (%c) {
    var %e = $thmev($comchan($newnick,%c))
    if (%e isnum 0-1) { %e = -ti12c nick $comchan($newnick,%c) }
    elseif (%e == 2) { goto skip }
    echo %e     15« 01 nick 15» $thmbr($nick) is now known as $thmbr($newnick)
    :skip
    dec %c
  }
  if ($nick == $me) {
    echo -sti12c nick     15« 01 nick 15» $thmbr($me) is now known as $thmbr($newnick)
  }
  if (%qryevent) {
    if ($query($newnick)) && (n isin %qrytypes) {
      echo -ti12c nick $newnick     15« 01 nick 15» $thmbr($nick) is now known as $thmbr($newnick)
    }
    elseif ($nick == $me) && (o isin %qrytypes) {
      while (%q) {
        echo -ti12c nick $query(%q)     15« 01 nick 15» $thmbr($nick) is now known as $thmbr($newnick)
        dec %q
      }
    }
  }
}
on &^*:topic:#:{
  haltdef
  if ($chan !ischan) { return }
  var %e = $thmev($chan)
  if (%e isnum 0-1) { %e = -ti12c topic $chan }
  elseif (%e == 2) { %e = -sti12c topic }
  elseif (%e == 3) { goto skip }
  echo %e     15« 01 topic 15» $thmbr($nick) changes topic to $thmbr($1-)
  if ($away.chklog($null).event) && ($ccontrol($chan)) {
    echo -ti12c topic $away.logwin     15« 01 topic 15» $thmbr($+($nick,:,$chan)) changes topic to $thmbr($1-)
  }
  :skip
}
ctcp &*:*:*:{
  if (!$istok(dcc version,$1,32)) {
    haltdef
    if ($1 == ping) { .ctcpreply $nick PING $ctime }
    if ($chan) {
      if ($chan !ischan) { return }
      var %e = $thmev($chan)
      if (%e isnum 0-1) { %e = -ti12c ctcp $chan }
      elseif (%e == 2) { %e = -sti12c ctcp }
      echo %e 07?01 $+ $nick $+ 07@01 $+ $chan $+ 07?01 $1 $2-
    }
    else {
      var %e = $thm.active(ctcp,ti12c ctcp)
      echo %e 07?01 $+ $nick $+ 07?01 $1 $2-
    }
  }
}
on &^*:rawmode:#:{
  haltdef
  if ($chan !ischan) { return }
  var %e = $thmev($chan)
  if (%e isnum 0-1) { %e = -ti12c mode $chan }
  elseif (%e == 2) { %e = -sti12c mode }
  elseif (%e == 3) { goto skip }
  echo %e     15« 01 mode 15» $thmbr($nick) sets $thmbr($1-)
  :skip
}
on &^*:invite:#:{
  haltdef
  var %e = $thm.active(invite,ti12c invite)
  echo %e     15« 01 invite 15» $thmbr($nick) invites you to join $thmbr($chan)
}
on &^*:usermode:{
  haltdef
  echo -sti12c mode     15« 01 usermode 15» set to $thmbr($1-)
}
on &^*:text:*:#:{
  haltdef
  if ($chan !ischan) { return }
  echo -lbfmti12c normal $chan 07{ $+ $cmod($chan,$nick) $+  $+ $nick $+ 07} $strip($1-,mo)
  if (%hlown) && ($isachl($1-)) {
    chkhlwin
    echo -mti12c normal $hlwin 07{ $+ $cmod($chan,$nick) $+  $+ $+($nick,:,$chan) $+ 07} $strip($1-,mo)
  }
  if ($away.chklog($strip($1-))) {
    echo -mti12c normal $away.logwin 07{ $+ $cmod($chan,$nick) $+  $+ $+($nick,:,$chan) $+ 07} $strip($1-,mo)
  }
}
on &^*:text:*:?:{
  haltdef
  if ($query($nick)) {
    echo -lbfmti12c normal $nick 07{ $+ $nick $+ 07} $strip($1-,mo)
  }
  elseif (%thm.singlemsg) {
    echo -lbfmdti12c normal 07*01 $+ $nick $+ 07*01 $1-
  }
  else {
    echo $thm.active(query,lbfmti12c) normal 07*01 $+ $nick $+ 07*01 $strip($1-,mo)
  }
  if (%hlown) && ($isachl($1-)) {
    chkhlwin
    echo -mti12c normal $hlwin 07{ $+ $nick $+ 07} $strip($1-,mo)
  }
}
on &^*:chat:*:{
  haltdef
  if (
ACTION ?*
 iswm $1-) {
    echo -lbfmti12c normal =$nick 15»01 $nick $strip($mid($1-,9,-1),mo)
    if (%hlown) && ($isachl($1-)) {
      chkhlwin
      echo -mti12c normal $hlwin 15»01 $nick $strip($mid($1-,9,-1),mo)
    }
  }
  else {
    echo -lbfmti12c normal =$nick 07{ $+ $nick $+ 07} $strip($1-,mo)
    if (%hlown) && ($isachl($1-)) {
      chkhlwin
      echo -mti12c normal $hlwin 07{ $+ $nick $+ 07} $strip($1-,mo)
    }
  }
}
on &^*:action:*:#:{
  haltdef
  if ($chan !ischan) { return }
  echo -lbfmti12c action $chan 15» 07 $+ $cmod($chan,$nick) $+ 01 $+ $nick $strip($1-,mo)
  if (%hlown) && ($isachl($1-)) {
    chkhlwin
    echo -mti12c action $hlwin 15» 07 $+ $cmod($chan) $+ 01 $+ $+($nick,:,$chan) $strip($1-,mo)
  }
  if ($away.chklog($strip($1-))) {
    echo -mti12c action $away.logwin 15» 07 $+ $cmod($chan) $+ 01 $+ $+($nick,:,$chan) $strip($1-,mo)
  }
}
on &^*:action:*:?:{
  haltdef
  if (%thm.singlemsg) {
    echo -dti12c action 15»01 $nick $1-
  }
  elseif ($query($nick)) {
    echo -lbfmti12c action $nick 15»01 $nick $strip($1-,mo)
  }
  else {
    echo $thm.active(query,lbfmti12c) action 15»01 $nick $strip($1-,mo)
  }
  if (%hlown) && ($isachl($1-)) {
    chkhlwin
    echo -mti12c action $hlwin 15»01 $nick $strip($1-,mo)
  }
}
on &^*:notice:*:#:{
  haltdef
  if ($chan !ischan) { return }
  if (%notice.sepwin) {
    notice.chkwin
    var %e = -mti12c notice $notice.win
  }
  else { var %e = -mti12c notice $chan }
  echo %e 07- $+ $nick $+ 07@ $+ $chan $+ 07- $1-
}
on &^*:notice:*:?:{
  haltdef
  if (%notice.sepwin) {
    notice.chkwin
    var %e = -mti12c notice $notice.win
  }
  else { var %e = $thm.active(notice,mti12c notice) }
  echo %e 07- $+ $nick $+ 07- $1-
}
on &^*:snotice:*:{
  haltdef
  if (%notice.sepwin) {
    notice.chkwin
    var %e = -mti12c notice $notice.win
  }
  else { var %e = -msti12c notice }
  echo %e 07-01 $+ $nick $+ 07-01 $1-
}
on &*:dns:{
  haltdef
  if ($dns(0)) {
    var %i = 1,%t = $dns(0)
    while (%i <= %t) {
      echo -ati12c info     15« 01 15dns » 14resolved $thmbr($dns(%i)) to $thmbr($remtok($dns(%i).ip $dns(%i).addr,$dns(%i),1,32))
      inc %i
    }
  }
  else {
    echo -ati12c info     15« 01 15dns » 14unable to resolve $thmbr($iif($address,$v1,$nick))
  }
}
on &*:ctcpreply:*:{
  haltdef
  if ($1 == PING) {
    if ($($+(%,pingticks.,$cid,.,$nick),2)) {
      %rpl = $calc(($nn.ticks - $v1)/1000) second(s)
      unset $+(%,pingticks.,$cid,.,$nick)
    }
    else { %rpl = $duration($calc($ctime - $2)) }
    tokenize 32 PING %rpl
  }
  var %e = $thm.active(ctcp,ti12c ctcp)
  echo %e 07!01 $+ $nick $+ 07!01 $1 $2-
}
on ^&*:wallops:*:{
  haltdef
  if ($1 == *) { var %w = $wusrs.win,%t = $2- }
  elseif ($1 == $) { var %w = $wops.win,%t = $2- }
  else { var %w = $wops.win,%t = $1- }
  if (!$window(%w)) {
    window -nk0g1e %w
    thmecho %w Wall message window for $thmhl($curconserv) opened on $thmhl($longtime) $+ .
    echo %w 
  }
  echo -lmti12c wallops %w     15« 01 wallop 15» $thmbr($nick) $strip(%t,mo)
}
raw 324:*:{
  if ($halted) { return }
  haltdef
  echo -ti12c info $2     15« 01 $thmbr($2) modes 15» $thmbr($3-)
}
raw 329:*:{
  if ($halted) { return }
  haltdef
  echo -ti12c info $2     15« 01 channel created 15» $thmbr($longtime($3))
}
raw 367:*:{
  if ($halted) { return }
  haltdef
  echo -ti12c info $2     15« 01 $thmbr($2) $3 ban set by $4 $thmbr($longtime($5))
}
raw 368:*:{
  if ($halted) { return }
  haltdef
  echo -ti12c info $2     15« 01 end of $thmbr($2) ban list
}
raw 404:*:{
  if ($halted) { return }
  haltdef
  echo -ti12c info $2     15« 01 unable to send message to $thmbr($2)
}
raw 482:*:{
  if ($halted) { return }
  haltdef
  echo -ti12c info $2     15« 01 you're not opped on $thmbr($2)
}
raw 396:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 $thmbr($2) is now your hidden host
}
raw 451:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 Register first!
}
raw 311:*:{
  if ($halted) { return }
  haltdef
  if (%whois. [ $+ [ $cid ] ]) {
    echo $thm.active(whois,ti12c) whois     15« 01 whois end 15»
  }
  else {
    set %whois. $+ $cid 1
  }
  echo $thm.active(whois,ti12c) whois     15« 01 whois start 15»
  echo $thm.active(whois,ti12c) whois  15« 07 $2 14is $+($3,@,$4) $thmbr($6-)
}
raw 319:*:{
  if ($halted) { return }
  haltdef
  echo $thm.active(whois,ti12c) whois  15« 07 $2 14on $sorttok($3-,32,c)
}
raw 312:*:{
  if ($halted) { return }
  haltdef
  if (%whois. [ $+ [ $cid ] ]) {
    echo $thm.active(whois,ti12c) whois  15« 07 $2 14using $3 $thmbr($4-)
  }
  else {
    echo $thm.active(whois,ti12c) whois  15« 07 $2 14using $3
  }
}
raw 313:*:{
  if ($halted) { return }
  haltdef
  echo $thm.active(whois,ti12c) whois  15« 07 $2 14is an $5-
}
raw 314:*:{
  if ($halted) { return }
  haltdef
  set %whowas. $+ $cid 1
  echo $thm.active(whois,ti12c) whois     15« 01 whowas start 15»
  echo $thm.active(whois,ti12c) whois  15« 07 $2 14was $+($3,@,$4) $thmbr($6-)
}
raw 301:*:{
  if ($halted) { return }
  haltdef
  if (%whois. [ $+ [ $cid ] ]) {
    echo $thm.active(whois,ti12c) whois  15« 07 $2 14is away: $3-
  }
  elseif (%whowas. [ $+ [ $cid ] ]) {
    echo $thm.active(whois,ti12c) whois  15« 07 $2 14was away: $3-
  }
  elseif ($2 != $me) && (!%away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
    set -u300 %away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ] 1
    echo $thm.active(away,ti12c) info     15« 01 $thmbr($2) is marked as being away: $3-
  }
}
raw 369:*:{
  if ($halted) { return }
  haltdef
  if (%whowas. [ $+ [ $cid ] ]) {
    echo $thm.active(whois,ti12c) whois     15« 01 whowas end 15»
    unset %whowas. $+ $cid
  }
}
raw 330:*:{
  if ($halted) { return }
  haltdef
  echo $thm.active(whois,ti12c) whois  15« 07 $2 14is authed as $3
}
raw 338:*:{
  if ($halted) { return }
  haltdef
  echo $thm.active(whois,ti12c) whois  15« 07 $2 $+ 14's real host $3 $thmbr($4)
}
raw 317:*:{
  if ($halted) { return }
  haltdef
  echo $thm.active(whois,ti12c) whois  15« 07 $2 14has been idle $duration($3) 07{01signed on $asctime($4) $+ 07}
}
raw 318:*:{
  if ($halted) { return }
  haltdef
  if (%whois. [ $+ [ $cid ] ]) {
    echo $thm.active(whois,ti12c) whois     15« 01 whois end 15»
    unset %whois. $+ $cid
  }
}
raw 331:*:{
  if ($halted) { return }
  haltdef
  if ($me ison $2) { var %e = -ti12c topic $2 }
  else { var %e = $actcid(ti12c) topic }
  echo %e     15« 01 no topic in $2 set
}
raw 332:*:{
  if ($halted) { return }
  haltdef
  if (%joinprog. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) { return }
  if ($me ison $2) { var %e = -ti12c topic $2 }
  else { var %e = $actcid(ti12c) topic }
  echo %e     15« 01 topic 15» $thmbr($3-)
}
raw 333:*:{
  if ($halted) { return }
  haltdef
  if (%joinprog. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
    set -u100 $+(%,topicset.,$2,.,$cid) $3-
    return
  }
  if ($me ison $2) { var %e = -ti12c topic $2 }
  else { var %e = $actcid(ti12c) topic }
  echo %e     15« 01 set by 15» $thmbr($3) on $thmbr($asctime($4))
}
raw 341:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) invite     15« 01 $thmbr($2) has been invited to join $thmbr($3)
}
raw 443:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) invite     15« 01 $thmbr($2) is already on that channel
}
raw 353:*:{
  if ($halted) { return }
  haltdef
  if (!%thm.hnames) || (%names.show. [ $+ [ $cid ] ]) {
    echo -sti12c info     15« 01 07{14/names07}14 $4-
  }
}
raw 355:*:{
  if ($halted) { return }
  haltdef
  if (!%thm.hnames) || (%names.show. [ $+ [ $cid ] ]) {
    echo -sti12c info     15« 01 07{14/names07}14 $4-
  }
}
raw 366:*:{
  if ($halted) { return }
  haltdef
  if (!%thm.hnames) || (%names.show. [ $+ [ $cid ] ]) {
    echo -sti12c info     15« 01 07{14/names07}14 end.
  }
  if (%joinprog. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
    var %s = $iif($round($calc(($nn.ticks - $v1)/1000),2) isnum 0-1000,$v1,<unknown>),%g = %topicset. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ],%n = $iif($wd(%g,1,32),$v1,<unknown>),%d = $iif($wd(%g,2,32),$longtime($v1),<unknown>),%a = $iif($wd(%g,2,32),$duration($calc($ctime - $v1)),<unknown>)
    if ($me ison $2) {
      haltdef
      echo -ti12c join $2     15« 01 joined 15» $thmbr($2)
      if ($thmif($chan($2).topic)) { echo -ti12c join $2     15« 01 topic 15» $thmbr($chan($2).topic) }
      if ($thmif($chan($2).topic)) { echo -ti12c join $2     15« 01 set by 15» $thmbr(%n) on $thmbr(%d) }
    }
  }
  unset %names.show. $+ $cid %joinprog. $+ $2 $+ . $+ $cid %topicset. $+ $2 $+ . $+ $cid
}
raw 421:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 $thmbr($2) is an invalid command
}
raw 352:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) whois     15« 01 07{14/who07}14 $6 $thmbr($+($3,@,$4)) $9-
}
raw 315:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) whois     15« 01 07{14/who07}14 end.
}
raw 433:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 nickname $thmbr($2) is already in use
}
raw 471:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 can't join $2 07{14full (+l)07}
}
raw 473:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 can't join $2 07{14invite only (+i)07}
}
raw 474:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 can't join $2 07{14you're banned (+b)07}
}
raw 475:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 can't join $2 07{14requires key (+k)07}
}
raw 477:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 can't join $2 07{14registered only07}
}
raw 401:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 no such nickname 15» $thmbr($2)
  unset $+(%,whois.,$2,.,$cid)
}
raw 406:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 no such nickname 15» $thmbr($2)
}
raw 403:*:{
  if ($halted) { return }
  haltdef
  echo $actcid(ti12c) info     15« 01 no such channel 15» $thmbr($2)
}
raw 251:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 users 15» $thmbr($4)  15« 01 invisible 15» $thmbr($7)  15« 01servers 15» $thmbr($10)
}
raw 252:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 operator(s) online 15» $thmbr($2)
}
raw 253:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 unknown connection(s) 15» $thmbr($2)
}
raw 254:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 number of channels formed 15» $thmbr($2)
}
raw 255:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 local clients 15» $thmbr($4) on $thmbr($7) server(s)
}
raw 001:*:{
  if ($halted) { return }
  haltdef
  echo -sti12c info     15« 01 Welcome to the Internet Relay Network, $thmbr($8)
}
raw 002:*:{
  if ($halted) { return }
  haltdef
  if (!%thm.hwmsg) {
    echo -sti12c info     15« 01 host 15» 07{14 $+ $left($5,-1) $+ 07}14 running version 07{14 $+ $8 $+ 07}14
  }
}
raw 003:*:{
  if ($halted) { return }
  haltdef
  if (!%thm.hwmsg) {
    echo -sti12c info     15« 01 server created on 15» 07{14 $+ $6- $+ 07}14
  }
}
raw 004:*:{
  if ($halted) { return }
  haltdef
  if (!%thm.hwmsg) {
    echo -sti12c info     15« 01 $thmbr($2) $3 $4 $5
  }
}
raw 005:*:{
  if ($halted) { return }
  haltdef
  if (!%thm.hwmsg) {
    echo -sti12c info     15« 01 protocols supported by this server 15» $thmbr($deltok($2-,-5-,32))
  }
}
raw *:*:{
  if ($halted) { return }
  if (!$istok(321 322 323,$numeric,32)) {
    haltdef
    echo $whois.echo $+ ti12c info     15« 01 $2-
  }
}
; ––––––––––––––––––––––––––––––––––––––––
; End of file
; ––––––––––––––––––––––––––––––––––––––––
on *:input:*: {
  if ($left($1,1) != $chr(47)) {
    say $replace($1-,$left($1,1),$upper($left($1,1))) $+ .
    halt
  }
}