All pastes #974206 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-04-06 17:18 UTC
rendered paste body
Alias global {
  var %x = 1
  var %y = $chan(0)
  var %z = #IRChelp,#SwiftSwitch,#SwiftIRC,#Support,#Idle,#mSL
  while (%x <= %y) {
    if ($chan(%x) !isin %z) {
      msg $chan(%x) [07Global12] $1-
    }
    inc %x
  }
}
Alias away {
  var %x = 1
  var %y = $chan(0)
  if ($away == $true) {
    set %Away.Duration $duration($calc($ctime - $ctime(%Away.Ctime))) 
    while (%x <= %y) {
      if (E !isincs $chan($chan(%x)).mode || c !isincs $chan($chan(%x)).mode) {
        describe $chan(%x) 14is now 04back14 from03(04Reason:14 %Away.Reason 03(04Left at:14 %Away.Time 03(04Duration:14 %Away.Duration 03)))
      }
      inc %x
    }
    away
    unset %Away.Time
    unset %Away.Reason
    unset %Away.Ctime
    unset %Away.Duration
  }
  else {
    set %Away.Ctime $fulldate
    set %Away.Time $asctime(mmm dd) $+ , $time
    set %Away.Reason $1-
    away %Away.Reason
    while (%x <= %y) {
      if (E !isincs $chan($chan(%x)).mode || c !isincs $chan($chan(%x)).mode) {
        describe $chan(%x) 14is now 04away14 for03(04Reason:14 %Away.Reason 03(04Time:14 %Away.Time 03))
      }
      inc %x
    }
  }
}