alias ame {
  /var %x 1
  /while (%x <= $chan(0)) {
    /describe $chan(%x) $1-
    /inc %x
  }
}
alias amode {
  /var %x 1
  /while (%x <= $chan(0)) {
    /mode $chan(%x) $1-
    /inc %x
  }
}
alias amsg {
  /var %x 1
  /while (%x <= $chan(0)) {
    /msg $chan(%x) $1-
    /inc %x
  }
}
alias favorites {
  if ($1 == SwiftIRC) {
    /join #Andrew`-
    /join #Angela
    /join #CastleWars
    /join #Freeze
    /join #General
    /join #Home
    /join #iAndrew
    /join #iGewgle
    /join #Infinitive
    /join #Infinity?
    /join #IRCHelp
    /join #Karl
    /join #Kerst
    /join #Laz
    /join #LS
    /join #mIRC
    /join #mSL
    /join #PC
    /join #Programming
    /join #RS
    /join #RSHelp
    /join #RSMarket
    /join #RSPC
    /joiN #RSZone
    /join #Ryu
    /join #Support
    /join #SwiftRS
    /join #SwiftSwitch
    /join #Talk
    /join #TGL
    /join #XboxLive
    /join #ZybezEvent
  }
}
menu status,channel,query,menu {
  $me
  .Away
  ..Away:{
    /away $$?="Enter an Away Message."
    /ame is Away. Away Message: $! $chr(124) Time: $asctime(h:nn:ss)
  }
  ..Back:{
    if ($away == $true) {
      /ame is Back. Away Message: $awaymsg $chr(124) Away Time: $duration($awaytime)
      /.timer 1 7 /away
    }
    else {
      /echo -at $me is not away.
    }
  }
  .Favorites:{
    /favorites $network
  }
}
on *:INPUT:*:{
  if (($mid($1,1,2) === +v) || ($mid($1,1,2) === -v)) {
    /mode $chan $iif($2, $+($mid($1,1,1),$str($mid($1,2,1),$numtok($2-,32))), $mid($1,1,2)) $iif($2, $2-, $me)
  }
  if (($mid($1,1,2) === +h) || ($mid($1,1,2) === -h)) {
    /mode $chan $iif($2, $+($mid($1,1,1),$str($mid($1,2,1),$numtok($2-,32))), $mid($1,1,2)) $iif($2, $2-, $me)
  }
  if (($mid($1,1,2) === +o) || ($mid($1,1,2) === -o)) {
    /mode $chan $iif($2, $+($mid($1,1,1),$str($mid($1,2,1),$numtok($2-,32))), $mid($1,1,2)) $iif($2, $2-, $me)
  }
  if (($mid($1,1,2) === +a) || ($mid($1,1,2) === -a)) {
    /mode $chan $iif($2, $+($mid($1,1,1),$str($mid($1,2,1),$numtok($2-,32))), $mid($1,1,2)) $iif($2, $2-, $me)
  }
  if (($mid($1,1,2) === +q) || ($mid($1,1,2) === -q)) {
    /mode $chan $iif($2, $+($mid($1,1,1),$str($mid($1,2,1),$numtok($2-,32))), $mid($1,1,2)) $iif($2, $2-, $me)
  }
  if (($mid($1,1,2) === +b) || ($mid($1,1,2) === -b)) {
    /mode $chan $mid($1,1,2) $iif($gettok($1-,$numtok($1-,32),32) == $mid($1,1,2), $me, $iif($gettok($1-,$numtok($1-,32),32) isnum 1-19, $iif($gettok($1-,$calc($numtok($1-,32) - 1),32) == $mid($1,1,2), $address($me,$gettok($1-,$numtok($1-,32),32)), $address($2,$gettok($1-,$numtok($1-,32),32))), $2))
  }
  if (($mid($1,1,2) === +c) || ($mid($1,1,2) === -c)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +e) || ($mid($1,1,2) === -e)) {
    /mode $chan $mid($1,1,2) $iif($gettok($1-,$numtok($1-,32),32) == $mid($1,1,2), $me, $iif($gettok($1-,$numtok($1-,32),32) isnum 1-19, $iif($gettok($1-,$calc($numtok($1-,32) - 1),32) == $mid($1,1,2), $address($me,$gettok($1-,$numtok($1-,32),32)), $address($2,$gettok($1-,$numtok($1-,32),32))), $2))
  }
  if (($mid($1,1,2) === +I) || ($mid($1,1,2) === -I)) {
    /mode $chan $mid($1,1,2) $iif($gettok($1-,$numtok($1-,32),32) == $mid($1,1,2), $me, $iif($gettok($1-,$numtok($1-,32),32) isnum 1-19, $iif($gettok($1-,$calc($numtok($1-,32) - 1),32) == $mid($1,1,2), $address($me,$gettok($1-,$numtok($1-,32),32)), $address($2,$gettok($1-,$numtok($1-,32),32))), $2))
  }
  if (($mid($1,1,2) === +f) || ($mid($1,1,2) === -f)) {
    /mode $chan $mid($1,1,2) $iif($2, $2, $+([8c#C5,$chr(44),7j#R5,$chr(44),5k#K5,$chr(44),20m#M5,$chr(44),5n#N5,$chr(44),8t#b]:15))
  }
  if (($mid($1,1,2) === +i) || ($mid($1,1,2) === -i)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +j) || ($mid($1,1,2) === -j)) {
    /mode $chan $mid($1,1,2) $iif($2, $2, 2:30)
  }
  if (($mid($1,1,2) === +k) || ($mid($1,1,2) === -k)) {
    /mode $chan $mid($1,1,2) $$2
  }
  if (($mid($1,1,2) === +l) || ($mid($1,1,2) === -l)) {
    /mode $chan $mid($1,1,2) $iif($2, $2, 2147483647)
  }
  if (($mid($1,1,2) === +m) || ($mid($1,1,2) === -m)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +n) || ($mid($1,1,2) === -n)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +p) || ($mid($1,1,2) === -p)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +r) || ($mid($1,1,2) === -r)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +s) || ($mid($1,1,2) === -s)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +t) || ($mid($1,1,2) === -t)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +z) || ($mid($1,1,2) === -z)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +A) || ($mid($1,1,2) === -A)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +C) || ($mid($1,1,2) === -C)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +G) || ($mid($1,1,2) === -G)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +M) || ($mid($1,1,2) === -M)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +K) || ($mid($1,1,2) === -K)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +L) || ($mid($1,1,2) === -L)) {
    /mode $chan $mid($1,1,2) $iif($2, $2, $chan($rand(1,30)))
  }
  if (($mid($1,1,2) === +N) || ($mid($1,1,2) === -N)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +O) || ($mid($1,1,2) === -O)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +Q) || ($mid($1,1,2) === -Q)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +R) || ($mid($1,1,2) === -R)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +S) || ($mid($1,1,2) === -S)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +T) || ($mid($1,1,2) === -T)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +V) || ($mid($1,1,2) === -V)) {
    /mode $chan $mid($1,1,2)
  }
  if (($mid($1,1,2) === +u) || ($mid($1,1,2) === -u)) {
    /mode $chan $mid($1,1,2)
  }
}
on *:ACTION:$(*huggles $me $+ *):*:{
  /describe $iif($chan, $chan, $nick) huggles $nick
}
alias RPL_AWAY {
  if ($readini(SwiftIRC.ini, Raw, 301) == $null) {
    //echo -at $$1 is not away.
  }
  if ($readini(SwiftIRC.ini, Raw, 301) != $null) {
    //echo -at $$1 is away: $remove($readini(SwiftIRC.ini, Raw, 301),$1-2)
    /timer 1 7 /remini SwiftIRC.ini Raw 301
  }
}
menu nicklist {
  -
  Away?:{
    /whois $$1
    /timer 1 7 /RPL_AWAY $$1
  }
}
raw 301:*:{
  /writeini SwiftIRC.ini Raw 301 $$1-
}