Class AIBird

Unit

type AIBird = class(AICreature)

an individual bird

AICreature > AILivingThing > AIThing > AIBaseObject

	`procedure Cease; override;`
	`Constructor Create(aParent: pointer);`
	`procedure CreateBaby;`
	`Destructor Destroy; override;`
	`procedure Die; override;`
	`procedure FindFruit;`
	`procedure FindMate;`
	`procedure FlapWings;`
	`function FlockAvoidance: TAffineVector;`
	`procedure FlyWithFlock;`
	`procedure Fuel; override;`
	`procedure FullDisplay(aList: TStrings); override;`
	`procedure Hop;`
	`function InMatingCondition: boolean;`
	`procedure JoinFlock;`
	`procedure LeaveFlock;`
	`procedure LoadFromFile(var aFile: TextFile); override;`
	`procedure MatingBehaviour;`
	`procedure ReaffirmFlock;`
	`procedure SaveToFile(var aFile: TextFile); override;`
	`procedure Swim;`
	`function ValidMate(aMate: AIBird): boolean;`
	`procedure Walk;`

procedure Cease; override;

Constructor Create(aParent: pointer);

procedure CreateBaby;

Destructor Destroy; override;

procedure Die; override;

procedure FindFruit;

procedure FindMate;

procedure FlapWings;

function FlockAvoidance: TAffineVector;

timer for mating

procedure FlyWithFlock;

procedure Fuel; override;

procedure FullDisplay(aList: TStrings); override;

for loading

procedure Hop;

function InMatingCondition: boolean;

procedure JoinFlock;

procedure LeaveFlock;

procedure LoadFromFile(var aFile: TextFile); override;

procedure MatingBehaviour;

procedure ReaffirmFlock;

procedure SaveToFile(var aFile: TextFile); override;

procedure Swim;

function ValidMate(aMate: AIBird): boolean;

procedure Walk;

	`property Flock: AILink;`
	`property Flying: boolean;`
	`property Gender: boolean;`
	`property MatingTimer: integer;`
	`property Mature: boolean;`

property Flock: AILink;

property Flying: boolean;

property Gender: boolean;

property MatingTimer: integer;

property Mature: boolean;

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