Subversion Repositories forest

Rev

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