Class AIMatingSingleCreature

Unit

type AIMatingSingleCreature = class(AICreature)

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

AICreature > AILivingThing > AIThing > AIBaseObject

	`procedure Cease; override;`
	`Constructor Create(aParent: pointer);`
	`Destructor Destroy; override;`
	`procedure DevelopIntoBaby; virtual; abstract;`
	`procedure Die; override;`
	`procedure FindMate;`
	`procedure Fuel; override;`
	`procedure FullDisplay(aList: TStrings); override;`
	`procedure LoadFromFile(var aFile: TextFile); override;`
	`procedure MateWithPartner; virtual;`
	`procedure MatingBehaviour;`
	`function OneLineDisplay: string; override;`
	`procedure SaveToFile(var aFile: TextFile); override;`

procedure Cease; override;

Constructor Create(aParent: pointer);

Destructor Destroy; override;

procedure DevelopIntoBaby; virtual; abstract;

procedure Die; override;

procedure FindMate;

procedure Fuel; override;

procedure FullDisplay(aList: TStrings); override;

procedure LoadFromFile(var aFile: TextFile); override;

procedure MateWithPartner; virtual;

procedure MatingBehaviour;

timer to delay mating

function OneLineDisplay: string; override;

procedure SaveToFile(var aFile: TextFile); override;

	`property Female: boolean;`
	`property MatingTimer: integer;`
	`property Partner: AILink;`
	`property Stage: integer;`

property Female: boolean;

property MatingTimer: integer;

property Partner: AILink;

property Stage: integer;

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