| 123456789101112131415161718192021222324252627 |
- (*
- SphereSweepAndSlide - Initial work by Dan Bartlett
- Shows how to use the FPS Movement behaviour
- ----------------------------------------
- Controls:
- W,A,S,D: Movement
- Mouse: Movement
- I,J,K,L,O,P: Movement (2nd sphere)
- F2, F3: First person, Third person
- F5: Toggle wireframe
- Space: Move upwards
- Esc: Quit
- *)
- program FPSMovement;
- uses
- Vcl.Forms,
- fFPSMovement in 'fFPSMovement.pas' {FormFPSMovement};
- {$R *.res}
- begin
- Application.Initialize;
- Application.MainFormOnTaskbar := True;
- Application.CreateForm(TFormFPSMovement, FormFPSMovement);
- Application.Run;
- end.
|
