From ac2396d0fcb3812e7af1c861d97bdd00db6cf765 Mon Sep 17 00:00:00 2001 From: jaybinks Date: Wed, 17 Oct 2007 01:02:55 +0000 Subject: modified the way bass_init is checked .. based on http://ultrastardeluxe.xtremeweb-hosting.net/viewtopic.php?f=17&t=70 and http://www.google.com.au/url?sa=t&ct=res&cd=5&url=http%3A%2F%2Fwww.freebasic.net%2Fforum%2Fviewtopic.php%3Fp%3D80345&ei=3F0VR-XyEYPKgQPAkI2vCA&usg=AFQjCNGzCHUzie3jJGB2huCVkhGAoIlfkg&sig2=Z1WiBOQAbc_gXZkH24nbLA git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.01@520 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UMusic.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Game/Code/Classes/UMusic.pas') diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas index 9399adb1..735210c1 100644 --- a/Game/Code/Classes/UMusic.pas +++ b/Game/Code/Classes/UMusic.pas @@ -219,7 +219,8 @@ begin Loop := false; fHWND := AllocateHWND( nil); - if not BASS_Init(1, 44100, 0, fHWND, nil) then begin + if BASS_Init(1, 44100, 0, fHWND, nil) = false then + begin Application.MessageBox ('Could not initialize BASS', 'Error'); Exit; end; -- cgit v1.2.3