Homing Missiles

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|609\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> AI and Movement

mike_g	Created : 02 October 2006 Edited : 02 October 2006 Homing Missiles A homing missile demo I wrote in Blitz Basic
Graphics 1024, 768 SeedRnd MilliSecs() Global distance Const e_rad = 16, e_spd = 2 Const m_rad = 4, m_spd = 3 Global m.missile Type missile Field x#, y#, angle#, dx#, dy# End Type Global e.enemy Type enemy Field x#, y#, dir End Type For i = 1 To 10 e.enemy = New enemy e\x = Rand(16, 1008): e\y = Rand(16, 752) e\dir = Rand(0, 359) Next While Not KeyHit(1) Cls DRAW_ALL() HOMING_MISSILES() FIRE() Flip Wend ;------------------------------------------------------------------------------------------------------; ;****************************** HOMING MISSILE FUNCTION ***************; ;------------------------------------------------------------------------------------------------------; Function HOMING_MISSILES() ;GET THE CLOSEST ENEMY, AND ITS ANGLE For m.missile = Each missile closest = 1000 For e.enemy = Each enemy ;GET THE DISTANCE OF EACH ENEMY FROM EACH MISSILE GET_DISTANCE(m\x+m_rad, m\y+m_rad, e\x+e_rad, e\y+e_rad) ;IF THIS IS THE CLOSEST ENEMY SO FAR If distance < closest closest = distance ;GET THE ANGLE FROM MISSILE TO ENEMY m\dx# = e\x#+r_rad - m\x#+m_rad m\dy# = e\y#+e_rad - m\y#+m_rad m\angle# = ATan2(m\dy#, m\dx#) m\dx# = Cos(m\angle#) m\dy# = Sin(m\angle#) EndIf Next Next ;MOVE MISSILES ACCORDING TO ANGLE For m.missile = Each missile m\x# = m\x# + m\dx# m_spd m\y# = m\y# + m\dy# * m_spd Next End Function ;------------------------------------------------------------------------------------------------------; ;******************************* REQUIRED FUNCTION *******************; ;------------------------------------------------------------------------------------------------------; ;GETS THE DISTANCE BETWEEN MISSILES AND ENEMIES Function GET_DISTANCE(x_1, y_1,x_2, y_2) If x_1 < x_2 If x_1 < y_2 distance = Sqr(((x_2 - x_1)(x_2 - x_1)) + ((y_2 - y_1)(y_2 - y_1))) Else distance = Sqr(((x_2 - x_1)(x_2 - x_1)) + ((y_1 - y_2)(y_1 - y_2))) EndIf Else If y_1 < y_2 distance = Sqr(((x_1 - x_2)(x_1 - x_2)) + ((y_2 - y_1)(y_2 - y_1))) Else distance = Sqr(((x_1 - x_2)(x_1 - x_2)) + ((y_1 - y_2)(y_1 - y_2))) EndIf EndIf distance = Abs(distance) End Function ;------------------------------------------------------------------------------------------------------; ;************************************** DEMO FUNCTIONS **************; ;------------------------------------------------------------------------------------------------------; Function DRAW_ALL() Color 100, 0, 0 For e.enemy = Each enemy Oval e\x, e\y, 32, 32, 1 e\x = e\x + 1 Next Color 0, 100, 0 Oval 500, 320, 50, 50, 1 Color 0, 0, 100 For m.missile = Each missile Oval m\x, m\y, 8, 8, 1 Next End Function ;-----------------------------------------------------------------------------------------------------; Function FIRE() If KeyHit(57) m.missile = New missile m\x# = 510: m\y# = 341 EndIf End Function --v

Comments
Wednesday, 18 February 2009, 13:41
Erebel55	I'm going to use your homing code in my game...if it's alright with you? Thanks By the way you have an error in your code...at least I'm pretty sure you do. m\dx# = e\x#+r_rad - m\x#+m_rad Should be... m\dx# = e\x# + e_rad - m\x# + m_rad I think. And yes I see this is 3 years old ^^ ha

Homing Missiles

Comments