// Project: Blockout 
// Created: 2016-09-26

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

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )


ballXPos as integer
ballYPos as integer
ballXSpeed as integer
ballYSpeed as integer

paddleCollisionFlag as integer

Dim blockXPos[5] as integer
Dim blockYPos[5] as integer

ballXPos = 300
ballYPos = 500
ballXSpeed = 100
ballYSpeed = 100

paddleCollisionFlag = 1

LoadImage(1, "paddle.png")
LoadImage(2, "ball.png")
LoadImage(3, "block.png")

CreateSprite(1, 1)  //Paddle
CreateSprite(2, 2)  //Ball
SetSpritePosition(2, ballXPos, ballYPos)

SetSpritePhysicsOn(1, 1)
SetSpritePhysicsOn(2, 2)

For x = 11 to 15  //Creates blocks
	CreateSprite(x, 3)  //Blocks
	blockXPos[x - 10] = (70 + (140 * (x -10)))
	blockYPos[x - 10] = 120
	SetSpritePosition(x, blockXPos[x - 10], blockYPos[x - 10])
	SetSpritePhysicsOn(x, 1)
Next x

SetSpriteShape(1, 2)
SetSpriteShape(2, 1)
SetSpritePhysicsVelocity(2, 100, 100)
SetSpritePhysicsForce(2, 310, 510, 1000, 1000)
SetSpritePhysicsRestitution(2, 1)
SetSpritePhysicsMass(2, 1000)

SetPhysicsGravity(0, 0)

CreatePhysicsForce(300, 500, 1000, 0, 100, 0)

do
    
    `Inc ballXPos, ballXSpeed
    `Inc ballYPos, ballYSpeed
    
    SetSpritePosition(1, GetPointerX(), 700)
    `SetSpritePhysicsForce(2, ballXPos, ballYPos, 1000, 1000)
    SetSpritePhysicsVelocity(2, ballXSpeed, ballYSpeed)
    `SetSpritePosition(2, ballXPos, ballYPos)
    
    `If GetPointerPressed() = 1
	`	ballXSpeed = ballXSpeed  * -1
	`Endif
    `If GetSpriteCollision(1, 2) = 1
		`ballXSpeed = ballXSpeed * -1
		`ballYSpeed = ballYSpeed * -1
		`SetSpritePhysicsImpulse(1, GetPointerX(), GetPointerY(), 100, 100)
	`Endif
	
    If ((ballXPos + GetSpriteWidth(2)) >= GetScreenBoundsRight())  //Detects collision between ball and window borders/Detects collision between ball and Right Window Border.
		ballXSpeed = (ballXSpeed * -1)
		paddleCollisionFlag = 1
		ElseIf ((ballYPos + GetSpriteHeight(2)) >= GetScreenBoundsBottom())  //Detecs collision between ball and Bottom Window Border.
			ballYSpeed = (ballYSpeed * -1)
			paddleCollisionFlag = 1
			ElseIf (ballXPos <= GetScreenBoundsLeft())  //Detects collision between ball and Left Window Border.
				ballXSpeed = (ballXSpeed * -1)
				paddleCollisionFlag = 1
				ElseIf (ballYPos <= GetScreenBoundsTop())  //Detects collision between ball and Top Window Border.
					ballYSpeed = (ballYSpeed * -1)
					paddleCollisionFlag = 1
	Endif
	
	If paddleCollisionFlag = 1
		If GetSpriteCollision(1, 2) = 1
			`If ((ballXPos + GetSpriteWidth(2)) <= GetPointerX())
			`	ballXSpeed = (ballXSpeed * -1)
			`	ElseIf (ballXPos >= (GetPointerX() + GetSpriteWidth(1)))
			`		ballXSpeed = (ballXSpeed * -1)
			`		Else`If ((ballYPos + GetSpriteHeight(2)) >= 700)
						ballYSpeed = (ballYSpeed * -1)
						paddleCollisionFlag = 0
			`Endif
		Endif
	Endif
	
    remstart
    If ((ballXPos + GetSpriteWidth(2)) >= GetScreenBoundsRight())  //Detects collision between ball and window borders/Detects collision between ball and Right Window Border.
		ballXSpeed = (ballXSpeed * -1)
		paddleCollisionFlag = 1
		ElseIf ((ballYPos + GetSpriteHeight(2)) >= GetScreenBoundsBottom())  //Detecs collision between ball and Bottom Window Border.
			ballYSpeed = (ballYSpeed * -1)
			paddleCollisionFlag = 1
			ElseIf (ballXPos <= GetScreenBoundsLeft())  //Detects collision between ball and Left Window Border.
				ballXSpeed = (ballXSpeed * -1)
				paddleCollisionFlag = 1
				ElseIf (ballYPos <= GetScreenBoundsTop())  //Detects collision between ball and Top Window Border.
					ballYSpeed = (ballYSpeed * -1)
					paddleCollisionFlag = 1
	Endif
	
	remstart If GetSpriteCollision(1, 2) = 1
		If ((ballXPos + GetSpriteWidth(2)) <= GetPointerX())
			ballXSpeed = (ballXSpeed * -1)
			ElseIf (ballXPos >= (GetPointerX() + GetSpriteWidth(1)))
				ballXSpeed = (ballXSpeed * -1)
				Else`If ((ballYPos + GetSpriteHeight(2)) >= 700)
					ballYSpeed = (ballYSpeed * -1)
		Endif
	Endif
	
	If paddleCollisionFlag = 1  //Detects collision between ball and paddle.
		If GetSpriteCollision(1, 2) = 1
			If (ballYPos + GetSpriteHeight(2)) > 710
				If ((ballXPos + GetSpriteWidth(2)) >= (GetPointerX() + 10))
					ballXSpeed = ballXSpeed * -1
					paddleCollisionFlag = 0
				Endif
				Else
					ballYSpeed = ballYSpeed * -1
					paddleCollisionFlag = 0
			Endif
		Endif
	Endif
	
	For x = 11 to 15
		If GetSpriteCollision(2, x) = 1
			DeleteSprite(x)
			If (ballYPos < blockYPos[x - 10])
				ballYSpeed = (ballYSpeed * -1)
				ElseIf (ballYPos > (blockYPos[x - 10] + GetSpriteHeight(x)))
					ballYSpeed = (ballYSpeed * -1)
					ElseIf (ballXPos < blockXPos[x - 10])
						ballXSpeed = (ballXSpeed * -1)
						ElseIf (ballXPos > (blockXPos[x - 10] + GetSpriteWidth(x)))
							ballXSpeed = (ballXSpeed * -1)
			Endif
		Endif
	Next x remend

    Sync()
loop