type AISun = class(
AIOrbiter
)
AIOrbiter
> AISatellite
> AIThing
> AIBaseObject
Constructor Create(aParent: pointer); |
|
procedure Explode; override; |
|
procedure Fuel; override; |
|
procedure FullDisplay(aList: TStrings); override; |
Constructor Create(aParent: pointer); |
procedure Explode; override; |
procedure Fuel; override; |
procedure FullDisplay(aList: TStrings); override; |
property Swing: boolean; |
property Swing: boolean; |