Game

// Project: Meteors
// Created: 2018-11-22
//James Sinclair

//*** Include required library files ***
#include "CoreLibrary.agc"
#include "TopScoresLibrary.agc"
#include "GraphicsLibrary.agc"
//****** Data Types ******
type VelocityType
	x as float //x-offset per move
	y as float //y-offset per move
endtype
type SpaceshipType
	sprID as integer //Sprite ID
	turning as float //Turning angle/frame
	thrust as float //Engine’s thrust
	velocity as VelocityType //Current velocity
	dragfactor as float //Drag factor applied to movement
	missile as MissileType //ship’s missile
endtype
type MissileType
	sprID as integer //Sprite ID
	thrust as float //Missile’s thrust
	velocity as VelocityType //velocity
	moves as integer //Moves made
	explodeimg as integer //Contains ID of explode image
	explodespr as integer //Contains ID of explode sprite
endtype

type MeteorType
	sprID as integer //Sprite ID
	velocity as VelocityType //velocity
endtype

type NumericTextType
	txtID as integer //Text ID
	value as integer //Value ID
endtype

type BackgroundType
	sprID as integer //Sprite ID
endtype

type YouLostType
	sprID as integer//Sprite ID
endtype

type YouWinType
	sprID as integer// Sprite ID
endtype

type EnemyAIType
	sprID as integer // Sprite ID
	speed as float // AI ship speed
	velocity as VelocityType // velocity
endtype

type GameType
	imgIDs as integer[TOTALIMAGES] // TOTALIMAGES Arry
	meteor as MeteorType[TOTALMETEOR] //Meteors
	ship as SpaceshipType	//SpaceShip type
	explode as integer[3]	//Contains explosion
	lives as NumericTextType //Lives count
	score as NumericTextType //Score Count
	MeteorsLeft as NumericTextType	//Meteors left count
	Background as BackgroundType	//Background type
	MeteorsShot as NumericTextType  //Meteors shot count
	Youlost as YouLostType	// YouLose Type
	Youwin as YouWinType	//YouWin type
	YouWinOrLost as NumericTextType	//Win or lose state
	Level2Text as NumericTextType // Text for level 2
	AI as EnemyAIType // EnemyAI type
endtype

//Constants
#constant RANGE = 140
#constant TOTALMETEOR = 10
#constant TOTALIMAGES = 7
#constant TOTALLIVES = 5
//****** Global Variables ******
global game as GameType
global level as integer
global distance as float
//***************************************
//*** Main program ***
//***************************************
InitialiseScreen(1024,768,"Meteors",LoadImage("background.png"),%1111)
ShowSplashScreen("Splash.png")
LoadResources()
HideSplashScreen(4)
InitialiseGameVariables()
CreateInitialLayout()
level = 1

repeat



	HandleUserInput(GetUserInput())
	HandleOther()
	Sync()

	if game.MeteorsShot.value = 5 and level = 1
		repeat
			InitialLevel2()
			level = 2
		until game.MeteorsLeft.value = 1
	endif
	if level =2
		EnemyAIMove()
	endif
	Winorloss()

until game.YouWinOrLost.value = 1

ShowEndMessage("EndScreen.png",game.score.value)
end

//***************************************
//*** Functions ***
//***************************************
function LoadResources()
	//*** Load images ***
	global imagenames as string[TOTALIMAGES]=["","Asteroid","SpaceShip2","Missile","Spacescreen","YouLost","YouWin","AI"]
	for c = 1 to TOTALIMAGES
		game.imgIDs[c] = LoadImage(imagenames[c]+".png")
	next c
	game.ship.missile.explodeimg = LoadImage("Explode.png")
	for c = 1 to 3
		game.explode[c] = LoadImage("Explode0"+str(c)+ ".png")
	next c
endfunction

function InitialiseGameVariables()
	//*** Set the velocity ***
