guided rocket

The Forum Archive is locked. These are the original blitzbasic.com forums, kept so their posts can still be read and searched. No new topics, replies or edits can be made here. To join the conversation, head over to the Blitz3D+ forums.

tonyg

Some code hacked from BB...

Graphics 640,480
Global my_x#=100.0,my_y#=100.0, pointx#=100.0,pointy#=100.0,xspeed#=3.0,yspeed#=3.0
While Not KeyHit(1)
  Cls
  DrawOval my_x-10.0,my_y-10.0,20,20
  DrawText "my_x : " + my_x + " my_y : " + my_y,0,0
  DrawText "Point_x : " + pointx + " Point_y : " + pointy,0,10
'  If MouseDown(1) moveoval()
  moveoval()  
  Flip
Wend
Function moveoval()	
          pointx# = Float(MouseX())
          pointy# = Float(MouseY())
	angle# = ATan2((pointy-my_y),(pointx-my_x))
	xmov# = Cos(angle) * xspeed
	ymov# = Sin(angle) * yspeed
	my_x# = my_x + xmov
	my_y# = my_y + ymov 
	DrawText ((my_x-pointx)*(my_x-pointx)) + ((my_y-pointy)*(my_y-pointy)),0,20
	If ((my_x-pointx)*(my_x-pointx)) + ((my_y-pointy)*(my_y-pointy)) < 10.0 
	   my_x=pointx
	   my_y=pointy
	EndIf 
End Function