Unnamed

alias amsg { 
  if (!$1) echo $color(info) * /amsg: Invalid syntax [/amsg <msg>] 
  elseif ($1) { 
    var %t = 1
    while (%t <= $scon(0)) { 
      scid %t
      var %c = $chan(0)
      while (%c) {
        msg $chan(%c) $1-
        dec %c
      }
      inc %t
    }
  }
}
alias ame { 
  if (!$1) echo $color(info) * /ame: Invalid syntax [/ame <action>]
  elseif ($1) {
    var %t = 1
    while (%t <= $scon(0)) { 
      scid %t
      var %c = $chan(0)
      while (%c) {
        describe $chan(%c) $1-
        dec %c
      }
      inc %t
    }
  }
}



alias brb { 
  if ($away == $false) {
    var %away.reason = $input(Away Reason,e,CT Away) 
    /ame 12[14Away12] %away.reason 12[14Time Left12] $time(hh:nn TT) 
    /tnick $me $+ [AWAY]
    /away %away.reason
  }
}

alias here {
  if ($away == $true) {
    /nick $mnick
    /ame 12[14Back From12] $awaymsg [14Time Away12] $duration($awaytime) 
    /away
  }
}
on *:TEXT:*:# {
  if ($away == $true) && ($mnick isin $1-) /notice $nick Currently Away: $awaymsg  Gone For: $duration($awaytime) 
}
on *:INPUT:*: {
  if ($Left($strip($1-),1) != /) {
    if ($away == $true) { /here }
    .timerAutoaway 1 2600 { /setawaynow }
  }
}
alias setawaynow { 
  /away Auto Away | /tnick $me $+ [Gone] | /me 12[14Away12] $awaymsg 12[14Time Left12] $time(hh:nn TT) 
}