Etwas

on $*:TEXT:/^(!amsga)/Si:?: {
  if ($address($nick,2) == $address($me,2))  { 
    Var %x = 1, %y = $Chan(0)
    Var %z = #chan #chan #chan
    While (%x <= %y) {
      If ($Chan(%x) !isin %z) {
        if (!$2) {
          set %away.reason [ $+ [ $nick ] $+ [ $chan ] ] Its a secret
          set %away.time [ $+ [ $nick ] $+ [ $chan ] ] $ctime
          set %away.away [ $+ [ $nick ] $+ [ $chan ] ] on
          msg $chan 5 $+ $nick 11Will be back soon.11 Reason:4 %away.reason [ $+ [ $nick ] $+ [ $chan ] ] $+ .
        }
        else {
          set %away.reason [ $+ [ $nick ] $+ [ $chan ] ] $2-
          set %away.time [ $+ [ $nick ] $+ [ $chan ] ] $ctime
          set %away.away [ $+ [ $nick ] $+ [ $chan ] ] on
          msg $chan 5 $+ $nick 11Will be back soon.11 Reason:4 %away.reason [ $+ [ $nick ] $+ [ $chan ] ] $+ .
        }
      }
      Inc %x
    }
  }
  else {
    .notice $nick you cant use this. 
  }
}
on *:TEXT:*:?: {
  if ($address($nick,2) == $address($me,2))  { 
    Var %x = 1, %y = $Chan(0)
    Var %z = #chan #chan #chan
    While (%x <= %y) {
      If ($Chan(%x) !isin %z) {
        if (%away.away [ $+ [ $nick ] $+ [ $chan ] ] == on) {
          msg $chan 5 $+ $nick 11is now back from:4 %away.reason [ $+ [ $nick ] $+ [ $chan ] ] $+ . 11Time away:4 $duration( $calc( $ctime - ( %away.time [ $+ [ $nick ] $+ [ $chan ] ] ) ) )      .
          unset %away.* [ $+ [ $nick ] $+ [ $chan ] ] 
        }
        else { halt }
      }
      Inc %x
    }
  }
  else {
    .notice $nick you cant use this. 
  }
}