Someone

on *:text:!gone*:#: { if ($nick isvoice $chan) || ($nick isreg $chan) { HALT } else { 
    if (%afk [ $+ [ $network ] ] [ $+ [ $nick ] ] == 1) {
    notice $nick You are already set as away, use !back | halt }
    if ($2 == $null) {
    notice $nick Usage: !gone <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 7 $nick is now away 15Reason:7[[15 $2- 7]] 
} }

on *:text:!back*:#: { if ($nick isvoice $chan) || ($nick isreg $chan) { HALT } else { 
    if (%afk [ $+ [ $network ] ] [ $+ [ $nick ] ] == 0) {
      notice $nick You are not set as away, use !gone <msg here> | halt } {
      .msg $chan 7 $nick has returned:15[[7Away Since15]]7 $duration(%time [ $+ [ $network ] ] [ $+ [ $nick ] ])
      timer [ $+ [ $network ] ] [ $+ [ $nick ] ] off
      unset %reason [ $+ [ $network ] ] [ $+ [ $nick ] ]
      unset %time [ $+ [ $network ] ] [ $+ [ $nick ] ]
    set %afk [ $+ [ $network ] ] [ $+ [ $nick ] ] 0 }
} }