type AIAsteroid = class(
AIThing
)
AIThing
> AIBaseObject
procedure Burn; |
|
Constructor Create(aParent: pointer); |
|
procedure Fuel; override; |
|
procedure FullDisplay(aList: TStrings); override; |
|
procedure LoadFromFile(var aFile: TextFile); override; |
|
procedure Mark; |
|
procedure SaveToFile(var aFile: TextFile); override; |
|
procedure Smash; |
|
procedure UnMark; |
procedure Burn; |
Constructor Create(aParent: pointer); |
procedure Fuel; override; |
procedure FullDisplay(aList: TStrings); override; |
procedure LoadFromFile(var aFile: TextFile); override; |
procedure Mark; |
procedure SaveToFile(var aFile: TextFile); override; |
procedure Smash; |
procedure UnMark; |
property Burning: boolean; |
|
property Energy: integer; |
|
property Markers: integer; |
|
property Size: single; |
property Burning: boolean; |
property Energy: integer; |
property Markers: integer; |
property Size: single; |