Sorry your browser is not supported!

SetPhysicsGravity(0,500)

SetSpritePhysicsImpulse(player,0,0,0,-99999999)

// Project: platformer 
// Created: 2015-09-06

// set window properties
SetWindowTitle( "platformer" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 0, 0, 1, 0 )
SetClearColor( 50, 200, 250 )

// set physics properties
SetPhysicsGravity( 0, 50000 ) 
SetPhysicsWallBottom( 0 ) 
SetPhysicsWallTop ( 0 )


// create base ground and platforms
	CreateSprite(1, LoadImage("ground_left.png"))
	SetSpritePosition(1, x, 704)
	SetSpritePhysicsOn(1, 1)
	SetSpriteDepth(1, 20)
	x = x + 64	

for g = 2 to 19
	CreateSprite(g, LoadImage("ground_middle.png"))
	SetSpritePosition(g, x, 704)
	SetSpritePhysicsOn(g, 1)
	SetSpriteDepth(g, 20)
	x = x + 64
next g

	CreateSprite(20, LoadImage("ground_right.png"))
	SetSpritePosition(20, x, 704)
	SetSpritePhysicsOn(20, 1)
	SetSpriteDepth(20, 20)
	
x = 384
	
	CreateSprite(21, LoadImage("ground_left.png"))
	SetSpritePosition(21, x, 650)
	SetSpritePhysicsOn(21, 1)
	SetSpriteDepth(21, 21)
	x = x + 64	

for h = 22 to 24
	CreateSprite(h, LoadImage("ground_middle.png"))
	SetSpritePosition(h, x, 650)
	SetSpritePhysicsOn(h, 1)
	SetSpriteDepth(h, 21)
	x = x + 64	
next h

	CreateSprite(25, LoadImage("ground_right.png"))
	SetSpritePosition(25, x, 650)
	SetSpritePhysicsOn(25, 1)
	SetSpriteDepth(25, 21)
	
x = 832

	CreateSprite(26, LoadImage("ground_left.png"))
	SetSpritePosition(26, x, 550)
	SetSpritePhysicsOn(26, 1)
	SetSpriteDepth(26, 22)
	x = x + 64	
	
for j = 27 to 29
	CreateSprite(j, LoadImage("ground_middle.png"))
	SetSpritePosition(j, x, 550)
	SetSpritePhysicsOn(j, 1)
	SetSpriteDepth(j, 22)
	x = x + 64	
next j

	CreateSprite(30, LoadImage("ground_right.png"))
	SetSpritePosition(30, x, 550)
	SetSpritePhysicsOn(30, 1)
	SetSpriteDepth(30, 22)



    // create a sprite for the piglet with ID that has no image
        CreateSprite ( 201, 0 )
        SetSpritePosition ( 201, 400, 650 )
        SetSpriteShapeCircle( 201, 0, 0, 20 ) 
        SetSpritePhysicsOn ( 201, 2 )
        SetSpriteVisible ( 201, 1 )

    // add individual images into animation lists
        AddSpriteAnimationFrame ( 201, LoadImage ( "piglet1_left_01.png" ) )
        AddSpriteAnimationFrame ( 201, LoadImage ( "piglet1_left_02.png" ) )
        AddSpriteAnimationFrame ( 201, LoadImage ( "piglet1_idle_01.png" ) )
        AddSpriteAnimationFrame ( 201, LoadImage ( "piglet1_idle_02.png" ) )
        AddSpriteAnimationFrame ( 201, LoadImage ( "piglet1_right_01.png" ) )
        AddSpriteAnimationFrame ( 201, LoadImage ( "piglet1_right_02.png" ) )

		PlaySprite ( 201, 10, 1, 1, 2 )


