How can erase the Objectives on the radar ?

Author

Message

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 14th Dec 2015 21:52 Edited at: 14th Dec 2015 22:00

Link

How can be erased the Objectives on the radar (the yellow dots) after that objectives was solved ?
Need one example please.
I've used this script, but the yellow dot remain on the radar after the laptop was collected...

-- Player Collects a Key as one entity (the Commander's laptop im this case)
haveAddedObjective = {}
function key_laptop_init(e)
haveAddedObjective[e] = 0
end

function key_laptop_main(e)
 if haveAddedObjective[e] == 0 then
		addObjective(e)
		haveAddedObjective[e] = 1
	end
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 60 and g_PlayerHealth > 0 then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
	
	if Result < 20.0 then
	--[[
		SourceAngle = g_PlayerAngX
		while SourceAngle < 0.0 do
			SourceAngle = SourceAngle + 360.0
		end	
		while SourceAngle > 335.0 do
			SourceAngle = SourceAngle - 360.0
		end	
				
		DestAngle = math.atan2( PlayerDZ , PlayerDY )
		-- Convert to degrees
		DestAngle = (DestAngle * 57.2957795) - 90.0		
			
		Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
		if Result > 180 then
			Result = 0
		end		
		
		if Result < 25.0 then
		--]]
			Prompt ("Press E To pick up the Commander's Laptop")
	 
			if g_KeyPressE == 1 then
				PromptDuration("Collected the Commander's Laptop",2000)
				PlaySound(e,0)
				Collected(e)
				Destroy(e)
				haveAddedObjective[e] = 0
				ActivateIfUsed(e)
			end
   end
 end
end

+ Code Snippet

-- Player Collects a Key as one entity (the Commander's laptop im this case)
haveAddedObjective = {}
function key_laptop_init(e)
haveAddedObjective[e] = 0
end

function key_laptop_main(e)
 if haveAddedObjective[e] == 0 then
		addObjective(e)
		haveAddedObjective[e] = 1
	end
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 60 and g_PlayerHealth > 0 then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
	
	if Result < 20.0 then
	--[[
		SourceAngle = g_PlayerAngX
		while SourceAngle < 0.0 do
			SourceAngle = SourceAngle + 360.0
		end	
		while SourceAngle > 335.0 do
			SourceAngle = SourceAngle - 360.0
		end	
				
		DestAngle = math.atan2( PlayerDZ , PlayerDY )
		-- Convert to degrees
		DestAngle = (DestAngle * 57.2957795) - 90.0		
			
		Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
		if Result > 180 then
			Result = 0
		end		
		
		if Result < 25.0 then
		--]]
			Prompt ("Press E To pick up the Commander's Laptop")
	 
			if g_KeyPressE == 1 then
				PromptDuration("Collected the Commander's Laptop",2000)
				PlaySound(e,0)
				Collected(e)
				Destroy(e)
				haveAddedObjective[e] = 0
				ActivateIfUsed(e)
			end
   end
 end
end

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

perelect

9

Years of Service

User Offline

Joined: 27th Mar 2015

Location: Australia

Profile

Posted: 15th Dec 2015 01:38

Link

Add this to the radar.lua to make the objectives sprites disappear from the radar once they are destroyed or achieved.

if g_Entity[radarObjectives[c]]['health'] <= 0 then
DeleteSprite ( radarObjectiveSprites[c] )
end

it goes in this section of the script...

+ Code Snippet

for c = 1 , objectiveCount do
        angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
        dist = GetPlayerDistance(radarObjectives[c])
        if dist > 2576 then
            dist = 2576
        end
        x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * 0.5625 ))
        y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
        SetSpritePosition ( radarObjectiveSprites[c] , x , y )
           
        if g_Entity[radarObjectives[c]]['health'] <= 0 then -- This is to remove the objectives sprites from radar,
           DeleteSprite ( radarObjectiveSprites[c] )        -- once the objectives has been destroyed.
        end                                                 -- perelect
         
    end

Desktop: Intel(R) Core(TM) i7-4790 CPU @ 3.60GHz (8 CPUs), ~3.6GHz, Windows 8.1 64-bit, 16 GB Ram, NVIDIA GeForce GTX 750 Ti, Display Memory: 4018 MB. Resolution 1360x768, Passmark 3528.
Laptop: Pavilion dv6 Notebook, Intel(R) Core(TM) i5-2410M CPU @ 2.30 GHz, Win 7 64 bit, 16 GB Ram, Radeon (TM) HD 6490M, 2336 MB Memory. Resolution 1366x768, Intel(R) HD Graphics 3000. (WEI 5.8)

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 15th Dec 2015 09:29

