!set n=$teller
kans=1
!if $graad=0
    R=$teller
!else
    R=$graad
!endif  
opgave$n=$empty
bewerking=bewerking1.proc
nivo_title=Bereken de Kans op ?
nummers=1,2,3,4,5,6

dobbel=0
!if $R=1
    data=!randint 1,11
    data=!record $data of nivo/lijst2
    GOED$n=!item 2 of $data
    dob=!item 1 of $data
    goed$n=!item 3 of $data
    somtekst$n=Ik heb twee eerlijke dobbelstenen.<br>\
    Hoe groot is de kans op een totaal score van $dob ogen?  
    !for r in 4,5
	# voorbeelden van dobbelstenen
	d=!item $r of $data 
	opgave$n=!append line <img src="$module_dir/dice/$d.gif"> to $(opgave$n)
    !next r        
    opgave$n=Zoals bijvoorbeeld<br>$(opgave$n) 
!endif

!if $R=2   
    maximaal=!randitem maximaal,minstens
    !if $maximaal=maximaal
	!for p=1 to 2
	    num=!randitem $nummers
	    dobbel=$[$dobbel + $num]
	    opgave$n=!append line <img src="$module_dir/dice/$num.gif"> to $(opgave$n)        
	!next p
	dob=$dobbel
    !else
	!for p=1 to 2
	    num=!randitem $nummers
	    dobbel=$[$dobbel + $num]
	    anders=$[7-$num]
	    opgave$n=!append line <img src="$module_dir/dice/$anders.gif"> to $(opgave$n)        
	!next p
	dob=$[14 - $dobbel]    
    !endif

    !if $dobbel<8
	d=$[$dobbel-1]
	tot=0
	!for p=1 to $[$dobbel-1]
	    tot=$[$tot + $p]
	!next p
    !else
	tot=21
	!for p=1 to $[$dobbel - 7]
	    tot=$[$tot + 6 - $p]
	!next
    !endif
    GOED$n=!exec pari $tot/36
    somtekst$n=Ik heb twee eerlijke dobbelstenen.<br>\
    Hoe groot is de kans op een totaal score van <font color=$fontcolor3><b>$maximaal</b></font> $dob ?  
    opgave$n=Zoals bijvoorbeeld<br>$(opgave$n) 
 !exit
!endif

!if $R>2
    data=!randint 1,16
    data=!record $data of nivo/lijst3
    GOED$n=!item 2 of $data
    dob=!item 1 of $data
    goed$n=!item 3 of $data
    somtekst$n=Ik heb drie eerlijke dobbelstenen.<br>\
    Hoe groot is de kans op een totaal score van $dob ogen?  
    !for r=4 to 6
	# voorbeelden van dobbelstenen
	d=!item $r of $data 
	opgave$n=!append line <img src="$module_dir/dice/$d.gif"> to $(opgave$n)
    !next r        
    opgave$n=Zoals bijvoorbeeld<br>$(opgave$n) 
!endif