Sorry your browser is not supported!

SetVirtualResolution(480, 320)
SetPhysicsDebugOn()
SetPhysicsGravity(0, 300)

global MaxTiles = 4
global dim Tile[MaxTiles]
global Character

for i=1 TO MaxTiles
    Tile[i] = CreateSprite(Tile[i])
    SetSpriteSize(Tile[i], 32, 32)
    SetSpriteColor(Tile[i], Random(0, 255), Random(0, 255), Random(0, 255), 255)
    SetSpritePosition(Tile[i], 224, (i*32 + 96))
    SetSpritePhysicsOn(Tile[i], 1)
next i

Character = CreateSprite(Character)
SetSpriteSize(Character, 32, 32)
SetSpriteColor(Character, Random(0, 255), Random(0, 255), Random(0, 255), 255)
SetSpritePosition(Character, 0, 320 - GetSpriteHeight(Character))
SetSpriteShapeCircle(Character, 0, 0, 16)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)
SetSpritePhysicsRestitution(Character, 0)

do
    if GetRawKeyPressed(32) = 1
        SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -250)
    endif

    if GetDirectionX() <> 0
        SetSpritePhysicsVelocity(Character, GetDirectionX() * 200, GetSpritePhysicsVelocityY(Character))
    endif

    Sync()
loop

Function MovePlayer()

     REM // User input /////////
     if GetAccelerometerExists()=0
        REM // On computer //
        Move_Direction# = GetDirectionX()
        Jump_Direction# = GetDirectionY()
     else
        REM // On mobile device //
        Multi_Touch()
        Move_Direction# = BT_Left_State + BT_Right_State
        Jump_Direction# = BT_Up_State
     endif
     REM // Moving left //
     if Move_Direction#<0.0
        check=PhysicsRayCast( Player.X, Player.Y, Player.X - vdX(Player.Radius*1.6) , Player.Y )
        if GetRayCastSpriteID( )<>Solids
           if GetSpritePhysicsVelocityX( Player.ID )>0-40
              xForce#=-0.5
              REM // Make the player start moving faster in the begining //
              if GetSpritePhysicsVelocityX( Player.ID )>0-25 then xForce#=xForce#*4
           endif
        endif
        SetSpriteFlip ( Player.ID, 1, 0 )
     endif
     REM // Moving right //
     if Move_Direction#>0.0
        check=PhysicsRayCast( Player.X, Player.Y, Player.X + vdX(Player.Radius*1.6) , Player.Y )
        if GetRayCastSpriteID( )<>Solids
           if GetSpritePhysicsVelocityX( Player.ID )<40
              xForce#=0.5
              REM // Make the player start moving faster in the begining //
              if GetSpritePhysicsVelocityX( Player.ID )<25 then xForce#=xForce#*4
           endif
        endif
        SetSpriteFlip ( Player.ID, 0, 0 )
     endif

     if Player.Grounded>0 and Player.Jumping=0
        if Jump_Direction#<>0 then if CanJump()=0 then if GetSpritePhysicsVelocityY( Player.ID )=>0-10.0
            Player.Jumping=1
            yForce#=0.0-90.0
            PlaySound(Player.SND_Jump,80)
        endif
     else
        if GetSoundsPlaying(Player.SND_Jump)=0 then if Player.Grounded>0
           Player.Jumping=0
        endif
        if Player.Jumping=1 then if GetSpritePhysicsVelocityY( Player.ID )>0-45.0 then if GetSpritePhysicsVelocityY( Player.ID )<0.0
        if Jump_Direction#<>0 then if CanJump()=0
            Player.Jumping=2
            yForce#=0.0-45.0

        endif
        endif
     endif

     REM // Animate player //////////////////////
     if Player.Grounded>0 then if Player.Jumping=0
        REM // If player moving animate movement //
        if Move_Direction#<>0.0
           if GetSpriteCurrentFrame( Player.ID )<3 then PlaySprite( Player.ID , 5, 1, 3, 6 )
           Resumesprite( Player.ID)
        else // Idle animation //
           if GetSpriteCurrentFrame( Player.ID )>2 then PlaySprite( Player.ID , 3, 1, 1, 2 )
        endif
     else // Jumping animation //
        StopSprite( Player.ID )
        SetSpriteFrame(Player.ID,5)
     endif

     REM // Remove friction if on ground //
     if Move_Direction#<>0
        SetSpritePhysicsFriction( Player.ID , 0.0 )
     else
        SetSpritePhysicsFriction( Player.ID , 15.0 )
     endif

     REM // Make the player change direction faster with impulse force
     check=PhysicsRayCast( Player.X, Player.Y, Player.X - vdX(Player.Radius*2) , Player.Y )
     if Move_Direction#<0 and GetSpritePhysicsVelocityX( Player.ID )>0 then if check=0 then SetSpritePhysicsImpulse( Player.ID,Player.X, Player.Y,xForce#*8,0 )
     check=PhysicsRayCast( Player.X, Player.Y, Player.X + vdX(Player.Radius*2) , Player.Y )
     if Move_Direction#>0 and GetSpritePhysicsVelocityX( Player.ID )<0 then if check=0 then SetSpritePhysicsImpulse( Player.ID,Player.X, Player.Y,xForce#*8,0 )
     REM // Move player

     SetSpritePhysicsImpulse( Player.ID,Player.X, Player.Y,xForce#,yForce# )
     Player.CollidingID=0
     if GetSpriteFirstContact( Player.ID ) then Player.CollidingID = GetSpriteContactSpriteID2( )
Endfunction