| Class TMissle (unit Missle) |
****** * * Module: Missle * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * This module defines the look and behavior of a Missle. Missles are * fired by Aliens and by Bart. * ******
| Constructors |
constructor Create(listObjects: TList; iCollisionID: Integer);Number of "ticks" since the missle was fired.
| Functions |
procedure HandleCollision(objOtherObject: TVisibleObject);
procedure Move;| Properties |
| Events |
| Variables |
m_iAge : Integer;
m_iLife : Integer;| Constructors |
constructor Create(listObjects: TList; iCollisionID: Integer);*** Our constructor ***
Number of "ticks" since the missle was fired.
| Functions |
procedure HandleCollision(objOtherObject: TVisibleObject);Increase our age counter.
procedure Move;Define the shape of the missle at a simple triangle.
| Properties |
| Events |
| Variables |
m_iAge : Integer;Total possible lifespan of a missle in movement "ticks".
m_iLife : Integer;