Away

on *:text:!away*:*: { %reason [ $+ [ $nick ] ] $1 $2 $3 $4
 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 ] ] 
}

on *:text:!away*:*: {  msg $chan (Info) $nick is now away with the reason: $2-
msg $chan (Info) $nick is away for %reason [ $+ [ $network ] ] [ $+ [ $nick ] ] after $duration(%time [ $+ [ $network ] ] [ $+ [ $nick ] ])
}