Class AIThing

Unit

Declaration

type AIThing = class(AIBaseObject)

Description

Hierarchy

Methods

Overview

	procedure Cease; virtual;
	Constructor Create(aParent: pointer);
	procedure Damage(aAmount: integer); virtual;
	Destructor Destroy; override;
	function Digest(const aAmount: integer): integer; virtual;
	procedure Fuel; virtual;
	procedure FullDisplay(aList: TStrings); override;
	function GetAge: integer;
	function GetDNA: pointer; virtual;
	function GetName: string; virtual;
	function HasDNA: boolean; virtual;
	function IsFruit: boolean; virtual;
	function IsPlant: boolean; virtual;
	function IsPredator: boolean; virtual;
	function IsPrey: boolean; virtual;
	procedure LoadFromFile(var aFile: TextFile); override;
	procedure Noise(aEffectIndex, aTimerDeath: integer);
	procedure OnCollide(aCollider: AIThing); virtual;
	function OneLineDisplay: string; override;
	procedure Perform(aActivity: integer); virtual;
	function Play(aPlaymate: AIThing): integer;
	procedure Report;
	procedure SaveToFile(var aFile: TextFile); override;
	procedure SetName(aName: string); virtual;
	procedure Talk(aText: string; aRadius: single; aTimerDeath: integer);
	function Tickle: integer; virtual;
	procedure Vibrate(aEffectType, aEffectIndex, aTimerDeath: integer);

Description

procedure Cease; virtual;

queue for deletion

Constructor Create(aParent: pointer);

procedure Damage(aAmount: integer); virtual;

take damage

Destructor Destroy; override;

function Digest(const aAmount: integer): integer; virtual;

what happens when its eaten?

procedure Fuel; virtual;

predators that chase the prey

procedure FullDisplay(aList: TStrings); override;

function GetAge: integer;

function GetDNA: pointer; virtual;

function GetName: string; virtual;

function HasDNA: boolean; virtual;

subclass information

function IsFruit: boolean; virtual;

function IsPlant: boolean; virtual;

function IsPredator: boolean; virtual;

small prey

function IsPrey: boolean; virtual;

procedure LoadFromFile(var aFile: TextFile); override;

procedure Noise(aEffectIndex, aTimerDeath: integer);

make a noise vibe

procedure OnCollide(aCollider: AIThing); virtual;

add time

function OneLineDisplay: string; override;

procedure Perform(aActivity: integer); virtual;

perform an activity

function Play(aPlaymate: AIThing): integer;

play happiness value

procedure Report;

procedure SaveToFile(var aFile: TextFile); override;

procedure SetName(aName: string); virtual;

procedure Talk(aText: string; aRadius: single; aTimerDeath: integer);

talk

function Tickle: integer; virtual;

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

make a vibe

Properties

Overview

	property Age: integer;
	property Birthday: integer;
	property Exists: boolean;
	property Kind: integer;
	property Name: string;
	property Position: AIPosition;

Description

property Age: integer;

property Birthday: integer;

property Exists: boolean;

property Kind: integer;

property Name: string;

property Position: AIPosition;