type AIMissile = class(
AIThing
)
AIThing
> AIBaseObject
Constructor Create(aParent: pointer); |
|
procedure Damage(aAmount: integer); override; |
|
Destructor Destroy; override; |
|
procedure Explode; |
|
procedure Fuel; override; |
|
procedure FullDisplay(aList: TStrings); override; |
|
procedure OnCollide(aCollider: AIThing); override; |
Constructor Create(aParent: pointer); |
procedure Damage(aAmount: integer); override; |
Destructor Destroy; override; |
procedure Explode; |
procedure Fuel; override; |
procedure FullDisplay(aList: TStrings); override; |
procedure OnCollide(aCollider: AIThing); override; |
property Aim: integer; |
|
property Timer: integer; |
property Aim: integer; |
property Timer: integer; |