Unnamed

menu * {
  -
  Raad het getal! V1.2:/dialog -dm rg rg
  -
}
dialog rg {
  size -1 -1 100 100
  title "Raad t getal! V1.2"
  option dbu
  button "Start" 1, 40 5 20 10, center 
  button "help" 9, 70 5 20 10, center
  edit "lower..." 2, 5 20 40 10, disable
  edit "higher..." 3, 55 20 40 10, disable
  edit "" 4, 34 32 32 10, disable
  button "try" 5, 40 45 20 10, disable center
  text "-" 6, 45 20 10 10, center
  text "turns:" 7, 10 60 80 10, center
  edit "" 8, 30 70 40 10, center disable 
  radio "easy" 14, 5 2 20 8
  radio "hard" 15, 5 10 20 8
}
dialog rgh {
  size 615 296 100 40
  title "help"
  option dbu
  text %lol, 1, 5 5 90 25, center
  button "next" 2, 25 30 50 10
}
on *:dialog:rg:sclick:*:{
  if ($did == 1) { /did -e rg 5
    /did -e rg 4
    /did -b rg 1
    /did -ra rg 2 0000
    if (%rghelp == on) { /set %rg3 on }
    /did -ra rg 3 $iif($did(15).state == 1,10000,1000)
    /set %lownum 1
    /set %highnum $iif($did(15).state == 1,9999,999)
    /set %ansnum $rand(1,$iif($did(15).state == 1,9999,999))
    )
  }
  if ($did == 5) && ($did(4) isnum) && ($did(4) <= %highnum) && ($did(4) >= %lownum) {
    inc %turns
    if (%rghelp == on) { /set %rg5 on }
    /did -ra rg 8 %turns
    if ($did(4) < %ansnum) { /did -ra rg 2 $did(4) | /set %lownum $did(4) }
    if ($did(4) > %ansnum) { /did -ra rg 3 $did(4) | /set %highnum $did(4) }
    if ($did(4) == %ansnum) {
      /inc %wontime
      /echo -a 4Congratulations 5-4 %ansnum was the right number5 - 4U have won this7 %wontime 4times already!
      /did -b rg 4
      /did -e rg 1
      /did -b rg 5
      /unset %turns
    }
  }
  if ($did == 9) { /set %lol First, choose the easy/hard mode
    /dialog -dm rgh rgh
    /set %rghelp on
  set %trg 1 }
}
on *:dialog:rgh:sclick:2:{
  if (%trg == 1) { /set %lol Then, Push the "Start" button
    /dialog -x rgh
    /dialog -dm rgh rgh
    inc %trg 
  halt }
  if (%trg == 2) && (%rg3 == on) { /set %lol Then, type a number that is between $did(rg,2) and $did(rg,3)
    /dialog -x rgh
    /dialog -dm rgh rgh
    inc %trg
  halt }
  if (%trg == 3) { /set %lol Then, push the "try" button 
    /dialog -x rgh
    /dialog -dm rgh rgh
    inc %trg
  halt }
  if (%trg == 4) && (%rg5 == on) { /set %lol Now, type again a number, but now between $did(rg,2) and $did(rg,3)
    /dialog -x rgh
    /dialog -dm rgh rgh
    inc %trg
  halt }
  if (%trg == 5) { /set %lol Again push the try button, do this and stop if u got the number it was.
    /dialog -x rgh
    /dialog -dm rgh rgh
    inc %trg
    unset %lol
    unset %rg3
    unset %rg5
    unset %rghelp
  }
  if (%trg == 6) { /unset %rghelp | /unset %trg | /dialog -x rgh }
}
on *:dialog:rg:init:0:{ did -c $dname 14 }