do


	// set and check collisions for the ground
	for c = 1 to 30
		// if piglet is touching the ground while decending from a jump then set flag to 0 for ending the jump
		if GetPhysicsCollision(201, c) and jumping = 2
			jumping = 0
		endif
		// if piglet is below this section of ground then turn physics off
		if GetSpriteY(201) > GetSpriteY(c) - 15
			SetSpritePhysicsOff(c)
		else
			// else the ground section is under piglet, so turn physics back on
			SetSpritePhysicsOn(c, 1)
		endif
	next c
  
	// check to see if we have walked off the edge of the ground to prevent air jumps
	falling = 0
	for c = 1 to 30
		if GetPhysicsCollision(201, c) = 0 and jumping = 0
			falling = falling + 1
		endif
	next c
	if falling = 30
		jumping = 2
	endif
		
	// check for jump and set flag to 1 for jumping
	if GetRawKeyPressed(38) = 1 and jumping = 0
		jumping = 1
		jump_start = GetSpriteY(201)
	endif
  
	//perform jump
	if jumping = 1
		// if piglet has not reached jump apex and player is still holding jump button then subtract Y position to keep rising
		if GetSpriteY(201) > (jump_start - 108) and GetRawKeyState(38) = 1
			SetSpritePosition(201, 480, GetSpriteY(201) - 16)
		else
			// piglet is decending from a jump, so set flag to 2 and let gravity pull piglet down
			jumping = 2 
		endif
	endif

			
    // Check for left movement with left arrow key if we have not fallen off the screen
    if GetRawKeyState(37) and GetSpriteY(201) < 770
		// set piglet animation for left run
        if GetSpriteCurrentFrame(201) > 2
            PlaySprite ( 201, 10, 1, 1, 2 )
        endif
        // adjust the ground for left piglet movement 
        for p = 1 to 30
			x = GetSpriteX(p)
			y = GetSpriteY(p)
            SetSpritePosition ( p, x + 5, y )
        next p

    // Check for right movement with right arrow key if we have not fallen off the screen
    elseif GetRawKeyState(39) and GetSpriteY(201) < 770
        // set piglet animation for right run
        if GetSpriteCurrentFrame(201) < 5
            PlaySprite ( 201, 10, 1, 5, 6 )
        endif
        // adjust the ground for right piglet movement 
        for p = 1 to 30
			x = GetSpriteX(p)
			y = GetSpriteY(p)
            SetSpritePosition ( p, x - 5, y )
        next p

    // Not moving so set the piglet animation to idle 
    elseif  GetRawKeyState(37) = 0 and GetRawKeyState(39) = 0
        PlaySprite ( 201, 10, 1, 3, 4 )
    endif

    Print( ScreenFPS() )
    
    // maintain piglet's balance and ceter screen position
    SetSpritePosition(201, 480, GetSpriteY(201))
    SetSpriteAngle(201,0)
    Sync()
    
    if GetRawKeyPressed(27) = 1 then end
loop

For r = 1 to 17
	if GetSpriteX(r) < 512 and GetSpriteX(r) > 447
		check = r
		exit
	endif
next r

if check = 17
	check2 = 1
else
	check2 = check + 1
endif

// check left center column
For s = check to (check + 187) step 17
	if jumping = 2 and GetPhysicsCollision(2001, s) = 1
		jumping = 0
		jump_start = GetSpriteY(2001)
	endif
	// if piglet is below this section of ground then turn physics off
	if GetSpriteY(2001) > GetSpriteY(s) - 15
		SetSpritePhysicsOff(s)
	// make sure we are not checking the blank spaces when turning physics back on
	elseif tiles$[s] <> str(0)
		// else the ground section is under piglet, so turn physics back on
		SetSpritePhysicsOn(s, 1)
	endif
next s

// check right center column
For t = check2 to (check2 + 187) step 17
	if jumping = 2 and GetPhysicsCollision(2001, t) = 1
		jumping = 0
		jump_start = GetSpriteY(2001)
	endif
	// if piglet is below this section of ground then turn physics off
	if GetSpriteY(2001) > GetSpriteY(t) - 15
		SetSpritePhysicsOff(t)
	// make sure we are not checking the blank spaces when turning physics back on
	elseif tiles$[t] <> str(0)
		// else the ground section is under piglet, so turn physics back on
		SetSpritePhysicsOn(t, 1)
	endif
