dialog Poll_System {
  title "Poll System By Edie"
  size -1 -1 177 153
  option dbu
  text "Type the Poll Question here:", 2, 30 10 100 10
  edit "Poll Question...", 1, 10 20 130 10 
  text "Type here The 2 Answers", 3, 30 33 90 80
  edit "Answer 1...", 4, 10 43 60 12
  edit "Answer 2...", 5, 80 43 60 12
  button "Make Poll", 6, 45 58 60 12
  text "Edie's Poll Script 1.0 { BETA } ", 7, 50 130 50 30
} 
on *:dialog:Poll_System:sclick:6:{ 
  write PollQuestion.txt $did(Poll_System,1) 
}
menu * {
  Poll System:/dialog -m Poll_System Poll_System
}
ON *:text:!poll:#:{  
  /msg $chan $read(PollQuestion.txt,($lines(PollQuestion.txt)))
}