-- Radar using sprites
-- added new x y positions for easy setup - Dvader aka retrogamebloke

--change to 1 to allow 'p' key to toggle radar
local toggle_radar_mode = 1
local use_scncde = 25 --scancode to use to toggle radar (25 = P)

enemyCount = 0
radarFoundEnemies = 0
radarEnemies = {}
radarEnemySprites = {}
radarObjectiveSprites = {}
radarSprite = 0
radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0
aspectRatio = 0
waitForAllEntities = 1
radarx=90
radary=15
pressed = 0
local radar_toggle = 1 

function radar_toggle_init(e)
	radarImageBack		=	LoadImage ( "scriptbank\\radar\\radar-back.png" )
	radarImageRed 		= 	LoadImage ( "scriptbank\\radar\\radar-red.png" )
	radarImageGreen 	= 	LoadImage ( "scriptbank\\radar\\radar-green.png" )
	radarImageYellow 	= 	LoadImage ( "scriptbank\\radar\\radar-yellow.png" )
	radarSprite = CreateSprite ( radarImageBack )
	SetSpriteDepth 	( radarSprite , 102 )
	SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , radarx , radary )	
end

function radar_toggle_main(e)
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if radarFoundEnemies == 0 then
		enemyCount = 0
		for c = 1, 3000 do
			if ai_soldier_state[c] ~= nil then
				if g_Entity[c] ~= nil then
					enemyCount = enemyCount + 1
					radarEnemies[enemyCount] = c	
					radarEnemySprites[enemyCount] = CreateSprite( radarImageRed )
					SetSpriteOffset ( radarEnemySprites[enemyCount] , 0.25 , -1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
					SetSpriteDepth(radarEnemySprites[enemyCount],101)
				end
			end
		end		
		radarFoundEnemies = 1		
	end
	
	newEntity = GetFirstEntitySpawn()
	if newEntity ~= 0 then
		if ai_soldier_state[newEntity] ~= nil then
			if g_Entity[newEntity] ~= nil then
				enemyCount = enemyCount + 1
				radarEnemies[enemyCount] = newEntity
				radarEnemySprites[enemyCount] = CreateSprite( radarImageRed )
				SetSpriteOffset ( radarEnemySprites[enemyCount] , 0.25 , -1 )
				SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
				SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
				SetSpriteDepth(radarEnemySprites[enemyCount],101)
			end
		end	
	end
		
	if toggle_radar_mode == 1 then 
		if GetScancode() == use_scncde and pressed == 0 then 
			pressed = 1
			if radar_toggle == 1 then 
				for c = 1, enemyCount do 
					SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
				end 
				for c = 1, g_objectiveCount do 
					SetSpritePosition ( radarObjectiveSprites[c] , 200 , 200 )
				end 
				SetSpritePosition 	( radarSprite , 200 , 200 )	
				radar_toggle = 0 
			else 
				radar_toggle = 1 
			end 
		end 
		if radar_toggle == 1 then 
			SetSpritePosition 	( radarSprite , radarx , radary )	
			for c = 1 , enemyCount do
			 e = radarEnemies[c]
			 if g_Entity[e] ~= nil then
				if g_Entity[e]['health'] > 0 and GetEntityVisibility(e) == 1 then
					angle = pointAtPlayer(e) + math.rad(g_PlayerAngY)
					dist = GetPlayerDistance(e)
					if dist > 2576 then
						dist = 2576
					end
					x = radarx + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
					y = radary + ( math.cos(angle) * ( dist / 200.0 ) )
					SetSpritePosition ( radarEnemySprites[c] , x , y )
				else
					SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
				end
			 end
			end
			
			for c = 1 , g_objectiveCount do
			 e=radarObjectives[c]
				 if g_Entity[e]['health'] > 0 then
				angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
				dist = GetPlayerDistance(radarObjectives[c])
				if dist > 2576 then
					dist = 2576
				end
				x = radarx + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
				y = radary + ( math.cos(angle) * ( dist / 200.0 ) )
				SetSpritePosition ( radarObjectiveSprites[c] , x , y )
			 else
					SetSpritePosition ( radarObjectiveSprites[c] , 200 , 200 )
			 end
			end	 
		end 
	else 
		for c = 1 , enemyCount do
			e = radarEnemies[c]
			if g_Entity[e] ~= nil then
				if g_Entity[e]['health'] > 0 and GetEntityVisibility(e) == 1 then
					angle = pointAtPlayer(e) + math.rad(g_PlayerAngY)
					dist = GetPlayerDistance(e)
					if dist > 2576 then
						dist = 2576
					end
					x = radarx + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
					y = radary + ( math.cos(angle) * ( dist / 200.0 ) )
					SetSpritePosition ( radarEnemySprites[c] , x , y )
				else
					SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
				end
			end
		end
	
		for c = 1 , g_objectiveCount do
		 e=radarObjectives[c]
			 if g_Entity[e]['health'] > 0 then
				angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
				dist = GetPlayerDistance(radarObjectives[c])
				if dist > 2576 then
					dist = 2576
				end
				x = radarx + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
				y = radary + ( math.cos(angle) * ( dist / 200.0 ) )
				SetSpritePosition ( radarObjectiveSprites[c] , x , y )
			else
				SetSpritePosition ( radarObjectiveSprites[c] , 200 , 200 )
			end
		end
	end 
	
	if GetScancode() == 0 then 
		pressed = 0 
	end 

end

function pointAtPlayer (i)

	x = g_PlayerPosX - g_Entity[i]['x'];
	z = g_PlayerPosZ - g_Entity[i]['z'];
	angle = math.atan2( z , x );
	angle = angle + (-90.0*0.0174533);
	return angle;

end

function addObjective (i)

	g_objectiveCount = g_objectiveCount + 1
	radarObjectives[g_objectiveCount] = i
	radarObjectiveSprites[g_objectiveCount] = CreateSprite( radarImageYellow )
	SetSpriteSize ( radarObjectiveSprites[g_objectiveCount] , 0.5 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[g_objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[g_objectiveCount] , 200 , 200 )
	SetSpriteDepth(radarObjectiveSprites[g_objectiveCount],101)
	end