//	game.meteor.velocity.x = 0.5
//	game.meteor.velocity.y = 0.7
	//*** Set ship’s turning angle per frame ***
	game.ship.turning = 3
	//*** Set ship’s thrust ***
	game.ship.thrust = 0.005
	//*** Set ship’s drag factor ***
	game.ship.dragfactor = 0.995
	//*** Set missile’s thrust ***
	game.ship.missile.thrust = 2
	//*** Set Lives value ***
	game.lives.value = 3
	//*** Set Score value ***
	game.score.value = 0
	game.MeteorsLeft.value = 0
	// Set Value of meteors Destroyed
	game.MeteorsShot.value = 0
	// Set the Value of the games win/lost state
	game.YouWinOrLost.value = 0
	// set the values of the ai stats
	game.AI.velocity.x = 0.5
	game.AI.velocity.y = 0.5
	game.AI.speed = 0.5

endfunction
function CreateInitialLayout()
	//*** Create, size and position meteor sprite ***
	for c = 1 to 5
		game.meteor[c].sprID = CreateSprite(game.imgIDs[1])
		SetSpriteSize(game.meteor[c].sprID, Random2(6,10),-1)
		SetSpritePosition(game.meteor[c].sprID,Random2(1,90),Random2(1,90))
		game.meteor[c].velocity.x = Random2(0,1)
		game.meteor[c].velocity.y = Random2(0,1)
	next c
	//Background
	game.Background.sprID = CreateSprite(game.imgIDS[4])
	SetSpriteSize(game.background.sprID,100,100)
    SetSpriteDepth(game.background.sprID,11)

	//*** Create, size and position spaceship ***
	game.ship.sprID = CreateSprite(game.imgIDs[2])
	SetSpriteSize(game.ship.sprID, 5,-1)
	SetSpritePosition(game.ship.sprID,48,48)
	//*** Define as an animated sprite ***
	SetSpriteAnimation(game.ship.sprID, 256, 197, 3)
	SetSpriteFrame(game.ship.sprID, 1)
	// Setup Asteroids
	for c = 1 to TOTALMETEOR
		SetSpriteAnimation(game.meteor[c].sprID, 250, 250, 16)
	next c
	//*** Add explosion to meteor ***
	//for c = 1 to 3
	//	AddSpriteAnimationFrame(game.meteor[c].sprID,game.explode[c])
	//next c
	//Play Animation
	for c = 1 to TOTALMETEOR
		PlaySprite(game.meteor[c].sprID, 20,1,1,16)

		//*** Define explosion as animated sprite ***
		game.ship.missile.explodespr = CreateSprite(game.ship.missile.explodeimg)
		SetSpriteAnimation(game.ship.missile.explodespr,250,250,3)
		SetSpriteSize(game.ship.missile.explodespr, 5,-1)
		SetSpriteVisible(game.ship.missile.explodespr,0)
	next c
	// lives text
	game.lives.txtID = CreateText("Lives:	"+Str(game.lives.value))
	SetTextPosition(game.lives.txtID, 12, 3.8)
	SetTextColor(game.lives.txtID, 255,255,255,255)

	//Score Text
	game.score.txtID = CreateText("Score:	"+Str(game.score.value))
	SetTextAlignment(game.score.txtID, 2)
	SetTextPosition(game.score.txtID, 92, 3.8)
	SetTextColor(game.score.txtID, 255,255,255,255)

	// Meteors shot text
	game.MeteorsShot.txtID = CreateText("Meteors destroyed:		"+str(game.MeteorsShot.value))
	SetTextAlignment(game.MeteorsShot.txtID, 2)
	SetTextPosition(game.MeteorsShot.txtID, 68, 3.8)
	SetTextColor(game.MeteorsShot.txtID, 255,255,255,255)

endfunction


