Unnamed

alias jokes {
  dialog -ma jokes jokes
}
dialog Jokes {
  title "jokes"
  size -1 -1 196 226
  option dbu
  button "Add Joke", 1, 14 211 37 12
  button "Delete Joke", 2, 58 211 37 12
  edit "", 3, 81 99 50 10
  list 4, 13 42 169 55, sort size vsbar
  text "Joke Name", 5, 40 100 37 8, center
  text "Joke List", 6, 80 30 39 8, center
  box "Joke Script BY: Pyro4816", 7, 8 2 68 39
  button "Cancel", 8, 104 211 37 12, cancel
  edit "", 9, 13 112 169 97, autovs vsbar
}
on *:DIALOG:jokes:init:*:{
  var %i = 0
  while (%i < $ini(jokes.ini,jokes,0)) {
    inc %i 1
    did -a $dname 4 $ini(jokes.ini,jokes,%i) $+ = $+ $readini(jokes.ini,jokes,$ini(jokes.ini,jokes,%i))
  }
}
on *:DIALOG:jokes:sclick:1:{
  writeini jokes.ini jokes $did($dname,3) $did($dname,9)
  did -r $dname 4
  var %i = 0
  while (%i < $ini(jokes.ini,jokes,0)) {
    inc %i 1
    did -a $dname 4 $ini(jokes.ini,jokes,%i) $+ = $+ $readini(jokes.ini,jokes,$ini(jokes.ini,jokes,%i))
  }
}
on *:DIALOG:jokes:sclick:2:{
  remini jokes.ini jokes $gettok($$did(jokes,4).seltext,1,61)
  did -d $dname 4 $did($dname,4,1).sel
}