Something

ALIAS F8 {
  /dialog -m awaymain awaymain
}
menu * {
  Away dialog:/dialog -m awaymain awaymain
}
dialog awaymain {
  title "Away Dialog"
  size -1 -1 152 81
  option dbu
  button "Away (no reason)", 2, 8 6 67 12
  button "Away", 3, 9 25 37 12
  button "Set Active Nick", 4, 101 8 43 12
  button "Back!", 5, 9 45 37 12
  button "Set inactive nick", 6, 101 46 43 12
  edit "", 7, 50 26 50 10
  text "Reason ^^^^", 1, 51 36 49 8
  button "Credits", 8, 9 64 37 12
  text "Created by [-God-]", 9, 96 70 46 8
  button "Close", 10, 55 65 37 12
}
dialog credits {
  title "Credits"
  size -1 -1 138 47
  option dbu
  text "Credits", 1, 58 3 25 8
  text "Created by [-God-]", 2, 10 15 61 8
  button "Back", 3, 90 12 37 12
  button "#[-God-]", 4, 90 27 37 12
}

dialog setactive {
  title "Set active Nick!"
  size -1 -1 127 49
  option dbu
  text "Set active nick!", 1, 47 3 44 8
  edit "", 2, 14 17 50 10
  button "Set", 3, 71 16 37 12
  button "Back", 4, 71 30 37 12
}
dialog setinactive {
  title "Set inactive Nick!"
  size -1 -1 127 49
  option dbu
  text "Set unactive nick!", 1, 47 3 44 8
  edit "", 2, 14 17 50 10
  button "Set", 3, 71 16 37 12
  button "Back", 4, 71 30 37 12
}
dialog erroractive {
  title "ERROR"
  size -1 -1 126 41
  option dbu
  text "SET ACTIVE NICK ERROR - NO NICK ENTERED", 1, 5 4 120 8
  button "Retry", 2, 20 18 37 12
  button "Cancel", 3, 69 18 37 12
}
dialog errorinactive {
  title "ERROR"
  size -1 -1 126 41
  option dbu
  text "SET INACTIVE NICK ERROR - NO NICK ENTERED", 1, 5 4 120 8
  button "Retry", 2, 20 18 37 12
  button "Cancel", 3, 69 18 37 12
}
dialog noinactive {
  title "ERROR"
  size -1 -1 126 41
  option dbu
  text "ERROR NO INACTIVE NICK SET", 1, 21 4 80 8
  button "Set one", 2, 20 18 37 12
  button "Cancel", 3, 69 18 37 12
}
dialog noactive {
  title "ERROR"
  size -1 -1 126 41
  option dbu
  text "ERROR NO ACTIVE NICK SET", 1, 21 4 80 8
  button "Set one", 2, 20 18 37 12
  button "Cancel", 3, 69 18 37 12
}

on *:dialog:noactive:sclick:2: {
  /dialog -x noactive noactive
/dialog -m setactive setactive }

on *:dialog:noactive:sclick:3: {
  /dialog -x noactive noactive
/dialog -m awaymain awaymain }

on *:dialog:noinactive:sclick:2: {
  /dialog -x noinactive noinactive
/dialog -m setinactive setinactive }

on *:dialog:noinactive:sclick:3: {
  /dialog -x noinactive noinactive
/dialog -m awaymain awaymain }

on *:dialog:erroractive:sclick:3: {
  /dialog -x erroractive erroractive
/dialog -m awaymain awaymain }

on *:dialog:errorinactive:sclick:2: {
  /dialog -x errorinactive errorinactive
/dialog -m setinactive setinactive }

on *:dialog:errorinactive:sclick:3: {
  /dialog -x erroractive erroractive
/dialog -m awaymain awaymain }

on *:dialog:awaymain:sclick:2: {
  if (!%inactive.nick) {
    /dialog -x awaymain awaymain
  /dialog -m noinactive noinactive }
  else {
    /set %away
    /nick %inactive.nick 
    var %x = 1
    while (%x <= $chan(0)) {
      timer 1 2 /describe $chan(%x) is now AFK Reason: none Left at: $time
      inc %x
    }
  }
}
on *:dialog:awaymain:sclick:5: {
  if (!%active.nick) {
    /dialog -x awaymain awaymain
  /dialog -m noactive noactive }
  else {
    var %x = 1
    while (%x <= $chan(0)) {
      timer 1 2 /describe $chan(%x) is now back!
      inc %x 
      /unset %away  
      /unset %areason
    /nick %active.nick }
  }
}

on *:dialog:awaymain:sclick:6: {
  /dialog -x awaymain awaymain
/dialog -m setinactive setinactive }

on *:dialog:setactive:sclick:4: {
  /dialog -x setactive setactive
/dialog -m awaymain awaymain }

on *:dialog:setinactive:sclick:4: {
  /dialog -x setinactive setinactive
/dialog -m awaymain awaymain }

on *:dialog:awaymain:sclick:4: {
  /dialog -x awaymain awaymain
/dialog -m setactive setactive }

on *:dialog:setactive:sclick:4: {
  /dialog -x awaymain awaymain
/dialog -m setactive setactive }

on *:dialog:awaymain:sclick:10: {
/dialog -x awaymain awaymain }

on *:dialog:credits:sclick:3: {
  /dialog -x credits credits
/dialog -m awaymain awaymain }

on *:dialog:credits:sclick:4: {
/join #[-God-] }

on *:dialog:awaymain:sclick:8: {
  /dialog -x awaymain awaymain
/dialog -m credits credits }

on *:dialog:setactive:sclick:3: {
  if ($did(2) == $null) { 
    /dialog -x setactive setactive
    /dialog -m erroractive erroractive
  }
  else {
    set %active.nick $did(2)
    /dialog -x setactive setactive
  /dialog -m awaymain awaymain }
}

on *:dialog:setinactive:sclick:3: {
  if ($did(2) == $null) { 
    /dialog -x setinactive setinactive
  /dialog -m errorinactive errorinactive }
  else {
    set %inactive.nick $did(2)
    /dialog -x setinactive setinactive
  /dialog -m awaymain awaymain }
}
on *:dialog:awaymain:sclick:3: {
  if ($did(7) == $null) { halt }
  else {
    /set %away
    /set %areason $did(7)
    /nick %inactive.nick 
    var %x = 1
    while (%x <= $chan(0)) {
      timer 1 2 /describe $chan(%x) is now AFK Reason: %areason
      inc %x
    }
  }
}