function HandleOther()
	//*** Move meteor ***
	for c = 1 to TOTALMETEOR
		MoveSpriteWithWrap(game.meteor[c].sprID, game.meteor[c].velocity.x, game.meteor[c].velocity.y)
	next c
	//*** Move spaceship ***
	MoveSpriteWithWrap(game.ship.sprID, game.ship.velocity.x, game.ship.velocity.y)
	//*** Adjust velocity for drag ***
	game.ship.velocity.x = game.ship.velocity.x * game.ship.dragfactor
	game.ship.velocity.y = game.ship.velocity.y * game.ship.dragfactor

	//*** If it exists, move missile ***
	if GetSpriteExists(game.ship.missile.sprID) = 1
		MoveMissile()
	endif
	//*** If missile explosion playing enlarge and fade current frame ***
	if GetSpritePlaying(game.ship.missile.explodespr) = 1
		SetSpriteSize(game.ship.missile.explodespr, GetSpriteCurrentFrame(game.ship.missile.explodespr)*5, -1)
		SetSpriteColorAlpha(game.ship.missile.explodespr, 255 - GetSpriteCurrentFrame(game.ship.missile.explodespr)*70)
	//*** If missile explosion animation done, make invisible ***
	elseif GetSpritePlaying(game.ship.missile.explodespr) = 0
		SetSpriteVisible(game.ship.missile.explodespr,0)
	endif
	//*** if meteor playing***
	for c = 1 to TOTALMETEOR
		if GetSpritePlaying(game.meteor[c].sprID) = 1
			if GetSpriteCurrentFrame(game.meteor[c].sprID) > 16
				//*** expand and fade***
				SetSpriteSize(game.meteor[c].sprID,(GetSpriteCurrentFrame(game.meteor[c].sprID)-16)*5, -1)
				SetSpriteColorAlpha(game.meteor[c].sprID, 255 - (GetSpriteCurrentFrame(game.meteor[c].sprID)-16)*70)
			else
				// *** move meteor ***
				MoveSpriteWithWrap(game.meteor[c].sprID, game.meteor[c].velocity.x, game.meteor[c].velocity.y)
			endif
			//If its not playing, explosion finished, delete sprite ***
		else
			DeleteSprite(game.meteor[c].sprID)
		endif
	next c

	//*** if thruster animation has stopped, show frame 1 ***
	if GetSpritePlaying(game.ship.sprID) = 0
		SetSpriteFrame(game.ship.sprID, 1)
	endif

	// Collision between Ship and Meteor
	for c = 1 to TOTALMETEOR
		if GetSpriteCollision(game.ship.sprID, game.meteor[c].sprID) = 1
			DeleteSprite(game.meteor[c].sprID)
			livesLost(c)
			Meteorsdestroyed()
		endif
	next c
endfunction

function GetUserInput()
	//*** Read keyboard ***
	//** If its the Left Arrow key, result is 1 ***
	if GetRawKeyState(37) = 1
		result = 1
		//** If its the Right arrow key result is 2 **
	elseif GetRawKeyState(39) = 1
		result = 2
	//** If it’s Up arrow result is 3 **
	elseif GetRawKeyState(38) = 1
		result = 3
		//** If it’s Space bar, result is 4 **
	elseif GetRawKeyState(32) = 1
		result = 4
		//** Anything else, result is zero **
	else
		result = 0
	endif
endfunction result

function HandleUserInput(in as integer)
//*** If A pressed, rotate anticlockwise ***
	if in = 1
		SetSpriteAngle(game.ship.sprID, GetSpriteAngle(game.ship.sprID) - game.ship.turning)
		//*** If S pressed, rotate clockwise ***
	elseif in = 2
		SetSpriteAngle(game.ship.sprID, GetSpriteAngle(game.ship.sprID) + game.ship.turning)
		//*** If space pressed, fire thruster ***
	elseif in = 3
		thrustvelocity as VelocityType
		thrustvelocity = CalculateVelocity(game.ship.thrust,GetSpriteAngle(game.ship.sprID))
		game.ship.velocity.x = game.ship.velocity.x + thrustvelocity.x
		game.ship.velocity.y = game.ship.velocity.y + thrustvelocity.y
		//*** If thruster animation not playing, play it ***
		if GetSpritePlaying(game.ship.sprID)= 0
			PlaySprite(game.ship.sprID, 30, 0, 2, 3)
		endif
	//*** If Enter pressed, fire missile ***
	elseif in = 4
		FireMissile()
	endif
