Class TMovable (unit uTMovable) |
Inherits from
TObject
constructor Create(Canvas : TCanvas);
- ******************************************************************************
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);
******************************************************************************
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;
constructor Create(Canvas : TCanvas);
******************************************************************************
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);
******************************************************************************
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;