next t

if(GetSpriteX(terrenosArray[0].terreno)<= -GetVirtualWidth())
		if(inicioCenarioCount<TERRENO_PRIMEIROS_STEPS)
			inicioCenarioCount = inicioCenarioCount + 1
		else
			randTamanhoTerreno = terrenoTamanhoRandom(0)
		endif
			terrenosArray[0].x = GetSpriteWidth(terrenosArray[1].terreno)
			terrenosArray[1].x = 0
			SetSpritePosition(terrenosArray[0].terreno, terrenosArray[0].x,terrenosArray[0].y)
			//Log("passou terreno1")
			countTerrenos1 = countTerrenos1 + 1
	endif
	
	//move terreno 2 para o final da fila
	if(GetSpriteX(terrenosArray[1].terreno)<= -GetVirtualWidth())			
		terrenosArray[1].x = GetSpriteWidth(terrenosArray[0].terreno)
		terrenosArray[0].x = 0
		terrenosArray[1].y = terrenosArray[0].y
		SetSpritePosition(terrenosArray[1].terreno, terrenosArray[1].x,terrenosArray[1].y)
		
	endif
	
	SetSpritePosition(terrenosArray[0].terreno, terrenosArray[0].x, terrenosArray[0].y)
	SetSpritePosition(terrenosArray[1].terreno, terrenosArray[1].x, terrenosArray[1].y)
	
	terrenosArray[0].x = terrenosArray[0].x-terrenoSpeedX
	terrenosArray[1].x = terrenosArray[1].x-terrenoSpeedX

function setTerrenoRandom(index as Integer)
	rand = Random(0,166)
	
	for i=0 to dadosTerrenosArray.length
		if(rand>=dadosTerrenosArray[i].chanceMin AND rand<=dadosTerrenosArray[i].chanceMax)
			Log("RANDOM - id:"+str(dadosTerrenosArray[i].id)+" Index: "+str(index)+" I: "+str(i)+" | "+"MIN: "+str(dadosTerrenosArray[i].chanceMin)+"MAX: "+str(dadosTerrenosArray[i].chanceMax))
			terrenosArray[index].terreno = dadosTerrenosArray[i].sprite
			terrenosArray[index].id = dadosTerrenosArray[i].id
			SetSpriteActive(dadosTerrenosArray[i].sprite, 1)
			SetSpriteVisible(terrenosArray[index].terreno, 1)

		endif
	next i
endfunction

function criarPrimeirosCenarios()
	
	terrenosArray[0].terreno = dadosTerrenosArray[0].sprite
	terrenosArray[0].x = 0
	terrenosArray[0].y = TERRENO_MIN_HEIGTH
	terrenosArray[0].id = 1
	
	terrenosArray[1].terreno = dadosTerrenosArray[1].sprite
	terrenosArray[1].x = GetSpriteWidth(terrenosArray[0].terreno)
	terrenosArray[1].y = TERRENO_MIN_HEIGTH
	terrenosArray[1].id = 1
	
endfunction

