Anonymous

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 inactive 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
}
dialog noreason {
  title "ERROR: No reason detected"
  size -1 -1 128 38
  option dbu
  text "Please input a reason: or select Away (no reason)", 1, 12 4 112 16
  button "Ok", 2, 43 21 37 12
}
ALIAS F7 {
  /dialog -m multi multi
}
dialog multi {
  title "Multi Function Dialog"
  size -1 -1 246 142
  option dbu
  menu "File", 1
  item "Away System", 2, 1
  item "Close", 3, 1
}
on *:dialog:multi:sclick:2: {
  /dialog -x multi multi
  /dialog -m awaymain awaymain
}

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

on *:dialog:noreason:sclick:2: {
  /dialog -x noreason noreason
/dialog -m awaymain awaymain }

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:awaymain:sclick:2: {
  if (!%inactive.nick) {
    /dialog -x awaymain awaymain
  /dialog -m noinactive noinactive }
  else {
    /set %away YES
    /set %away.time $ctime
    /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 {
    set %timeaway $duration($calc($ctime - %away.time))
    /nick %active.nick
    var %x = 1
    while (%x <= $chan(0)) {
      timer 1 2 /describe $chan(%x) is now back! Away time: %timeaway ; Back at: $time
      inc %x } | {
      /unset %away.time
      /unset %timeaway
      /unset %away 
      /unset %areason
    }
  }
}

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: {
/away.die }

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) && (%inactive.nick) { 
    /dialog -x awaymain awaymain 
    /dialog -m noreason noreason
  }
  if (!%inactive.nick) && ($did(7) == $null) { 
    /dialog -x awaymain awaymain
    /dialog -m errorinactive errorinactive
  }
  if (!%inactive.nick) && ($did(7)) { 
    /dialog -x awaymain awaymain
  /dialog -m errorinactive errorinactive }
  elseif (%inactive.nick) && ($did(7)) {
    /set %away.time $ctime
    /set %away YES
    /set %areason $did(7)
    var %x = 1
    while (%x <= $chan(0)) {
      timer 1 2 /describe $chan(%x) is now AFK Reason: %areason ; Left at: $time
      inc %x
      /nick %inactive.nick 
    }
  }
}
alias away.die {
  var %i 152
  while (%i >= 0) {
    dialog -srb awaymain -1 -1 %i %i
    var %t 1
    while (%t <= 81) inc %t
    dec %i
  }
  dialog -c awaymain
}