Class AIAquaPlant

Unit

type AIAquaPlant = class(AIPlant)

============================================================================

AIPlant > AILivingThing > AIThing > AIBaseObject

	`Constructor Create(aParent: pointer);`
	`function Digest(const aAmount: integer): integer; override;`
	`procedure Fuel; override;`
	`procedure FullDisplay(aList: TStrings); override;`
	`procedure LoadFromFile(var aFile: TextFile); override;`
	`procedure Perform(aActivity: integer); override;`
	`procedure SaveToFile(var aFile: TextFile); override;`

Constructor Create(aParent: pointer);

function Digest(const aAmount: integer): integer; override;

procedure Fuel; override;

procedure FullDisplay(aList: TStrings); override;

procedure LoadFromFile(var aFile: TextFile); override;

procedure Perform(aActivity: integer); override;

procedure SaveToFile(var aFile: TextFile); override;

property FruitTimer: integer;

property FruitTimer: integer;

Generated by PasDoc 0.8.7 on Wed 01/ Oct 2003 00:51:36