Etwas

on *:TEXT:!amsg *:?:{
  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) {
        set %away.reason2 [ $+ [ $nick ] $+ [ $chan ] ] $2-
        set %away.time2 [ $+ [ $nick ] $+ [ $chan ] ] $ctime
        set %away.away2 [ $+ [ $nick ] $+ [ $chan ] ] on
        Msg $Chan(%x) [4Auto 1msg] ~~ $nick ~~ is now away, reason:4 $2- 12 $time
      }
      Inc %x
    }
  }
  else {
    .notice $nick you cant use this. 
  }
}
on *:TEXT:*:?:{
  if ($address($nick,2) == $address($me,2))  { 
    if (%away.away2 [ $+ [ $nick ] $+ [ $chan ] ] == on) {
      Var %x = 1, %y = $Chan(0)
      Var %z = #chan #chan #chan
      While (%x <= %y) {
        If ($Chan(%x) !isin %z) {
          msg $chan(%x) [4Auto 1msg] ~~ $nick ~~ is now back from:4 %away.reason [ $+ [ $nick ] $+ [ $chan ] ] $+ . 1Time away:12 $duration( $calc( $ctime - ( %away.time [ $+ [ $nick ] $+ [ $chan ] ] ) ) )      .
          unset %away.* [ $+ [ $nick ] $+ [ $chan ] ] 
        }
        Inc %x
      }
    }
    else {
      .notice $nick you cant use this. 
    }
  }
}