Class AIFruit

Unit

Declaration

type AIFruit = class(AIPlant)

Description

Hierarchy

Methods

Overview

	procedure Cease; override;
	procedure Fuel; override;
	procedure FullDisplay(aList: TStrings); override;
	function IsFruit: boolean; override;
	procedure LoadFromFile(var aFile: TextFile); override;
	procedure SaveToFile(var aFile: TextFile); override;

Description

procedure Cease; override;

procedure Fuel; override;

procedure FullDisplay(aList: TStrings); override;

function IsFruit: boolean; override;

procedure LoadFromFile(var aFile: TextFile); override;

procedure SaveToFile(var aFile: TextFile); override;

Properties

Overview

property CarryingSeed: boolean;

Description

property CarryingSeed: boolean;