Class AIThingReferenceList

Unit

Declaration

type AIThingReferenceList = class(AIReferenceList)

Description

Hierarchy

Methods

Overview

	function AmountOfKind(aKind: integer): integer;
	procedure ApplyDamage(aOrigin: AIPosition; aDamage: integer; aRadius: single);
	procedure ApplyOriginatingForceToAll(aOrigin: AIPosition; aStrength: single; aRadius: single);
	function AreAllAtLocation(aLocation: pointer): boolean;
	procedure CeaseEverythingLocation(aLocation: pointer);
	function CommunityWithRoom(aKind: integer): pointer;
	function DistanceToNearest(aPosition: AIPosition): single;
	function FarthestOfKind(aPosition: AIPosition; aKind: integer): pointer;
	function FirstOfKind(aKind: integer): pointer;
	procedure FullDisplay(aList: TStrings); override;
	function HasKind(aKind: integer): boolean;
	function HasKindAtLocation(aLocation: pointer; aKind: integer): boolean;
	function HasKindWithinDistance(aKind: integer; aPosition: AIPosition; aDistance: single): boolean;
	function HasKindWithinXY(aKind: integer; aX: single; aY: single; aDistance: single): boolean;
	procedure KillAllLifeAtLocation(aLocation: pointer);
	procedure KillAllPlantsAtLocation(aLocation: pointer);
	procedure KillEveryKind(aKind: integer);
	procedure KillEverything;
	function LastOfKind(aKind: integer): pointer;
	function NearestAvailableNotUnderwaterThing(aPosition: AIPosition): pointer;
	function NearestAvailableOfKind(aKind: integer; aPosition: AIPosition; aRange: single): pointer;
	function NearestAvailableThing(aPosition: AIPosition): pointer;
	function NearestAvailableUnderwaterThing(aPosition: AIPosition; aNotKind: integer): pointer;
	procedure NearestNeighbours(aPosition: AIPosition; aRange: single; aList: AIThingReferenceList);
	function NearestOfClass(aClass: AIBaseClass; aPosition: AIPosition; aRange: single): pointer;
	function NearestOfKind(aKind: integer; aPosition: AIPosition): pointer; overload;
	function NearestOfKind(aKind: integer; aPosition: AIPosition; aRange: single): pointer; overload;
	function NearestThing(aPosition: AIPosition): pointer; overload;
	function NearestThing(aPosition: AIPosition; aRange: single): pointer; overload;
	function NearestThing(aGrabber: pointer; aPosition: AIPosition; aRange: single): pointer; overload;
	procedure NotifyAllCommunitiesOfDeath(aThing: pointer);
	function RandomOfKind(aKind: integer): pointer;
	function RandomThing: pointer;
	procedure ReportAll;
	procedure ReportAllCreatures;
	procedure ShakeLand(aStrength: single);
	function SimpleNearestAvailableOfKind(aKind: integer; aPosition: AIPosition; aRange: single): pointer;
	function SimpleNearestThing(aPosition: AIPosition): pointer;

Description

function AmountOfKind(aKind: integer): integer;

procedure ApplyDamage(aOrigin: AIPosition; aDamage: integer; aRadius: single);

procedure ApplyOriginatingForceToAll(aOrigin: AIPosition; aStrength: single; aRadius: single);

function AreAllAtLocation(aLocation: pointer): boolean;

procedure CeaseEverythingLocation(aLocation: pointer);

function CommunityWithRoom(aKind: integer): pointer;

community

function DistanceToNearest(aPosition: AIPosition): single;

function FarthestOfKind(aPosition: AIPosition; aKind: integer): pointer;

function FirstOfKind(aKind: integer): pointer;

procedure FullDisplay(aList: TStrings); override;

function HasKind(aKind: integer): boolean;

function HasKindAtLocation(aLocation: pointer; aKind: integer): boolean;

function HasKindWithinDistance(aKind: integer; aPosition: AIPosition; aDistance: single): boolean;

function HasKindWithinXY(aKind: integer; aX: single; aY: single; aDistance: single): boolean;

procedure KillAllLifeAtLocation(aLocation: pointer);

procedure KillAllPlantsAtLocation(aLocation: pointer);

procedure KillEveryKind(aKind: integer);

procedure KillEverything;

function LastOfKind(aKind: integer): pointer;

function NearestAvailableNotUnderwaterThing(aPosition: AIPosition): pointer;

function NearestAvailableOfKind(aKind: integer; aPosition: AIPosition; aRange: single): pointer;

function NearestAvailableThing(aPosition: AIPosition): pointer;

function NearestAvailableUnderwaterThing(aPosition: AIPosition; aNotKind: integer): pointer;

procedure NearestNeighbours(aPosition: AIPosition; aRange: single; aList: AIThingReferenceList);

function NearestOfClass(aClass: AIBaseClass; aPosition: AIPosition; aRange: single): pointer;

function NearestOfKind(aKind: integer; aPosition: AIPosition): pointer; overload;

function NearestOfKind(aKind: integer; aPosition: AIPosition; aRange: single): pointer; overload;

function NearestThing(aPosition: AIPosition): pointer; overload;

function NearestThing(aPosition: AIPosition; aRange: single): pointer; overload;

function NearestThing(aGrabber: pointer; aPosition: AIPosition; aRange: single): pointer; overload;

procedure NotifyAllCommunitiesOfDeath(aThing: pointer);

function RandomOfKind(aKind: integer): pointer;

function RandomThing: pointer;

basic operations

procedure ReportAll;

procedure ReportAllCreatures;

procedure ShakeLand(aStrength: single);

function SimpleNearestAvailableOfKind(aKind: integer; aPosition: AIPosition; aRange: single): pointer;

function SimpleNearestThing(aPosition: AIPosition): pointer;