TGLBVehicle

type TGLBVehicle = class(TGLBehaviour)

protected

  procedure SetGLSteeringBehaviours();

  procedure SetManager();

  procedure SetGroupIndex();

  function GetVelocity;

  procedure SetVelocity();

  function GetSpeed;

  procedure SetSpeed();

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  procedure Loaded; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

  procedure DoProgress(); override;

  procedure DoSteering;

  property ProgressTime: TGLProgressTimes; [rw]

  property AccumulatedTime: Double; [rw]

  property CollisionObject: TGLBaseSceneObject; [rw]

  property Accumulator: TGLCoordinates; [r]

  property Flee: TFleeSteer; [rw]

  property Seek: TSeekSteer; [rw]

  property Pursue: TPursueSteer; [rw]

  property Wander: TWanderSteer; [rw]

  property WorldCollision: TWorldCollisionSteer; [rw]

published

  property Manager: TGLVehicleManager; [rw]

  property GroupIndex: Integer; [rw]

  property Mass: Integer; [rw]

  property MaxForce: Double; [rw]

  property MaxSpeed: Double; [rw]

  property Speed: Double; [rw]

  property SteeringBehaviours: TGLSteeringBehaviours; [rw]

  property SteerUpdateInterval: Double; [rw]

  property SteerBehaviours: TObjectList; [rw]

  property Up: TGLCoordinates; [rw]

end;

TGLBVehicle

TObject