will objects intercept - GameCreators Forum

Author

Message

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 16th Nov 2016 06:55

Link

Ive got the following code to determine if the angle of object 1 will intercept between objects 1 and 2 to 5

+ Code Snippet

function getAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
endfunction result#

function checkRadarTrue()
	true=0
	for t = 2 to 5
		if getAngle(GetSpriteXByOffset(1),GetSpriteYByOffset(1),GetSpriteXByOffset(t),GetSpriteYByOffset(t))=GetSpriteAngle(1)
			true=1
		endif
	next t
endfunction true

but I believe the problem I'm having is how to make it within a certain range ie the width of a sprite as most of the time it returns zero

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 16th Nov 2016 07:32

Link

getting some better results with this code

+ Code Snippet

function getAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
    //result=result#
endfunction result#

function checkRadarTrue()
	true=0
	for t = 2 to 5
		for y=-15 to 15 step 1.0
		for x=-15 to 15 step 1.0
			if getAngle(GetSpriteXByOffset(1),GetSpriteYByOffset(1),GetSpriteXByOffset(t)+x,GetSpriteYByOffset(t)+y)=GetSpriteAngle(1)
				true=1
			endif
		next x
		next y
	next t
endfunction true

but I think the function should return true more often than it is

fubar

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Nov 2016 07:33

Link

maybe step into the current direction and check with
=GetSpriteInCircle( iSprite, x1, y1, radius ) if there is something in front.
GetWorldXFromSprite
GetWorldYFromSprite

AGK (Steam) V2.0.21 : Windows 10 Pro 64 Bit : AMD (16.6) Radeon R7 265 : Mac mini OS Sierra (10.12)

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 16th Nov 2016 07:42

Link

ok fixed the problem some print statements in the code helped
I had to convert the values to integer

+ Code Snippet

function getAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
    result=result#
endfunction result

function checkRadarTrue()
	true=0
	for t = 2 to 5
		for y=-5 to 5 step 1
		for x=-5 to 5 step 1
			a1=(getAngle(GetSpriteXByOffset(1),GetSpriteYByOffset(1),GetSpriteXByOffset(t)+x,GetSpriteYByOffset(t)+y))
			a2=(GetSpriteAngle(1))	
			if a1=a2
				true=1
			endif
		next x
		next y
	next t
endfunction true

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 16th Nov 2016 07:47

Link

Thanks Marcus had to spend some time away due to family sickness but am back now, so am dam rusty lol
but good to see your still around used to always love your feedback on so many posts

fubar

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Nov 2016 12:55 Edited at: 16th Nov 2016 20:03

Link

ok.

visual version

SetVirtualResolution(100,100)

spr1=CreateSprite(0)
SetSpritePositionByOffset(spr1,50,50)

spr2=CreateSprite(0)

do
	SetSpritePositionByOffset(spr2,GetPointerX(),GetPointerY())
	
	SetSpriteAngle(spr1,GetSpriteAngle(spr1)+90.0/60.0)

x1#=GetSpriteXByOffset(spr1)
			y1#=GetSpriteYByOffset(spr1)
			
			x2#=GetWorldXFromSprite(spr1,0,5)
			y2#=GetWorldYFromSprite(spr1,0,5)
			
			drawline(x1#,y1#,x2#,y2#,255,0,0)

if CheckRadarTrue(spr1,spr2)=1
		Print("Radar")
	endif
	
	sync()
		
loop
end
  
function CheckRadarTrue(spr1,spr2)
    true=0
        for y=-5 to 5 step 1
        for x=-5 to 5 step 1

x1#=GetSpriteXByOffset(spr1)
			y1#=GetSpriteYByOffset(spr1)
			
			x2#=GetSpriteXByOffset(spr2)+x
			y2#=GetSpriteYByOffset(spr2)+y
			
			drawline(x1#,y1#,x2#,y2#,128,128,128)

a1=ATanFull(x1# - x2#, y1# - y2#)
            a2=GetSpriteAngle(spr1)
            if a1=a2
				drawline(x1#,y1#,x2#,y2#,0,255,0)
                true=1
            endif
        next x
        next y
endfunction true

+ Code Snippet

SetVirtualResolution(100,100)

spr1=CreateSprite(0)
SetSpritePositionByOffset(spr1,50,50)

spr2=CreateSprite(0)

do
	SetSpritePositionByOffset(spr2,GetPointerX(),GetPointerY())
	
	SetSpriteAngle(spr1,GetSpriteAngle(spr1)+90.0/60.0)

			x1#=GetSpriteXByOffset(spr1)
			y1#=GetSpriteYByOffset(spr1)
			
			x2#=GetWorldXFromSprite(spr1,0,5)
			y2#=GetWorldYFromSprite(spr1,0,5)
			
			drawline(x1#,y1#,x2#,y2#,255,0,0)


	if CheckRadarTrue(spr1,spr2)=1
		Print("Radar")
	endif
	
	sync()
		
loop
end
  
function CheckRadarTrue(spr1,spr2)
    true=0
        for y=-5 to 5 step 1
        for x=-5 to 5 step 1

			x1#=GetSpriteXByOffset(spr1)
			y1#=GetSpriteYByOffset(spr1)
			
			x2#=GetSpriteXByOffset(spr2)+x
			y2#=GetSpriteYByOffset(spr2)+y
			
			drawline(x1#,y1#,x2#,y2#,128,128,128)

            a1=ATanFull(x1# - x2#, y1# - y2#)
            a2=GetSpriteAngle(spr1)
            if a1=a2
				drawline(x1#,y1#,x2#,y2#,0,255,0)
                true=1
            endif
        next x
        next y
endfunction true

AGK (Steam) V2.0.21 : Windows 10 Pro 64 Bit : AMD (16.6) Radeon R7 265 : Mac mini OS Sierra (10.12)

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / will objects intercept