Link

In my script example, the Commander's laptop must be "collected", so not work with that "health <=0"

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

Attachments

Login to view attachments

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 15th Dec 2015 10:12

Link

Here is my radar modified script to can delete sprite if the g_entity health is 0 (zero)

-- https://forum.game-guru.com/thread/214054?page=1#msg2535617
-- Radar using sprites

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0

radarEnemies = {}
radarObjectives = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_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 )
		
	SetSpritePriority 	( radarSprite , 100 )

end

function radar_main(e)

SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , 90 , 15 )	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	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 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
		if g_Entity[radarObjectives[c]]['health'] <= 0 then
          DeleteSprite ( radarObjectiveSprites[c] )
       end
	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)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )	
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end

+ Code Snippet

-- https://forum.game-guru.com/thread/214054?page=1#msg2535617
-- Radar using sprites

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0

radarEnemies = {}
radarObjectives = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_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 )
		
	SetSpritePriority 	( radarSprite , 100 )

end

function radar_main(e)

	SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , 90 , 15 )	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	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 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
		if g_Entity[radarObjectives[c]]['health'] <= 0 then
          DeleteSprite ( radarObjectiveSprites[c] )
       end
	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)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )	
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end

And this script doesn't work for collected or killed (explode) radar objectives...

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

perelect

9

Years of Service

User Offline

Joined: 27th Mar 2015

Location: Australia

Profile

Posted: 15th Dec 2015 10:39 Edited at: 15th Dec 2015 11:09

Link

Quote: "In my script example, the Commander's laptop must be "collected", so not work with that "health <=0" "

Hi,
I copied it from an old version of the modified script..
It should be like this then..

Add this to the radar.lua to make the objectives sprites disappear from the radar once they are destroyed or achieved

+ Code Snippet

-- This removes the objective image from the radar
		if g_Entity[radarObjectives[c]]['health'] <= 0 or g_Entity[radarObjectives[c]]['collected'] == 1 then
		   DeleteSprite ( radarObjectiveSprites[c] )
		end

The collectable item should have a script similar to the attached collectable_objective.lua

Desktop: Intel(R) Core(TM) i7-4790 CPU @ 3.60GHz (8 CPUs), ~3.6GHz, Windows 8.1 64-bit, 16 GB Ram, NVIDIA GeForce GTX 750 Ti, Display Memory: 4018 MB. Resolution 1360x768, Passmark 3528.
Laptop: Pavilion dv6 Notebook, Intel(R) Core(TM) i5-2410M CPU @ 2.30 GHz, Win 7 64 bit, 16 GB Ram, Radeon (TM) HD 6490M, 2336 MB Memory. Resolution 1366x768, Intel(R) HD Graphics 3000. (WEI 5.8)

Attachments

Login to view attachments

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 15th Dec 2015 11:31

Link

YEESSS !!! Working fine now !

Many thanks @perelect !

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 15th Dec 2015 16:49 Edited at: 15th Dec 2015 17:13

Link

I put here the correct radar.lua (with objectives) script by @perelect for all the forum users:

-- https://forum.game-guru.com/thread/214054?page=1#msg2535617
-- Radar using sprites by perelect

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0

radarEnemies = {}
radarObjectives = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_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 )
		
	SetSpritePriority 	( radarSprite , 100 )

end

function radar_main(e)

SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , 90 , 15 )	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	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 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
     if g_Entity[radarObjectives[c]]['health'] <= 0 or g_Entity[radarObjectives[c]]['collected'] == 1 then
           DeleteSprite ( radarObjectiveSprites[c] )
        end
       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)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )	
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end

+ Code Snippet

-- https://forum.game-guru.com/thread/214054?page=1#msg2535617
-- Radar using sprites by perelect

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0

radarEnemies = {}
radarObjectives = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_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 )
		
	SetSpritePriority 	( radarSprite , 100 )

end

function radar_main(e)

	SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , 90 , 15 )	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	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 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
     if g_Entity[radarObjectives[c]]['health'] <= 0 or g_Entity[radarObjectives[c]]['collected'] == 1 then
           DeleteSprite ( radarObjectiveSprites[c] )
        end
       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)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )	
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end

