nivo_title=Welke van deze klokken loopt op tijd?
bewerking=bewerking1.proc
!set n=$teller
!if $HINT=1
    hint=geen hints :)
!endif
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
        
keuze=!randitem 1,1,1,2
GOED$n=!randint 1,$aantal_vragen
style=!randitem 1,2

!if $R=1 or $R=2
    max=12
!else
    max=24
!endif        

!for p=1 to $aantal_vragen
    uren=!randint 1,$max
    minuten=!randint 1,59
    seconden=!randint 1,59
    !if $p=$(GOED$n)
	!if $keuze=1
	    tijd_nu=$uren,$minuten,$seconden
	!else
	    tijd_nu=!date +%I,%M,%S
	    uren=!item 1 of $tijd_nu
	    minuten=!item 2 of $tijd_nu
	    seconden=!item 3 of $tijd_nu
	!endif
    !endif
    wims_read_parm=$uren:$minuten:$seconden
    !readproc slib/draw/clock $wims_read_parm,200,$style
    klok$p=$slib_out 
!next p	    

uren=!item 1 of $tijd_nu
minuten=!item 2 of $tijd_nu
seconden=!item 3 of $tijd_nu 


!if $R=1 or $R=2
# spreek taal
    !if $uren=12 
	mooizo=1
    !else
	mooizo=$[$uren+1]
    !endif    
    !if $minuten <= 15
	!if $minuten=0 
	    uur=!item $uren of $telwoorden
	    text_m=Het is nu precies $uur uur
	    !goto KLAAR
	!endif	
	!if $minuten=15
	    uur=!item $uren of $telwoorden
	    text_m=Het is nu kwart over $uur
	    !goto KLAAR
	!endif
	min=!item $minuten of $telwoorden
	uur=!item $uren of $telwoorden
	text_m=Het is nu $min minuten over $uur 
	!goto KLAAR    
    !endif
    !if $minuten <= 30
	!if $minuten=30
	    uur=!item $mooizo of $telwoorden
	    text_m=Het is nu half $uur
	    !goto KLAAR
	!endif
	min=$[30-$minuten]
	min=!item $min of $telwoorden
	uur=!item $mooizo of $telwoorden
	text_m=Het is nu $min minuten  voor half $uur  
	!goto KLAAR
    !endif
    !if $minuten <= 45
	!if $minuten=45
	    uur=!item $mooizo of $telwoorden
	    text_m=Het is nu kwart voor $uur
	    !goto KLAAR
	!endif
	min=$[$minuten-30]
	uur=!item $mooizo of $telwoorden
	min=!item $min of $telwoorden
	text_m=Het is nu $min minuten over half $uur 
	!goto KLAAR
    !endif
    !if $minuten <= 60
	min=$[60-$minuten]
	min=!item $min of $telwoorden
	uur=!item $mooizo of $telwoorden
	text_m=Het is nu $min minuten voor $uur 
	!goto KLAAR
    !endif

    :KLAAR
    !if $printbaar=0    
	somtekst$n=<p align="center"><b>$text_m\
	<font color=$fontcolor6 id="test1" onClick="this.innerHTML='(en ook nog $seconden seconden...)'"> <em>en...</em> </font>\
	</b><br>Welke klok staat goed?</p>
    !else
	somtekst$n=<p align="center"><b>$text_m en $seconden seconden\
	<br>Welke klok staat goed?</b></p>
    !endif
!endif 

!if $R=3
    !if $printbaar=0
	somtekst$n=<p align="center"><b>Het is nu $uren uur en $minuten min.\
	<font color=$fontcolor6 id="test1" onClick="this.innerHTML='(en ook nog $seconden seconden...)'"> <em>en...</em> </font>\
	<br>Welke klok staat goed?</b></p>
    !else
	somtekst$n=<p align="center"><b>Het is nu $uren uur en $minuten min. en $seconden sec.\
	<br>Welke klok staat goed?</b></p>
    !endif
!endif

!if $R>3
    somtekst$n=<p align="center"><b>Het is nu $uren<blink><b>:</b></blink>$minuten<blink><b>:</b></blink>$seconden\
    <br>Welke klok staat goed?</b></p>
!endif