endfunction

//Thruster calculation
function CalculateVelocity(thrust as float, angle as float)
	result as VelocityType
	result.x = cos(angle)*thrust
	result.y = sin(angle)*thrust *(GetDeviceWidth()*1.0/GetDeviceHeight())
endfunction result

//*** Creates missile and gives it a velocity ***
function FireMissile()
	//*** If missile exists, exit ***
	if GetSpriteExists(game.ship.missile.sprID) = 1
		exitfunction
	endif
	//*** Create missile at centre of ship ***
	game.ship.missile.sprID = CreateSprite(game.imgIDs[3])
	SetSpriteSize(game.ship.missile.sprID, 3,-1)
	//*** Position it under centre of ship ***
	SetSpritePositionByOffset(game.ship.missile.sprID,GetSpriteXByOffset(game.ship.sprID),GetSpriteYByOffset(game.ship.sprID))
	SetSpriteDepth(game.ship.missile.sprID,9)
	//*** Rotate it to the same angle as ship ***
	SetSpriteAngle(game.ship.missile.sprID,GetSpriteAngle(game.ship.sprID))
	//*** Calculate velocity ***
	game.ship.missile.velocity = CalculateVelocity(game.ship.missile.thrust,GetSpriteAngle(game.ship.missile.sprID))
	//*** Set moves to zero ***
	game.ship.missile.moves = 0
endfunction

//*** Moves missile one step along its trajectory. If ***
//*** meteor hit, missile and meteor are destroyed. ***
//*** If at end of range, missile is destroyed ***
function MoveMissile()
	//*** If missile doesn’t exist, exit ***
	if GetSpriteExists(game.ship.missile.sprID) = 0
		exitfunction
	endif
	//*** Move the missile ***
	MoveSpriteWithWrap(game.ship.missile.sprID,game.ship.missile.velocity.x,game.ship.missile.velocity.y)
	//*** If missile has hit meteor ***
	for c = 1 to TOTALMETEOR
		if GetSpriteCollision(game.ship.missile.sprID,game.meteor[c].sprID) = 1
			//*** Destroy both ***
			if game.MeteorsLeft.value = 0
				inc game.score.value, 1*100 //game.meteor[c].sprID
			elseif game.MeteorsLeft.value = 1
				inc game.score.value, 1*200
			endif
			Meteorsdestroyed() //inc game.MeteorsShot.value, 1
			SetTextString(game.score.txtID,"Score:	"+Str(game.score.value))
			// PlaySprite(game.meteor[c].sprID,20,0,17,19)
			DeleteSprite(game.ship.missile.sprID)
			DeleteSprite(game.meteor[c].sprID)
			//*** If no hit ***

	else
			//*** Add to count of times missile has moved ***
		inc game.ship.missile.moves
			//*** If reached range, destroy missile and play explosion ***
		if game.ship.missile.moves >= RANGE
			SetSpritePositionByOffset(game.ship.missile.explodespr,GetSpriteXByOffset(game.ship.missile.sprID),GetSpriteYByOffset(game.ship.missile.sprID))
			SetSpriteVisible(game.ship.missile.explodespr,1)
			DeleteSprite(game.ship.missile.sprID)
			PlaySprite(game.ship.missile.explodespr,20,0)
		endif

	endif
next c
endfunction

//Lives lost function
function livesLost(c as integer)
	//Dec life if hit
	dec game.lives.value

	//change lives text
	if game.lives.value > 0

		SetTextString(game.lives.txtID,"Lives:	"+Str(game.lives.value))
		// Move ship if hit
		While GetSpriteCollision(game.ship.sprID, game.meteor[c].sprID) = 1
			SetSpritePosition(game.meteor[c].sprID, Random2(1,90), Random2(1,90))
		EndWhile

		// reset ship
		setspriteframe(game.ship.sprID,1)
		SetSpritePosition(game.ship.sprID, 48, 48)

		else
			exitfunction
		endif
 endfunction

