nivo_title=De 24-uurs digitale klok
!set n=$teller
bewerking=bewerking2.proc

!if $HINT=1
    hint=nee, geen hints...wel help?
!endif

!if $graad=0
    R=$teller
!else
    R=$graad
!endif       

GOED$n=!randint 1,$aantal_vragen

keuze=!randitem 1,1,1,2

width=45
height=45
punt=<img src='$gifdir/digits/punt.gif' border='noborder'  width='$width' height='$height'>
!if $nivo=5
    max=23
!else
    max=11
!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
	    !if $nivo=5
		tijd_nu=!date  +%H,%M,%S
	    !else
		tijd_nu=!date  +%l,%M,%S
	    !endif
	    uren=!item 1 of $tijd_nu
	    minuten=!item 2 of $tijd_nu
	    seconden=!item 3 of $tijd_nu
	!endif
	!if $nivo=5
	    wims_read_parm=$uren:$minuten:$seconden
	    !readproc slib/draw/clock $wims_read_parm,200,$style
	    som$n=$slib_out 
	!endif
    !endif
    #digiklok:tijd in uren minuten seconden
    test=!charcnt $uren
    !if $test!=2
	H=<img src='$gifdir/digits/0.png' border='noborder' width='$width' height='$height'><img src='$gifdir/digits/$uren.png' border='noborder' width='$width' height='$height'>
    !else
	T=!char 1 of $uren
	E=!char 2 of $uren
	H=<img src='$gifdir/digits/$T.png' border='noborder' width='$width' height='$height'><img src='$gifdir/digits/$E.png' border='noborder' width='$width' height='$height'>
    !endif    
    test=!charcnt $minuten
    !if $test!=2
	M=<img src='$gifdir/digits/0.png' border='noborder' width='$width' height='$height'><img src='$gifdir/digits/$minuten.png' border='noborder' width='$width' height='$height'>
    !else
	T=!char 1 of $minuten
	E=!char 2 of $minuten
	M=<img src='$gifdir/digits/$T.png' border='noborder' width='$width' height='$height'><img src='$gifdir/digits/$E.png' border='noborder' width='$width' height='$height'>
    !endif    
    test=!charcnt $seconden
    !if $test!=2
	S=<img src='$gifdir/digits/0.png' border='noborder' width='$width' height='$height'><img src='$gifdir/digits/$seconden.png' border='noborder' width='$width' height='$height'>
    !else
	T=!char 1 of $seconden
	E=!char 2 of $seconden
	S=<img src='$gifdir/digits/$T.png' border='noborder'  width='$width' height='$height'><img src='$gifdir/digits/$E.png' border='noborder' width='$width' height='$height'>
    !endif    
	
    klok$p=$H $punt $M $punt $S 
!next p	    


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

!if $R isin 1,2,3
    !if $uren=12 or $uren=24
	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 
    !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 </b><br>\
	Welke klok staat goed?</b></p>
    !endif
!endif 

!if $R>3
    !if $printbaar=0
	somtekst$n=<p align='center'>Het is nu <b> $uren uur en $minuten min.\
	<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'>Het is nu <b> $uren uur en $minuten min. en $seconden sec.</b>\
	<br>Welke klok staat  goed? </p>    
    !endif
!endif
#!if $R>4
#    !if $printbaar=0
#	somtekst$n=<p align='center'>Het is nu <b> $uren <blink>:</blink> $minuten<blink>:</blink>$seconden </b>\
#	<br> Welke klok staat goed?</p>
#    !else
#	somtekst$n=<p align='center'>Het is nu <b> $uren : $minuten : $seconden </b>\
#	<br> Welke klok staat goed?</p>
#    !endif
#!endif
