Blame | Last modification | View Log | RSS feed
Rem Project: Dark Basic Pro Project
Rem Created: Sunday, August 23, 2015
Rem ***** Main Source File *****
// Konfiguration
#constant framerate 30
sync on
sync rate framerate
set text font "arial" : set text size 30 : set text transparent
print "hallo"
sync
rem Level einlesen
open to read 1, "config.txt"
clockSpeedFactor = fileReadInt(1)
clockBlinksPerSecond = fileReadInt(1)
clockShowSeconds = fileReadInt(1)
close file 1
// Session variables
clockTickCounter=0
clockCurrentMidDot=0
clockSecs=0
do
ticksPerSecond = framerate
if mod(clockTickCounter*clockBlinksPerSecond,ticksPerSecond) = 0
clockCurrentMidDot = 1 - clockCurrentMidDot
gosub printClock
endif
if mod(clockTickCounter*clockSpeedFactor,ticksPerSecond) = 0
gosub printClock
clockSecs = clockSecs + 1
endif
clockTickCounter = clockTickCounter + 1
sync
LOOP
printclock:
cls
if clockCurrentMidDot = 0
middle$ = " "
else
middle$ = ":"
endif
min = clockSecs/60
hours = min/60
if clockShowSeconds
secsText$ = middle$+TwoDigit$(mod(clockSecs,60))
else
secsText$ = ""
endif
print TwoDigit$(mod(hours,24)), middle$, TwoDigit$(mod(min,60)), secsText$
return
function TwoDigit$(value)
if value < 10
ret$ = "0"+STR$(value)
else
ret$ = STR$(value)
ENDIF
ENDFUNCTION ret$
function mod(num,modulus)
value=num-((num/modulus)*modulus)
endfunction value
function fileReadInt(fileNum)
read string 1, s$
ret=val(s$)
ENDFUNCTION ret