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

"Asteroids Physics Library", by darkeagle

this is an EXTREMELY nice lib for lots of things... space games, hovercraft games, etc. basically anything that you want to have asteroids type ship control in :) just remember who gave it to ya ;)

Code

;********************************************************************
;*                                                                                     *
;*                              ASTEROIDS LIBRARY                                   *
;*                                                                                     *
;* By David Gundry AKA DarkEagle                                             *
;* Feel free to use for whatever, a mention in the credits would     *
;* be nice if you ever do anything with it :)                              *
;*                                                                                     *
;********************************************************************

Type ship
     Field M#                    ;constant of mass
     Field Af#                    ;constant of air friction
     Field vX#, vY#               ;velocities
     Field X#, Y#               ;screen co-ords
     Field Ang#,Thrust#          ;angle and thrust
End Type

;************************************************************
;* Function CreateShip()                                             *
;*                                                                           *
;* Params: mass#     mass of ship                                   *
;*             af#          air friction of ship                         *
;*             x#,y#     start x and y location of ship               *
;*                                                                           *
;* Returns: handle of type created                                   *
;*                                                                           *
;* Notes: Call once to create a ship                              *
;************************************************************

Function CreateShip.ship(mass#,af#,x#,y#)

s.ship = New ship
     s\M# = mass#
     s\Af# = af#
     s\X# = x#
     s\Y# = y#
     
     Return s

End Function

;************************************************************
;* Function TurnShip()                                                  *
;*                                                                           *
;* Params: s.ship          handle of ship type                         *
;*             amount#          amount to turn                              *
;*                                                                           *
;* Returns: Nothing                                                       *
;*                                                                           *
;* Notes: Absolute angle, not turning speed                         *
;************************************************************

Function TurnShip(s.ship,amount#)

s\Ang# = s\Ang# + amount#

End Function

;************************************************************
;* Function ThrustShip()                                             *
;*                                                                           *
;* Params: s.ship          handle of ship type                         *
;*             amount#          power of ships engines                    *
;*                                                                           *
;* Returns: Nothing                                                       *
;*                                                                           *
;* Notes: Usually either on or off, this values doesnt          *
;*            accelerate.                                                  *
;************************************************************

Function ThrustShip(s.ship,amount#)

s\Thrust# = amount#
     
End Function

;************************************************************
;* Function UpdateShip()                                             *
;*                                                                           *
;* Params: s.ship          handle of ship type                         *
;*                                                                           *
;* Returns: Nothing                                                       *
;*                                                                           *
;* Notes: Updates one ship                                             *
;************************************************************

Function UpdateShip(s.ship,speed#=1.0)

tX#= (Sin(s\Ang#) * s\Thrust#)
     tY#= (Cos(s\Ang#) * s\Thrust#)
     
     aX# = tX# / s\M#
     aY# = tY# / s\M#
     
     AfX# = s\AF# * s\vX#
     AfY# = s\AF# * s\vY#
     
     aX# = aX# - AfX#
     aY# = aY# - AfY#
     
     s\vX# = s\vX# + aX#
     s\vY# = s\vY# + aY#
     
     s\X# = s\X# + (s\vX#*speed#)
     s\Y# = s\Y# + (s\vY#*speed#)
     
     If s\x > 800 s\x = s\x - 800
     If s\x < 0 s\x = s\x + 800
     If s\y > 600 s\y = s\y - 600
     If s\y < 0 s\y = s\y + 600

End Function

Code software created by Krylar's Kreations