Class AIEvolvingFruit

Unit

type AIEvolvingFruit = class(AIEvolvingPlant)

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

AIEvolvingPlant > AIPlant > AILivingThing > AIThing > AIBaseObject

	`procedure Cease; override;`
	`Constructor Create(aParent: pointer);`
	`procedure Fuel; override;`
	`procedure FullDisplay(aList: TStrings); override;`
	`function IsFruit: boolean; override;`
	`procedure LoadFromFile(var aFile: TextFile); override;`
	`procedure SaveToFile(var aFile: TextFile); override;`

procedure Cease; override;

Constructor Create(aParent: pointer);

procedure Fuel; override;

procedure FullDisplay(aList: TStrings); override;

function IsFruit: boolean; override;

procedure LoadFromFile(var aFile: TextFile); override;

procedure SaveToFile(var aFile: TextFile); override;

property CarryingSeed: boolean;

property CarryingSeed: boolean;

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