Class AIPosition

Unit

Declaration

type AIPosition = class()

Description

Methods

Overview

	procedure AccelerationStrafeLeft(aAmount: single);
	procedure AccelerationStrafeRight(aAmount: single);
	procedure ApplyForce(aAngle: single; aStrength: single); overload;
	procedure ApplyForce(aOrigin: AIPosition; aStrength: single); overload;
	procedure ApplyForce(dX: single; dY: single; dH: single); overload;
	procedure ApplyForce(aForce: AIForce); overload;
	procedure ApplyOrbitingForce(aForce: AIForce);
	function AsAffineVector: TAffineVector;
	procedure Center;
	procedure CopyCoords(aPosition: AIPosition);
	Constructor Create(aParent: pointer);
	procedure Deflate(aAmount: single);
	Destructor Destroy; override;
	function DirectionTo(aPosition: AIPosition): single;
	function DistancePlusHeightTo(aDestination: AIPosition): single;
	function DistanceTo(aDestination: AIPosition): single;
	function DistanceToHeight(aHeight: single): single;
	function DistanceToVector(aVector: TAffineVector): single;
	function DistanceToX(aDestX: single): single;
	function DistanceToXPlusY(aDestination: AIPosition): single;
	function DistanceToY(aDestY: single): single;
	procedure FaceTarget(aPosition: AIPosition); overload;
	procedure FaceTarget(aPosition: TAffineVector); overload;
	procedure FaceVelocity;
	procedure Fuel;
	procedure FullCopy(aPosition: AIPosition);
	procedure FullDisplay(aList: TStrings);
	function GridX: integer;
	function GridY: integer;
	function HeightAbove: single;
	function HighestHeight: single;
	procedure Inflate(aAmount: single);
	procedure LoadFromFile(var aFile: TextFile);
	procedure Move(dX: single; dY: single);
	procedure MoveBy(aAmount: single);
	procedure MoveFreely(aAmount: single);
	procedure MoveFreely5(aAmount: single);
	procedure MoveHeight(dHeight: single);
	procedure MoveTowards(aPosition: AIPosition; aAmount: single); overload;
	procedure MoveTowardsHeight(aHeight: single; aAmount: single);
	procedure MoveX(dX: single);
	procedure MoveY(dY: single);
	procedure MoveYNoPoles(dY: single);
	function OneLineDisplay: string;
	procedure RandomizeHalfOffset;
	procedure RandomizeOffset;
	procedure Reverse;
	procedure SaveToFile(var aFile: TextFile);
	procedure SetDirection(aXYAngle: single; aHeightAngle: single);
	procedure SetPosition(aX: single; aY: single; aHeight: single);
	procedure SetProperties(aMass: single; aBounce: single; aBuoyancy: single);
	procedure SetSize(aSizeX: single; aSizeY: single; aSizeH: single; aTangible: boolean); overload;
	procedure SetSize(aSizeX: single; aSizeY: single; aSizeH: single); overload;
	procedure SetToCoordinates(aCoordinates: AICoordinates);
	function SimpleDistanceTo(aDestination: AIPosition): single;
	function SimpleDistanceToXY(aDestination: AIPosition): single;
	procedure TurnLeft(aAmount: single); overload;
	procedure TurnLeft; overload;
	procedure TurnRight(aAmount: single); overload;
	procedure TurnRight; overload;
	procedure TurnTowards(const aTarget, aAmount: single);
	function TurnTowardsAndIsFacingTarget(const aPosition: AIPosition; const aAmount: single): boolean;
	procedure TurnTowardsTarget(const aPosition: AIPosition; const aAmount: single); overload;
	procedure TurnTowardsTarget(const aPosition: AIPosition); overload;
	procedure TurnTowardsVector(const aVector: TAffineVector; const aAmount: single);
	procedure TurnTowardsVelocity(const aAmount: single);
	procedure VelocityStrafeLeft(aAmount: single);
	procedure VelocityStrafeRight(aAmount: single);
	procedure Vibrate(aEffectType, aEffectIndex, aTimerDeath: integer);
	function Volume: single;

Description

procedure AccelerationStrafeLeft(aAmount: single);

procedure AccelerationStrafeRight(aAmount: single);

procedure ApplyForce(aAngle: single; aStrength: single); overload;

procedure ApplyForce(aOrigin: AIPosition; aStrength: single); overload;

procedure ApplyForce(dX: single; dY: single; dH: single); overload;

procedure ApplyForce(aForce: AIForce); overload;

procedure ApplyOrbitingForce(aForce: AIForce);

location interface

