dialog joke {
  size -1 -1 200 200
  title "joke dialog pl0x"
  option dbu
  button "Load Joke", 2, -1 -1 40 40
  edit "", 1, -1 60 200 10, multi 
}
on *:dialog:joke:sclick:2:{
  did -r joke 1
  var %rjoke = $rand(1,$lines(funny.txt))
  .timer 1 1 did -a joke 1 %rjoke $+ / $+ $lines(funny.txt) $read(funny.txt,%rjoke)
}