type AICloud = class(
AIThing
)
AIThing
> AIBaseObject
Constructor Create(aParent: pointer); |
|
procedure Fuel; override; |
|
procedure FullDisplay(aList: TStrings); override; |
|
procedure LightningStrike; |
|
procedure LoadFromFile(var aFile: TextFile); override; |
|
function OneLineDisplay: string; override; |
|
procedure Perform(aActivity: integer); override; |
|
procedure SaveToFile(var aFile: TextFile); override; |
Constructor Create(aParent: pointer); |
procedure Fuel; override; |
procedure FullDisplay(aList: TStrings); override; |
procedure LightningStrike; |
procedure LoadFromFile(var aFile: TextFile); override; |
function OneLineDisplay: string; override; |
procedure Perform(aActivity: integer); override; |
procedure SaveToFile(var aFile: TextFile); override; |
property Raining: boolean; |
|
property Storm: boolean; |
|
property Water: single; |
property Raining: boolean; |
property Storm: boolean; |
property Water: single; |