Class AICreature

Unit

cAICreature

Declaration

type AICreature = class(AILivingThing)

Description

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

Hierarchy

AILivingThing > AIThing > AIBaseObject

Methods

Overview

	`procedure Attack(aAmount: integer; aTarget: AIThing);`
	`procedure Bonk(aTarget: AIThing); overload;`
	`procedure Bonk; overload;`
	`procedure Cease; override;`
	`function CloseEnoughToGrab(aThing: AIThing): boolean;`
	`Constructor Create(aParent: pointer);`
	`Destructor Destroy; override;`
	`procedure Drop;`
	`function Eat(const JawSize: integer): boolean; virtual;`
	`procedure Forage(aKind: integer; aSpeed: single); overload;`
	`procedure Forage(aSpeed: single); overload;`
	`procedure ForageFruitAndPrey(aSpeed: single);`
	`procedure FullDisplay(aList: TStrings); override;`
	`procedure Give; overload;`
	`procedure Give(aCreature: AICreature); overload;`
	`procedure Grab(aTarget: AIThing); overload;`
	`procedure Grab; overload;`
	`procedure Grow(aAmount: single); virtual;`
	`procedure Kick(aStrength: single); overload;`
	`procedure Kick(aTarget: AIThing; aStrength: single); overload;`
	`procedure KickReturn;`
	`procedure KickTowards(aTarget, aDestination: AIThing; aMaxStrength: single);`
	`procedure LoadFromFile(var aFile: TextFile); override;`
	`function OneLineDisplay: string; override;`
	`procedure Perform(aActivity: integer); override;`
	`procedure SaveToFile(var aFile: TextFile); override;`
	`procedure Throw;`
	`procedure Use(aSwitch: integer);`

Description

procedure Attack(aAmount: integer; aTarget: AIThing);

procedure Bonk(aTarget: AIThing); overload;

procedure Bonk; overload;

procedure Cease; override;

function CloseEnoughToGrab(aThing: AIThing): boolean;

Constructor Create(aParent: pointer);

Destructor Destroy; override;

procedure Drop;

function Eat(const JawSize: integer): boolean; virtual;

Actions

procedure Forage(aKind: integer; aSpeed: single); overload;

procedure Forage(aSpeed: single); overload;

AI Code

procedure ForageFruitAndPrey(aSpeed: single);

procedure FullDisplay(aList: TStrings); override;

procedure Give; overload;

procedure Give(aCreature: AICreature); overload;

procedure Grab(aTarget: AIThing); overload;

procedure Grab; overload;

procedure Grow(aAmount: single); virtual;

procedure Kick(aStrength: single); overload;

procedure Kick(aTarget: AIThing; aStrength: single); overload;

procedure KickReturn;

procedure KickTowards(aTarget, aDestination: AIThing; aMaxStrength: single);

procedure LoadFromFile(var aFile: TextFile); override;

function OneLineDisplay: string; override;

procedure Perform(aActivity: integer); override;

procedure SaveToFile(var aFile: TextFile); override;

procedure Throw;

procedure Use(aSwitch: integer);

Properties

Overview

	`property Desire: integer;`
	`property Eyes: AILink;`
	`property Grabber: AIAttachment;`
	`property NextActivity: integer;`
	`property Size: single;`

Description

property Desire: integer;

property Eyes: AILink;

property Grabber: AIAttachment;

property NextActivity: integer;

property Size: single;

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