| Class TMovable (unit uTMovable) |
TObject
| Constructors |
constructor Create(Canvas : TCanvas);| Functions |
procedure DecreaseSpeed(delta : single);
destructor Destroy;
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;