Shooting in the direction of the mouse

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|539\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Shooting in the direction of the mouse
Wed, 27 Jun 2007, 11:34
mole	Basically, there is a "bunker" in the middle of the screen and it shoots bullets when you click. The bullets go off in the direction of the mouse - so if you click towards the left of the bunker, the bullet will shoot out left [towards the mouse] etc etc. This game is, well, very similar to this: bunker Also, I will inevitably run into more maths related problems in making the enemies come from all different directions straight into the bunker. I do not think it is necessary for me to post my code... it doesn't actually do anything (hence my asking here ) Any pseudo code, built-in functions, anything angle related will be most appreciated ta
Wed, 27 Jun 2007, 13:23
Erebel55	Here is some code that you might find useful, I'm sure I have a lot more stuff that would be useful to you but it's hard sifting through all of my old blitz code. I do not take credit for this code because I can't remember if I wrote it. Well I hope it helps, good luck. Graphics 800,600,16,2 SetBuffer BackBuffer() px#=400:py#=300:px2#=400:py2#=300 While Not KeyHit(1) Oval px,py,20,20 If MouseHit(1)<>0 Then Color Rand(255),Rand(255),Rand(255) Line MouseX(),MouseY(),px,py px2#=MouseX() py2#=MouseY() EndIf If px<>px2 Or py<>py2 Then angle=ATan2(px-px2,py-py2) If angle<180 Then:angle=angle+180:EndIf px=px+Cos(angle-90):py=py+Sin(angle+90) EndIf:Flip:Wend --v -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Wed, 27 Jun 2007, 13:23
Dabz	You need ATan2:- Graphics 800,600 SetBuffer BackBuffer() Global max_path_points=100 Dim pathx#(max_path_points-1) Dim pathy#(max_path_points-1) Global path_counter=-1 Global current_path=0 Global cx#=0 Global cy#=0 Global movement_started=0 While Not KeyHit(1) Cls If MouseHit(1) Then setpath(400,300) setpath(MouseX(),MouseY()) movement_started=1 cx=pathx(0) cy=pathy(0) End If If movement_started=1 move() Else Text 0,0,"Move mouse, then press LMB to start" End If Color 200,200,200 Rect MouseX()-1,MouseY()-1,2,2 Rect 400,300,2,2 Flip Wend End Function move() ang#=0 ang=ATan2(pathy(current_path+1)-pathy(current_path),pathx(current_path+1)-pathx(current_path)) cx=cx+Cos(ang)3 cy=cy+Sin(ang)3 Color 100,200,100 Rect cx-3,cy-3,6,6 If Abs(cx-pathx(current_path+1))<2 And Abs(cy-pathy(current_path+1))<2 Then Text 0,0,"Found target" Flip WaitKey DeletePaths() End If End Function Function setpath(x,y) path_counter=path_counter+1 pathx(path_counter)=x pathy(path_counter)=y End Function Function DeletePaths() For loopx = 0 To max_path_points pathx(loopx)=0 pathy(loopx)=0 current_path = 0 path_counter = -1 movement_started = 0 cx#=0 cy#=0 Next End Function --v Works a charm! maDenathorn --- lol, posted at exactly the same time... whats the chances! maDenathorn -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Wed, 27 Jun 2007, 14:50
mole	Wow, those are two really great examples! Thanks a lot ^^
Wed, 27 Jun 2007, 23:17
magicman	you said you need ATan2, so i just had to do it without using ATan2! Its probably a little over complicated, but it works! Graphics 800,600,16,2 AutoMidHandle True HidePointer Type b Field x#,y#,xv#,yv# End Type SetBuffer BackBuffer() While Not KeyDown(1) Cls If MouseDown(1) b.b = New b b\x = 400 b\y = 300 b\xv = (MouseX()-400)/(Sqr(((MouseX()-400)^2)+((MouseY()-300)^2)))3 b\yv = (MouseY()-300)/(Sqr(((MouseX()-400)^2)+((MouseY()-300)^2)))3 EndIf Oval MouseX()-2,MouseY()-2,8,8,0 For b.b = Each b Rect b\x,b\y,5,5 b\x = b\x + b\xv b\y = b\y + b\yv If (b\x > 800) Or (b\x < 0) Or (b\y < 0) Or (b\y > 600) Delete b Next Flip Wend End --v -=-=- Stuff... Yeah...