Class AILivingThing

Unit

type AILivingThing = class(AIThing)

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

AIThing > AIBaseObject

	`procedure Cease; override;`
	`Constructor Create(aParent: pointer);`
	`procedure Damage(aAmount: integer); override;`
	`function Dead: boolean;`
	`procedure Decompose;`
	`procedure Die; virtual;`
	`function Digest(const aAmount: integer): integer; override;`
	`procedure Fuel; override;`
	`procedure FullDisplay(aList: TStrings); override;`
	`procedure HealthIncrease(aAmount: integer);`
	`procedure LoadFromFile(var aFile: TextFile); override;`
	`function OneLineDisplay: string; override;`
	`function Rotten: boolean;`
	`procedure SaveToFile(var aFile: TextFile); override;`

procedure Cease; override;

Constructor Create(aParent: pointer);

procedure Damage(aAmount: integer); override;

function Dead: boolean;

procedure Decompose;

procedure Die; virtual;

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

procedure Fuel; override;

procedure FullDisplay(aList: TStrings); override;

procedure HealthIncrease(aAmount: integer);

Modify

procedure LoadFromFile(var aFile: TextFile); override;

function OneLineDisplay: string; override;

function Rotten: boolean;

procedure SaveToFile(var aFile: TextFile); override;

property Alive: boolean;

property Health: integer;

property Rot: integer;

property Water: single;

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