Sorry your browser is not supported!

sync on

rem screen center
centerX = screen width()/2
centerY = screen height()/2

global countstart
global starttime
global count
count=3
global countspeed
countspeed = 1000

Setup_CountDown(count,countspeed)

do
cls

if count < 1 then count = 1

if count > 1

   if countspeed > 0

       count = countstart-((timer() - starttime)/countspeed)
   
   endif
   
   center text centerx,centery,str$(count)

else

        if count = 1

            //reset to 3

            count=3

            endif

endif

    sync

loop

Function Setup_CountDown(countdown,countspeed)

if countspeed<=0 then exitfunction

rem initialize countdown

countstart = countdown `seconds
starttime = timer()

    if countspeed > 0
        count = countstart-((timer() - starttime)/countspeed)
    endif

EndFunction countstart

global _oldTick as dword
global _newTick as dword        : _newTick = hitimer()
global _delta as float

startTime# = 0
endTime# = 3.5
startValue = 255
endValue = 0

randomize timer()
sync on : sync rate 60

CTtimer = timer()
maxtime=3
CTVal = maxtime

cls rgb(255,144,23)
center text 32,8,"SPRITE"
get image 1,0,0,64,32,1
cls

sprite 1,0,0,1

do
    
    if Timer() - CTtimer => 1000
    Dec CTVal
    CTtimer = Timer()
EndIf

If CTVal = 0 then CTVal=maxtime : nag()

    _oldTick = _newTick
    _newTick = hitimer()
    _delta   = (_newTick-_oldTick)
    
    if CTVal>0
    spriteElasped# = spriteElasped# + (_delta*0.001)
    endif
    
    if spriteElasped# > (endTime#)
        spriteElasped# = 0.0
        endTime# = rnd(3)+0.5
        // this just flips the values to fade in and out
        endValue = 255-endValue
        startValue = 255-startValue
        if startValue = 0
        CTVal=3
        endif
    endif
    
    spriteAlpha = int(LinearInterpolation( spriteElasped#, startTime#, endTime#, startValue, endValue ))
    set sprite alpha 1, spriteAlpha

    text 0,64,"Time: "+str$(spriteElasped#,2)
    text 0,76,"Alpha: "+str$(spriteAlpha)    

    sync
loop

function nag()
endfunction

// single point to point linear interpolation
function LinearInterpolation( time as float, startTime as float, endTime as float, fromVal as float, toVal as float )
    
    local out as float

    // check if time is outside bounds and fire out resulting values
    if (time < startTime) || (time > endTime)
        if (time < startTime)
            exitfunction fromVal
        else
            exitfunction toVal
        endif
    else
        out = (((time-startTime) * (toVal-fromVal)) / (endTime-startTime)) + fromVal
    endif
    
endfunction out