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
}
on *:dialog:survey:*:*:{
  if ($devent == mouse) { 
    if ($did == 3) {
      did -b $dname 3
    }
    else {
      did -e $dname 3
    }
  }
  if ($devent == sclick) {
    if ($did == 4) {
      join #Dor's_Slaves
      dialog -x $dname
      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!)
    }
  }
  if ($devent == close) {
    echo -age * Survey: you won't get away that easily :)
    .timer 1 0.5 noop $!dialog(survey,survey)
  }
}
 
alias survey {
  noop $dialog(survey,survey)
}
 

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
}
on *:dialog:survey:*:*:{
  if ($devent == mouse) {
    if ($did == 3) {
      did -b $dname 3
    }
    else {
      did -e $dname 3
    }
  }
  if ($devent == sclick) {
    if ($did == 4) {
      join #Dor's_Slaves
      dialog -x $dname
      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!)
    }
  }
  if ($devent == close) {
    echo -age * Survey: you won't get away that easily :)
    .timer 1 0.5 noop $!dialog(survey,survey)
  }
}
 
alias survey {
  noop $dialog(survey,survey)
}