; ––––––––––––––––––––––––––––––––––––––––
; 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 28/09/2006 23:52:40
; ––––––––––––––––––––––––––––––––––––––––
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 02( $+ $cmod($1,$me) $+  $+ $me $+ 02) $2-
        }
        else {
          echo -ti12c own $1 02( $+ $me $+ 02) $2-
        }
      }
      else {
        echo $actcid(ti12c) normal  02 —›12 • $+ $1 $+ 12• $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 02( $+ $cmod($1,$me) $+  $+ $me $+ 02) $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 • $cmod($1,$me) $+ $me $2-
      }
      else {
        echo -ti12c action $1 • $me $2-
      }
    }
    else {
      echo $actcid(ti12c) action  02 —›12 • $+ $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 • $cmod($1,$me) $+ $me $2-
          dec %c
        }
      }
    }
  }
}
alias notice {
  if (!$isid) {
    .!notice $1-
    if (!$show) { return }
    echo $actcid(ti12c) notice     02 —›12 - $+ $1 $+ 12- $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     02 —›12 dns: resolving $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  02 —› 02? $+ $1 $+ 02? $2 $3-
    }
  }
}
alias ctcpreply {
  if (!$isid) {
    !.ctcpreply $1-
    if ($show) {
      echo $actcid(ti12c) ctcp  02 —› 02! $+ $1 $+ 02! $2 $3-
    }
  }
}
on ^&*:notify:{
  haltdef
  echo $actcid(ti12c) info     02 —›12 notify: $thmbr($nick) is now online!
}
on ^&*:unotify:{
  haltdef
  echo $actcid(ti12c) info     02 —›12 unnotify: $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     02 —› 12 $+ $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     02 —› 12error: $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 02((
}
alias thmhl {
  if ($1- != $null) {
    return 02(12 $+ $1- $+ 02)12
  }
}
alias thmbr {
  if ($1- != $null) {
    return 02(12 $+ $1- $+ 02)12
  }
}
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     02 —›12 join: $thmbr($nick) $thmbr($address)
    :skip
    if (%qryevent) && ($query($nick)) && (j isin %qrytypes) {
      echo -ti12c join $nick     02 —›12 join: $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     02 —›12 part: $thmbr($nick) $thmbr($address) $thmbr($1-)
  :skip
  if (%qryevent) && ($query($nick)) && (p isin %qrytypes) {
    echo -ti12c part $nick     02 —›12 part: $thmbr($+($nick,:,$chan)) $thmbr($address) $thmbr($1-)
  }
}
on &^*:kick:#:{
  haltdef
  if ($chan !ischan) { return }
  if ($knick == $me) {
    echo -sti12c kick     02 —›12 kick: you were kicked out of $thmbr($chan) by $thmbr($nick) $thmbr($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     02 —›12 kick: $thmbr($knick) was kicked by $thmbr($nick) $thmbr($1-)
  if ($away.chklog($null).event) && ($ccontrol($chan)) {
    echo -ti12c kick $away.logwin     02 —›12 kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
  }
  :skip
  if (%qryevent) && (k isin %qrytypes) {
    if ($query($knick)) {
      echo -ti12c kick $knick     02 —›12 kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
    }
    if ($query($nick)) {
      echo -ti12c kick $nick     02 —›12 kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($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     02 —›12 quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
      %e = -ti12c quit $comchan($nick,%c)
    }
    elseif (%e == 4) { goto skip }
    echo %e     02 —›12 quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
    :skip
    dec %c
  }
  if (%qryevent) && ($query($nick)) && (q isin %qrytypes) {
    echo -ti12c quit $nick     02 —›12 quit: $thmbr($nick) $thmbr($address) $thmbr($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     02 —›12 nick: $thmbr($nick) is now known as $thmbr($newnick)
    :skip