And one of using example for entity as objective who must be detonate:

+ Code Snippet

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Detonate or sabotage any stuff and count
haveAddedObjective = {}
destroy_started = {}
EntityHealth = {}
KillCount = 0
local input = "b"
function timecharge_sd3_init(e)
 haveAddedObjective[e] = 0
 destroy_started[e]=0
 pressed = 0
 end

function timecharge_sd3_main(e)
 if haveAddedObjective[e] == 0 then
		addObjective(e)
		haveAddedObjective[e] = 1
	end
PlayerDist = GetPlayerDistance(e)
 
   if PlayerDist < 150 and destroy_started[e] == 0 then 
    Prompt ("Press B to sabotage")	 
     if g_InKey == "b" then
      pressed = 1
      destroy_started[e] = GetTimer(e)+3500
      PlaySound(e,0)
     end
   end
 
 if destroy_started[e]> 0 then
  Prompt("Success sabotaged, run!")
  if GetTimer(e)> destroy_started[e] then
   SetEntityHealth(e,0)
   KillCount = KillCount + 1
   destroy_started[e]=0
  end
 end

 if g_Entity[e]['health'] <= 0 then
   pressed = 0
   StopSound(e,0)
  end
end

And here other one entity objective who must be collected:

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Player Collects Dossier
haveAddedObjective = {}
KillCount = 0
local input = "u"

function collect_dossier5b_init(e)
haveAddedObjective[e] = 0
end

function collect_dossier5b_main(e)
 if haveAddedObjective[e] == 0 then
		addObjective(e)
		haveAddedObjective[e] = 1
	end
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 50 then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 80 then
		Result = 0
	end	
	
	if Result < 20.0 then
	--[[
		SourceAngle = g_PlayerAngX
		while SourceAngle < 0.0 do
			SourceAngle = SourceAngle + 360.0
		end	
		while SourceAngle > 335.0 do
			SourceAngle = SourceAngle - 360.0
		end	
				
		DestAngle = math.atan2( PlayerDZ , PlayerDY )
		-- Convert to degrees
		DestAngle = (DestAngle * 57.2957795) - 90.0		
			
		Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
		if Result > 180 then
			Result = 0
		end		
		
		if Result < 25.0 then
		--]]
					PlayerDist = GetPlayerDistance(e)
		if PlayerDist < 50 and g_Entity[e]['collected'] == 0 then
			Prompt ("Press U To pick up this dossier")
	 
			if g_InKey == "u" then
				PromptDuration("** The dossier has been collected **",3000)
				KillCount = KillCount + 1
				PlaySound(e,0)
				Collected(e)
				ActivateIfUsed(e)
				CollisionOff(e)
			    Hide(e)
		if GetTimer(e) > GetTimer(e) + 2000 then
				Destroy(e)	
       end
   end
 end
end
end
end

+ Code Snippet

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Player Collects Dossier
haveAddedObjective = {}
KillCount = 0
local input = "u"

function collect_dossier5b_init(e)
haveAddedObjective[e] = 0
end

function collect_dossier5b_main(e)
 if haveAddedObjective[e] == 0 then
		addObjective(e)
		haveAddedObjective[e] = 1
	end
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 50 then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 80 then
		Result = 0
	end	
	
	if Result < 20.0 then
	--[[
		SourceAngle = g_PlayerAngX
		while SourceAngle < 0.0 do
			SourceAngle = SourceAngle + 360.0
		end	
		while SourceAngle > 335.0 do
			SourceAngle = SourceAngle - 360.0
		end	
				
		DestAngle = math.atan2( PlayerDZ , PlayerDY )
		-- Convert to degrees
		DestAngle = (DestAngle * 57.2957795) - 90.0		
			
		Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
		if Result > 180 then
			Result = 0
		end		
		
		if Result < 25.0 then
		--]]
					PlayerDist = GetPlayerDistance(e)
		if PlayerDist < 50 and g_Entity[e]['collected'] == 0 then
			Prompt ("Press U To pick up this dossier")
	 
			if g_InKey == "u" then
				PromptDuration("** The dossier has been collected **",3000)
				KillCount = KillCount + 1
				PlaySound(e,0)
				Collected(e)
				ActivateIfUsed(e)
				CollisionOff(e)
			    Hide(e)
		if GetTimer(e) > GetTimer(e) + 2000 then
				Destroy(e)	
       end
   end
 end
