[PackegerX]

Помогите, уже неделю пытаюсь присобачить bass к blitzmax.
Модуля найти не могу, нашел лишь код для c++ , чтобы подключить либу и исходник + decls для b3d.

Может у кого-нибудь есть модуль готовый для 2.4 или вообще для какой-нибудь версии? Поделитесь, пожалуйста)

extern char BASSInitialise(int device,int freq,int flags,DWORD windowHandle)
{
memset(&channelInfo,(char) 0,sizeof(channelInfo));
specpos=0;
memset(&diff,(char) 0,sizeof(diff));

#ifdef WIN32
bass=LoadLibrary("BASS.DLL"); // load BASS
if (bass)
{
BASS_Init=GetProcAddress(bass,"BASS_Init"); // get BASS_Init
if (BASS_Init)
{
BASS_Free=GetProcAddress(bass,"BASS_Free");
//BASS_GetVersion=GetProcAddress(bass,"BASS_GetVersi on");
BASS_Start=GetProcAddress(bass,"BASS_Start");
BASS_ErrorGetCode=GetProcAddress(bass,"BASS_ErrorG etCode");
BASS_SampleLoad=GetProcAddress(bass,"BASS_SampleLo ad");
BASS_SampleGetChannel=GetProcAddress(bass,"BASS_Sa mpleGetChannel");
BASS_SampleStop=GetProcAddress(bass,"BASS_SampleSt op");
BASS_StreamCreateFile=GetProcAddress(bass,"BASS_St reamCreateFile");
BASS_ChannelPlay=GetProcAddress(bass,"BASS_Channel Play");
BASS_ChannelPause=GetProcAddress(bass,"BASS_Channe lPause");
BASS_ChannelGetPosition=GetProcAddress(bass,"BASS_ ChannelGetPosition");
BASS_ChannelPreBuf=GetProcAddress(bass,"BASS_Chann elPreBuf");
BASS_StreamFree=GetProcAddress(bass,"BASS_StreamFr ee");
BASS_ChannelGetLength=GetProcAddress(bass,"BASS_Ch annelGetLength");
BASS_ChannelGetInfo=GetProcAddress(bass,"BASS_Chan nelGetInfo");
BASS_ChannelGetData=GetProcAddress(bass,"BASS_Chan nelGetData");
BASS_ChannelIsActive=GetProcAddress(bass,"BASS_Cha nnelIsActive");
BASS_ChannelStop=GetProcAddress(bass,"BASS_Channel Stop");
BASS_ChannelSetPosition=GetProcAddress(bass,"BASS_ ChannelSetPosition");
BASS_ChannelSetAttributes=GetProcAddress(bass,"BAS S_ChannelSetAttributes");
BASS_ChannelBytes2Seconds=GetProcAddress(bass,"BAS S_ChannelBytes2Seconds");
BASS_ChannelGetTags=GetProcAddress(bass,"BASS_Chan nelGetTags");
return BASS_Init(device,freq,flags,(HWND) windowHandle,NULL);
}
else
{
BASS_Free=NULL;
BASS_ErrorGetCode=NULL;
}
}

return -1;
#else
return BASS_Init(device,freq,flags,0,NULL);
#endif
}