From 5f11f9f3e328f6818a42f0a3405404612399c64e Mon Sep 17 00:00:00 2001 From: tobigun Date: Sat, 30 Aug 2008 18:12:06 +0000 Subject: Removed outdated 1.1 branch contents git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.1@1331 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UAudioCore_Bass.pas | 116 ---------------------------------- 1 file changed, 116 deletions(-) delete mode 100644 Game/Code/Classes/UAudioCore_Bass.pas (limited to 'Game/Code/Classes/UAudioCore_Bass.pas') diff --git a/Game/Code/Classes/UAudioCore_Bass.pas b/Game/Code/Classes/UAudioCore_Bass.pas deleted file mode 100644 index 55148f95..00000000 --- a/Game/Code/Classes/UAudioCore_Bass.pas +++ /dev/null @@ -1,116 +0,0 @@ -unit UAudioCore_Bass; - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses - Classes, - SysUtils; - -type - TAudioCore_Bass = class - private - public - class function ErrorGetString(): string; overload; - class function ErrorGetString(errCode: integer): string; overload; - end; - - -implementation - -uses - UMain, - ULog, - bass; - -class function TAudioCore_Bass.ErrorGetString(): string; -begin - ErrorGetString(BASS_ErrorGetCode()); -end; - -class function TAudioCore_Bass.ErrorGetString(errCode: integer): string; -begin - case errCode of - BASS_OK: - result := 'No error'; - BASS_ERROR_MEM: - result := 'Insufficient memory'; - BASS_ERROR_FILEOPEN: - result := 'File could not be opened'; - BASS_ERROR_DRIVER: - result := 'Device driver not available'; - BASS_ERROR_BUFLOST: - result := 'Buffer lost'; - BASS_ERROR_HANDLE: - result := 'Invalid Handle'; - BASS_ERROR_FORMAT: - result := 'Sample-Format not supported'; - BASS_ERROR_POSITION: - result := 'Illegal position'; - BASS_ERROR_INIT: - result := 'BASS_Init has not been successfully called'; - BASS_ERROR_START: - result := 'Paused/stopped'; - BASS_ERROR_ALREADY: - result := 'Already created/used'; - BASS_ERROR_NOPAUSE: - result := 'No pause'; - BASS_ERROR_NOCHAN: - result := 'No free channels'; - BASS_ERROR_ILLTYPE: - result := 'Type is invalid'; - BASS_ERROR_ILLPARAM: - result := 'Illegal parameter'; - BASS_ERROR_NO3D: - result := 'No 3D support'; - BASS_ERROR_NOEAX: - result := 'No EAX support'; - BASS_ERROR_DEVICE: - result := 'Invalid device number'; - BASS_ERROR_NOPLAY: - result := 'Channel not playing'; - BASS_ERROR_FREQ: - result := 'Freq out of range'; - BASS_ERROR_NOTFILE: - result := 'Not a file stream'; - BASS_ERROR_NOHW: - result := 'No hardware support'; - BASS_ERROR_EMPTY: - result := 'Is empty'; - BASS_ERROR_NONET: - result := 'Network unavailable'; - BASS_ERROR_CREATE: - result := 'Creation error'; - BASS_ERROR_NOFX: - result := 'DX8 effects unavailable'; - BASS_ERROR_PLAYING: - result := 'Channel is playing'; - BASS_ERROR_NOTAVAIL: - result := 'Not available'; - BASS_ERROR_DECODE: - result := 'Is a decoding channel'; - BASS_ERROR_DX: - result := 'Insufficient version of DirectX'; - BASS_ERROR_TIMEOUT: - result := 'Timeout'; - BASS_ERROR_FILEFORM: - result := 'File-Format not recognised/supported'; - BASS_ERROR_SPEAKER: - result := 'Requested speaker(s) not support'; - BASS_ERROR_VERSION: - result := 'Version error'; - BASS_ERROR_CODEC: - result := 'Codec not available/supported'; - BASS_ERROR_UNKNOWN: - result := 'Unknown error'; - else - result := 'Unknown error'; - end; -end; - -end. \ No newline at end of file -- cgit v1.2.3