irc notepad

Menu channel {
  IRC NOTEPAD: dialog $iif($dialog(Npad),-v,-m) Npad Npad
}
 
on *:dialog:Npad:init:*:{
  var %x = 1
  while %x <= $lines(Npd.txt) {
    did -a $dname 3 $read(Npd.txt,%x)
    inc %x
  } 
}
dialog Npad {
  title "IRC NOTEPAD"
  size -1 -1 190 241
  option dbu
  button "ADD", 1, 52 7 37 12, ok
  button "Delete", 2, 97 7 37 12, ok
  combo 3, 8 22 173 131, size hsbar vsbar
  button "OK/Cancel", 4, 75 153 37 12, ok cancel
  text "Help:", 5, 11 177 25 8
  text "To ADD a word/line type the word/line in the top box and press [ADD] To Delete a word/line click the word/line from the list and hit delete :P.", 6, 11 187 169 35
  link "IRC NOTEPAD By Gemster", 7, 63 231 66 8
  box "", 8, 9 173 173 48
  box "", 9, 5 1 179 167
}
 
on *:DIALOG:Npad:sclick:1:{ write Npd.txt $did(3) }
on *:DIALOG:Npad:sclick:2:{ write -ds " $+ $did(3) $+ " Npd.txt }