dialog hw { 
  title "huiswerk maker by Dani_l11"
  size -1 -1 240 100
  option dbu
  text "voeg straks 20 woorden toe met (2) betekenis(sen)", 342, 70 10 85 20 
  button "start", 3, 70 35 85 50
}

on *:dialog:hw:sclick:3:{ 
  unset %hwcount
  unset %hwa*
  unset %hwv*
  dialog -x hw
dialog -m huiswerk huiswerk }

dialog huiswerk { 
  title "huiswerk maker by Dani_l11"
  size -1 -1 240 100
  option dbu
  text "woord dat gevraagd word", 342, 70 10 85 10 
  edit "", 1, 70 20 85 10
  text "vertaling", 321, 70 40 85 10
  edit "", 2, 70 50 85 10
  button "volgend woord", 50, 5 5 60 60
}

on *:dialog:huiswerk:sclick:50:{ if (%hwcount != 20) { 
    inc %hwcount 
    set %hwv [ $+ [ %hwcount ] ] $did(1)
    set %hwa [ $+ [ %hwcount ] ] $did(2)
    dialog -x huiswerk
    dialog -m huiswerk huiswerk
  }
  if (%hwcount == 20) { /dialog -x huiswerk
    /dialog -m vragen vragen
  }
}
on *:dialog:vragen:init:*:{ set %vraag $rand(1,20)
  did -a $dname 1 $(%hwv [ $+ [ %vraag ] ])
}

dialog vragen {  
  title "huiswerk maker by Dani_l11"
  size -1 -1 240 100
  option dbu
  edit "", 1, 70 30 85 10, READ
  edit "vertaling", 2, 70 50 85 10
  button "controleer", 4, 70 70 85 20
}

on *:dialog:vragen:sclick:4:{ if (%hwa [ $+ [ %vraag ] ] == $did(2)) { inc %hwvragen
    inc %hwvrageng
    set %goedfout $did(2) was goed! 
    /dialog -x vragen
    /dialog -m vrageng vrageng
  }
  if (%hwa [ $+ [ %vraag ] ] != $did(2)) { inc %hwvragen
    inc %hwvragenf
    set %goedfout $did(2) was fout, %hwa [ $+ [ %vraag ] ] was goed geweest! 
    /dialog -x vragen
    /dialog -m vrageng vrageng
  }
}

on *:dialog:vrageng:init:*:{ set %vraag $rand(1,20)
  did -a $dname 1 $(%hwv [ $+ [ %vraag ] ])
  did -a $dname 3 $(%goedfout)
}

dialog vrageng {
  title "huiswerk maker by Dani_l11"
  size -1 -1 240 100
  option dbu
  edit "", 3, 60 10 110 10, READ 
  edit "", 1, 70 30 85 10, READ
  edit "vertaling", 2, 70 50 85 10
  button "controleer", 4, 70 70 85 20
  button "cijfer", 60, 10 10 50 70
}

on *:dialog:vrageng:sclick:4:{
  if (%hwa [ $+ [ %vraag ] ] != $did(2)) { inc %hwvragen
    inc %hwvragenf
    set %goedfout $did(2) was fout, %hwa [ $+ [ %vraag ] ] was goed geweest! 
    /dialog -x vrageng
    /dialog -m vrageng vrageng
  }
  if (%hwa [ $+ [ %vraag ] ] == $did(2)) { inc %hwvragen
    inc %hwvrageng
    set %goedfout $did(2) was goed! 
    /dialog -x vrageng
    /dialog -m vrageng vrageng
  }
}

on *:dialog:vrageng:sclick:60:{
  notice $me als je geen berichtjes ziet, kijk dan ffs alle channels na ;)
  /echo 4je hebt %hwvragen vragen gehad
  /echo 4voor een 6 moet je 75% goed hebben
  /echo 4je had %hwvragenf fout en %hwvrageng goed
  /echo 4je hebt had $calc(100 / (%hwvragen / %hwvragenf)) $+ % fout.
}