Someone

on *:text:!away*:*: { 
  if (%afk [ $+ [ $network ] ] [ $+ [ $nick ] ] == 1) {
  notice $nick You are already set as away, use !back | halt }
  if ($2 == $null) {
  notice $nick Usage: !away <Reason> | halt }
  set %reason [ $+ [ $network ] ] [ $+ [ $nick ] ] $2-
  set %afk [ $+ [ $network ] ] [ $+ [ $nick ] ] 1
  set %time [ $+ [ $network ] ] [ $+ [ $nick ] ] 1
  timer [ $+ [ $network ] ] [ $+ [ $nick ] ] 0 1 /inc %time [ $+ [ $network ] ] [ $+ [ $nick ] ] 
  msg $chan (Infomation)12 $nick is now away with the reason: $2-12
}

on *:text:!back*:*: {
  if (%afk [ $+ [ $network ] ] [ $+ [ $nick ] ] == 0) {
  notice $nick You are not set as away, use !away | halt }
  msg $chan (Infomation)12 $nick is back %reason12 [ $+ [ $network ] ] [ $+ [ $nick ] ] after $duration(%time [ $+ [ $network ] ] [ $+ [ $nick ] ])
  timer [ $+ [ $network ] ] [ $+ [ $nick ] ] off
  unset %reason [ $+ [ $network ] ] [ $+ [ $nick ] ]
  unset %time [ $+ [ $network ] ] [ $+ [ $nick ] ]
  set %afk [ $+ [ $network ] ] [ $+ [ $nick ] ] 0
}