Update to Bass 2.4. Do not forget to replace the old with the new dll.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1080 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 0 insertions, 51 deletions

diff --git a/Game/Code/lib/bass/lazarustest.lpr b/Game/Code/lib/bass/lazarustest.lpr
deleted file mode 100644
index 6faee86d..00000000
--- a/Game/Code/lib/bass/lazarustest.lpr
+++ /dev/null
@@ -1,51 +0,0 @@
-program lazarustest;

-

-{$mode objfpc}{$H+}

-

-uses

-  sysutils,

-  bass in 'delphi\bass.pas'

-  { add your units here };

-

-var

-  chan : HSTREAM;

-

-begin

-  // check the correct BASS was loaded

-  if (hi(BASS_GetVersion) <> BASSVERSION) then

-  begin

-    writeln('An incorrect version of BASS.DLL was loaded');

-    Halt;

-  end;

-  

-  //init BASS

-  if not BASS_Init(0,44100,0,0,nil) then

-    writeln('Can''t initialize device');

-    

-  //creating stream

-  if fileexists( 'music.mp3 ') then

-  begin

-    chan := BASS_StreamCreateFile(FALSE,pchar('music.mp3'),0,0,0);

-    if chan = 0 then

-    begin

-      chan := BASS_MusicLoad(False, pchar('music.mp3'), 0, 0, BASS_MUSIC_RAMPS or BASS_MUSIC_POSRESET or BASS_MUSIC_PRESCAN, 0);

-      if (chan = 0) then

-      begin

-        writeln('Can''t play file');

-        Exit;

-      end;

-    end;

-

-    BASS_ChannelPlay(chan,FALSE); // start playing

-  end

-  else

-  begin

-    writeln( 'music.mp3 not found.. could not test mp3 playback');

-  end;

-    

-  BASS_Free();

-  writeln( 'Seems BASS is compatible with lazarus :) ');

-

-

-end.

-