- rifle,lightning,headshot,play:TalObject;
- ...
- procedure TForm1.FormCreate(Sender: TObject);
- var argv: array of PChar;
- begin
- AlutInit(nil,argv);
- rifle := TalObject.Create;
- rifle.LoadFromFile('sound\rifle.wav');
- rifle.Update;
- lightning := TalObject.Create;
- lightning.LoadFromFile('sound\lightning.wav');
- lightning.Update;
- headshot := TalObject.Create;
- headshot.LoadFromFile('sound\headshot.wav');
- headshot.Update;
- play := TalObject.Create;
- play.LoadFromFile('sound\play.wav');
- play.Update;
- ...
- end;
- ...
- procedure TForm1.OGLMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- ...
- rifle.Play;
- ...
- end;