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. 
  }
}