Sorry your browser is not supported!

StepPhysics(GetFrameTime())

SetSpritePhysicsVelocity(Sprite, GetSpritePhysicsVelocityX(Sprite), -200)

SetVirtualResolution(480, 320)
SetSyncRate(60, 1)
SetClearColor(0, 0, 0)

global Ground
global Object

SetPhysicsGravity(0, 200)

Ground = CreateSprite(0)
SetSpriteSize(Ground, 480, 25)
SetSpriteColor(Ground, 0, 255, 64, 255)
SetSpritePosition(Ground, 0, 295)
SetSpritePhysicsOn(Ground, 1)

Object = CreateSprite(0)
SetSpriteSize(Object, 40, 60)
SetSpriteColor(Object, 255, 0, 0, 255)
SetSpritePosition(Object, 200, 234)
SetSpritePhysicsOn(Object, 2)
SetSpritePhysicsCanRotate(Object, 0)

do
    Print("Press Space to Jump!")
    Print(ScreenFPS())

    SetSyncRate(Random(10, 40), 1)

    if GetRawKeyState(32) = 1 AND GetSpriteCollision(Object, Ground) = 1
        SetSpritePhysicsVelocity(Object, 0, -200)
        //SetSpritePhysicsImpulse(Object, GetSpriteXByOffset(Object), GetSpriteYByOffset(Object), 0, -25000)
    endif

    Sync()
loop

