Untitled

################
#Quotes Dialogs#
################
alias quotes {
  if ($dialog(quotes)) { dialog -v quotes }
  else { dialog -dm quotes quotes }
}

alias f3 {
  loadbuf -ro quotes 4 quotes.txt
}

dialog -l quotes {
  title "Quotes Manager"
  size -1 -1 183 164
  option dbu
  icon C:\Windows\system32\shell32.dll, 172
  button "Close", 1, 2 151 39 12, default ok
  edit "Click on a quote to see it here.", 2, 43 102 137 60, read multi autovs vsbar
  box "Quote List", 3, 1 2 180 97
  list 4, 3 10 176 88,size vsbar
  button "Add Quote", 5, 2 101 39 10
  button "Delete Quote", 6, 2 111 39 10
  button "Say Quote", 7, 2 121 39 10
  button "Random Quote", 8, 2 141 39 10
  button "Amsg Quote", 9, 2 131 39 10
}

########
#Events#
########
On *:dialog:*:*:*:{
  if ($dname == quotes) {
    if ($devent == init) {
      if ($did == 0) {
        if ($isfile(quotes.txt) == $false) { write quotes.txt }
        loadbuf -ro $dname 4 quotes.txt
        did -ra $dname 3 Quotes List - $lines(quotes.txt) quotes.
      }
    }
    if ($devent == sclick) {
      if ($did == 4) {
        did -ra $dname 2 $did(4).seltext
      }
      if ($did == 5) {
        var %aquote $strip($$?="Quote to add?")
        if ($read(quotes.txt,s,%aquote)) {
          echo -a 4Q14uote already exists.
          dialog -v $dname
          .return
        }
        else {
          write quotes.txt %aquote
          echo -a 4Q14uote " $+ %aquote $+ " added to quotes list.
          loadbuf -ro $dname 4 quotes.txt
          did -ra $dname 3 Quotes List - $lines(quotes.txt) quotes.txt
          dialog -v $dname
        }
      }
      elseif ($did == 6) {
        write -dl $+ $did(4).sel quotes.txt 
        echo -a 4Q14uote removed from quotes list.
        loadbuf -ro $dname 4 quotes.txt
        did -ra $dname 3 Quotes List - $lines(quotes.txt) quotes.txt
        dialog -v $dname
      }
      elseif ($did == 7) {
        if ($did(4).sel < 1) {
          echo -a 4N14o quote selected.
          .return
        }
        else {
          msg $active 4S14elected 4Q14uote 04 $+ $did(quotes,4).sel 14- $did(quotes,4).seltext
        }
      }
      elseif ($did == 8) {
        if ($lines(quotes.txt) < 1) {
          echo -a 4N14o quotes in quotes list.
          .return
        }
        else {
          msg $active 4R14andom 4Q14uote 14- $read(quotes.txt)
        }
      }
      elseif ($did == 9) {
        if ($did(4).sel < 1) {
          echo -a 4N14o quote selected.
          .return
        }
        else {
          amsg 4S14elected 4Q14uote 04 $+ $did(quotes,4).sel 14- $did(quotes,4).seltext
        }
      }
    }
  }
}
########
#Popups#
########
menu channel,status,nicklist,menubar,query {
  .Quotes Dialog:quotes