Class AICommunityCreature

Unit

type AICommunityCreature = class(AICreature)

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

AICreature > AILivingThing > AIThing > AIBaseObject

	`procedure AvoidNeighbour;`
	`procedure Cease; override;`
	`function CommunityAvoidance(aBubble: single): TAffineVector;`
	`function CommunityAvoidanceXY(aBubble: single): TAffineVector;`
	`Constructor Create(aParent: pointer);`
	`Destructor Destroy; override;`
	`procedure Die; override;`
	`procedure Fuel; override;`
	`procedure FullDisplay(aList: TStrings); override;`
	`procedure JoinCommunity;`
	`procedure LeaveCommunity;`
	`procedure LoadFromFile(var aFile: TextFile); override;`
	`procedure ReaffirmCommunity;`
	`procedure SaveToFile(var aFile: TextFile); override;`
	`procedure SwimWithCommunity;`

procedure AvoidNeighbour;

procedure Cease; override;

function CommunityAvoidance(aBubble: single): TAffineVector;

function CommunityAvoidanceXY(aBubble: single): TAffineVector;

Constructor Create(aParent: pointer);

Destructor Destroy; override;

procedure Die; override;

procedure Fuel; override;

procedure FullDisplay(aList: TStrings); override;

for loading

procedure JoinCommunity;

procedure LeaveCommunity;

procedure LoadFromFile(var aFile: TextFile); override;

procedure ReaffirmCommunity;

procedure SaveToFile(var aFile: TextFile); override;

procedure SwimWithCommunity;

procedure TravelWithCommunity;

	`property Avoidance: TAffineVector;`
	`property Bump: boolean;`
	`property Community: AILink;`

property Avoidance: TAffineVector;

property Bump: boolean;

property Community: AILink;

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