Class TMovable (unit uTMovable)

Inherits from

TObject

Constructors


constructor Create(Canvas : TCanvas);

******************************************************************************


Functions

procedure DecreaseSpeed(delta : single);

******************************************************************************

destructor Destroy;

100 +random(120);//

procedure Draw(Canvas : TCanvas);

******************************************************************************

procedure IncreaseSpeed(delta : single);

******************************************************************************

procedure Move(Canvas : TCanvas);

******************************************************************************

function PrepareToMove(ClosestMovables : TList; ClosestObstacle : TMovable; Canvas : TCanvas) : boolean ;

******************************************************************************

procedure TurnLeft(delta : single);

******************************************************************************

procedure TurnRight(delta : single);

******************************************************************************

Properties

Events

Variables

bActive : boolean;


bSpeedHasChanged : boolean;


ClosestMovables : TList;


Color : TColor;


Dir : single;


DistanceSquared : single;


LastMoveX : single;


LastMoveY : single;


LineLength : single;


MaxSpeed : single;


Speed : single;


X : single;


Y : single;



Constructors


constructor Create(Canvas : TCanvas);

******************************************************************************


Functions


procedure DecreaseSpeed(delta : single);

******************************************************************************


destructor Destroy;

100 +random(120);//


procedure Draw(Canvas : TCanvas);

******************************************************************************


procedure IncreaseSpeed(delta : single);

******************************************************************************


procedure Move(Canvas : TCanvas);

******************************************************************************


function PrepareToMove(ClosestMovables : TList; ClosestObstacle : TMovable; Canvas : TCanvas) : boolean ;

******************************************************************************


procedure TurnLeft(delta : single);

******************************************************************************


procedure TurnRight(delta : single);

******************************************************************************


Properties


Events


Variables


bActive : boolean;


bSpeedHasChanged : boolean;


ClosestMovables : TList;


Color : TColor;


Dir : single;


DistanceSquared : single;


LastMoveX : single;


LastMoveY : single;


LineLength : single;


MaxSpeed : single;


Speed : single;


X : single;


Y : single;