alias ame {
  var %a = 1
  while (%x <= $chan(0)) { 
    describe $chan(%a) $$1-
    inc %a
  }
}
alias amode {
  var %a = 1
  while ($a <= $chan(0)) {
    mode $chan(%a) $$1-
    inc %a
  }
}
alias amsg {
  var %a = 1
  while (%a <= $chan(0)) {
    msg $chan(%a) $$1-
    inc %a
  }
}
alias rainbow {
  var %a = $reverse($$1), %b = 1, %c = 1, %d
  while ($len(%a) >= %b) {
    set %d $+($chr(03),$read(Rainbow.txt,$calc(%c - 1)),$mid(%a,%b,1)) $+ %d
    $iif(%c == 7, set %c 1, inc %c)
    inc %b
  }
  return %d
}
alias rejoin {
  var %a = 1
  while (%a <= $chan(0)) {
    join $chan(%a)
    inc %a
  }
}

alias reverse {
  var %a = $strip($$1), %b = 1, %c
  while ($len(%a) >= %b) {
    set %c $mid(%a,%b,1) $+ %c
    inc %b
  }
  return %c
}
menu * {
  $me
  .Away
  ..Away:{
    away $$?
    ame is Away. Away Message: $! $chr(124) Time: $time
  }
  ..Back:{
    if ($away == $true) {
      ame is Back. Away Message: $awaymsg $chr(124) Away Time: $duration($awaytime)
      .timer 1 1 away
    }
    else {
      echo -e $me is not away.
    }
  }
  .Rejoin channels on connect:{
    var %a = 1
    while (%a <= $chan(0)) {
      join $chan(%a)
      inc %a
    }
  }
  .Special Effects
  ..Rainbow:{
    say $rainbow($$?)
  }
  ..Reverse:{
    /msg $active $reverse($$?)
  }
}
on *:INPUT:#:{
  if ($regex($1,/^[+-]/)) {
    if ($len($remove($1,+,-)) <= $modespl) {
      if ($regex($1,/^[+-][vhoaqbceIfjklmnprstzACGMKLNOQRSTVu]/)) {
        if ($regex($1,/^[+-][vhoaq]/)) {
          mode $chan $1 $iif($2, $($2-,2), $me $iif($len($1) != 2, $str($+ $chr(32) $me,$len($remove($1,+,-)))))
        }
        elseif ($regex($1,/^[+-][beI]/)) {
          mode $chan $1 $iif($2, $iif($2 isnum, $address($me,$2) $iif($len($1) != 2, $str($+ $chr(32) $address($me,$2),$len($remove($1,+,-)))), $($2-,2)), $iif($len($1) != 2, $str($+ $chr(32) $me,$len($remove($1,+,-)))))
        }
        elseif ($regex($1,/^[+-][cimnprstzACGMKNOQRSTVu]/)) {
          mode $chan $1
        }
        elseif ($regex($1,/^[+-][fjklL]/)) {
          mode $chan $1 $iif($2, $($2,2), $iif($regex($1,/^[+-]f/), $+($chr(91),8c,$chr(35),C5,$chr(44),7j,$chr(35),R5,$chr(44),5k,$chr(35),K5,$chr(44),20m,$chr(35),M5,$chr(44),5n,$chr(35),N5,$chr(44),8t,$chr(35),b,$chr(93),:15), $iif($regex($1,/^[+-]j/), 2:35, $iif($regex($1,/^[+-]k/), $nick($chan,$r(1,$nick($chan,0))), $iif($regex($1,/^[+-]l/), $r(1,2147483647), $chan($r(1,$chan(0)))))))) 
        }
      }
    }
    else {
      echo 1 The maximum number of parameters allowed per /mode is $modespl $+ .
    }
  }
}
ctcp *:FINGER:*:{
  haltdef
  .notice $nick Can't touch this!
  .ctcp $nick FINGER
}
ctcp *:PING:*:{
  haltdef
  .notice $nick Ouch!
  .ctcp $nick PING
}
ctcp *:TIME:*:{
  haltdef
  .notice $nick Time is non-existant.
  .ctcp $nick TIME
}
on $^*:TEXT:/(\Q $+ $me $+ \E)|(Cal)|(Anthony)/Si:*:{
  if (!$regex($1-,/calc/Si)) {
    haltdef
    hinc -mz Highlight $nick 90
    if ($hget(Highlight, $nick) > 180) {
      if (!$window(@Flood)) {
        window @Flood
      }
      if (($chan) && ($chan != $active)) {
        aline -hp @Flood $timestamp $nick highlighted you in $iif($chan, $v1, query) $+ : $1-
      }
      echo $hget(Highlight, Highlight) $iif($chan, $chan, $nick) $timestamp $+($chr(60),$iif($chan, $nick($chan,$nick).pnick, $nick),$chr(62)) $1-
    }
    else {
      if (!$window(@Highlight)) {
        window @Highlight
      }
      if (($chan) && ($chan != $active)) {
        aline -hp @Highlight $timestamp $nick highlighted you in $iif($chan, $v1, query) $+ : $1-
      }
      echo $hget(Highlight, Highlight) $iif($chan, $chan, $nick) $timestamp $+($chr(60),$iif($chan, $nick($chan,$nick).pnick, $nick),$chr(62)) $1-
      if ($appactive == $false) {
        flash -bwr $iif($chan, $v1, $nick)
      }
    }
  }
}
on ^*:INVITE:#:{
  haltdef
  if (!$window(@Invite)) {
    window @Invite
  }
  hinc -mz Invite $nick 90
  if ($hget(Invite, $nick) > 180) {
    if (!$hget(Ban, $wildsite)) {
      hadd -m Ban $wildsite Flooding
      .notice $nick The wildsite $+($chr(91),$wildsite,$chr(93)) is banned because of flooding.
    }
    aline -ph @Flood $timestamp $nick invited you to join $chan $+ . However, the wildsite $+($chr(91),$wildsite,$chr(93)) is banned because of flooding.
  }
  elseif (($hget(Ban, $chan)) || ($hget(Ban, $wildsite))) {
    .notice $nick $iif($hget(Ban, $chan), $v1, $hget(Ban, $wildsite))
    aline -ph @Invite $timestamp $nick invited you to $chan $+ . However, the channel $iif($hget(Ban, $chan), channel, wildsite) $+($chr(91),$iif($hget(Ban, $chan), $v1, $hget(Ban, $wildsite)),$chr(93)) is banned.
  }
  elseif (30 == $chan(0)) {
    .notice $nick I am in 30 channels and, therefore, cannot join $chan $+ .
    aline -ph @Invite $timestamp $nick invited you to $chan $+ . However, I am on 30 channels and, therefore, cannot join $chan $+ .
  }
  else {
    join $chan
    aline -ph @Invite $timestamp $nick invited you to $chan $+ . Because the channel $+($chr(91),$chan,$chr(93)) and wildsite $+($chr(91),$wildsite,$chr(93)) is not banned, I joined $chan $+ .
  }
}