end
end
end

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Pink Panther

14

Years of Service

User Offline

Joined: 1st Feb 2010

Location:

Profile

Posted: 15th Dec 2015 17:45

Link

This works great! thank you!

PM

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 15th Dec 2015 17:57 Edited at: 15th Dec 2015 17:58

Link

And one short video as example, with two enemies (red dots) and two objectives (yellow dots) on the radar :

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 15th Dec 2015 18:06

Link

Pink Panther wrote: "This works great! thank you!"

Indeed, works great. Enjoy !

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 19th Dec 2015 16:36 Edited at: 19th Dec 2015 16:45

Link

@perelect you forgot to use (check) spawn for new enemies waves (wave0, wave1, wave2 etc.) in the "radar_mod.lua"

+ Code Snippet

 	
	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 )
			end
		end	
	end

Without this part of script, the radar doesn't show the new enemies if it's later spawned in the game level.
Here is one who include the new enemies check:

-- https://forum.game-guru.com/thread/214054
-- radar_mod.lua
-- Original Radar script using sprites
-- Modified to include Friendly AI, Collectable Objectives and to also remove friendly and objective images from radar once completed or destroyed
-- Modified by perelect. 07/12/2015

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0
friendlyCount = 0

radarEnemies = {}
radarObjectives = {}
radarFriendly = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarFriendlySprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_mod_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 )
		
	SetSpritePriority 	( radarSprite , 100 )

end

function radar_mod_main(e)

