dialog Quotes {
  title "Quotes"
  size -1 -1 209 70
  option dbu
  edit "", 1, 0 9 209 34, multi
  text "Enter Quote to Save Here", 2, 70 0 64 9
  button "Save Quote", 3, 4 52 37 12
  button "Cancel", 4, 46 52 37 12
  button "View Quotes", 5, 124 52 37 12
  button "Play Quote", 6, 167 52 37 12
  text "By Vegeta", 7, 179 0 29 8
}
dialog Quotes2 {
  title "Quote"
  size -1 -1 209 70
  option dbu
  text "If there are more lines to your quote, enter the line number now", 1, 25 0 159 8
  edit "", 2, 75 19 50 10
  button "Enter", 3, 29 46 37 12
  button "Done", 4, 146 46 37 12
}
alias Quote dialog -m Quotes Quotes | set %QuoteChan $chan
alias DontUseThisAlias dialog -m Quotes2 Quotes2
on *:dialog:Quotes:sclick:3:{
  var %x = 1
  while (%x <= $did(1).lines) {
    write Quoter.txt %xinc $did(1,%x)
    inc %x
    inc %xinc
  }
}
on *:dialog:Quotes:sclick:4:{
  dialog -x Quotes Quotes
}
on *:dialog:Quotes:sclick:5:{
  window -e @quote
  play -e @quote C:\Users\Vegeta\AppData\Roaming\mIRC\Quoter.txt
}
on *:dialog:Quotes:sclick:6:{
  set %Quoterific $?=="Enter Quote Number"
  msg %QuoteChan Vegeta Quote %Quoterific $+ : $read(Quoter.txt, s, %Quoterific)
  unset %Quoterific
  /DontUseThisAlias
}
on *:dialog:Quotes2:sclick:3:{
  msg %QuoteChan $read(Quoter.txt, s, $did(2))
  dialog -x Quotes2 Quotes2
  /DontUseThisAlias
}
on *:dialog:Quotes2:sclick:4:{
  dialog -x Quotes2 Quotes2
}