Unnamed

enu * { 
  brb:brb 
} 
alias brb { 
  dialog -md brb brb 
} 
dialog brb { 
  title "away" 
  size -1 -1 100 100 
  option dbu 
  edit "", 1, 5 17 90 10 
  text "Reason", 2, 35 5 30 12 
  text "Return at", 3, 35 29 30 12 
  edit "", 4, 5 40 90 12 
  button "Away", 5, 55 60 20 12 
  button "Back", 6, 25 60 20 12 
  text "Made by bubblez6000 Version 1.0", 7, 25 80 60 12 
} 
on *:Dialog:brb:sclick:5:{ 
  var %brb = 1 
  while (%brb <= $chan(0)) { 
    if ($me ison $chan(%brb)) { 
      msg $chan(%brb)  $nick is currently Away, Reason: $did(1) Will Return in: $did(4) 
    } 
    inc %brb 
  } 
  set %gone $did(1) 
} 
on *:Dialog:brb:sclick:6: { 
  var %back = 1 
  while (%back <= $chan(0)) { 
    if ($me ison $chan(%back)) { 
      msg $chan(%back) $nick is Back from:  %gone 
    } 
    inc %back 
  } 
  unset %gone 
}