Untitled

dialog hooglaag { 
  title "JJR Hoger-lager game by Dani_l11©"
  size -1 -1 220 100
  option dbu
  text "welk niveau wil je spelen?", 342, 70 10 85 10 
  radio "easy", 1, 70 35 85 10
  radio "normal", 2, 70 45 85 10
  radio "hard", 3, 70 55 85 10
  button "verder", 4, 70 75 85 20
}

ON *:dialog:begin:init:*:{ did -a $dname 1 $(%credit) }

on *:dialog:hooglaag:sclick:4:{
  set %hlg 50
  if ($did(1).state) { set %credit 2000 } 
  if ($did(2).state) { set %credit 1500 } 
  if ($did(3).state) { set %credit 1000 } 
  dialog -x hooglaag
  dialog -m begin begin
}

dialog begin { 
  title "JJR Hoger-lager game by Dani_l11©"
  size -1 -1 220 100
  option dbu
  text "je hebt:", 543, 70 25 85 10
  edit "", 1, 70 35 85 10, read
  text "credits", 314, 70 45 85 10 
  button "SPEEL", 65, 70 65 85 25 
}

on *:dialog:begin:sclick:65:{
  set %hlg $rand(25,75)
  dialog -x begin
  dialog -m speel speel 
}

ON *:dialog:speel:init:*:{ did -a $dname 50 $(%credit)
  did -a $dname 65 $(%hlg) 
  if (%hlg < 50) { set %hlg1 $calc(100 - %hlg) $+ %
  set %hlg2 %hlg $+ % }
  if (%hlg == 50) { set %hlg1 50% 
  set %hlg2 50% }
  if (%hlg > 50) { set %hlg1 %hlg $+ %
  set %hlg2 $calc(100 - %hlg) $+ % }
  if (%inzet != $null) { did -a $dname 4 $(%inzet) }
  did -a $dname 21 $(%hlg1)
  did -a $dname 22 $(%hlg2)
}

dialog speel { 
  title "JJR Hoger-lager game by Dani_l11©"
  size 0-1 -1 220 105
  option dbu
  text "is het volgende getal hoger of lager dan", 563, 70 5 85 20
  edit "", 65, 70 20 85 10, READ 
  radio "hoger dan", 1, 70 35 35 10
  radio "lager dan", 2, 70 45 35 10
  radio "gelijk aan", 3, 70 55 35 10
  text "hier je inzet", 432, 70 70 70 10
  text "", 21, 57 35 10 13
  text "", 22, 57 45 10 13
  text "1%", 23, 57 55 10 13
  edit "", 4, 70 80 85 10
  edit "aantal credits: ", 50, 70 90 85 10, READ 
  button "gok", 75, 5 5 50 90
  button "sluit af", 6, 110 35 40 40
  button "clear", 89, 160 5 50 90 
}

on *:dialog:speel:sclick:89:{ 
  unset %inzet
  dialog -x speel
  dialog -m speel speel
}

on *:dialog:speel:sclick:6:{ 
  set %hlgon begonnen
dialog -x speel }
on *:dialog:speel:sclick:75:{ 
  set %4 $did(4)
  set %inzet %4
  if (%credit <= 0) { //echo #tzhaar 4Je bent blut!
    //echo #tzhaar 4Over 10 minuten mag je dit spel opnieuw doen
    set %hlgon on
    timer 1 600 set %hlgon off $(|) //echo #tzhaar 4De 10 minuten zijn om, je mag nu de JJR Hoger-lager game weer doen
    dialog -x speel
    halt
  }
  if (%4 > %credit) || (%4 <= 0) { 
    dialog -x speel
    dialog -m fout fout 
  }
  set %hlg2 $rand(25,75)
  if (!$did(1).state) && (!$did(2).state) && (!$did(3).state) {
    dialog -x speel
    dialog -m error error 
  }
  if ($did(1).state) { set %gok gd } 
  if ($did(2).state) { set %gok kd } 
  if ($did(3).state) { set %gok ga }
  if (%hlg < %hlg2) && (%gok == kd) {
    set %credit $calc(%credit - %4)
    dialog -x speel
    dialog -m lose lose
  }
  if (%hlg < %hlg2) && (%gok == ga) {
    set %credig $calc(%credit - %4)
    dialog -x speel
    dialog -m lose lose
  }
  if (%hlg > %hlg2) && (%gok == kd)  {
    set %credit $calc(%credit + %4) 
    dialog -x speel
    dialog -m gewonnen gewonnen
  }
  if (%hlg < %hlg2) && (%gok == gd) { 
    set %credit $calc(%credit + %4)
    dialog -x speel
    dialog -m gewonnen gewonnen
  }
  if (%hlg == %hlg2) && (%gok == ga) {
    set %credit $calc(%credit + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4 + %4) 
    dialog -x speel
    dialog -m gewonnen2 gewonnen2
  }
  if (%hlg > %hlg2) && (%gok == ga) || (%hlg > %hlg2) && (%gok == gd) {
    set %credit $calc(%credit - %4) 
    dialog -x speel
    dialog -m lose lose
  }
  if (%hlg < %hlg2) && (%gok == ga) || (%hlg > %hlg2) && (%gok == ga) {
    set %credit $calc(%credit - %4)
    dialog -x speel
    dialog -m lose lose 
  }
}

