alias away {
  set %away.reason $$?"Reason for being away?"
  nick Altaire`Away
  amsg 1,0I am now away: 1,0(1,0 Reason:13,0 %away.reason $+ 1,0 ) ( 1,0 Left At:13,0 $time 1,0 )99
  set %away.status on
  set %away.time $ctime
}
alias back {
  unset %away.status
  nick Altaire
  amsg 1,0I am back from 1,0(13,0 %away.reason $+ 1,0 ). 1,0I was gone for 1,0(13,0 $duration($calc( $ctime - %away.time)) 1,0)
}
alias hlnicks { return $me mogi }
alias service_bots { return BanHammer Captain_Falcon ClanWars Client Coder IDM Machine milk Minibar mIRC Noobs Pancake Q RuneScape snoozles Spam Unknown W Warcraft Wheatley X Y }
alias other_bots { return Vectra RuneScript Gerty ChanStat Onzichtbaar Faux CoDScript Impact PartyRoom Loot }
alias col {
  var %c1 = 14
  var %c2 = 10
  if ($prop == logo) { return $+($chr(3),%c1,** $chr(40),$chr(3),%c2,$upper($1),$chr(3),%c1,$chr(41),:) }
  elseif ($prop == c1) { return %c1 }
  elseif ($prop == c2) { return %c2 }
  else { return $+($chr(3),%c2,$1,$chr(3),%c1) }
}
alias _timestamp {
  var %a = $chr(40)
  var %b = $chr(41)
  var %format = ddd - mmm dd - hh:nn.sstt
  return $+($chr(3),$col().c1,%a,$col($asctime(%format)),%b)}
}
}
on *:TEXT:*:*: {
  var %hlpattern = $+(/\b,$chr(40),$replace($hlnicks,$chr(32),$(|)),$chr(41),\b/Si)
  if ($regex($1-,%hlpattern)) {
    var %otherbots = $+(/,$chr(40),$replace($other_bots,$chr(32),$(|)),$chr(41),/Si)
    if (!$regex($nick,%otherbots) && !$regex($nick,/(buffextras|(\S+)(bot|serv))$/Si) && !$istok($service_bots,$nick,32)) {
      if ($away && !$hget(Highlight,$address($nick,3))) {
        .hadd -mu3600 Highlight $address($nick,3) $ctime
        notice $nick Hello $+($nick,$chr(44)) I am currently away with the reason: $iif($awaymsg,$v1,No reason)
      }
      if (!$appactive)  {
        flash -b1 Highlight - $nick $iif($chan,$+($chr(40),$chan,$chr(41)))
      }
      var %replacepattern = $+(%hlpattern,g), %output $regsubex($1-,%replacepattern,$col(\1))
      var %window = $+(@Highlights,:,$network), %msg = $_timestamp $+([,$col($nick),:,$col($iif($chan,$v1,Query)),]:) %output
      if (!$istok($nick $chan %window,$active,32)) {
        echo -a %msg
      }
      if (!$window(%window)) {
        .window %window
      }
      .aline -i5 %window %msg
      window -g2 $iif(!$chan,$nick,$chan)
    }
  }
  if ($1 == .erate) {
    notice $nick 3 The chance of receiving a starved ancient effigy drop from a level 7 $2 3 would be one every 7 $bytes($round($calc(11018254 * $2 ^-1.9469123)),b) 3kills
  }
  if ($1 == @erate) {
    msg # 3 The chance of receiving a starved ancient effigy drop from a level 7 $2 3 would be one every 7 $bytes($round($calc(11018254 * $2 ^-1.9469123)),b) 3kills
  }
  if ($1 == .inv) {
    invite $2 $chan
  }
  if ($1 == .akick) {
    cs akick # add $2 $3-
    cs akick # enforce
    on *:text:*:#: {
    }
    elseif ($1 == .add) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        cs access # add $2 $3
      }
    }
    elseif ($1 == .amsg) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        amsg $2-
      }
    }
    elseif ($1 == .mode) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        mode # $2 $3-
      }
    }
    elseif ($1 == .i) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        invite $2 #
      }
    }
    elseif ($1 == .k) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        kick # $2
      }
    }
    elseif ($1 == .b) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        mode # +b $address($2,2)
      }
    }
    elseif ($1 == .kb) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        kick # $2
        mode # +b $address($2,2)
      }
    }
    elseif ($1 == .nick) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        nick $2
        ns id password
      }
    }
    elseif ($1 == .say) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        msg # $2-
      }
    }
    elseif ($1 == .me) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        describe # $2-
      }
    }
    elseif ($1 == .join) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        join $2-
      }
    }
    elseif ($1 == .leave) {
      if ($address($nick,2) == $address(@Swift-B7F4FE01.bb.sky.com,2)) {
        part $2-
      }
    }
    else { halt }
  }