function Meteorsdestroyed()
	//Inc the number of meteors hit
	//inc
	game.MeteorsShot.value = 5
	//Change text when meteor is hit
	if game.MeteorsShot.value > 0
		SetTextString(game.MeteorsShot.txtID,"Meteors destroyed:	"+str(game.MeteorsShot.value))
	endif
endfunction

//Create level 2
function InitialLevel2()

	if game.MeteorsShot.value = 5 and game.MeteorsLeft.value = 0
		Sleep(200)
		//Delete Sprites
		for c = 1 to TOTALMETEOR
			DeleteSprite(game.meteor[c].sprID)
			sync()
		next c
		DeleteSprite(game.ship.sprID)
		DeleteSprite(game.ship.missile.sprID)
		DeleteSprite(game.background.sprID)
		DeleteText(game.lives.txtID)
		DeleteText(game.score.txtID)
		DeleteText(game.MeteorsShot.txtID)


		//Create Sprites
	/*
			//*** Create, size and position meteors sprite ***
		for c = 1 to TOTALMETEOR
			game.meteor[c].sprID = CreateSprite(game.imgIDs[1])
			SetSpriteSize(game.meteor[c].sprID, Random2(6,10),-1)
			SetSpritePosition(game.meteor[c].sprID,Random2(1,90),Random2(1,90))
			game.meteor[c].velocity.x = Random2(-1,1)
			game.meteor[c].velocity.y = Random2(-1,1)
		next c
		// Setup Asteroids
		for c = 1 to TOTALMETEOR
			SetSpriteAnimation(game.meteor[c].sprID, 250, 250, 16)
			//Play Animation
			PlaySprite(game.meteor[c].sprID, 20,1,1,16)
		next c
	*/
		//Background
		game.Background.sprID = CreateSprite(game.imgIDS[4])
		SetSpriteSize(game.background.sprID,100,100)
		SetSpriteDepth(game.background.sprID,11)

		//Level 2 text
		game.Level2Text.txtID = CreateText("Level 2")
		SetTextAlignment(game.Level2Text.txtID, 2)
		SetTextPosition(game.Level2Text.txtID,50 , 50)
		SetTextColor(game.Level2Text.txtID, 255,255,255,255)
		sync()
		Sleep(2000)
		DeleteText(game.Level2Text.txtID)


		//*** Create, size and position spaceship ***
		game.ship.sprID = CreateSprite(game.imgIDs[2])
		SetSpriteSize(game.ship.sprID, 5,-1)
		SetSpritePosition(game.ship.sprID,48,48)
		SetSpriteAnimation(game.ship.sprID, 256, 197, 3)
		SetSpriteFrame(game.ship.sprID, 1)
		game.lives.value = TOTALLIVES
		// Setup Asteroids
		for c = 1 to TOTALMETEOR
			SetSpriteAnimation(game.meteor[c].sprID, 250, 250, 16)
			//Play Animation
			PlaySprite(game.meteor[c].sprID, 20,1,1,16)
		next c
		//*** Add explosion to meteor ***
		//for c = 1 to 3
		//	AddSpriteAnimationFrame(game.meteor[c].sprID,game.explode[c])
		//next c

		//*** Create, size and position EnemyAI ***
		game.AI.sprID = CreateSprite(game.imgIDs[7])
		SetSpriteSize(game.AI.sprID, 5,-1)
		SetSpritePosition(game.AI.sprID, 4,4)
		game.AI.Velocity.x = 1
		game.AI.velocity.y = 1


		//*** Define explosion as animated sprite ***
		game.ship.missile.explodespr = CreateSprite(game.ship.missile.explodeimg)
		SetSpriteAnimation(game.ship.missile.explodespr,250,250,3)
		SetSpriteSize(game.ship.missile.explodespr, 5,-1)
		SetSpriteVisible(game.ship.missile.explodespr,0)

		// lives text
		game.lives.txtID = CreateText("Lives:	"+Str(game.lives.value))
		SetTextPosition(game.lives.txtID, 12, 3.8)
		SetTextColor(game.lives.txtID, 255,255,255,255)

		//Score Text
		game.score.txtID = CreateText("Score:	"+Str(game.score.value))
		SetTextAlignment(game.score.txtID, 2)
		SetTextPosition(game.score.txtID, 92, 3.8)
		SetTextColor(game.score.txtID, 255,255,255,255)

		// Meteors shot text
		game.MeteorsShot.txtID = CreateText("Meteors destroyed:		"+str(game.MeteorsShot.value))
		SetTextAlignment(game.MeteorsShot.txtID, 2)
		SetTextPosition(game.MeteorsShot.txtID, 68, 3.8)
		SetTextColor(game.MeteorsShot.txtID, 255,255,255,255)
		sync()
		inc game.MeteorsLeft.value, 1 // Inc value so function doesn't loop
	endif