dialog error {
  title "hoger-lager"
  size -1 -1 70 20
  option dbu
  text "je moet wel een optie kiezen", 453, 1 1 85 10
  button "terug", 88, 1 10 65 10
}
on *:dialog:error:sclick:88:{ dialog -x error
  dialog -m speel speel
}
ON *:dialog:gewonnen:init:*:{ did -a $dname 655 $(%hlg2) }
ON *:dialog:gewonnen2:init:*:{ did -a $dname 655 $(%hlg2) }

dialog gewonnen {
  title "JJR Hoger-lager game by Dani_l11©"
  size -1 -1 240 100
  option dbu
  text "je hebt je inzet erbij gekregen", 564, 70 5 85 10
  text "het getal was", 645, 70 15 85 10
  edit "", 655, 70 25 85 10, READ
  button "sluit af", 65, 70 35 85 30
  button "gok opnieuw", 70, 70 65 85 30
}
dialog gewonnen2 {
  title "hoger-lager game by Dani_l11"
  size -1 -1 240 100
  option dbu
  text "je hebt je inzet 15 keer erbij gekregen", 564, 70 5 85 10
  text "het getal was", 645, 70 15 85 10
  edit "", 655, 70 25 85 10, READ
  button "sluit af", 65, 70 35 85 30
  button "gok opnieuw", 70, 70 65 85 30
}

ON *:dialog:lose:init:*:{ did -a $dname 655 $(%hlg2) }

dialog lose {
  title "JJR Hoger-lager game by Dani_l11©"
  size -1 -1 240 100
  option dbu
  text "je hebt je inzet verloren", 564, 70 5 85 10
  text "het getal was", 645, 70 15 85 10
  edit "", 655, 70 25 85 10, READ
  button "sluit af", 65, 70 35 85 30
  button "gok opnieuw", 70, 70 65 85 30
}

on *:dialog:lose:sclick:70:{
  set %hlg $rand(25,75)
  /dialog -x lose 
  /dialog -m speel speel 

}

on *:dialog:lose:sclick:65:{
  dialog -x lose
  //echo #tzhaar 4Bedankt voor het spelen met de JJR Hoger-lager game
  set %hlgon begonnen
}
dialog fout { 
  title "hoger-lager"
  size -1 -1 70 20
  option dbu
  text "je inzet is ongeldig", 453, 1 1 85 10
  button "terug", 88, 1 10 65 10
}

on *:dialog:fout:sclick:88:{
  dialog -x fout
  dialog -m speel speel 
}


on *:dialog:gewonnen:sclick:70:{
  set %hlg $rand(25,75)
  /dialog -x gewonnen
  /dialog -m speel speel 

}

on *:dialog:gewonnen:sclick:65:{
  dialog -x gewonnen
  dialog -x speel
  //echo #tzhaar 4Bedankt voor het spelen met de JJR Hoger-lager game
  set %hlgon begonnen
}

menu * { 
  .JJR Hoger-lager game by Dani_l11© { if (%hlgon == on) { //echo #tzhaar 4Je kan dit nog niet doen, je bent blut... } 
    if (%hlgon == begonnen) { /dialog -m speel speel }
if (%hlgon != begonnen) && (%hlgon != on) { /dialog -m hooglaag hooglaag } } }