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