function AsAffineVector: TAffineVector;

procedure Center;

procedure CopyCoords(aPosition: AIPosition);

Constructor Create(aParent: pointer);

procedure Deflate(aAmount: single);

Destructor Destroy; override;

function DirectionTo(aPosition: AIPosition): single;

function DistancePlusHeightTo(aDestination: AIPosition): single;

function DistanceTo(aDestination: AIPosition): single;

function DistanceToHeight(aHeight: single): single;

function DistanceToVector(aVector: TAffineVector): single;

function DistanceToX(aDestX: single): single;

function DistanceToXPlusY(aDestination: AIPosition): single;

function DistanceToY(aDestY: single): single;

procedure FaceTarget(aPosition: AIPosition); overload;

procedure FaceTarget(aPosition: TAffineVector); overload;

procedure FaceVelocity;

procedure Fuel;

procedure FullCopy(aPosition: AIPosition);

procedure FullDisplay(aList: TStrings);

function GridX: integer;

function GridY: integer;

function HeightAbove: single;

function HighestHeight: single;

procedure Inflate(aAmount: single);

grow/shrink

procedure LoadFromFile(var aFile: TextFile);

procedure Move(dX: single; dY: single);

procedure MoveBy(aAmount: single);

procedure MoveFreely(aAmount: single);

procedure MoveFreely5(aAmount: single);

procedure MoveHeight(dHeight: single);

procedure MoveTowards(aPosition: AIPosition; aAmount: single); overload;

procedure MoveTowardsHeight(aHeight: single; aAmount: single);

procedure MoveX(dX: single);

procedure MoveY(dY: single);

procedure MoveYNoPoles(dY: single);

function OneLineDisplay: string;

procedure RandomizeHalfOffset;

randomizes the fraction of the position (1.0)

procedure RandomizeOffset;

centers at x.5, y.5

procedure Reverse;

procedure SaveToFile(var aFile: TextFile);

procedure SetDirection(aXYAngle: single; aHeightAngle: single);

procedure SetPosition(aX: single; aY: single; aHeight: single);

procedure SetProperties(aMass: single; aBounce: single; aBuoyancy: single);

procedure SetSize(aSizeX: single; aSizeY: single; aSizeH: single; aTangible: boolean); overload;

procedure SetSize(aSizeX: single; aSizeY: single; aSizeH: single); overload;

procedure SetToCoordinates(aCoordinates: AICoordinates);

reverses y at poles

function SimpleDistanceTo(aDestination: AIPosition): single;

function SimpleDistanceToXY(aDestination: AIPosition): single;

procedure TurnLeft(aAmount: single); overload;

procedure TurnLeft; overload;

procedure TurnRight(aAmount: single); overload;

procedure TurnRight; overload;

procedure TurnTowards(const aTarget, aAmount: single);

function TurnTowardsAndIsFacingTarget(const aPosition: AIPosition; const aAmount: single): boolean;

procedure TurnTowardsTarget(const aPosition: AIPosition; const aAmount: single); overload;

procedure TurnTowardsTarget(const aPosition: AIPosition); overload;

procedure TurnTowardsVector(const aVector: TAffineVector; const aAmount: single);

procedure TurnTowardsVelocity(const aAmount: single);

procedure VelocityStrafeLeft(aAmount: single);

procedure VelocityStrafeRight(aAmount: single);

procedure Vibrate(aEffectType, aEffectIndex, aTimerDeath: integer);

emit noises etc

function Volume: single;

Properties

Overview

	property Acceleration: AIForce;
	property Binding: integer;
	property Bounce: single;
	property Buoyancy: single;
	property Carried: boolean;
	property Carrier: pointer;
	property Collider: boolean;
	property DirectionH: single;
	property DirectionXY: single;
	property Height: single;
	property Land: single;
	property Location: pointer;
	property Mass: single;
	property SizeH: single;
	property SizeX: single;
	property SizeY: single;
	property Tangible: boolean;
	property UnderWater: boolean;
	property Velocity: AIForce;
	property Water: single;
	property X: single;
	property Y: single;

Description

property Acceleration: AIForce;

property Binding: integer;

property Bounce: single;

property Buoyancy: single;

property Carried: boolean;

property Carrier: pointer;

property Collider: boolean;

property DirectionH: single;

property DirectionXY: single;

property Height: single;

property Land: single;

property Location: pointer;

property Mass: single;

property SizeH: single;

property SizeX: single;

property SizeY: single;

property Tangible: boolean;

property UnderWater: boolean;

property Velocity: AIForce;

property Water: single;

property X: single;

property Y: single;