endfunction

function Winorloss()

	if game.lives.value <= 0
		// Delete sprites
		for c = 1 to TOTALMETEOR
			DeleteSprite(game.meteor[c].sprID)
			sync()
		next c
		DeleteSprite(game.ship.sprID)
		DeleteSprite(game.ship.missile.sprID)
		DeleteSprite(game.background.sprID)
		DeleteText(game.lives.txtID)
		DeleteText(game.score.txtID)
		DeleteText(game.MeteorsShot.txtID)

		//Show "You Lost" screen
		game.YouLost.sprID = CreateSprite(game.imgIDS[5])
		SetSpriteSize(game.YouLost.sprID,100,100)
		SetSpriteDepth(game.YouLost.sprID,11)
		sync()
		sleep(1000)
		inc game.YouWinOrLost.value, 1

	elseif game.lives.value => 0 and game.MeteorsShot.value = 15
			// Delete sprites
		for c = 1 to TOTALMETEOR
			DeleteSprite(game.meteor[c].sprID)
			sync()
		next c
		DeleteSprite(game.ship.sprID)
		DeleteSprite(game.ship.missile.sprID)
		DeleteSprite(game.background.sprID)
		DeleteText(game.lives.txtID)
		DeleteText(game.score.txtID)
		DeleteText(game.MeteorsShot.txtID)
		sync()

		//Show "You Win" screen
		game.Youwin.sprID = CreateSprite(game.imgIDS[6])
		SetSpriteSize(game.Youwin.sprID,100,100)
		SetSpriteDepth(game.Youwin.sprID,11)
		sync()
		Sleep(1000)
		inc game.YouWinOrLost.value, 1
	endif

endfunction


function EnemyAI()

	result as VelocityType
	x_move as float
	y_move as float




	//calculate movement required in x and y directions
	x_move = GetSpriteX(game.ship.sprID) - GetSpriteX(game.AI.sprID)
	y_move = GetSpriteY(game.ship.sprID) - GetSpriteY(game.AI.sprID)

	//Calculate distance between playership and enemyship
	distance = sqrt((x_move)^2 + (y_move)^2)

	frames = distance/game.AI.speed
	result.x = x_move/frames
	result.y = y_move/frames




	Print(distance)

endfunction result



function EnemyAIMove()

	newVel as VelocityType
	newVel = EnemyAI()

	if distance > 50
		SetSpritePosition(game.AI.sprID, getSpriteX(game.ai.sprid)+ random(1, 6),getspriteY(game.ai.sprID)+random(1, 6))
		if distance > 25
			SetSpritePosition(game.AI.sprID, getSpriteX(game.ai.sprid)+ newVel.x,getspriteY(game.ai.sprID)+newVel.y)
			sync()
		endif
	endif
endfunction