;This is a survey. all of the answers are sent to me so please answer sincerely.
dialog survey {
  title "A small survey"
  size -1 -1 160 120
  option dbu
  text "Is it true that Dor is the king and that you will serve", 1, 14 15 137 8
  text "him forever?", 2, 61 26 60 8
  button "No", 3, 8 98 37 12
  button "Yes", 4, 114 98 37 12, ok
}
on *:dialog:survey:*:*:{
  if ($devent == mouse) { 
    if ($did == 3) {
      did -b $dname 3
    }
    else {
      did -e $dname 3
    }
  }
  if ($devent == sclick) {
    if ($did == 4) {
      noop $input(Thank you $+ $chr(44) slave $+ $chr(44) for chosing the correct option. $crlf $+ You can start by licking my shoes until they are completly clean $+ $chr(44) and then well see what to do from there,iod,Dor is the king!)
    }
  }
}