alias away { 
  set %timer $time
  set %reason $1-
  /ame 0is away now... Reason:10 %reason
  set %away.time $ctime
  set %gone on
set %nick $me
/nick $me $+ `afk
}
alias back { 
  if (%gone == $NULL) /echo $active Your not away
  else /ame 0is back from10 %reason $+ , 0I was away for10 $duration($calc($ctime - %away.time)) $+ 0. 
  unset %away.time
  unset %reason
  unset %gone 
/nick %nick
}
on *:OPEN:*:*: { 
  if (%gone == on) { msg $nick Hey $nick $+ , atm im not here. Ill be back later to check your message :) | halt }
  else { halt } 
}
on 1:TEXT:*:#: { 
  if (%flood == on) { 
    halt 
  }
  if ($me isin $1-) && (%gone == on) { 
    describe $chan 0is away:10 %reason  ... 0Went away @ %timer (GMT+1) 10Awaytime: $duration($calc($ctime - %away.time)) $+ 0. 
    set %flood on
    timer 1 120 unset %flood
  halt }  
}
on 1:ACTION:*:#: { 
  if (%flood == on) { 
    halt 
  }
  if ($me isin $1-) && (%gone == on) { 
    describe $chan 0is away:10 %reason  ... 0Went away @ %timer (GMT+1) 10Awaytime: $duration($calc($ctime - %away.time)) $+ 0. 
    set %flood on
    timer 1 120 unset %flood
  halt }  
}

Commenting Options