Sorry your browser is not supported!

if keystate(28)= 1
    if LF<(timer()+1000)
        Plyer.Ammo=Plyer.Ammo-1
        Text 10,80,"FIRED"
        LF=timer()
    Endif         
ENDIF

if keystate(28)= 1
    if timer() - LF > 1000
        Plyer.Ammo=Plyer.Ammo-1
        Text 10,80,"FIRED"
        LF=timer()
    Endif         
ENDIF

if Keystate(28)= 1
    if ABS(timer() - LF) > 1000
        Plyer.Ammo=Plyer.Ammo-1
        Text 10,80,"FIRED"
        LF=timer()
    Endif         
ENDIF

If Time <= Timer()
  Time = Timer() + Delay
EndIf

TenTimesPerSecond = 10
Make Frequency Ticker 1, TenTimesPerSecond

Do
  If Ticker(1)
    Print "100 ms has passed"
  EndIf
Loop

Milliseconds = 10000
Make Ticker 1, Milliseconds 
MyEventTicker = 1

Do
  If Ticker(MyEventTicker )
    Print "10 seconds has passed"
  EndIf
Loop

print "Press a key to use as fire button >";
repeat
   fireKey= scancode()
until (fireKey>0)
print fireKey

fireRate= 20

sync on
sync rate 60

do
   k= keystate(fireKey) * (k+1) - (k>fireRate)*k
   if k =1 then inc shotsFired

   inc fireRate, upkey()-downkey()

   print "FPS ";screen fps()
   print
   print "Fire rate: "; fireRate; " (use <up>/<down> to adjust)"
   print "Fire key: ";FireKey
   print "k = ";k
   print "Shots fired: ";shotsFired
   sync:cls 24
loop

print "Press a key to use as fire button >";
repeat
   fireKey= scancode()
until (fireKey>0)
print fireKey

RPM#= 600.0

sync on
sync rate 60

do
   k= keystate(fireKey)*(k+1) - ((timer()-time0)>(60000/RPM#))*k
   if k =1 then inc shotsFired : time0= timer()

   inc RPM#, upkey()-downkey()

   print "FPS ";screen fps()
   print
   print "RPM: "; RPM#; " (use <up>/<down> to adjust)"
   print "Fire key: ";FireKey
   print "k = ";k
   print "Shots fired: ";shotsFired
   sync:cls 24
loop

print "Press a key to use as fire button >";
REPEAT
	fireKey= SCANCODE()
UNTIL (fireKey>0)
PRINT fireKey

RPM#= 600.0

counter = 0

SYNC ON
SYNC RATE 60

DO
	rem get current time
	time = TIMER()
	
	rem calc elapsed time
	elapsed = time - time0
	
	rem reduce an error of an overflow. elapsed can set to zero if you paused the game.
	IF elapsed < 0 THEN elapsed = 0
	
	IF counter <= 0
		IF KEYSTATE(firekey) THEN counter = 60000.0/RPM# : INC shotsFired
	ELSE
		counter = counter - elapsed
	ENDIF
	
	time0 = time

	INC RPM#, UPKEY()-downkey()

	PRINT "FPS ";screen fps()
	PRINT
	PRINT "RPM: "; RPM#; " (use <up>/<down> to adjust)"
	PRINT "Fire key: ";FireKey
	PRINT "counter = ";counter;"/";(60000.0/RPM#)
	PRINT "Shots fired: ";shotsFired
	PRINT "elapsed: ";elapsed
	SYNC : CLS
LOOP

lastTick as dword
newTick as dword
delta as float

sync on : sync rate 0
make object cube 1,1

newTick = hitimer()

do

    if not scancode() then press = 0

    if scancode() > 0 and press = 0
        inc press
        pause = 1 - pause
    endif

    lastTick = newTick
    newTick = hitimer()
    
    if pause then lastTick = newTick // this will make sure that when unpasuing there's no big difference

    delta = (newTick - lastTick) * 0.001 // what is used for timerbased movement
    
    r# = wrapvalue(r#+(50*delta))
    rotate object 1,r#,r#,r#
    
    text 0,0,"Press any key to pause"
    text 0,12,"[Pause State] "+str$(pause)
    
    sync
loop

sync on : sync rate 0
make object cube 1,1

initialTMB()

do

    if not scancode() then press = 0

    if scancode() > 0 and press = 0
        inc press
        active = 1 - active
    endif

    updateTMB( active )
    
    delta# = getTMB(0.001)
    
    r# = wrapvalue(r#+(50*delta#))
    rotate object 1,r#,r#,r#
    
    text 0,0,"Press any key to pause"
    text 0,12,"[Pause State] "+str$(active)
    
    sync
loop


function initialTMB()

    global lastTick as dword
    global newTick as dword
    global delta as float
    
    newTick = hitimer()
    
endfunction

function updateTMB( state )

    lastTick = newTick
    newTick = hitimer()
    if state then lastTick = newTick
    
endfunction


function getTMB( factor as float )
    
    local delta as float
    delta = (newTick - lastTick) * factor

endfunction delta