SetSpriteSize 		( radarSprite , 15 , -1 ) -- 0.15 comes from here	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 ) -- change this value to suit your screen resolution width.ie: 1860wide is (0.15*1860/2)=140
	SetSpritePosition 	( radarSprite , 90 , 15 )	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	
	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] , 1 , 1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * 0.5625 ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	-- This section is for Objectives
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * 0.5625 ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
		-- This removes the objective image from the radar
		if g_Entity[radarObjectives[c]]['health'] <= 0 or g_Entity[radarObjectives[c]]['collected'] == 1 then
		   DeleteSprite ( radarObjectiveSprites[c] )
		end
	end	
	-- This section is for Friendly AI
	for c = 1 , friendlyCount do
		angle = pointAtPlayer(radarFriendly[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarFriendly[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * 0.5625 ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarFriendlySprites[c] , x , y )
		-- This removes the friendly image from the radar
		if g_Entity[radarFriendly[c]]['health'] <= 0 then
		   DeleteSprite ( radarFriendlySprites[c] )
		end
	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
-- This section is for Objectives
function addObjective (i)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end
-- This section is for Friendly AI
function addFriendly (i)
	friendlyCount = friendlyCount + 1
	radarFriendly[friendlyCount] = i
	radarFriendlySprites[friendlyCount] = CreateSprite( radarImageGreen ) -- this set friendly to the green image
	SetSpriteOffset ( radarFriendlySprites[friendlyCount] , 0.5 , -1 )
	SetSpriteSize ( radarFriendlySprites[friendlyCount] , 0.25 , -1 )
	SetSpritePosition ( radarFriendlySprites[friendlyCount] , 200 , 200 )
end

+ Code Snippet

 -- https://forum.game-guru.com/thread/214054
-- radar_mod.lua
-- Original Radar script using sprites
-- Modified to include Friendly AI, Collectable Objectives and to also remove friendly and objective images from radar once completed or destroyed
-- Modified by perelect. 07/12/2015

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0
friendlyCount = 0

radarEnemies = {}
radarObjectives = {}
radarFriendly = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarFriendlySprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_mod_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 )
		
	SetSpritePriority 	( radarSprite , 100 )

end

function radar_mod_main(e)

	SetSpriteSize 		( radarSprite , 15 , -1 ) -- 0.15 comes from here	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 ) -- change this value to suit your screen resolution width.ie: 1860wide is (0.15*1860/2)=140
	SetSpritePosition 	( radarSprite , 90 , 15 )	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	
	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] , 1 , 1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * 0.5625 ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	-- This section is for Objectives
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * 0.5625 ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
		-- This removes the objective image from the radar
		if g_Entity[radarObjectives[c]]['health'] <= 0 or g_Entity[radarObjectives[c]]['collected'] == 1 then
		   DeleteSprite ( radarObjectiveSprites[c] )
		end
	end	
	-- This section is for Friendly AI
	for c = 1 , friendlyCount do
		angle = pointAtPlayer(radarFriendly[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarFriendly[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * 0.5625 ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarFriendlySprites[c] , x , y )
		-- This removes the friendly image from the radar
		if g_Entity[radarFriendly[c]]['health'] <= 0 then
		   DeleteSprite ( radarFriendlySprites[c] )
		end
	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
-- This section is for Objectives
function addObjective (i)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end
-- This section is for Friendly AI
function addFriendly (i)
	friendlyCount = friendlyCount + 1
	radarFriendly[friendlyCount] = i
	radarFriendlySprites[friendlyCount] = CreateSprite( radarImageGreen ) -- this set friendly to the green image
	SetSpriteOffset ( radarFriendlySprites[friendlyCount] , 0.5 , -1 )
	SetSpriteSize ( radarFriendlySprites[friendlyCount] , 0.25 , -1 )
	SetSpritePosition ( radarFriendlySprites[friendlyCount] , 200 , 200 )
end

P.S. I think this part of the script must be adapted too for the new friends or objectives in game after their was later spawned

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 19th Dec 2015 17:39

Link

One short video example here and a very short specifications on the attached picture below

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

Attachments

Login to view attachments

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 19th Dec 2015 18:42 Edited at: 19th Dec 2015 19:03

Link

IMPORTANT NOTE : You will must finish to build all of your game level BEFORE add any supplementation
(like radar_mod, objectives, new enemies or friends spawn) !!!
After you check your map in the "regular" function (and save it with separate name), you can add in this order:
1. New trigger spawn (wave0, wave1 etc.) and after every new trigger put hes new (wave0, wave1 etc. enemies (and friends or objectives) .
2. After you will finished to add all extra, can put one entity as radar_mod !!!! Then test if working well all together.
3. After all those, you can test if work good with light (F2, F3 or F4).
Do not forget to save every of your test with other name: test1-withF2, test1_F3 as example, etc.

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 21st Dec 2015 09:45

Link

Thanks @perelect

Later edit: On my game map works only for the first enemies spawn (wave0).
For wave1, wave2, wave3 etc. the enemies is spawned but doesn't show them on the radar

I have no clue where I'm wrong....

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

Attachments

Login to view attachments

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 21st Dec 2015 18:48 Edited at: 21st Dec 2015 19:15

Link

perelect wrote: "The problem was with the delete sprite command
so you need to replace... "DeleteSprite ( radarObjectiveSprites[c] )" with "SetSpritePosition ( radarObjectiveSprites[c], 200 , 200 ) "

Indeed, there was the problem

For the friends AI doesn't need (maybe just if their is killed in game), this modified script must be used
just to show the new enemies on the radar after the next spawn was activated (wave0, wave1, wave2 etc. in my map, as example).

So, I put here the last "radar_mod.lua" by @perelect for all there:

-- https://forum.game-guru.com/thread/214054
-- radar_mod.lua
-- Original Radar script using sprites
-- Modified to include Friendly AI, Collectable Objectives and to also remove friendly and objective images from radar once completed or destroyed
-- Modified by perelect 07/12/2015, updated 16/12/2015, updated 21/12/2015

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0
friendlyCount = 0

radarEnemies = {}
radarObjectives = {}
radarFriendly = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarFriendlySprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_mod_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 , 100 )

end

function radar_mod_main(e)

SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , 90 - 0.7 , 15 )	-- the - 0.7 is to align the radar with other sprites -- a fine tune for my system
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	
	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] , 1 , 1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	-- This section is for Objectives
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
		-- This removes the objective image from the radar
		if g_Entity[radarObjectives[c]]['health'] <= 0 or g_Entity[radarObjectives[c]]['collected'] == 1 then
		   --DeleteSprite ( radarObjectiveSprites[c] )
		   SetSpritePosition ( radarObjectiveSprites[c] , 200 , 200 )
		end
      end	
	-- This section is for Friendly AI
	for c = 1 , friendlyCount do
		angle = pointAtPlayer(radarFriendly[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarFriendly[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarFriendlySprites[c] , x , y )
		-- This removes the friendly image from the radar
		if g_Entity[radarFriendly[c]]['health'] <= 0 then
		   --DeleteSprite ( radarFriendlySprites[c] )
		   SetSpritePosition ( radarFriendlySprites[c], 200 , 200 )
		end
	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
-- This section is for Objectives
function addObjective (i)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 1 , 1 )
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end
-- This section is for Friendly AI
function addFriendly (i)
	friendlyCount = friendlyCount + 1
	radarFriendly[friendlyCount] = i
	radarFriendlySprites[friendlyCount] = CreateSprite( radarImageGreen ) -- this sets friendly to the green image
	SetSpriteOffset ( radarFriendlySprites[friendlyCount] , 1 , 1 )
	SetSpriteSize ( radarFriendlySprites[friendlyCount] , 0.5 , -1 )
	SetSpritePosition ( radarFriendlySprites[friendlyCount] , 200 , 200 )
end

+ Code Snippet

-- https://forum.game-guru.com/thread/214054
-- radar_mod.lua
-- Original Radar script using sprites
-- Modified to include Friendly AI, Collectable Objectives and to also remove friendly and objective images from radar once completed or destroyed
-- Modified by perelect 07/12/2015, updated 16/12/2015, updated 21/12/2015

radarFoundEnemies = 0
enemyCount = 0
objectiveCount = 0
friendlyCount = 0

radarEnemies = {}
radarObjectives = {}
radarFriendly = {}

radarEnemySprites = {}
radarObjectiveSprites = {}
radarFriendlySprites = {}
radarSprite = 0

radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0

aspectRatio = 0

waitForAllEntities = 1

function radar_mod_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 , 100 )

