Anonymous

menu * { 
  Away Script:/dialog -m Away Away
}

dialog Away {
  title "Away Dialog"
  size -1 -1 120 60
  option dbu
  text "Made by Bmw13cool", 1, 50 49 100 10
  button "Away!", 2, 2 17 30 10 
  button "Back!", 3, 2 32 30 10
  button "Cancel", 4, 2 47 30 10, Cancel
  edit "Type your away message here", 5, 34 16 84 30
  edit "New nick?", 6, 34 2 84 13
  check "Check Box", 7, 25 5 7 7
  text "Change   nick?", 8, 2 0 18 15
}

on *:dialog:Away:sclick:2:{ 
  set %reason $did(5)
  /amsg 10-2=1[10 AMSG1 ]2=10-1 I am now going away. Reason: %reason
  if ($did(7).state) { /nick $did(6) }
  set %wasnick $me
  set %awaytime $ctime
}
on *:dialog:Away:sclick:3:{ 
  /amsg 10-2=1[10 AMSG1 ]2=10-1 I am now  back from: %reason $+ . Time away: $duration($calc($ctime - %awaytime))
  /nick %wasnick
}