Away/AMSG Scripts

alias leaving {
  set %awayreason $1-
  set %left $time
  set %ctime $ctime
  away %awayreason
  amsg 14I am now 12[7A14way12] 12[«7R14eason:12»]7 $1- 12[7L14eft at:12]7 %left $+
}

ON *:TEXT:*Mp5*:#: If (%awayreason) notice $nick 14I am Currently 12[7A14way12]  12[«7R14eason:12»]] %awayreason 14[7L14eft at:] %left $+}
alias back {
  amsg 14I am now 12[7B14ack12] 12[«7R14eason:12»]7 %awayreason 12[7 I 14was Gone for: $duration($calc($ctime - %ctime)) 12]
  away
  unset %awayreason
  unset %ctime
  unset %left
}

##########
##########

alias amsg {
  var %a 1 
  :loop
  if (%a < $comchan($me,0)) {
    if (!$istok($cblock,$comchan($me,%a),32)) {
      var %b = $addtok(%b,$comchan($me,%a),44)
    }
    if ($numtok(%b,44) == 20) {
      msg %b $$1-
      var %b
    }
    inc %a
    goto loop
  }
  elseif (%a == $comchan($me,0)) {
    if (!$istok($cblock,$comchan($me,%a),32)) var %b = $+(%b,$chr(44),$comchan($me,%a))
    msg %b $$1-
  }
}
alias cblock {
  if ($1 = -a) { write $+(-l,$calc($scriptline +1)) $script $read($script,$calc($scriptline +1)) $2 }
  elseif (!$1) return #Idle #Help #SwiftIRC #mSL #RSHelp #support
}