Class TMissle (unit Missle)

Inherits from

TVisibleObject

****** * * 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);

*** 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;



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;