Miscellany

dialog galgjed {
  title "Galgje door Rob"
  size -1 -1 280 200
  option dbu
  tab "Instellingen", 1, 1 1 273 170
  text "Na hoeveel seconden spelen wordt het eind van het woord bereikt",10,10 20 200 7,tab1
  edit "",11, 230 20 20 10,autohs tab1
  text "Na hoeveel punten is de ronde ten einde.",12,10 35 200 7,tab1
  edit "",13,230 35 20 10,autohs tab1
  text "Hoe lang krijgt een speler om een nieuw woord te zetten. Daarna mag iedereen het.",14,10 50 200 7,tab1
  edit "",15,230 50 20 10,autohs tab1
  text "Wanneer er te veel foute letters zijn gevraagd punt toekennen aan verzinner",16,10 65 200 7,tab1
  radio "Ja",17,230 65 20 10,tab1
  radio "Nee",18,230 75 20 10,tab1
  tab "Kleuren-galgje",2
  combo 200,10 30 200 80,tab 2
  text "Selecteer een algemene-event waarbij u de kleur wilt instellen",201,10 20 150 7, tab 2
  combo 205,10 70 200 80,tab 2
  text "Selecteer de kleur die u bij dit event wilt hebben.",202,10 50 200 7, tab 2
  text "Als u geen mooie kleurcombinatie kan vinden klikt u op Kleuren om deze in te stellen",203,10 60 200 7, tab 2
  edit "",206,10 85 200 10,autohs tab 2
  button "&Kleuren",212,10 140 45 16,tab 2
  text "Om de kleurencombinaties te veranderen klikt u op Kleuren",209,60 145 150 7, tab 2

  button "&Ok", 99, 50 180 40 17, ok
  button "&Cancel", 100, 100 180 40 17, cancel
}
on *:dialog:galgjed:init:*: {
  algemene-init $dname
  var %i = 1
  while ( $dialog_galgje_sort(edit,%i) ) {
    did -ra galgjed $dialog_galgje_sort(edit,%i) $hget(galgje,$dialog_galgje_sort(edit,%i))
    inc %i
  }
  var %i = 1
  while ( $dialog_galgje_sort(radio,%i) ) {
    did -c galgjed $hget(galgje,$dialog_galgje_sort(radio,%i))
    inc %i
  }

  _-_s ¶ 265 did -a galgjed 200
}
on *:dialog:galgjed:sclick:*: {
  goto $did
  :212
  dialog -m game game
  did -c game 3
  halt

  :200 | :205
  algemene-sclick $dname $did | halt

  :99
  var %i = 1
  while ( $dialog_galgje_sort(edit,%i) ) {
    var %ii = $dialog_galgje_sort(edit,%i) 
    if ( $hget(galgje,%ii) != $did(%ii) && $did(%ii) != $null ) { hadd -m galgje %ii $did(%ii) }
    inc %i
  }
  save-dialog-radio galgjed galgje 17 18

  .hsave -bo kleuren " $+ $snircscript $+ kleuren.hsh $+ "
  .hsave -o galgje " $+ $snircscript $+ galgje.ins $+ "
  dialog -c galgjed
  halt
  :100
  if ( $hget(kleuren) ) { .hfree kleuren }
  if ( $hget(galgje) ) { .hfree galgje }
  .hmake galgje 100
  .hmake kleuren 100
  .hload -b kleuren " $+ $snircscript $+ kleuren.hsh $+ "
  .hload galgje " $+ $snircscript $+ galgje.ins $+ "
  dialog -c galgjed
  halt
  :0 | :1 | :2 | :17 | :18
}
alias dialog_galgje_sort {
  if ( $1 == edit ) { return $gettok(11 13 15,$2,32) }
  if ( $1 == radio ) { return $gettok(1718,$2,32) }
  ; if ( $1 == check ) { return $gettok(38 52 44 51,$2,32) }
  ;return $gettok(7 61,$1,32)
}