padLoops = 0
a# = 1.0
b# = 2.0
do
  if Screenfps() > 50 then inc padloops, 1000
  print("Padding Loops: + str(padloops))
  print("FPS: "+str(Screenfps())
  for thisLoop = 1 to padloops
     a# = a#^b#
     b# = b#^a#
  next thisLoop

  // Rest of your code here

  sync()
loop

SetVirtualResolution(480, 320)
SetSyncRate(60, 1)
SetClearColor(0, 0, 0)

global Ground
global Object

SetPhysicsGravity(0, 200)

Ground = CreateSprite(0)
SetSpriteSize(Ground, 480, 25)
SetSpriteColor(Ground, 0, 255, 64, 255)
SetSpritePosition(Ground, 0, 295)
SetSpritePhysicsOn(Ground, 1)

Object = CreateSprite(0)
SetSpriteSize(Object, 40, 60)
SetSpriteColor(Object, 255, 0, 0, 255)
SetSpritePosition(Object, 200, 234)
SetSpritePhysicsOn(Object, 2)
SetSpritePhysicsCanRotate(Object, 0)
//SetSpritePhysicsIsBullet( Object, 1 )

ymin#=320

padLoops = 0
a# = 1.0
b# = 2.0
v=0
do
    Print("Press Space to Jump!")
    Print(ScreenFPS())
    Print(v)

    if v>0
    if GetSpriteYByOffset(Object)<ymin# then ymin#=GetSpriteYByOffset(Object)
    drawline(0,ymin#,100,ymin#,255,255,0)
    drawline(0,GetSpriteYByOffset(Object),100,GetSpriteYByOffset(Object),255,255,0)
    endif

    //SetSyncRate(Random(10, 60), 1)

 if Screenfps() > 50 and v=3 then inc padloops, 1000
  print("Padding Loops:" + str(padloops))
  print("FPS: "+str(Screenfps()))
  for thisLoop = 1 to padloops
     a# = a#^b#
     b# = b#^a#
  next

    if GetRawKeyState(32) = 1 AND GetSpriteCollision(Object, Ground) = 1
        v=v+1
        SetSpritePhysicsVelocity(Object, 0, -200)
        //SetSpritePhysicsImpulse(Object, GetSpriteXByOffset(Object), GetSpriteYByOffset(Object), 0, -25000)
    endif

    Sync()
loop

setsyncrate(30,0)

Block = CreateSprite(0)
SetSpriteColor(Block,255,255,255,255)
SetSpriteSize(Block,10,-1)
SetSpritePosition(Block,0,90)
SetSpritePhysicsOn(Block,2)
`ignore the physics walls
SetSpritePhysicsIsSensor(Block,1)

syncvalue = 30

do

Print("Press the spacebar to change the sync rate")

if GetRawKeyPressed(32) = 1
    Inc syncvalue,30
    if syncvalue > 60
    syncvalue = 30
    endif
SetSyncRate(syncvalue,0)
endif



print("Current Sync Rate: " + str(syncvalue))


if GetSpriteYByOffset(Block) > 120
    SetSpritePosition(Block,0,90)
    SetSpritePhysicsVelocity(Block,27,-120)
endif

 Sync()
loop

SetVirtualResolution(480, 320)
SetSyncRate(60, 1)
SetClearColor(0, 0, 0)

global Ground
global Object
global Line

SetPhysicsGravity(0, 200)

Ground = CreateSprite(0)
SetSpriteSize(Ground, 480, 25)
SetSpriteColor(Ground, 0, 255, 64, 255)
SetSpritePosition(Ground, 0, 295)
SetSpritePhysicsOn(Ground, 1)

Object = CreateSprite(0)
SetSpriteSize(Object, 40, 60)
SetSpriteColor(Object, 255, 0, 0, 255)
SetSpritePosition(Object, 200, 234)
SetSpritePhysicsOn(Object, 2)
SetSpritePhysicsCanRotate(Object, 0)

Line = CreateSprite(0)
SetSpriteSize(Line, 20, 1)
SetSpritePosition(Line, 210, 195)

global SyncRate = 60

do
    Print("Press Space to reduce FPS")
    Print(ScreenFPS())

    if GetRawKeyPressed(32) = 1
        if SyncRate > 10
            SyncRate = SyncRate - 10
        else
            SyncRate = 60
        endif

        SetSyncRate(SyncRate, 1)
    endif

    if GetPhysicsCollision(Object, Ground) = 1
        SetSpritePhysicsVelocity(Object, 0, -200)
    endif

    Sync()
loop

// a 17 millisecond time step
physicsstep#=0.017
time# = timer()
do

    count = 0
    while ( count < 4 AND timer()-time# >= physicsstep# )
        StepPhysics( physicsstep# )
        time# = time# + physicsstep#
        count = count + 1
    endwhile

    // prevent the app dying if it is too slow
    if ( count >= 4 ) then time# = timer()

    Sync()
loop

SetVirtualResolution(480, 320)
SetSyncRate(60, 0)
SetClearColor(0, 0, 0)

global Ground
global Object
global Line
global PlayerMovement

SetPhysicsGravity(0, 200)

Ground = CreateSprite(0)
SetSpriteSize(Ground, 480, 25)
SetSpriteColor(Ground, 0, 255, 64, 255)
SetSpritePosition(Ground, 0, 295)
SetSpritePhysicsOn(Ground, 1)

Object = CreateSprite(0)
SetSpriteSize(Object, 40, 60)
SetSpriteColor(Object, 255, 0, 0, 255)
SetSpritePosition(Object, 200, 234)
SetSpritePhysicsOn(Object, 2)
SetSpritePhysicsCanRotate(Object, 0)

Line = CreateSprite(0)
SetSpriteSize(Line, 20, 1)
SetSpritePosition(Line, 210, 195)

global SyncRate = 60

physicsstep#=0.017
time# = timer()

do
    Print("Press Space to reduce FPS")
    Print(ScreenFPS())

    if GetRawKeyPressed(32) = 1
        if SyncRate > 10
            SyncRate = SyncRate - 10
        else
            SyncRate = 60
        endif

        SetSyncRate(SyncRate, 0)
    endif

    if GetPhysicsCollision(Object, Ground) = 1
        SetSpritePhysicsVelocity(Object, 0, -200)
    endif

    count = 0
    while ( count < 4 AND timer()-time# >= physicsstep# )
        StepPhysics( physicsstep# )
        time# = time# + physicsstep#
        count = count + 1
    endwhile

    // prevent the app dying if it is too slow
    if ( count >= 4 ) then time# = timer()

    Sync()
loop