function criarTodosTerrenos()
	
	dadosTerrenosArray[0].id = 1
	dadosTerrenosArray[0].sprite = CreateSprite(LoadImage("cenario/terreno/terreno1.png"))
	dadosTerrenosArray[0].chanceMin = 0
	dadosTerrenosArray[0].chanceMax = 50
	dadosTerrenosArray[0].x = GetVirtualWidth()*2
	dadosTerrenosArray[0].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[0].sprite, dadosTerrenosArray[0].x, dadosTerrenosArray[0].y)
	
	dadosTerrenosArray[1].id = 2
	dadosTerrenosArray[1].sprite = CreateSprite(LoadImage("cenario/terreno/terreno1.png"))
	dadosTerrenosArray[1].chanceMin = -1
	dadosTerrenosArray[1].chanceMax = -1
	dadosTerrenosArray[1].x = GetVirtualWidth()*2
	dadosTerrenosArray[1].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[1].sprite, dadosTerrenosArray[1].x, dadosTerrenosArray[1].y)
	
	dadosTerrenosArray[2].id = 3
	dadosTerrenosArray[2].sprite = CreateSprite(LoadImage("cenario/terreno/terreno2.png"))
	dadosTerrenosArray[2].chanceMin = 51
	dadosTerrenosArray[2].chanceMax = 80
	dadosTerrenosArray[2].x = GetVirtualWidth()*2
	dadosTerrenosArray[2].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[2].sprite, dadosTerrenosArray[2].x, dadosTerrenosArray[2].y)
	SetSpriteVisible(dadosTerrenosArray[2].sprite, 0)
	SetSpriteActive(dadosTerrenosArray[2].sprite, 0)
	
	dadosTerrenosArray[3].id = 4
	dadosTerrenosArray[3].sprite = CreateSprite(LoadImage("cenario/terreno/terreno3.png"))
	dadosTerrenosArray[3].chanceMin = 81
	dadosTerrenosArray[3].chanceMax = 94
	dadosTerrenosArray[3].x = GetVirtualWidth()*2
	dadosTerrenosArray[3].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[3].sprite, dadosTerrenosArray[3].x, dadosTerrenosArray[3].y)
	SetSpriteVisible(dadosTerrenosArray[3].sprite, 0)
	SetSpriteActive(dadosTerrenosArray[3].sprite, 0)
	
	dadosTerrenosArray[4].id = 5
	dadosTerrenosArray[4].sprite = CreateSprite(LoadImage("cenario/terreno/terreno4.png"))
	dadosTerrenosArray[4].chanceMin = 95
	dadosTerrenosArray[4].chanceMax = 105
	dadosTerrenosArray[4].x = GetVirtualWidth()*2
	dadosTerrenosArray[4].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[4].sprite, dadosTerrenosArray[4].x, dadosTerrenosArray[4].y)
	SetSpriteVisible(dadosTerrenosArray[4].sprite, 0)
	SetSpriteActive(dadosTerrenosArray[4].sprite, 0)
	
	dadosTerrenosArray[5].id = 6
	dadosTerrenosArray[5].sprite = CreateSprite(LoadImage("cenario/terreno/terreno5.png"))
	dadosTerrenosArray[5].chanceMin = 106
	dadosTerrenosArray[5].chanceMax = 125
	dadosTerrenosArray[5].x = GetVirtualWidth()*2
	dadosTerrenosArray[5].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[5].sprite, dadosTerrenosArray[5].x, dadosTerrenosArray[5].y)
	SetSpriteVisible(dadosTerrenosArray[5].sprite, 0)
	SetSpriteActive(dadosTerrenosArray[5].sprite, 0)
	
	dadosTerrenosArray[6].id = 7
	dadosTerrenosArray[6].sprite = CreateSprite(LoadImage("cenario/terreno/terreno6.png"))
	dadosTerrenosArray[6].chanceMin = 121
	dadosTerrenosArray[6].chanceMax = 145
	dadosTerrenosArray[6].x = GetVirtualWidth()*2
	dadosTerrenosArray[6].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[6].sprite, dadosTerrenosArray[6].x, dadosTerrenosArray[6].y)
	SetSpriteVisible(dadosTerrenosArray[6].sprite, 0)
	SetSpriteActive(dadosTerrenosArray[6].sprite, 0)
	
	dadosTerrenosArray[7].id = 8
	dadosTerrenosArray[7].sprite = CreateSprite(LoadImage("cenario/terreno/terreno7.png"))
	dadosTerrenosArray[7].chanceMin = 146
	dadosTerrenosArray[7].chanceMax = 166
	dadosTerrenosArray[7].x = GetVirtualWidth()*2
	dadosTerrenosArray[7].y = GetVirtualHeight()*2
	SetSpritePosition(dadosTerrenosArray[7].sprite, dadosTerrenosArray[7].x, dadosTerrenosArray[7].y)
	SetSpriteVisible(dadosTerrenosArray[7].sprite, 0)
	SetSpriteActive(dadosTerrenosArray[7].sprite, 0)
	
endfunction