end

function radar_mod_main(e)

	SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , 90 - 0.7 , 15 )	-- the - 0.7 is to align the radar with other sprites -- a fine tune for my system
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	
	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] , 1 , 1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
				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 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
		if g_Entity[radarEnemies[c]]['health'] > 0 then
			angle = pointAtPlayer(radarEnemies[c]) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(radarEnemies[c])
			if dist > 2576 then
				dist = 2576
			end
			x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
			y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	end
	-- This section is for Objectives
	for c = 1 , objectiveCount do
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
		-- This removes the objective image from the radar
		if g_Entity[radarObjectives[c]]['health'] <= 0 or g_Entity[radarObjectives[c]]['collected'] == 1 then
		   --DeleteSprite ( radarObjectiveSprites[c] )
		   SetSpritePosition ( radarObjectiveSprites[c] , 200 , 200 )
		end
      end	
	-- This section is for Friendly AI
	for c = 1 , friendlyCount do
		angle = pointAtPlayer(radarFriendly[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarFriendly[c])
		if dist > 2576 then
			dist = 2576
		end
		x = 90 + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = 15 + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarFriendlySprites[c] , x , y )
		-- This removes the friendly image from the radar
		if g_Entity[radarFriendly[c]]['health'] <= 0 then
		   --DeleteSprite ( radarFriendlySprites[c] )
		   SetSpritePosition ( radarFriendlySprites[c], 200 , 200 )
		end
	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
-- This section is for Objectives
function addObjective (i)
	objectiveCount = objectiveCount + 1
	radarObjectives[objectiveCount] = i
	radarObjectiveSprites[objectiveCount] = CreateSprite( radarImageYellow )
	SetSpriteOffset ( radarObjectiveSprites[objectiveCount] , 1 , 1 )
	SetSpriteSize ( radarObjectiveSprites[objectiveCount] , 0.5 , -1 )
	SetSpritePosition ( radarObjectiveSprites[objectiveCount] , 200 , 200 )
end
-- This section is for Friendly AI
function addFriendly (i)
	friendlyCount = friendlyCount + 1
	radarFriendly[friendlyCount] = i
	radarFriendlySprites[friendlyCount] = CreateSprite( radarImageGreen ) -- this sets friendly to the green image
	SetSpriteOffset ( radarFriendlySprites[friendlyCount] , 1 , 1 )
	SetSpriteSize ( radarFriendlySprites[friendlyCount] , 0.5 , -1 )
	SetSpritePosition ( radarFriendlySprites[friendlyCount] , 200 , 200 )
end

Many thanks @perelect !

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 22nd Dec 2015 15:27

Link

See here how is working

https://forum.game-guru.com/thread/208781#msg2536331

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fps/

"The best forum, game software, operating system or web platform, it's that software which can give you most of the features and speed, not just amazing graphics."

PM Email Website

Scripts / How can erase the Objectives on the radar ?

Attachments

Attachments

Attachments

Attachments