BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Heat-seaking rocket", by the-mike

When the right mouse button is pressed, this will spawn random rockets (add a "rocket.bmp", a rocket faced like this: -->) of random speed and turning rate which will track the mouse. Useful in many 2D game engines!

Code

Graphics 800,600,0,2

SetBuffer BackBuffer()

Type rocket
     Field x,y,angle,iangle,speed,turnrate
End Type

Dim rocketimage(500)

TFormFilter 1

Global rocketpic = LoadImage("rocket.bmp")
For a = 0 To 360
     rr = CopyImage(rocketpic)
     RotateImage(rr,a)
     rocketimage(a) = rr
     MidHandle rocketimage(a)
Next

While Not KeyDown(1)
Cls
     If MouseDown (1)
     
          r.rocket = New rocket
     
          r\x = Rand(1,800)
          r\y = Rand(1,600)
          r\angle = 0
          r\speed = Rand (1,10)
          r\turnrate = Rand (1,10)
     
     End If

For h.rocket = Each rocket

h\iangle = ATan2((MouseY()-h\y),((MouseX()-h\x)))
          
          xmov# = Cos(h\angle) * h\speed
          ymov# = Sin(h\angle) * h\speed
          
          h\x = h\x + xmov#
          h\y = h\y + ymov#          
          
          
          realangle_current = h\angle          
          realangle_intend = h\iangle
          
          If h\angle < 1
                 realangle_current = 180+(180 - Abs(h\angle))
          End If
          If h\iangle < 1
               realangle_intend = 180+(180 - Abs(h\iangle))
          EndIf
          
          
          
          If realangle_intend > realangle_current And h\iangle > 0 Then h\angle = h\angle + h\turnrate
          If realangle_intend > realangle_current And h\iangle < 1 Then h\angle = h\angle + h\turnrate
          If realangle_intend < realangle_current And h\iangle > 0 Then h\angle = h\angle - h\turnrate
          If realangle_intend < realangle_current And h\iangle < 1 Then h\angle = h\angle - h\turnrate
          
          If realangle_current> 360 Then realangle_current = 1
          If realangle_current< 1 Then realangle_current = 360

DrawImage rocketimage(realangle_current),h\x,h\y

Next
     
     
     
     Flip

Wend

Code software created by Krylar's Kreations