#include "windows.h"
#include<direct.h>
#include "../systeminc/version.h"
#include "../systeminc/process.h"
#include "../systeminc/t_music.h"
#include "../systeminc/handletime.h"
#include "../systeminc/savedata.h"
#include "../systeminc/system.h"
#define ACTIVE	1
//#include "system.h"
//#include "../oft/vg410.h"

extern	DWORD NowTime;
//extern double NowTime;	// ???????

/*???????????*/
#define DEBUG_ON	1
#define THREAD_ON	1
#define MODE98		0
#define CLASS_UP	1
#define VOICE_KILL_ON	0

//静音标志
BOOL MuteFlag = FALSE;

typedef struct{
	int name;
	int tone_no;
	int volume;
	int note_no;
	int release_cnt;
	int release_spd;
	int lfo_h;
	int lfo_m;
	int lfo_s;
	int lfo_s_cnt;
	int lfo_s_ang;
	int pan;
	int loop_flg;
	int delay_cnt;
	long freq;
} VOICE_EQU;

#define	MAX_ENV		20
typedef struct{
	int voice_address;	//???????????????
	int tone;
	int count;
	int distance;
	int volume;
	int volume_old;
	int side;
	int panpot;
	int panpot_old;
} ENVIRONMENT_EQU;
ENVIRONMENT_EQU env_tbl[MAX_ENV];

#define DEBUG	0
#define MY_TIMER	1
#define VOICE_MAX	64
#define TRACK_MAX	32
//#define STRICT
#include <windows.h>
#include <dsound.h>
#include <stdio.h>
#include <winuser.h>
#include <winbase.h>
#include "../systeminc/math2.h"
#include <math.h>
#include "../systeminc/main.h"

#include <tchar.h>
#include <crtdbg.h>
#include <mmsystem.h>
extern int MessageBoxNew(HWND hWnd,LPCSTR lpText,LPCSTR lpCaption,UINT uType);
#define RELEASE(x) 	if(x){x->Release();x=NULL;}
#define	LOG(a,b)	(log((float)b)/log((float)a))

static int mes_flg=0;

#if THREAD_ON
int thread_flg=0;
#endif
int dsound_flg=0;

/*-------------------------------------------
	???
--------------------------------------------*/
LPDIRECTSOUND pDSound = NULL;
LPDIRECTSOUNDBUFFER pDSPrimary = NULL;
LONG primaryVolume;
LONG primaryPan;
LONG primaryFrequency;

LPDIRECTSOUNDBUFFER pDSData_tone[TONE_MAX + 1];
LPDIRECTSOUNDBUFFER pDSData_stream;
LPDIRECTSOUNDBUFFER pDSData[VOICE_MAX];
BOOL dataPlay[VOICE_MAX];
int dataVolume[TRACK_MAX];
int dataPan[TRACK_MAX];
LONG dataFrequency[TRACK_MAX];
VOICE_EQU voice[VOICE_MAX];
TONE_EQU tone_tbl[TONE_MAX];
int tone_max_buf;

#if VOICE_KILL_ON
int voice_kill_buf[VOICE_MAX];
int voice_kill_point;
#endif

int t_music_playing_flg = 0;
int t_music_fade_flg = 0;
int t_music_fade_vol;
int draw_map_bgm_flg = 0;
static int map_bgm_vct_no = 0;
int map_bgm_no = 0;

/*-------------------------------------------
	Wave????????
--------------------------------------------*/
BOOL LoadWave(
			  LPCTSTR lpName,	// Wave???䦶
			  WAVEFORMATEX* (&pWaveHeader),	// WAVEFORMATEX???????
			  BYTE* (&pbWaveData),	// ??????????????
			  DWORD &cbWaveSize)	// ????????????
{
	pWaveHeader = NULL;	// WAVEFORMATEX???????
	pbWaveData = NULL;	// ??????????????
	cbWaveSize = 0;	// ????????????
	const char c_szWAV[] = "WAVE";	// ??????Wave????????"WAVE"???

	// ??????????????????
	HRSRC hResInfo = FindResource(NULL, lpName, c_szWAV);
	if(hResInfo == NULL)
	    return FALSE;
	HGLOBAL hResData = LoadResource(NULL, hResInfo);
	if(hResData == NULL)
	    return FALSE;
	void *pvRes = LockResource(hResData);
	if(pvRes == NULL)
	    return FALSE;

	// ????????????????????????????????????
	DWORD *pdw = (DWORD *)pvRes;
	DWORD *pdwEnd;
	DWORD dwRiff = *pdw++;
	DWORD dwLength = *pdw++;
	DWORD dwType = *pdw++;

	if (dwRiff != mmioFOURCC('R', 'I', 'F', 'F'))
	    return FALSE;      // ???????RIFF?????????
	if (dwType != mmioFOURCC('W', 'A', 'V', 'E'))
	    return FALSE;      // ???????Wave?????????
	pdwEnd = (DWORD *)((BYTE *)pdw + dwLength-4);

	while (pdw < pdwEnd)
	{
	    dwType = *pdw++;
	    dwLength = *pdw++;

	    switch (dwType)
	    {
	    case mmioFOURCC('f', 'm', 't', ' '):
	        if (pWaveHeader == NULL)
	        {
	            if (dwLength < sizeof(WAVEFORMAT))
	                return FALSE;      // ?????????Wave?????????
	            pWaveHeader = (WAVEFORMATEX *)pdw;
	        }
	        break;
	    case mmioFOURCC('d', 'a', 't', 'a'):
	        if ((pbWaveData == NULL) || (!cbWaveSize))
	        {
	            pbWaveData = (LPBYTE)pdw;
	            cbWaveSize = dwLength;
	        }
	        break;
	    }
	    if(pWaveHeader && (pbWaveData != NULL) && cbWaveSize)
	        break;
	    pdw = (DWORD *)((BYTE *)pdw + ((dwLength+1)&~1));
	}
	if(pdwEnd <= pdw)
	    return FALSE;	// ?????????Wave?????????

	// Wave????

	return TRUE;
}

/*-------------------------------------------
	????????????????????
--------------------------------------------*/
BOOL CreateSoundData(LPCSTR pName, LPDIRECTSOUNDBUFFER &pDSData)
{
	// ??????Wave???????
	WAVEFORMATEX *pWaveHeader = NULL;	// WAVEFORMATEX???????
	BYTE *pbWaveData = NULL;	// ??????????????
	DWORD cbWaveSize = 0;	// ????????????
	if(!LoadWave(pName, pWaveHeader, pbWaveData, cbWaveSize))
	{
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "读取Wave的资料失败！", "Error", MB_OK);
#endif
		return FALSE;
	}

	// ??????????????
	DSBUFFERDESC dsbdesc; 
	HRESULT hr; 
	// DSBUFFERDESC??
	ZeroMemory(&dsbdesc, sizeof(DSBUFFERDESC));
	dsbdesc.dwSize = sizeof(DSBUFFERDESC); 
	// ??????????????
#if ACTIVE
	dsbdesc.dwFlags = DSBCAPS_STATIC | /*DSBCAPS_CTRLDEFAULT*/DSBCAPS_CTRLPAN | DSBCAPS_CTRLVOLUME | DSBCAPS_CTRLFREQUENCY | DSBCAPS_GETCURRENTPOSITION2 | DSBCAPS_GLOBALFOCUS; 
#else
	dsbdesc.dwFlags = DSBCAPS_STATIC | /*DSBCAPS_CTRLDEFAULT*/DSBCAPS_CTRLPAN | DSBCAPS_CTRLVOLUME | DSBCAPS_CTRLFREQUENCY | DSBCAPS_GETCURRENTPOSITION2; 
#endif
	dsbdesc.dwBufferBytes = cbWaveSize;
	dsbdesc.lpwfxFormat = pWaveHeader;
	// ???????
	hr = pDSound->CreateSoundBuffer(&dsbdesc, &pDSData, NULL); 
	if(DS_OK != hr) { 
	    // ???????
		return FALSE;
	} 

	// ???????????Wave????????
	LPVOID lpvPtr1; 	// ????????????
	DWORD dwBytes1; 	// ???????????
	LPVOID lpvPtr2; 	// ????????????
	DWORD dwBytes2; 	// ???????????

	hr = pDSData->Lock(0, cbWaveSize, &lpvPtr1, &dwBytes1, &lpvPtr2, &dwBytes2, 0); 

	// DSERR_BUFFERLOST??????Restore????????????????
	if(DSERR_BUFFERLOST == hr) { 
	    pDSData->Restore(); 
	    hr = pDSData->Lock(0, cbWaveSize, &lpvPtr1, &dwBytes1, &lpvPtr2, &dwBytes2, 0); 
	} 
	if(DS_OK == hr) { 
	    // ????

	    // ?????????????
		// ??????????????
		CopyMemory(lpvPtr1, pbWaveData, dwBytes1);
		if ( 0 != dwBytes2 )
		    CopyMemory(lpvPtr2, pbWaveData + dwBytes1, dwBytes2);

	   // ????????????Unlock???
	    hr = pDSData->Unlock(lpvPtr1, dwBytes1, lpvPtr2, dwBytes2); 
	}

	return TRUE;
}

// ???????⿳???
//
// ?  ?：	hmmio     ... ????????????
//			pWfmtx    ... ???⿳???????
//			pDataSize ... ??????
// ??：	TRUE  ... ?
//			FALSE ... 
static BOOL WaveFormatRead( HMMIO hmmio, WAVEFORMATEX *pWfmtx, DWORD *pDataSize )
{
	MMCKINFO parent, child;

	parent.ckid = (FOURCC)0;
	parent.cksize = 0;
	parent.fccType = (FOURCC)0;
	parent.dwDataOffset = 0;
	parent.dwFlags = 0;
	child = parent;

	//WAVE??????
	parent.fccType = mmioFOURCC('W','A','V','E');
	if ( (int)mmioDescend(hmmio,&parent,NULL,MMIO_FINDRIFF) ){
//		ERRPRINT("WAVE??????");
		return FALSE;
	}

	//fmt??????
	child.ckid = mmioFOURCC('f', 'm', 't', ' ');
	if ( mmioDescend( hmmio , &child , &parent , MMIO_FINDCHUNK ) ){
//		ERRPRINT("fmt??????");
		return FALSE;
	}

	//??????????
	if (mmioRead( hmmio , (char *)pWfmtx , sizeof(WAVEFORMATEX) ) != sizeof(WAVEFORMATEX) ){
//		ERRPRINT("??????????");
		return FALSE;
	}

	//??????????????????
	if (pWfmtx->wFormatTag != WAVE_FORMAT_PCM ){
//		ERRPRINT("????????????????");
		return FALSE;
	}
	//???????????
	if (mmioAscend( hmmio , &child , 0 )){
//		ERRPRINT("???????????");
		return FALSE;
	}
	
	//data??????
	child.ckid = mmioFOURCC( 'd' , 'a' , 't' , 'a' );
	if ( mmioDescend( hmmio , &child , &parent , MMIO_FINDCHUNK ) ){
//		ERRPRINT("data??????");
		return FALSE;
	}

	*pDataSize = child.cksize;

	return TRUE;
}

static BYTE	*pDSbuffData;

//
// ??????????
//
// ?  ?：	hmmio     ... ????????????
//			pDataSize ... ?????????
//			pData     ... DirectSoundBuffer
// ??：	TRUE  ... ?
//			FALSE ... 
static BOOL WaveDataRead( HMMIO hmmio , DWORD *pDataSize, LPDIRECTSOUNDBUFFER pData )
{
//	BYTE	*pDSbuffData;

	//??????????
	if( pData->Lock(0 , *pDataSize , (LPVOID*)&pDSbuffData , pDataSize , NULL , 0, 0 ) != DS_OK )
		return FALSE;

	//???????????
	*pDataSize = (DWORD)mmioRead(hmmio , (char*)pDSbuffData , *pDataSize);

	//?????
    if( pData->Unlock( pDSbuffData , *pDataSize , NULL , 0 ) != DS_OK )
		return FALSE;

	return TRUE;
}


//
// ??????????
//
// ?  ?：	pWfmtx ... ???????????
//			DataSize ... ????????
//			ppData ... ????????????????
// ??：	TRUE  ... ?
//			FALSE ... 
static BOOL dwSoundInit( WAVEFORMATEX *pWfmtx, DWORD DataSize, LPDIRECTSOUNDBUFFER *ppData )
{
	DSBUFFERDESC  dsbufferdesc;

	//??????????????
	memset( &dsbufferdesc , 0  , sizeof( DSBUFFERDESC ) );
	dsbufferdesc.dwSize = sizeof( DSBUFFERDESC );
//	dsbufferdesc.dwFlags = DSBCAPS_CTRLPOSITIONNOTIFY | DSBCAPS_CTRLDEFAULT | DSBCAPS_GETCURRENTPOSITION2; 
#if ACTIVE
	dsbufferdesc.dwFlags = DSBCAPS_STATIC | /*DSBCAPS_CTRLDEFAULT*/DSBCAPS_CTRLPAN | DSBCAPS_CTRLVOLUME | DSBCAPS_CTRLFREQUENCY | DSBCAPS_GETCURRENTPOSITION2 | DSBCAPS_GLOBALFOCUS; 
#else
	dsbufferdesc.dwFlags = DSBCAPS_STATIC | /*DSBCAPS_CTRLDEFAULT*/DSBCAPS_CTRLPAN | DSBCAPS_CTRLVOLUME | DSBCAPS_CTRLFREQUENCY | DSBCAPS_GETCURRENTPOSITION2; 
#endif
    dsbufferdesc.dwBufferBytes = DataSize;
    dsbufferdesc.lpwfxFormat   = pWfmtx;
    if ( pDSound->CreateSoundBuffer( &dsbufferdesc , ppData , NULL ) != DS_OK )
		return FALSE;

	return TRUE;
}

int f_get(FILE *fp);
int get_num(FILE *fp);
int num_check(FILE *fp);

// ?????䦶??????
#define mxSTR	200
/*-------------------------------------------
	DirectSound ???
--------------------------------------------*/
int InitDSound(void)
{
	HRESULT ret;
	int d7;

	pDSound = NULL;
	pDSPrimary = NULL;
	for(d7=0;d7<VOICE_MAX;d7++)
		pDSData[d7]=NULL;
	for(d7=0;d7<VOICE_MAX;d7++)
		dataPlay[d7]=FALSE;

	ret = DirectSoundCreate(NULL, &pDSound, NULL);
	if(ret != DS_OK){
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "建立DirectSound介面失败！", "Error", MB_OK);
#endif
		return FALSE;
	}
	//????????
	ret = pDSound->SetCooperativeLevel(hWnd, DSSCL_PRIORITY);
	if(ret != DS_OK){
	    // ??????
		RELEASE(pDSound);
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "设定协调等级失败！", "Error", MB_OK);
#endif
		return FALSE;
	}
	// ?????
	pDSound ->SetSpeakerConfig(DSSPEAKER_COMBINED(DSSPEAKER_STEREO, DSSPEAKER_GEOMETRY_WIDE));
	// ????????????
	// DSBUFFERDESC??
	DSBUFFERDESC dsbdesc; 
	ZeroMemory(&dsbdesc, sizeof(DSBUFFERDESC));
	dsbdesc.dwSize = sizeof(DSBUFFERDESC); 
	// ???????????
	dsbdesc.dwFlags = DSBCAPS_PRIMARYBUFFER; 
	dsbdesc.dwBufferBytes = 0;
	dsbdesc.lpwfxFormat = NULL;
	// ???????
	ret = pDSound->CreateSoundBuffer(&dsbdesc, &pDSPrimary, NULL); 
	if(ret != DS_OK) { 
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "建立主要buffer失败！", "Error", MB_OK);
#endif
		return FALSE;
	}
	// ???????????Wave???????
	//       ????????????????????????
	WAVEFORMATEX pcmwf; 
	ZeroMemory(&pcmwf, sizeof(WAVEFORMATEX)); 
	pcmwf.wFormatTag = WAVE_FORMAT_PCM; 
	pcmwf.nChannels = 2;		// ????????????
	pcmwf.nSamplesPerSec = 22050;	// ??????????  22.05kHz
	pcmwf.nBlockAlign = 4;
	pcmwf.nAvgBytesPerSec = pcmwf.nSamplesPerSec * pcmwf.nBlockAlign; 
	pcmwf.wBitsPerSample = 16;		// 16???
	ret = pDSPrimary->SetFormat(&pcmwf);
	if(ret != DS_OK){
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "主要buffer的格式化失败！", "Error", MB_OK);
#endif
		return FALSE;
	}
/*
//cary	使用resource建立sound data
	// ?????????????????????
	for(d7=0;d7<TONE_MAX;d7++){
		BOOL f;
		f = CreateSoundData(MAKEINTRESOURCE(101+d7), pDSData_tone[d7]);
		if(!f){
			for(d7=0;d7<TONE_MAX;d7++)
				RELEASE(pDSData_tone[d7]);
			RELEASE(pDSPrimary);
			RELEASE(pDSound);
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "建立声音资料失败！", "Error", MB_OK);
#endif
			return FALSE;
		}
	}
*/
	HMMIO hmmio;			//????????
    WAVEFORMATEX	Wfmtx;			//WAVE??????????????
	DWORD			DataSize;		//?????????
	DWORD			WaveSize;		//Wave????????
	int program_no = 0;
	char fname[mxSTR];

	hmmio = (HMMIO)-1;		//?????????
	tone_max_buf = 0;
	typedef struct
	{
		short no;
		char name[mxSTR];
		char vol;
		char note;
		char loop_flg;
	} SNDCONFIG;
	#include "../systeminc/sndcnf.h"
	for(d7=0;d7<TONE_MAX;d7++){		//????????
		tone_tbl[d7].voice_place = -1;
	}
	//??????????  ???????  ??????????
	int d1 = 0;		//SNDCONFIG????????
	while(1){
		if(sndconfig[ d1 ].no == -1){		//???
			goto InitDSound_ok;
		}
		program_no = sndconfig[ d1 ].no;		//?????
		if(program_no > TONE_MAX){		//???????
			goto InitDSound_err2;	//???
		}
		tone_tbl[ program_no ].voice_place = tone_max_buf;		//????
		//䦶?
		strcpy( fname, sndconfig[ d1 ].name );

		if(sndconfig[ d1 ].vol < 0){		//????????????
			goto InitDSound_err2;
		}
		tone_tbl[ program_no ].voice_volume = sndconfig[ d1 ].vol;		//??????

		if(sndconfig[ d1 ].note > 60){		//?????????
			goto InitDSound_err2;
		}
		if(sndconfig[ d1 ].note){		//????
			tone_tbl[ program_no ].voice_note = sndconfig[ d1 ].note;
		} else {
			tone_tbl[ program_no ].voice_note = 0;
		}
		//?????????
		tone_tbl[ program_no ].voice_loop = sndconfig[ d1 ].loop_flg;

		//???????????
		int d2;
		FILE *fp;
		fp = fopen( fname, "rb" );
		if( fp == NULL ){
			d1++;		//SNDCONFIG??????
			continue;
		}
		d2 = 8;						//??????????????
		d2 += 4;					//??????????????
		d2 += 4;					//????  ?????????
		d2 += 8;					//????????
		fseek(fp,d2,SEEK_CUR);		//??????????
		d2 = fgetc(fp);				//???????????
		d2 |= fgetc(fp) << 8;		//???????????
		d2 |= fgetc(fp) << 16;		//???????????
		d2 |= fgetc(fp) << 24;		//???????????
		switch(d2){
			case 11025:
				tone_tbl[ program_no ].voice_rate = 25;
				break;
			case 22050:
				tone_tbl[ program_no ].voice_rate = 37;
				break;
			case 44100:
				tone_tbl[ program_no ].voice_rate = 49;
				break;
		}
		fclose(fp);

		//????????????
		if( (hmmio = mmioOpen(fname, NULL, MMIO_READ | MMIO_ALLOCBUF )) == NULL){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "打开WAV档失败！", "Error", MB_OK);
#endif
			goto InitDSound_err;
		}
		//???????????
		if( WaveFormatRead( hmmio , &Wfmtx , &WaveSize ) == FALSE ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "读取WAV格式失败！", "Error", MB_OK);
#endif
			goto InitDSound_err;
		}
		DataSize = WaveSize;
		//??????????????
		if( dwSoundInit( &Wfmtx, DataSize, &pDSData_tone[tone_max_buf] ) == FALSE ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "初始化声音buffer失败！", "Error", MB_OK);
#endif
			goto InitDSound_err;
		}
		//???????
		if( WaveDataRead( hmmio, &DataSize, pDSData_tone[tone_max_buf] ) == FALSE  ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "读取WAV档的资料失败！", "Error", MB_OK);
#endif
			goto InitDSound_err;
		}
		mmioClose( hmmio , 0 );
		hmmio = (HMMIO)-1;		//?????????
		d1++;		//SNDCONFIG??????
		tone_max_buf++;		//?????
	}

InitDSound_err:		//?????????????
	mmioClose( hmmio , 0 );
	for(d7=0;d7<tone_max_buf;d7++)
		RELEASE(pDSData_tone[d7]);
	RELEASE(pDSPrimary);
	RELEASE(pDSound);
	return FALSE;

InitDSound_err2:	//????????
	if(hmmio != (HMMIO)-1){		//????????????
		mmioClose( hmmio , 0 );
	}
#ifdef _STONDEBUG_
	MessageBoxNew(hWnd, "????????", "Error", MB_OK);
#endif
	for(d7=0;d7<tone_max_buf;d7++)
		RELEASE(pDSData_tone[d7]);
	RELEASE(pDSPrimary);
	RELEASE(pDSound);
	return FALSE;

InitDSound_ok:		//?
	// ??????????
	for(d7=0;d7<VOICE_MAX;d7++){
		if( pDSound->DuplicateSoundBuffer(pDSData_tone[0],&pDSData[d7]) != DS_OK ){
			for(d7=0;d7<tone_max_buf;d7++)
				RELEASE(pDSData_tone[d7]);
			for(d7=0;d7<VOICE_MAX;d7++)
				RELEASE(pDSData[d7]);
			RELEASE(pDSPrimary);
			RELEASE(pDSound);
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "复制声音buffer失败！", "Error", MB_OK);
#endif
		return FALSE;
		}
	}
	// ???????????
	pDSPrimary->GetVolume(&primaryVolume);
	// ?????
	pDSPrimary->GetPan(&primaryPan);
	// ?
	pDSPrimary->GetFrequency((DWORD*)&primaryFrequency);
	return TRUE;
}

volatile static char exit_thread_flg = 0;
static int thread_loop_start;
//static int thread_loop_end;
static int thread_stop_flg = 0;
static LPDIRECTSOUNDNOTIFY pDSNotify = NULL;
static char stream_flg = 0;
/*-------------------------------------------
	??????
--------------------------------------------*/
void stop_thread(void)
{
	//??????
	if(thread_stop_flg){
		//???
		pDSData_tone[ TONE_MAX ]->Stop();
//		pDSData_stream->Stop();
		while(1){
			if(exit_thread_flg == 1)
				break;
		}
		thread_stop_flg = 0;
		exit_thread_flg = 0;
		RELEASE(pDSData_stream);
	}
	//??????????
	RELEASE(pDSData_tone[TONE_MAX]);
}

/*-------------------------------------------
	?????
--------------------------------------------*/
void stop_bgm(void)
{
	if (MuteFlag) return;
	//??????
	if(thread_stop_flg){
		//?????
		stop_thread();
	} else {
		//??????????
		RELEASE(pDSData_tone[TONE_MAX]);
	}
	//??????????
	t_music_fade_flg = 0;
	//????????
	t_music_playing_flg = 0;
	//????????????
	map_bgm_vct_no = 0;
	 map_bgm_no = t_music_bgm_no;
}

/*-------------------------------------------
	?????????
--------------------------------------------*/
void fade_out_bgm(void)
{
	//????????
	t_music_fade_flg = 1;
	//?????
	t_music_fade_vol = bgm_tbl[t_music_bgm_no].volume * t_music_bgm_volume / 15;

}

/*-------------------------------------------
	????
--------------------------------------------*/
int EndApp(void)
{
	int d7;
	//?????
	stop_thread();
	RELEASE(pDSData_tone[TONE_MAX]);
	//?????
	if(stream_flg == 1){
		RELEASE(pDSNotify);
	}
	for(d7=0;d7<VOICE_MAX;d7++){
		pDSData[d7]->Stop();
		RELEASE( pDSData[d7] );
	}
	for(d7=0;d7<tone_max_buf;d7++){
		pDSData_tone[d7]->Stop();
		RELEASE( pDSData_tone[d7] );
	}
	RELEASE(pDSPrimary);
	RELEASE(pDSound);

	return TRUE;
}

#define MUSIC_END	-1
#define MUSIC_R		-2
#define MUSIC_LOOP	-3
#define MUSIC_FREQ	-4
#define MUSIC_VOL	-5
#define MUSIC_PAN	-6
#define MUSIC_TEMPO	-7
#define MUSIC_PEDAL	-8
#define MUSIC_NEIRO_NO	-9
#define MUSIC_KURI_RET	-10
#define MUSIC_KURI_SKIP	-11
#define MUSIC_KURI_START	-12
#define MUSIC_WAVE	-13
#define MUSIC_WAON	-14
#define MUSIC_DETUNE	-15
#define MUSIC_LFO_H		-16
#define MUSIC_LFO_M		-17
#define MUSIC_LFO_S		-18
static int cnt=0,cnt2=0;
static LARGE_INTEGER d_cnt;
static int ch;
static int step_time[TRACK_MAX];
static int gate_time[TRACK_MAX];
static int d_pedal[TRACK_MAX];
static int wave[TRACK_MAX];
static int step_point[TRACK_MAX];
static int step_def[TRACK_MAX];
static int play_flg[TRACK_MAX];
static int play_track_flg[TRACK_MAX];
static int play_kuri_num[8][TRACK_MAX];
static int play_kuri_lv[TRACK_MAX];
static int play_use_task[TRACK_MAX][8];
static int dataToneNo[TRACK_MAX];
static int tie_flg[TRACK_MAX];
static int note_old[TRACK_MAX][8];
static int play_use_task_cnt[TRACK_MAX];
static int play_detune[TRACK_MAX];
static int play_lfo_h[TRACK_MAX];
static int play_lfo_m[TRACK_MAX];
static int play_lfo_s[TRACK_MAX];
static int pause_flg;
static LARGE_INTEGER tempo;
static int step[TRACK_MAX][16384];
typedef enum {
	M_OPEN_ERR = 0,
	M_STEP_ERR,
	M_TRACK_ERR,
	M_LCOMMAND_ERR,
	M_TCOMMAND_ERR,
	M_VCOMMAND_ERR,
	M_V2COMMAND_ERR,
	M_P2COMMAND_ERR,
	M_F2COMMAND_ERR,
	M_2COMMAND_ERR,
	M_KAKKO_ERR,
	M_MML_ERR,
	M_D2COMMAND_ERR,
	M_NOTE_ERR,
	M_PLAY_ERR,
	M_KURI_ERR,
	M_KURISU_ERR,
	M_MUTE_ERR,
	M_W2COMMAND_ERR,
	M_TOCOMMAND_ERR,
	M_QCOMMAND_ERR,
	M_K2COMMAND_ERR,
	M_WAON_ERR,
	M_OCOMMAND_ERR,
	M_H2COMMAND_ERR,
	M_M2COMMAND_ERR,
	M_S2COMMAND_ERR,
} err_number;

static char *err_msg[]={
	"档案开启失败",
	"Ｓｔｅｐ时间错误",
	"音轨指定错误",
	"Ｌ指令错误",
	"Ｔ指令错误",
	"Ｖ指令错误",
	"＠Ｖ指令错误",
	"＠Ｐ指令错误",
	"＠Ｆ指令错误",
	"＠指令错误",
	"Ｃｏｏｋ指令错误",
	"ＭＭＬ错误",
	"＠Ｄ指令错误",
	"周波数超过错误",
	"演奏音轨指定错误",
	"反复拨放指令错误",
	"反复拨放数不合",
	"静音轨指定错误",
	"＠Ｗ指令错误",
	"节奏指令错误",
	"Ｑ指令错误",
	"＠Ｋ指令错误",
	"和音错误",
	"Ｏ指令错误",
	"＠Ｈ指令错误",
	"＠Ｍ指令错误",
	"＠Ｓ指令错误",
};
//c c+ d d+ e f f+ g g+ a a+ b
//0 1  2 3  4 5 6  7 8  9 10 11
static int note_change_tbl[]={9,11,0,2,4,5,7};
static int freq_tbl[]={
	(int)(44100.0 / 261.63 * 277.18 / 32.0),	//b (o-1) 0	?⺶??
	2756,										//c (o0) 1
	(int)(44100.0 / 261.63 * 277.18 / 16.0),	//c+
	(int)(44100.0 / 261.63 * 293.67 / 16.0),	//d	
	(int)(44100.0 / 261.63 * 311.13 / 16.0),	//d+
	(int)(44100.0 / 261.63 * 329.63 / 16.0),	//e
	(int)(44100.0 / 261.63 * 349.23 / 16.0),	//f
	(int)(44100.0 / 261.63 * 366.99 / 16.0),	//f+
	(int)(44100.0 / 261.63 * 392.00 / 16.0),	//g
	(int)(44100.0 / 261.63 * 415.31 / 16.0),	//g+
	(int)(44100.0 / 261.63 * 440.00 / 16.0),	//a
	(int)(44100.0 / 261.63 * 466.16 / 16.0),	//a+
	(int)(44100.0 / 261.63 * 493.88 / 16.0),	//b
	5512,									//c (o1) 13
	(int)(44100.0 / 261.63 * 277.18 / 8.0),	//c+
	(int)(44100.0 / 261.63 * 293.67 / 8.0),	//d
	(int)(44100.0 / 261.63 * 311.13 / 8.0),	//d+
	(int)(44100.0 / 261.63 * 329.63 / 8.0),	//e
	(int)(44100.0 / 261.63 * 349.23 / 8.0),	//f
	(int)(44100.0 / 261.63 * 366.99 / 8.0),	//f+
	(int)(44100.0 / 261.63 * 392.00 / 8.0),	//g
	(int)(44100.0 / 261.63 * 415.31 / 8.0),	//g+
	(int)(44100.0 / 261.63 * 440.00 / 8.0),	//a
	(int)(44100.0 / 261.63 * 466.16 / 8.0),	//a+
	(int)(44100.0 / 261.63 * 493.88 / 8.0),	//b
	11025,									//c (o2) 25
	(int)(44100.0 / 261.63 * 277.18 / 4.0),	//c+
	(int)(44100.0 / 261.63 * 293.67 / 4.0),	//d
	(int)(44100.0 / 261.63 * 311.13 / 4.0),	//d+
	(int)(44100.0 / 261.63 * 329.63 / 4.0),	//e
	(int)(44100.0 / 261.63 * 349.23 / 4.0),	//f
	(int)(44100.0 / 261.63 * 366.99 / 4.0),	//f+
	(int)(44100.0 / 261.63 * 392.00 / 4.0),	//g
	(int)(44100.0 / 261.63 * 415.31 / 4.0),	//g+
	(int)(44100.0 / 261.63 * 440.00 / 4.0),	//a
	(int)(44100.0 / 261.63 * 466.16 / 4.0),	//a+
	(int)(44100.0 / 261.63 * 493.88 / 4.0),	//b
	22050,									//c (o3) 37
	(int)(44100.0 / 261.63 * 277.18 / 2.0),	//c+
	(int)(44100.0 / 261.63 * 293.67 / 2.0),	//d
	(int)(44100.0 / 261.63 * 311.13 / 2.0),	//d+
	(int)(44100.0 / 261.63 * 329.63 / 2.0),	//e
	(int)(44100.0 / 261.63 * 349.23 / 2.0),	//f
	(int)(44100.0 / 261.63 * 366.99 / 2.0),	//f+
	(int)(44100.0 / 261.63 * 392.00 / 2.0),	//g
	(int)(44100.0 / 261.63 * 415.31 / 2.0),	//g+
	(int)(44100.0 / 261.63 * 440.00 / 2.0),	//a
	(int)(44100.0 / 261.63 * 466.16 / 2.0),	//a+
	(int)(44100.0 / 261.63 * 493.88 / 2.0),	//b
	44100,									//c (o4) 49
	(int)(44100.0 / 261.63 * 277.18),		//c+
	(int)(44100.0 / 261.63 * 293.67),		//d
	(int)(44100.0 / 261.63 * 311.13),		//d+
	(int)(44100.0 / 261.63 * 329.63),		//e
	(int)(44100.0 / 261.63 * 349.23),		//f
	(int)(44100.0 / 261.63 * 366.99),		//f+
	(int)(44100.0 / 261.63 * 392.00),		//g
	(int)(44100.0 / 261.63 * 415.31),		//g+
	(int)(44100.0 / 261.63 * 440.00),		//a
	(int)(44100.0 / 261.63 * 466.16),		//a+
	(int)(44100.0 / 261.63 * 493.88),		//b
	88200,									//b+ (o5) 61
	(int)(44100.0 / 261.63 * 277.18 * 2.0),	//c+
	(int)(44100.0 / 261.63 * 293.67 * 2.0),	//d		???⺶??63
	(int)(44100.0 / 261.63 * 311.13 * 2.0),	//d+
	(int)(44100.0 / 261.63 * 329.63 * 2.0),	//e
	(int)(44100.0 / 261.63 * 349.23 * 2.0),	//f
	(int)(44100.0 / 261.63 * 366.99 * 2.0),	//f+
	(int)(44100.0 / 261.63 * 392.00 * 2.0),	//g
	(int)(44100.0 / 261.63 * 415.31 * 2.0),	//g+
	(int)(44100.0 / 261.63 * 440.00 * 2.0),	//a
	(int)(44100.0 / 261.63 * 466.16 * 2.0),	//a+
	(int)(44100.0 / 261.63 * 493.88 * 2.0),	//b
};
static long volume_tbl[128];
static long panpot_tbl[128];
static int detune_tbl[12*5+5];

int get_num(FILE *fp);
/*-------------------------------------------
	?????????
--------------------------------------------*/
int f_get(FILE *fp)
{
	int d0;
	while(1){
		d0 = fgetc( fp );		//???????
		if( d0 == EOF )
			return d0;
		if( d0 == '\t' )		//???
			continue;
		if( d0 != 0x20 )		//?????
			break;
	}
	if(d0 >= 'A' && d0 <= 'Z')		//????
		d0+=0x20;					//
	return d0;
}

/*-------------------------------------------
	??????
--------------------------------------------*/
int get_num(FILE *fp)
{
	int d0,d1;
	while(1){
		d0 = f_get( fp );		//???????
		if( d0 == EOF )
			return d0;
		if( d0 >= '0' && d0<= '9' )		//???
			break;						//??????
	}
	d1=d0-'0';		//?????

	while(1){
		d0 = fgetc( fp );		//???????
		if( d0 == EOF )
			break;
		if( d0 < '0' || d0> '9' )		//???
			break;						//?????????
		d1*=10;		//???????
		d1+=d0-'0';	//
	}
	fseek(fp,-1,SEEK_CUR);		//??????
	return d1;
}
/*-------------------------------------------
	???????????????
--------------------------------------------*/
int get_num2(FILE *fp)
{
	int d0,d1,d2=1;
	d0 = f_get( fp );		//??????
	if(d0=='-')		//??????
		d2=-1;
	else
		fseek(fp,-1,SEEK_CUR);		//??????

	while(1){
		d0 = fgetc( fp );		//???????
		if( d0 == EOF )
			return d0;
		if( d0 >= '0' && d0<= '9' )		//???
			break;						//??????
	}
	d1=d0-'0';		//?????

	while(1){
		d0 = fgetc( fp );		//???????
		if( d0 == EOF )
			break;
		if( d0 < '0' || d0> '9' )		//???
			break;						//?????????
		d1*=10;		//???????
		d1+=d0-'0';	//
	}
	fseek(fp,-1,SEEK_CUR);		//??????
	return d1*d2;
}
/*-------------------------------------------
	?????????????????
--------------------------------------------*/
int num_check2(FILE *fp)
{
	int d0;
	d0 = f_get( fp );		//??????
	if(d0=='-'){			//??????
		d0 = fgetc( fp );		//?????????
		fseek(fp,-2,SEEK_CUR);		//??????
		if( d0 >= '0' && d0<= '9' )		//???
			return 1;		//??
		else
			return 0;		//???
	} else {
		fseek(fp,-1,SEEK_CUR);		//??????
		if( d0 >= '0' && d0<= '9' )		//???
			return 1;		//??
		else
			return 0;		//???
	}
}

/*-------------------------------------------
	????????
--------------------------------------------*/
int num_check(FILE *fp)
{
	int d0;
	d0 = f_get( fp );		//??????
	fseek(fp,-1,SEEK_CUR);		//??????
	if( d0 >= '0' && d0<= '9' )		//???
		return 1;		//??
	else
		return 0;		//???
}
/*-------------------------------------------
	????????????
--------------------------------------------*/
int get_step(FILE *fp,int ch)
{
	int d0,futen,total;
	total = 0;
	futen = 0;
	while(1){
		d0 = f_get( fp );		//?????
		if( d0 >= '0' && d0<= '9' ){		//????
			fseek(fp,-1,SEEK_CUR);		//??????
			d0 = get_num( fp );
			if(d0 > 192)
				return -1;
			futen = 192 / d0;
			total += futen;
		} else if(d0 == '.'){		//??
			if(!total){		//????????
				total = step_def[ch];		//?????
				futen = step_def[ch];		//
			}
			futen /= 2;
			total += futen;
		} else if(d0 == '^'){		//??????
			d0 = f_get( fp );		//?????
			fseek(fp,-1,SEEK_CUR);		//??????
			if(d0 == '*'){		//???
				continue;
			}
			if(!num_check( fp )){		//???????
				return -1;		//???
			}
			d0 = get_num( fp );
			if(d0 > 192)
				return -1;
			if(!total){		//????????
				total = step_def[ch];		//?????
			}
			futen = 192 / d0;
			total += futen;
		} else if(d0 == '*'){		//???
			if(!num_check( fp )){		//???????
				return -1;		//???
			}
			futen = get_num( fp );
			total += futen;
		} else {
			fseek(fp,-1,SEEK_CUR);		//??????
			if(total)		//????????
				break;
			futen = step_def[ch];
			total = futen;
		}
	}
	return total;
}
/*-------------------------------------------
	??????????
--------------------------------------------*/
int music_read( void )
{
	int d0,d1,d7,ch,ch_p[TRACK_MAX],do_p[TRACK_MAX],ch_oct[TRACK_MAX],err_flg=-1,err_line=0;
	int ch_ret[8][TRACK_MAX],ch_skip[8][TRACK_MAX],ch_kuri_lv[TRACK_MAX],waon_delay[TRACK_MAX];
	int o_tempo,q_com[TRACK_MAX];
	long d6;
	char moji[256];
	FILE *fp;
	fp = fopen( "oft.mml", "r" );
	if( fp == NULL ){
		sprintf( moji ,"%s" ,err_msg[0] );
#ifdef _STONDEBUG_
		MessageBoxNew(hWnd, moji, "Error", MB_OK);
#endif
		return err_flg;
	}

	for(d7=0;d7<TRACK_MAX;d7++){
		ch_p[d7] = 0;
		do_p[d7] = 0;
		ch_oct[d7] = 4;
		step_def[d7] = 48;
		play_track_flg[ d7 ] = 0;
		ch_kuri_lv[d7] = -1;
		for(d6=0;d6<8;d6++)
			ch_skip[d6][d7] = -1;
		q_com[d7] = 8;
		waon_delay[d7] = 0;
	}
	o_tempo=0;

	//??????????  ??  ??????????

	while(1){

		//??????????  ?????  ??????????

		err_line++;

		if((d0 = f_get( fp )) == EOF)		//???????
			break;		//??????
		if( d0 == '\n' )		//???
			continue;			//???????
		if( d0 == '/' ){		//?????
			while(1){			//????????
				d0 = f_get( fp );
				if(d0 == '\n' || d0 == EOF )
					break;
			}
			continue;			//???????
		}
		if( d0 != '(' ){		//??????
			err_flg=M_TRACK_ERR;
			goto music_read_999;
		}
		if((d0 = f_get( fp )) == EOF)		//???????
			break;		//??????
		if( d0 == 'p' ){		//??????
			if((d0 = f_get( fp )) == EOF){		//??????
				err_flg=M_PLAY_ERR;
				goto music_read_999;

			}
			if( d0 == ')'){		//??
				err_line--;		//????????????
				continue;
			}

			fseek(fp,-1,SEEK_CUR);		//??????
			for(d7=0;d7<TRACK_MAX;d7++)		//????????
				play_track_flg[ d7 ] = 0;	//

			while(1){
				if((d0 = fgetc( fp )) == EOF){		//??
					err_flg=M_PLAY_ERR;
					goto music_read_999;
				}
				if( d0 == ')')			//??
					break;

				if( d0 >= '0' && d0<= '9' ){		//???
					fseek(fp,-1,SEEK_CUR);		//??????
					d0 = get_num( fp );
					if(d0 < 1 || d0 > TRACK_MAX){
						err_flg=M_PLAY_ERR;
						goto music_read_999;
					}
					play_track_flg[ d0-1 ] = 1;	//????????
				}
			}
			err_line--;		//????????????
			continue;
		}

		if( d0 == 's' ){		//?????????
			while(1){
				if((d0 = fgetc( fp )) == EOF){		//??
					err_flg=M_MUTE_ERR;
					goto music_read_999;
				}
				if( d0 == ')')			//??
					break;

				if( d0 >= '0' && d0<= '9' ){		//???
					fseek(fp,-1,SEEK_CUR);		//??????
					d0 = get_num( fp );
					if(d0 < 1 || d0 > TRACK_MAX){
						err_flg=M_MUTE_ERR;
						goto music_read_999;
					}
					play_track_flg[ d0-1 ] = 0;	//???????????
				}
			}
			err_line--;		//????????????
			continue;
		}

		if( d0 == 'o' ){		//????
			if(!num_check( fp )){		//???????
				err_flg=M_TOCOMMAND_ERR;
				goto music_read_999;
			}
			o_tempo = get_num( fp );		//?????
			if((d0 = fgetc( fp )) == EOF){		//??
				err_flg=M_TOCOMMAND_ERR;
				goto music_read_999;
			}
			if(d0 != ')'){
				err_flg=M_TOCOMMAND_ERR;
				goto music_read_999;
			}
			err_line--;		//????????????
			continue;
		}

		if( d0 != 't' ){		//?????
			err_flg=M_TRACK_ERR;
			goto music_read_999;
		}
		if((d0 = f_get( fp )) == EOF)		//???????
			break;		//??????
		if( d0 < '0' || d0> '9' ){		//?????
			err_flg=M_TRACK_ERR;
			goto music_read_999;
		}
		fseek(fp,-1,SEEK_CUR);		//??????
		ch = get_num( fp );
		if((d0 = f_get( fp )) == EOF)		//???????
			break;		//??????
		if( d0 != ')' ){		//?????
			err_flg=M_TRACK_ERR;
			goto music_read_999;
		}

		if(ch < 1 || ch > TRACK_MAX){
			err_flg=M_TRACK_ERR;
			goto music_read_999;
		}

		ch--;		//?????
		play_track_flg[ ch ] = 1;	//

		if(o_tempo!=0 && ch_p[ch]==0){		//????????
			step[ch][ch_p[ch]++] = MUSIC_TEMPO;		//???????????
#if MODE98
			step[ch][ch_p[ch]++] = (int)((float)120 / (float)o_tempo * (float)12600)*2;
#else
			step[ch][ch_p[ch]++] = (int)((float)120 / (float)o_tempo * (float)12600);
#endif
		}

		//??????????  ???????  ??????????

music_read_100:
		if((d0 = f_get( fp )) == EOF)		//??????
			break;		//??????
		switch(d0){
		case '\n':		//??
			break;
		case '/':		//?????
			while(1){			//????????
				d0 = f_get( fp );
				if(d0 == '\n' || d0 == EOF )
					break;
			}
			break;
		case '\'':		//????
			int waon_step,waon_note[8+1],waon_cnt,octave,waon_delay_point;
			waon_step = waon_cnt = 0;
			octave = ch_oct[ch];

			while(1){
				d0 = f_get( fp );		//?????
				if( d0 >= '0' && d0<= '9' ){		//????????
					err_flg=M_WAON_ERR;				//???
					goto music_read_999;
				}
				if(d0 =='<'){		//???????
					octave++;
					continue;
				}
				if(d0 =='>'){		//????????
					octave--;
					if(octave < 0){		//????????
						err_flg=M_NOTE_ERR;		//???
						goto music_read_999;	//
					}
					continue;
				}
				if(d0 =='\''){		//?????
					break;
				}
				switch(d0){
				case 'c':		//??
				case 'd':		//??
				case 'e':		//??
				case 'f':		//??
				case 'g':		//??
				case 'a':		//??
				case 'b':		//??
					d0-='a';
					d1 = note_change_tbl[d0];
					d0 = f_get( fp );		//?????
					if(d0 == '+')
						d1++;
					else if(d0 == '-')
						d1--;
					else fseek(fp,-1,SEEK_CUR);		//??????

					d0 = octave * 12 + d1 +1;	//??????????
					if(d0 < 1 || d0 > 62){		//
						err_flg=M_NOTE_ERR;		//???
						goto music_read_999;	//
					}
					waon_note[ waon_cnt++ ] = d0;	//???????

					d0 = f_get( fp );		//?????
					fseek(fp,-1,SEEK_CUR);		//??????
					if( d0 < '0' || d0> '9' ){		//???????
						if( d0 != '*' ){		//???????????
							break;
						}
					}
					waon_step = get_step( fp, ch );		//?????????
					if(waon_step == -1){		//?????
						err_flg=M_WAON_ERR;				//???
						goto music_read_999;
					}
					break;
				default:
					err_flg=M_WAON_ERR;				//???
					goto music_read_999;
				}
			}
			if(waon_cnt > 8 || waon_cnt == 0){		//????????
				err_flg=M_WAON_ERR;				//???
				goto music_read_999;
			}

			if(num_check( fp )){		//????
				waon_step = get_num( fp );		//??????????
			}
			step[ch][ch_p[ch]++] = MUSIC_WAON;		//?????
			step[ch][ch_p[ch]++] = waon_cnt;		//??????
			waon_delay_point = ch_p[ch];		//??????????
			ch_p[ch]++;		//????

			for(d7=0;d7<waon_cnt;d7++){
				step[ch][ch_p[ch]++] = waon_note[d7];		//???????
			}
			if(waon_step){		//?????????????
				d0 = waon_step;		//??????????
			} else {
				d0 = step_def[ch];	//??????????
			}
			step[ch][ch_p[ch]++] = d0;		//??????????
			d1 = f_get( fp );		//????
			if(d1 == '&'){
				step[ch][ch_p[ch]++] = -1;	//?????????
			} else {
				fseek(fp,-1,SEEK_CUR);		//??????
				step[ch][ch_p[ch]++] = d0 * q_com[ch] / 8;	//?????????
			}

			d0 = f_get( fp );		//????????
			if(d0 == ','){
				if(num_check( fp )){		//????
					waon_delay[ch] = get_num( fp );		//???????
				} else {		//???????
					err_flg=M_WAON_ERR;				//???
					goto music_read_999;
				}
			} else {		//????????
				fseek(fp,-1,SEEK_CUR);		//??????
			}
			step[ch][waon_delay_point] = waon_delay[ch];		//???????
			goto music_read_100;
		case 'l':		//??
			d0 = f_get( fp );		//????
			if( d0 >= '0' && d0<= '9' ){		//???
				fseek(fp,-1,SEEK_CUR);		//??????
				d0 = 192 / get_num( fp );
				if(d0 > 192 || d0 == 0){
					err_flg=M_LCOMMAND_ERR;
					goto music_read_999;
				}
				step_def[ ch ] = d0;
				goto music_read_100;
			}
			if( d0 != '*' ){		//??
				err_flg=M_LCOMMAND_ERR;
				goto music_read_999;
			}
			d0 = f_get( fp );		//????
			if( d0 >= '0' && d0<= '9' ){		//???
				fseek(fp,-1,SEEK_CUR);		//??????
				step_def[ ch ] = get_num( fp );
				goto music_read_100;
			}
			err_flg=M_LCOMMAND_ERR;
			goto music_read_999;
		case 'r':		//??
			step[ch][ch_p[ch]++]=MUSIC_R;
			d0 = get_step( fp, ch );		//?????????
			if(d0 == -1){		//????
				err_flg=M_STEP_ERR;		//??????
				goto music_read_999;
			}
			step[ch][ch_p[ch]++] = d0;		//??????????
			d1 = f_get( fp );		//????
			if(d1 == '&'){
				step[ch][ch_p[ch]++] = -1;	//?????????
			} else {
				fseek(fp,-1,SEEK_CUR);		//??????
				step[ch][ch_p[ch]++] = d0 * q_com[ch] / 8;	//?????????
			}
			goto music_read_100;
		case 'o':		//??????
			if(!num_check( fp )){		//???????
				err_flg=M_OCOMMAND_ERR;		//???
				goto music_read_999;
			}
			ch_oct[ch] = get_num( fp );
			if(ch_oct[ch]<0 || ch_oct[ch]>5){		//????
				err_flg=M_OCOMMAND_ERR;		//???
				goto music_read_999;
			}
			goto music_read_100;
		case '<':		//??????
			ch_oct[ch]++;
			goto music_read_100;
		case '>':		//???????
			ch_oct[ch]--;
			if(ch_oct[ch] < 0){		//????????
				err_flg=M_NOTE_ERR;		//???
				goto music_read_999;	//
			}
			goto music_read_100;
		case 'q':		//???????
				if(!num_check( fp )){		//???????
						err_flg=M_QCOMMAND_ERR;
						goto music_read_999;
				}
				q_com[ch] = get_num( fp );		//?????????
				if(q_com[ch] > 8 || q_com[ch] == 0){		//????
					err_flg=M_QCOMMAND_ERR;
					goto music_read_999;
				}
			goto music_read_100;
		case 'c':		//??
		case 'd':		//??
		case 'e':		//??
		case 'f':		//??
		case 'g':		//??
		case 'a':		//??
		case 'b':		//??
//			if(ch >= 6){
				d0-='a';
				d1 = note_change_tbl[d0];
				d0 = f_get( fp );		//?????
				if(d0 == '+')
					d1++;
				else if(d0 == '-')
					d1--;
				else fseek(fp,-1,SEEK_CUR);		//??????

				if(ch_oct[ch] >= 5){			//?????????
					if(d1 >= 2){			//
						err_flg=M_NOTE_ERR;	//??
						goto music_read_999;	//
					}
				}
#if 0
				step[ch][ch_p[ch]++] = MUSIC_FREQ;
				d1 = freq_tbl[d1+1];
				if(ch_oct[ch] > 0){
					d0 = ch_oct[ch];
					d0 = 1 << d0;
					d1 *= d0;
				} else if(ch_oct[ch] < 0){
					d0 = -ch_oct[ch];
					d0 = 1 << d0;
					d1 /= d0;
				}
#endif
				d0 = ch_oct[ch] * 12 + d1 + 1;	//??????????
				if(d0 < 1 || d0 > 62){			//
					err_flg=M_NOTE_ERR;			//???
					goto music_read_999;		//
				}
				step[ch][ch_p[ch]++] = d0;	//???????
//			}
			d0 = get_step( fp, ch );		//?????????
			if(d0 == -1){		//????
				err_flg=M_STEP_ERR;		//??????
				goto music_read_999;
			}
			step[ch][ch_p[ch]++] = d0;		//??????????
			d1 = f_get( fp );		//????
			if(d1 == '&'){
				step[ch][ch_p[ch]++] = -1;	//?????????
			} else {
				fseek(fp,-1,SEEK_CUR);		//??????
				step[ch][ch_p[ch]++] = d0 * q_com[ch] / 8;	//?????????
			}
			goto music_read_100;
		case 't':		//???
			d0 = f_get( fp );		//?????
			if( d0 < '0' || d0> '9' ){		//???
				err_flg=M_TCOMMAND_ERR;
				goto music_read_999;
			}
			fseek(fp,-1,SEEK_CUR);		//??????
			d0 = get_num( fp );
			step[ch][ch_p[ch]++] = MUSIC_TEMPO;
#if MODE98
			step[ch][ch_p[ch]++] = (int)((float)120 / (float)d0 * (float)12600)*2;
#else
			step[ch][ch_p[ch]++] = (int)((float)120 / (float)d0 * (float)12600);
#endif
			goto music_read_100;
		case 'v':		//?????
			d0 = f_get( fp );		//????
			if( d0 < '0' || d0> '9' ){		//???
				err_flg=M_VCOMMAND_ERR;
				goto music_read_999;
			}
			fseek(fp,-1,SEEK_CUR);		//??????
			d0 = get_num( fp );
			if(d0>15){		//???????
				err_flg=M_VCOMMAND_ERR;
				goto music_read_999;
			}
			step[ch][ch_p[ch]++]=MUSIC_VOL;
			if( d0 ){
					d0 = 15 - d0;
//					d0 *= d0;
//					d0 = (int)((float)d0 * 39.0625);
//					step[ch][ch_p[ch]++] = -d0;
					d6 = d0;
					d6 = d6*d6*d6;
					d6 = (long)(10000.0 / ( 16.0 * 16.0 * 16.0 ) * d6 );
					step[ch][ch_p[ch]++] = -d6;
			} else {
				step[ch][ch_p[ch]++] = -10000;
			}
			goto music_read_100;
		case '@':		//?????
			d0 = f_get( fp );		//??????

			if( d0 >= '0' && d0<= '9' ){		//???
				fseek(fp,-1,SEEK_CUR);		//??????
				step[ch][ch_p[ch]++] = MUSIC_NEIRO_NO;		//?????
				step[ch][ch_p[ch]++] = get_num( fp ) - 1;
				goto music_read_100;
			}

			switch(d0){
			case 'v':		//?????
				d0 = f_get( fp );		//????
				if( d0 < '0' || d0> '9' ){		//???
					err_flg=M_V2COMMAND_ERR;
					goto music_read_999;
				}
				fseek(fp,-1,SEEK_CUR);		//??????
				d0 = get_num( fp );
				if(d0>127){		//???????
					err_flg=M_V2COMMAND_ERR;
					goto music_read_999;
				}
				step[ch][ch_p[ch]++]=MUSIC_VOL;
#if 0
				if( d0 ){
					d0 = 127 - d0;
//					d0 *= d0;
//					d0 = (int)((float)d0 * 0.61);
//					step[ch][ch_p[ch]++] = -d0;
					d6 = d0;
					d6 = d6*d6*d6;
					d6 = (long)(10000.0 / ( 128.0 * 128.0 * 128.0 ) * d6 );
					step[ch][ch_p[ch]++] = -d6;
				} else {
					step[ch][ch_p[ch]++] = -10000;
				}
#else
//				d6=(long)(LOG(100,127)*10000) - (long)(LOG(100,(double)(d0))*10000);
//				step[ch][ch_p[ch]++] = -d6;

				step[ch][ch_p[ch]++] = d0;

#endif
				goto music_read_100;
			case 'h':		//??
				if(!num_check( fp )){		//???????
					err_flg=M_H2COMMAND_ERR;
					goto music_read_999;
				}
				d0 = get_num( fp );
				step[ch][ch_p[ch]++] = MUSIC_LFO_H;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			case 'm':		//??
				if(!num_check( fp )){		//???????
					err_flg=M_M2COMMAND_ERR;
					goto music_read_999;
				}
				d0 = get_num( fp );
				if(d0 > 127){		//????
					err_flg=M_M2COMMAND_ERR;
					goto music_read_999;
				}
				step[ch][ch_p[ch]++] = MUSIC_LFO_M;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			case 's':		//??
				if(!num_check2( fp )){		//???????
					err_flg=M_S2COMMAND_ERR;
					goto music_read_999;
				}
				d0 = get_num2( fp );
				step[ch][ch_p[ch]++] = MUSIC_LFO_S;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			case 'p':		//?????
				d0 = f_get( fp );		//????
				if( d0 < '0' || d0 > '9' ){		//???
					err_flg=M_P2COMMAND_ERR;
					goto music_read_999;
				}
				fseek(fp,-1,SEEK_CUR);		//??????
				d0 = get_num( fp );
				if( d0 > 127 ){		//??????
					err_flg=M_P2COMMAND_ERR;
					goto music_read_999;
				}
				step[ch][ch_p[ch]++]=MUSIC_PAN;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			case 'f':		//?
				if(!num_check2( fp )){		//???????
					err_flg=M_F2COMMAND_ERR;
					goto music_read_999;
				}
				d0 = get_num2( fp );
				step[ch][ch_p[ch]++] = MUSIC_FREQ;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			case 'k':		//????
				if(!num_check2( fp )){		//???????
					err_flg=M_K2COMMAND_ERR;
					goto music_read_999;
				}
				d0 = get_num2( fp );
				if(d0 > 64 || d0 < -64){		//????
					err_flg=M_K2COMMAND_ERR;
					goto music_read_999;
				}
				step[ch][ch_p[ch]++] = MUSIC_DETUNE;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			case 'd':		//???????
				d0 = f_get( fp );		//???????
				if( d0 < '0' || d0> '9' ){		//???
					err_flg=M_D2COMMAND_ERR;
					goto music_read_999;
				}
				fseek(fp,-1,SEEK_CUR);		//??????
				d0 = get_num( fp );
				step[ch][ch_p[ch]++] = MUSIC_PEDAL;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			case 'w':		//???????
				d0 = f_get( fp );		//???????
				if( d0 < '0' || d0> '9' ){		//???
					err_flg=M_W2COMMAND_ERR;
					goto music_read_999;
				}
				fseek(fp,-1,SEEK_CUR);		//??????
				d0 = get_num( fp );
				step[ch][ch_p[ch]++] = MUSIC_WAVE;
				step[ch][ch_p[ch]++] = d0;
				goto music_read_100;
			default:
				err_flg=M_2COMMAND_ERR;
				goto music_read_999;
			}
		case '[':		//???????
			d0 = f_get( fp );		//??????
			switch(d0){
			case 'l':
				d0 = f_get( fp );		//??????
				if(d0 != 'o'){
					err_flg=M_KAKKO_ERR;
					goto music_read_999;
				}
				d0 = f_get( fp );		//??????
				if(d0 != 'o'){
					err_flg=M_KAKKO_ERR;
					goto music_read_999;
				}
				d0 = f_get( fp );		//??????
				if(d0 != 'p'){
					err_flg=M_KAKKO_ERR;
					goto music_read_999;
				}
				d0 = f_get( fp );		//??????
				if(d0 != ']'){
					err_flg=M_KAKKO_ERR;
					goto music_read_999;
				}
				step[ch][ch_p[ch]++]=MUSIC_LOOP;
				step[ch][ch_p[ch]++]=do_p[ch];
				goto music_read_100;
			case 'd':		//????
				d0 = f_get( fp );		//??????
				if(d0 != 'o'){
					err_flg=M_KAKKO_ERR;
					goto music_read_999;
				}
				d0 = f_get( fp );		//??????
				if(d0 != ']'){
					err_flg=M_KAKKO_ERR;
					goto music_read_999;
				}
				do_p[ch]=ch_p[ch];		//?????
				goto music_read_100;
			default:
					err_flg=M_KAKKO_ERR;
				goto music_read_999;
			}
		case '|':		//???????
			d0 = f_get( fp );		//??????
			if(d0 == ':'){		//?????
				ch_kuri_lv[ch]++;		//???????
				if(ch_kuri_lv[ch] == 8){		//???????
					err_flg=M_KURI_ERR;
					goto music_read_999;
				}
				step[ch][ch_p[ch]++] = MUSIC_KURI_START;
				if(num_check( fp )){		//???
					step[ch][ch_p[ch]++] = get_num( fp );
				} else {
					step[ch][ch_p[ch]++] = 2;
				}
				ch_ret[ch_kuri_lv[ch]][ ch ] = ch_p[ch];
			} else {
				fseek(fp,-1,SEEK_CUR);		//??????
				step[ch][ch_p[ch]++]=MUSIC_KURI_SKIP;
				ch_skip[ch_kuri_lv[ch]][ ch ] = ch_p[ch];
				ch_p[ch]++;
			}
			goto music_read_100;

		case ':':		//????????
			d0 = f_get( fp );		//??????
			if(d0 != '|'){		//?????
				err_flg=M_KURI_ERR;
				goto music_read_999;
			}
			step[ch][ch_p[ch]++] = MUSIC_KURI_RET;
			step[ch][ch_p[ch]++] = ch_ret[ch_kuri_lv[ch]][ ch ];		//??
			if(ch_skip[ch_kuri_lv[ch]][ ch ] >= 0){
				step[ch][ch_skip[ch_kuri_lv[ch]][ ch ]] = ch_p[ch];	//?
				ch_skip[ch_kuri_lv[ch]][ ch ] = -1;
			}
			ch_kuri_lv[ch]--;		//???????
			goto music_read_100;

		default:		//??????
			err_flg=M_MML_ERR;
			goto music_read_999;
		}
	}
	for(d7=0;d7<TRACK_MAX;d7++){
		step[d7][ch_p[d7]]=MUSIC_END;
	}
	err_flg=0;

music_read_999:
	fclose( fp );
	if(err_flg){
		sprintf_s( moji ,"第 %d 行 %s" ,err_line ,err_msg[err_flg] );
#ifdef _STONDEBUG_
		MessageBoxNew(hWnd, moji, "Error", MB_OK);
#endif
	} else {
		for(d7=0;d7<TRACK_MAX;d7++){
			if(ch_kuri_lv[d7]!=-1){
				err_flg=M_KURISU_ERR;
				sprintf_s( moji ,"第 %d 音轨 %s" ,d7+1 ,err_msg[err_flg] );
#ifdef _STONDEBUG_
				MessageBoxNew(hWnd, moji, "Error", MB_OK);
#endif
				break;
			}
		}
	}
	return err_flg;
}
/*-------------------------------------------
	??????????
--------------------------------------------*/
void music_init( void )
{
	int d7,d5;
	for(d7=0;d7<VOICE_MAX;d7++){
		voice[ d7 ].name = 0;
		voice[ d7 ].tone_no = -1;		//????????????
		voice[ d7 ].loop_flg = 0;
	}
	for(d7=0;d7<TRACK_MAX;d7++){
		step_time[ d7 ] = 0;
		gate_time[ d7 ] = 0;
		step_point[ d7 ] = 0;
		play_flg[ d7 ] = 1;
		play_kuri_lv[ d7 ] = -1;
		dataToneNo[ d7 ] = 0;		//?????????????
		dataVolume[ d7 ] = 0;
		dataPan[ d7 ] = 0;
		dataFrequency[ d7 ] = 0;
		tie_flg[ d7 ] = 0;
		for(d5=0;d5<8;d5++)
			play_use_task[ d7 ][ d5 ] = -1;		//????????
		play_use_task_cnt[ d7 ] = 0;
		play_detune[ d7 ] = 0;
		play_lfo_h[ d7 ] = 0;
		play_lfo_m[ d7 ] = 0;
		play_lfo_s[ d7 ] = 0;
	}
	//??????
	for(d7=0;d7<MAX_ENV;d7++){
		env_tbl[d7].voice_address = -1;
		env_tbl[d7].count = 0;
	}
#define PAN_POINT	5000
	//???????
	int y;
	double d6;		//?
	for(d7=64,d6=127;d6>=0;d6--){
		if(!((int)d6&1))
			continue;
		y=(int)(LOG(100,127)*PAN_POINT) - (int)(LOG(100,d6)*PAN_POINT);
		if(y>PAN_POINT)
			y=10000;
		panpot_tbl[d7++]=y;
	}
	for(d7=64,d6=127;d6>=0;d6--){
		if(!((int)d6&1))
			continue;
		y=(int)(LOG(100,127)*PAN_POINT) - (int)(LOG(100,d6)*PAN_POINT);
		if(y>PAN_POINT)
			y=10000;
		panpot_tbl[d7--]=-y;
	}
	d6=panpot_tbl[0]=-10000;
	d6=panpot_tbl[127]=10000;
	//??????????
	for(d6=127;d6>=0;d6--){
		y=(int)(LOG(100,127)*10000) - (int)(LOG(100,d6)*10000);
		if(y>10000)
			y=10000;
		volume_tbl[(int)d6]=-y;
	}
	//??????????
	for(d7=0;d7<12*5+5;d7++)
		detune_tbl[d7]=freq_tbl[d7+1]-freq_tbl[d7];

//	play_bgm( 2);

}

/*-------------------------------------------
	????
--------------------------------------------*/
void play_stop( void )
{
	int d7;
	for(d7=0;d7<VOICE_MAX;d7++){
		pDSData[d7]->Stop();
		pDSData[d7]->SetCurrentPosition(0);
//		play_flg[ d7 ] = 0;
	}
	pause_flg=1;
}
void stop_voice(int ch);
/*-------------------------------------------
	????
--------------------------------------------*/
void play_start( void )
{
	int d7;
	for(d7=0;d7<VOICE_MAX;d7++){
		pDSData[d7]->Stop();
		pDSData[d7]->SetCurrentPosition(0);
	}
	music_init();		//????????		
}

//??????????  ?????  ??????????
void voice_lfo( int a0 )
{
	long d0;
	if(!voice[ a0 ].lfo_m){		//???䥺???
		return;
	}
	if(!voice[ a0 ].lfo_s){		//???䥺???
		return;
	}
	if(voice[ a0 ].lfo_h){			//?????????
		voice[ a0 ].lfo_h--;
		return;
	}

	voice[ a0 ].lfo_s_cnt += voice[ a0 ].lfo_s_ang;		//???????

//	if(voice[ a0 ].lfo_s_ang >= 0){		//???????
	if(voice[ a0 ].lfo_s_cnt >= 0){		//???????
		d0 = detune_tbl[ voice[ a0 ].note_no ] * voice[ a0 ].lfo_m / 128 * voice[ a0 ].lfo_s_cnt / abs(voice[ a0 ].lfo_s);
	} else {
		d0 = detune_tbl[ voice[ a0 ].note_no-1 ] * voice[ a0 ].lfo_m / 128 * voice[ a0 ].lfo_s_cnt / abs(voice[ a0 ].lfo_s);
	}
	pDSData[ a0 ]->SetFrequency((DWORD)(voice[ a0 ].freq + d0));			// ????

	if(abs(voice[ a0 ].lfo_s_cnt) == abs(voice[ a0 ].lfo_s)){		//????
		voice[ a0 ].lfo_s_ang *= -1;
	}
}

//??????????  ??????  ??????????
#define VOICE_KEY_ON		1
#define VOICE_NORMAL		2
#define VOICE_TIE_SET		10
#define VOICE_KEY_OFF		100
#define VOICE_KEY_OFF_FAST	110
#define VOICE_KEY_OFF_WAIT	200

void voice_action( int a0 )
{
	DWORD	Status = 0;

	switch(voice[ a0 ].name){
	case VOICE_KEY_ON:		//????
		if(voice[ a0 ].delay_cnt){		//?????????
			voice[ a0 ].delay_cnt--;
			return;
		}
		pDSData[ a0 ]->SetVolume(volume_tbl[ voice[ a0 ].volume ]);		// ????????
		pDSData[ a0 ]->SetFrequency((DWORD)voice[ a0 ].freq);			// ????
		pDSData[ a0 ]->SetPan(panpot_tbl[ voice[ a0 ].pan ]);			// ????????
		pDSData[ a0 ]->Play(0, 0, voice[ a0 ].loop_flg);				//????
		voice[ a0 ].name = VOICE_NORMAL;
		voice_lfo( a0 );		//??????
		break;
	case VOICE_NORMAL:		//?????
		voice_lfo( a0 );		//??????
		break;
	case VOICE_TIE_SET:		//???????
		pDSData[ a0 ]->SetVolume(volume_tbl[ voice[ a0 ].volume ]);		// ????????
		pDSData[ a0 ]->SetFrequency((DWORD)voice[ a0 ].freq);		// ????
		pDSData[ a0 ]->SetPan(panpot_tbl[ voice[ a0 ].pan ]);			// ????????
		voice[ a0 ].name = VOICE_NORMAL;
		break;
	case VOICE_KEY_OFF:		//????
//		if( pDSData[ a0 ]->GetStatus( &Status ) == DS_OK ){
///		pDSData[ a0 ]->GetStatus( &Status );		//??????????
///		if( Status & DSBSTATUS_PLAYING || Status & DSBSTATUS_LOOPING ){		//????
			if(voice[ a0 ].volume){		//??????????
				voice[ a0 ].release_cnt++;		//??????????
				if(voice[ a0 ].release_spd != voice[ a0 ].release_cnt){
					voice_lfo( a0 );		//??????
					break;		//?????????
				}
				voice[ a0 ].release_cnt = 0;		//???????
				voice[ a0 ].volume--;		//????????
//				if(voice[ a0 ].volume < 0){		//??????????
//					voice[ a0 ].volume=0;		//?????????
//				}
				pDSData[ a0 ]->SetVolume(volume_tbl[ voice[ a0 ].volume ]);		// ??????
				voice_lfo( a0 );		//??????
				break;		//??????
			}
///		}
		pDSData[ a0 ]->Stop();							//????
		pDSData[ a0 ]->SetCurrentPosition(0);			//
		voice[ a0 ].name = VOICE_KEY_OFF_WAIT;			//??????
//		play_use_task[ voice[ a0 ].track_no	] = -1;		//
		break;
#if !VOICE_KILL_ON
	case VOICE_KEY_OFF_FAST:		//?????
		pDSData[ a0 ]->Stop();					//????
		pDSData[ a0 ]->SetCurrentPosition(0);			//
		voice[ a0 ].name = 0;					//
		break;
#endif
	}
}
//??????????  ???????????  ??????????
void set_voice_param( int task_no, long note, int delay, int lfo_flg)
{
	voice[ task_no ].volume = dataVolume[ch];			// ????????
//	voice[ task_no ].freq = freq + dataFrequency[ch];	// ????
	// ????
	if(play_detune[ch]>0){		//???????????
		voice[ task_no ].freq = freq_tbl[ note ] + detune_tbl[ note ]*play_detune[ch]/64 + dataFrequency[ch];
	} else if(play_detune[ch]<0){		//????????????
		voice[ task_no ].freq = freq_tbl[ note ] + detune_tbl[ note-1 ]*play_detune[ch]/64 + dataFrequency[ch];
	} else {					//??????????
		voice[ task_no ].freq = freq_tbl[ note ] + dataFrequency[ch];
	}
	voice[ task_no ].note_no = note;				// ???????
	voice[ task_no ].pan = dataPan[ch];				// ????????
	voice[ task_no ].release_spd = wave[ch];		// ?????????
	voice[ task_no ].release_cnt = 0;				//
	if(voice[ task_no ].tone_no == 12-1){				//??????
		voice[ task_no ].loop_flg = DSBPLAY_LOOPING;	//
	} else {
		voice[ task_no ].loop_flg = 0;					//
	}
	if(delay >= 0){								//?????????????
		voice[ task_no ].delay_cnt = delay;		//
	}
	if(lfo_flg){		//??????????
		voice[ task_no ].lfo_h = play_lfo_h[ ch ];					//??????
		voice[ task_no ].lfo_m = play_lfo_m[ ch ];					//
		if((voice[ task_no ].lfo_s = play_lfo_s[ ch ]) >= 0){		//
			voice[ task_no ].lfo_s_ang = 1;							//
		} else {
			voice[ task_no ].lfo_s_ang = -1;						//
		}
		voice[ task_no ].lfo_s_cnt = 0;								//
	}
}

//??????????  ???????  ??????????
static int voice_seek_point=0;
int	set_tone( int tone, long note, int use_task_cnt, int delay)
{
	int d7,d1=0;

	for(d7=0;d7<VOICE_MAX;d7++){		//????????
//		if( voice[ d7 ].name == 0){		//???
		if( voice[ voice_seek_point ].name == 0){		//???
			d1=1;										//??????
			break;
		}
		voice_seek_point++;
		voice_seek_point&=VOICE_MAX-1;
	}
	if(!d1){		//????????
#ifdef _STONDEBUG_
		MessageBoxNew(hWnd, "????", "Error", MB_OK);		//??????
#endif
		play_use_task[ch][use_task_cnt]=-1;		//??????
		return -1;
	}
	d7 = voice_seek_point;

	play_use_task[ch][use_task_cnt]=d7;		//?????

	voice[ d7 ].name = VOICE_KEY_ON;			//????

	if(voice[ d7 ].tone_no == tone)		//????
		goto set_tone_500;				//??????

	voice[ d7 ].tone_no = tone;		//??

	RELEASE(pDSData[d7]);

	if( pDSound->DuplicateSoundBuffer(pDSData_tone[tone],&pDSData[d7]) != DS_OK ){		//????
#ifdef _STONDEBUG_
		MessageBoxNew(hWnd, "复制声音buffer失败！", "Error", MB_OK);
#endif
		play_use_task[ch][use_task_cnt]=-1;		//??????
		return -1;
	}

set_tone_500:
	set_voice_param( d7, note, delay, 1 );		//???????????

	return 0;
}

//??????????  ?????  ??????????
void stop_voice(void)
{
	for(int cnt=0;cnt<play_use_task_cnt[ch];cnt++){
		if(play_use_task[ch][cnt]!=-1){					//??????
#if VOICE_KILL_ON
			voice_kill_buf[voice_kill_point++]=play_use_task[ch][cnt];
#else
			voice[ play_use_task[ch][cnt] ].name = VOICE_KEY_OFF_FAST;		//?????????
#endif
			play_use_task[ch][cnt]=-1;					//???⺶?
		}
	}
}

//??????????  ????????  ??????????
void gate(void)
{
	int next_command;
	DWORD	Status = 0;
	if(!play_flg[ ch ])		//??
		return;				//??????

	gate_time[ch]--;		//???????
	if(!gate_time[ch]){		//??????
		if( !d_pedal[ch] ){		//????????
			if( !wave[ch] ){	//???????
				stop_voice();		//???????
			} else {
				for(int cnt=0;cnt<play_use_task_cnt[ch];cnt++){
					if(play_use_task[ch][cnt]!=-1){					//??????
						voice[ play_use_task[ch][cnt] ].name = VOICE_KEY_OFF;	//????????
					}
				}
			}
		}
	}

	step_time[ch]--;			//?????
	if(step_time[ch]>0){		//
		return;				//?????????
	} else {
		if(!tie_flg[ch]){		//???????
			if( !d_pedal[ch] ){		//????????
				if( !wave[ch] ){	//???????
					stop_voice();		//???????
				} else {
					for(int cnt=0;cnt<play_use_task_cnt[ch];cnt++){
						if(play_use_task[ch][cnt]!=-1){					//??????
							voice[ play_use_task[ch][cnt] ].name = VOICE_KEY_OFF;	//????????
						}
					}
				}
			}
		}

gate_100:
		next_command = step[ch][step_point[ch]++];		//??????

		if(next_command >= 0){		//??????
			if(play_use_task_cnt[ch]!=1 && tie_flg[ch]==1){		//??????????
				tie_flg[ch]=0;		//???
			}
			if(!tie_flg[ch]){		//???????
				stop_voice();		//??????
				set_tone( dataToneNo[ch], next_command, 0, 0);	//?????
				note_old[ch][0] = next_command;		//???????
			} else {
				for(int cnt=0;cnt<play_use_task_cnt[ch];cnt++){
					//???????
					voice[ play_use_task[ch][cnt] ].name = VOICE_TIE_SET;
					//???????????
					set_voice_param( play_use_task[ch][cnt], next_command, -1, 0 );
					note_old[ch][cnt] = next_command;		//???????
				}
			}
			step_time[ch] = step[ch][step_point[ch]++];		//???????
			gate_time[ch] = step[ch][step_point[ch]++];		//??????
			if(gate_time[ch]==-1){		//????
				tie_flg[ch]=1;
			} else {
				tie_flg[ch]=0;
			}
			play_use_task_cnt[ch] = 1;		//?????
			return;
		}
		if(next_command==MUSIC_WAON){		//????
			int waon_cnt,waon_delay,waon_delay_total=0;
			waon_cnt = step[ch][step_point[ch]++];		//?????
			waon_delay = step[ch][step_point[ch]++];		//????????
			if(waon_cnt != play_use_task_cnt[ch] && tie_flg[ch]==1){		//??????????
				tie_flg[ch]=0;		//???
			}
			if(!tie_flg[ch]){		//???????
				stop_voice();		//??????
				for(int cnt=0;cnt<waon_cnt;cnt++){
					//??????
					set_tone( dataToneNo[ch], step[ch][step_point[ch]], cnt, waon_delay_total);
					note_old[ch][cnt] = step[ch][step_point[ch]++];		//???????
					waon_delay_total += waon_delay;
				}
			} else {
				for(int cnt=0;cnt<play_use_task_cnt[ch];cnt++){
					//???????
					voice[ play_use_task[ch][cnt] ].name = VOICE_TIE_SET;
					//???????????
					set_voice_param( play_use_task[ch][cnt], step[ch][step_point[ch]], -1, 0 );
					note_old[ch][cnt] = step[ch][step_point[ch]++];		//???????
				}
			}
			step_time[ch] = step[ch][step_point[ch]++];		//???????
			gate_time[ch] = step[ch][step_point[ch]++];		//??????
			if(gate_time[ch]==-1){		//????
				tie_flg[ch]=1;
			} else {
				tie_flg[ch]=0;
			}
			play_use_task_cnt[ch] = waon_cnt;		//?????
			return;
		}
		if(next_command==MUSIC_TEMPO){		//????
			tempo.LowPart = step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_NEIRO_NO){		//????
//			change_neiro( ch, step[ch][step_point[ch]++] );
			dataToneNo[ch] = step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_LOOP){		//????
			step_point[ch] = step[ch][step_point[ch]];
			goto gate_100;
		}
		if(next_command==MUSIC_KURI_START){		//?????
			play_kuri_lv[ch]++;		//???????
			play_kuri_num[play_kuri_lv[ch]][ch] = step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_KURI_SKIP){		//????
			if(play_kuri_num[play_kuri_lv[ch]][ch] == 1){
				step_point[ch] = step[ch][step_point[ch]];
				play_kuri_lv[ch]--;		//???????
			} else {
				step_point[ch]++;
			}
			goto gate_100;
		}
		if(next_command==MUSIC_KURI_RET){		//?????
			play_kuri_num[play_kuri_lv[ch]][ch]--;
			if(play_kuri_num[play_kuri_lv[ch]][ch] > 0){
				step_point[ch] = step[ch][step_point[ch]];
			} else {
				step_point[ch]++;
				play_kuri_lv[ch]--;		//???????
			}
			goto gate_100;
		}
		if(next_command==MUSIC_R){		//??
			if(tie_flg[ch]){		//????
				for(int cnt=0;cnt<play_use_task_cnt[ch];cnt++){
					//???????
					voice[ play_use_task[ch][cnt] ].name = VOICE_TIE_SET;
					//???????????
					set_voice_param( play_use_task[ch][cnt], note_old[ch][cnt], -1, 0 );
				}
			}
			step_time[ch] = step[ch][step_point[ch]++];		//???????
			gate_time[ch] = step[ch][step_point[ch]++];		//??????
			if(gate_time[ch]==-1){		//????
				tie_flg[ch]=1;
			} else {
				tie_flg[ch]=0;
			}
			return;
		}
		if(next_command==MUSIC_LFO_H){		//??????
			play_lfo_h[ch]=step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_LFO_M){		//??????
			play_lfo_m[ch]=step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_LFO_S){		//??????
			play_lfo_s[ch]=step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_PEDAL){		//????????
			d_pedal[ch]=step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_WAVE){		//???????
			wave[ch]=step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_VOL){		//????
			dataVolume[ch]=step[ch][step_point[ch]++];
//			pDSData[play_use_task[ch]]->SetVolume(dataVolume[ch]);
			goto gate_100;
		}
		if(next_command==MUSIC_DETUNE){		//??????
			play_detune[ch] = step[ch][step_point[ch]++];
			goto gate_100;
		}
		if(next_command==MUSIC_FREQ){		//??
			dataFrequency[ch]=step[ch][step_point[ch]++];
//			pDSData[play_use_task[ch]]->SetFrequency((DWORD)dataFrequency[ch]);
			goto gate_100;
		}
		if(next_command==MUSIC_PAN){		//??????
			dataPan[ch]=step[ch][step_point[ch]++];
//			pDSData[play_use_task[ch]]->SetPan(dataPan[ch]);
			goto gate_100;
		}
		if(next_command==MUSIC_END){		//??
			play_flg[ ch ] = 0;
			return;
		}
	}
}

//void CALLBACK music( HWND hWnd, UINT uMsg, UINT idEvent, DWORD dwTime )
void music( void )
{
	int d7;
#if 1
#if THREAD_ON
	while(!thread_flg){
#if CLASS_UP
		//Sleep(1);		//??
#endif
#endif
		LARGE_INTEGER d0;
		QueryPerformanceCounter( &d0 );
		if((d_cnt.LowPart + tempo.LowPart) > d0.LowPart)
#if THREAD_ON
		{
			continue;
		}
#else
			return;
#endif
#if !DEBUG_ON
		if(abs(d0.LowPart - d_cnt.LowPart) > 3333333)
#if THREAD_ON
			continue;
#else
			return;
#endif
#endif
		d_cnt.LowPart += tempo.LowPart;
#endif
		if(!pause_flg){
#if VOICE_KILL_ON
			for( d7 = 0 ; d7 < voice_kill_point ; d7++ ){
				voice[ voice_kill_buf[ d7 ] ].name = 0;			//??????
				pDSData[ voice_kill_buf[ d7 ] ]->Stop();		//????
				pDSData[ voice_kill_buf[ d7 ] ]->SetCurrentPosition(0);	//
			}
			voice_kill_point=0;
#endif
			for( d7 = 0 ; d7 < VOICE_MAX ; d7++ ){
				if(voice[ d7 ].name){
					voice_action( d7 );
				}
			}
			for( ch = 0 ; ch < TRACK_MAX ; ch++ ){
				if(play_track_flg[ ch ])
					gate();
			}
		} else {

#if CLASS_UP
			//Sleep(8);		//????
#endif
			QueryPerformanceCounter( &d_cnt );
		}

#if 0		//--------------

#if CLASS_UP
#if MODE98
	if( tempo.LowPart > 10080*2 )		//??????⺶???
#else
	if( tempo.LowPart > 10080 )		//??????⺶???
#endif
		Sleep(2);		//??
	else
		Sleep(1);		//??
#endif

#endif		//--------------

#if THREAD_ON
	}
	thread_flg=2;
	ExitThread( TRUE );
#endif
	d7=0;
	return;
}

/*--------------------------------------------
	??????????
---------------------------------------------*/
int t_music_init()
{
	if( GetAsyncKeyState( 0x10 ) & 0x8000 ){		//?????????????
		dsound_flg = -1;
		return FALSE;
	}
	if(!InitDSound()){
		dsound_flg = -1;
		return FALSE;
	}
	music_init();		//????????

/*
//cary	读取音乐
	if(!music_read()){
		play_start();
	} else {
		play_stop();
		dsound_flg = -1;
		return FALSE;
	}
	QueryPerformanceCounter(&d_cnt);
#if THREAD_ON
	static DWORD dwChildThreadId = 0;
	HANDLE hChildThred = CreateThread( NULL,
										16384,
										(LPTHREAD_START_ROUTINE)music,
//										(LPVOID)hWnd,
										NULL,
										NULL,
										&dwChildThreadId );
#if CLASS_UP
	SetThreadPriority(hChildThred,THREAD_PRIORITY_HIGHEST);
#endif
#endif
*/
	return TRUE;
}

/*--------------------------------------------
	????????
---------------------------------------------*/
void t_music_end()
{
	//?????????
	if(dsound_flg == -1)
		return;
#if THREAD_ON
//	thread_flg=1;
//	while(thread_flg!=2);
#endif
	EndApp();
}


#if 0
//??????????  ????  ??????????
//static voice_seek_point=0;
int play_se(int tone, int x, int y)
{
	int distance;
	//?????????
	if(dsound_flg == -1){
		return -1;
	}

	if(tone > TONE_MAX){		//???????
		return -1;
	}

	if(tone_tbl[ tone ].voice_place == -1){		//⺶????
		return -1;
	}

	if(tone_tbl[ tone ].play_time){		//??????
		return 0;
	}

	if(voice[ voice_seek_point ].tone_no != tone){		//????????
		voice[ voice_seek_point ].tone_no = tone;		//??
		RELEASE(pDSData[voice_seek_point]);		//?
		//????
		if( pDSound->DuplicateSoundBuffer(pDSData_tone[tone_tbl[ tone ].voice_place],&pDSData[voice_seek_point]) != DS_OK ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "复制声音buffer失败！", "Error", MB_OK);
#endif
			return -1;
		}
	}

	if(stereo_flg == T_MUSIC_MONO){		//??????
		distance = 127 * tone_tbl[ tone ].voice_volume / 10;
		x = 64;
	} else {		//??????
		distance = abs(y - 240);		//?????????
		y = abs(x - 320);		//?????????
		if(distance < y)		//????
			distance = y;		//

		distance = distance << 4;		//???????
		distance /= 0x5a;				//

		if(distance >= 127)		//????
			return 0;			//䲡????

		x /= 5;			//???????
		if(x < 0)		//
			x = 0;		//
		if(x > 127)		//
			x = 127;	//

		distance = (127 - distance) * tone_tbl[ tone ].voice_volume / 10;		//???????
	}

	pDSData[ voice_seek_point ]->SetVolume(volume_tbl[ distance ]);		// ????????
	pDSData[ voice_seek_point ]->SetPan(panpot_tbl[ x ]);			// ????????
	pDSData[ voice_seek_point ]->Play(0, 0, 0);						//????

	voice_seek_point = voice_seek_point++;		//??????
	voice_seek_point&=VOICE_MAX-1;				//
	tone_tbl[ tone ].play_time = 8;		//???????

	return 0;
}

#else

//???????????????  ?  ???????????????
HANDLE hEvent[3];	// ?????????
HANDLE  hThreadHandle;	// ?????????????
DWORD dwThreadID;	// ???????????
/*-------------------------------------------
	????????????????????
--------------------------------------------*/
// ???????????????
struct SoundData {
    LPDIRECTSOUNDBUFFER pDSBuffer;	// ????????????????
    HANDLE *phEvent;	// ??????????????????????????????
    DWORD dwEventNum;	// ??????
    DWORD dwStopEventNum;	// ???????????????????
    LPBYTE lpWaveData;	// ???????????
    DWORD dwWaveSize;	// ???????????????
    DWORD dwBlock_size;	// ?????????????????
} sd;

// ?????????
void Block_Copy(LPDIRECTSOUNDBUFFER lpBuffer,
    DWORD blockadd, DWORD blocksize,
    LPBYTE lpWave, LONG &waveAdd, LONG waveSize)
{
    LPBYTE lpBlockAdd1, lpBlockAdd2;
    DWORD blockSize1, blockSize2;
	LONG ws = waveSize - waveAdd;

    // ????????
    HRESULT hr = lpBuffer->Lock(blockadd, blocksize, (LPVOID*)&lpBlockAdd1, &blockSize1, (LPVOID*)&lpBlockAdd2, &blockSize2, 0);
    if(hr == DS_OK)
    {
        if(ws < (long)blockSize1)
        {
            CopyMemory(lpBlockAdd1, lpWave + waveAdd, ws);
			waveAdd = blockSize1 - ws;
            CopyMemory(lpBlockAdd1 + ws, lpWave + thread_loop_start, waveAdd);
            waveAdd += thread_loop_start;
        }
        else
        {
            CopyMemory(lpBlockAdd1, lpWave + waveAdd, blockSize1);
            waveAdd += blockSize1;
        }
        if(lpBlockAdd2)
        {
			ws = waveSize - waveAdd;
            if(ws < (long)blockSize2)
            {
                CopyMemory(lpBlockAdd1, lpWave + waveAdd, ws);
				waveAdd = blockSize2 - ws;
                CopyMemory(lpBlockAdd1 + ws, lpWave + thread_loop_start, waveAdd);
	            waveAdd += thread_loop_start;
            }
            else
            {
                CopyMemory(lpBlockAdd2, lpWave + waveAdd, blockSize2);
				waveAdd += blockSize2;
            }
        }
        lpBuffer->Unlock(lpBlockAdd1, blockSize1, lpBlockAdd2, blockSize2);
    }
}

static LONG wave_count = 0;
static LONG wave_address = 0;
static LONG buffer_address = 0;
volatile static int thread_start_flg = 0;

// ??????????
DWORD WINAPI MyThreadFunc(LPVOID param)
{
	LONG waveAdd = 0;
    // ??????????????????????
    Block_Copy(sd.pDSBuffer, 0, sd.dwBlock_size, sd.lpWaveData, waveAdd, sd.dwWaveSize);
	thread_start_flg = 1;
    while(TRUE)
    {
        DWORD i = WaitForMultipleObjects(sd.dwEventNum, sd.phEvent, FALSE, INFINITE);
		wave_count++;
        switch(i)
        {
            case WAIT_OBJECT_0 + 1:
                // ????????????
				buffer_address = 0; wave_address = waveAdd;
                Block_Copy(sd.pDSBuffer, 0, sd.dwBlock_size, sd.lpWaveData, waveAdd, sd.dwWaveSize);
                break;
            case WAIT_OBJECT_0:
                // ????????????
				buffer_address = sd.dwBlock_size; wave_address = waveAdd;
                Block_Copy(sd.pDSBuffer, sd.dwBlock_size, sd.dwBlock_size, sd.lpWaveData, waveAdd, sd.dwWaveSize);
                break;
            case WAIT_OBJECT_0 + 2:
                 // ?????????????
				exit_thread_flg = 1;
				ExitThread(TRUE);
            default:
                 // ?????????????
				exit_thread_flg = 1;
				ExitThread(TRUE);
        }
//		InvalidateRect(hwndApp, NULL, TRUE);
    }
	return 0L;
}

//
// ??????????
//
// ?  ?：	pWfmtx ... ???????????
//			DataSize ... ????????
//			ppData ... ????????????????
// ??：	TRUE  ... ?
//			FALSE ... 
static BOOL dwSoundInit2( WAVEFORMATEX *pWfmtx, DWORD DataSize, LPDIRECTSOUNDBUFFER *ppData, HMMIO hmmio )
{
	// ?????????????????????
	WAVEFORMATEX pcmwf = *pWfmtx;
	DSBUFFERDESC  dsbufferdesc;
	HRESULT ret;

	//?????
	if(stream_flg == 1){
		RELEASE(pDSNotify);
		stream_flg = 0;
	}
	//??????????????
	memset( &dsbufferdesc , 0  , sizeof( DSBUFFERDESC ) );
	dsbufferdesc.dwSize = sizeof( DSBUFFERDESC );
	dsbufferdesc.dwFlags = DSBCAPS_CTRLPOSITIONNOTIFY | /*DSBCAPS_CTRLDEFAULT*/DSBCAPS_CTRLPAN | DSBCAPS_CTRLVOLUME | DSBCAPS_CTRLFREQUENCY | DSBCAPS_GETCURRENTPOSITION2; 
//	dsbufferdesc.dwFlags = DSBCAPS_CTRLPOSITIONNOTIFY | DSBCAPS_STATIC | DSBCAPS_CTRLDEFAULT | DSBCAPS_GETCURRENTPOSITION2 | DSBCAPS_GLOBALFOCUS; 
    dsbufferdesc.dwBufferBytes = DataSize;
    dsbufferdesc.lpwfxFormat   = pWfmtx;
    if ( pDSound->CreateSoundBuffer( &dsbufferdesc , ppData , NULL ) != DS_OK ){
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "建立声音的buffer失败！", "Error", MB_OK);
#endif
		return FALSE;
	}


	//??????????
	if( WaveDataRead( hmmio, &DataSize, pDSData_stream ) == FALSE  ){
#ifdef _STONDEBUG_
		MessageBoxNew(hWnd, "读取WAV档失败！", "Error", MB_OK);
#endif
		return FALSE;
	}

	// ?????????????????????
//	WAVEFORMATEX pcmwf = *pWaveHeader;
	DSBUFFERDESC dsbdesc; 
	// DSBUFFERDESC??
	ZeroMemory(&dsbdesc, sizeof(DSBUFFERDESC));
	dsbdesc.dwSize = sizeof(DSBUFFERDESC); 
#if ACTIVE
	dsbdesc.dwFlags = DSBCAPS_CTRLPOSITIONNOTIFY | /*DSBCAPS_CTRLDEFAULT*/DSBCAPS_CTRLPAN | DSBCAPS_CTRLVOLUME | DSBCAPS_CTRLFREQUENCY | DSBCAPS_GETCURRENTPOSITION2 | DSBCAPS_GLOBALFOCUS; 
#else
	dsbdesc.dwFlags = DSBCAPS_CTRLPOSITIONNOTIFY | /*DSBCAPS_CTRLDEFAULT*/DSBCAPS_CTRLPAN | DSBCAPS_CTRLVOLUME | DSBCAPS_CTRLFREQUENCY | DSBCAPS_GETCURRENTPOSITION2; 
#endif
	// ???Wave??????????????????
	dsbdesc.dwBufferBytes = 2 * pcmwf.nAvgBytesPerSec; 
	dsbdesc.lpwfxFormat = &pcmwf; 
	ret = pDSound->CreateSoundBuffer(&dsbdesc, &pDSData_tone[ TONE_MAX ], NULL); 
	if(ret != DS_OK) { 
	    // ???????
//		RELEASE(pDSound);
		RELEASE(pDSData_stream);
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "建立声音的buffer失败！", "Error", MB_OK);
#endif
		return FALSE;
	}

	// DirectSoundNotify??????????
	ret = pDSData_tone[ TONE_MAX ]->QueryInterface(IID_IDirectSoundNotify, (LPVOID*)&pDSNotify);
	if(ret != DS_OK)
	{
//		RELEASE(pDSound);
		RELEASE(pDSData_stream);
		RELEASE(pDSData_tone[ TONE_MAX ]);
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "建立DirectSoundNotify失败！", "Error", MB_OK);
#endif
		return FALSE;
		//  ??
	}

	// ?????????????
	hEvent[0] = CreateEvent(NULL, FALSE, FALSE, NULL);
	hEvent[1] = CreateEvent(NULL, FALSE, FALSE, NULL);
	hEvent[2] = CreateEvent(NULL, FALSE, FALSE, NULL);

	// DirectSoundNotify?????????
	// ?????
	DSBPOSITIONNOTIFY  pn[3];
	pn[0].dwOffset = 0;	// ??
	pn[0].hEventNotify = hEvent[0];
	pn[1].dwOffset = 1 * pcmwf.nAvgBytesPerSec;	// ??
	pn[1].hEventNotify = hEvent[1];
	pn[2].dwOffset = DSBPN_OFFSETSTOP;	// ?
	pn[2].hEventNotify = hEvent[2];	// ????????????????????????

	// ?
	HRESULT hr;
	hr = pDSNotify->SetNotificationPositions(3, pn);
	if(hr != DS_OK)
	{
	    // 
		RELEASE(pDSNotify);
//		RELEASE(pDSound);
		RELEASE(pDSData_stream);
		RELEASE(pDSData_tone[ TONE_MAX ]);
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "设定DirectSoundNotify失败！", "Error", MB_OK);
#endif
		return FALSE;
	}

	stream_flg = 1;		//???????

	// ??????????????
	thread_start_flg = 0;

	// ?????????
	sd.pDSBuffer = pDSData_tone[ TONE_MAX ];	// ??????????DirectSoundBuffer??????
	sd.phEvent = hEvent;	// 4.4.???????????????
	sd.dwEventNum = 3;	// ????????????
	sd.dwStopEventNum = 2;	// ???????????????????
	sd.lpWaveData = pDSbuffData;	// ???Wave??????????
	sd.dwWaveSize = DataSize;	// ???Wave????????
	sd.dwBlock_size = pcmwf.nAvgBytesPerSec;	// 44.1kHz???????????

	// ??????????
	hThreadHandle = CreateThread(NULL, 0, MyThreadFunc, &sd, 0, &dwThreadID);
	if(hThreadHandle == NULL)
	{
#ifdef _STONDEBUG_
	    // ??????
#ifdef _STONDEBUG_
	    MessageBoxNew(hWnd, "建立Thread失败！", "Error", MB_OK);
#endif
#endif
		return FALSE;
	}

	// ???????????
	while(1){
		if(thread_start_flg)
			break;
	}

//	SetThreadPriority(hThreadHandle,THREAD_PRIORITY_HIGHEST);
//	SetThreadPriority(hThreadHandle,THREAD_PRIORITY_ABOVE_NORMAL);
//	pDSData_tone[ TONE_MAX ]->Play(0, 0, DSBPLAY_LOOPING);
	return TRUE;
}
//???????????????  ?  ???????????????

int t_music_bgm_no = -1;
char t_music_bgm_pitch[16]={
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
};

//aaa
//??????????  ????  ??????????
#define	BGM_AUTO_LOOP	1
T_MUSIC_BGM bgm_tbl[] = {
	{"data\\bgm\\sabgm_s0.wav",	110,0,0},			//00	????
	{"data\\bgm\\sabgm_s1.wav",	120,0,0},			//01	????
	{"data\\bgm\\sabgm_s1.wav",	105,2,0},			//02	??????
	{"data\\bgm\\sabgm_t1.wav",	127,2,0},			//03	???伡????
	{"data\\bgm\\sabgm_t0.wav",	95,2,0},			//04	伡????

	{"data\\bgm\\sabgm_b0.wav",	122,1,0},			//05	??????
	{"data\\bgm\\sabgm_b1.wav",	122,2,0},			//06	???????

	{"data\\bgm\\sabgm_d0.wav",	120,1,0},			//07	??????
	{"data\\bgm\\sabgm_d1.wav",	105,1,0},			//08	?????
	{"data\\bgm\\sabgm_d2.wav",	100,2,0},			//09	??????

	{"data\\bgm\\sabgm_f0.wav",	127,2,0},			//10	???????
	{"data\\bgm\\sabgm_f1.wav",	100,2,0},			//11	???????

	{"data\\bgm\\sabgm_b3.wav", 110,2,0},			//12	新的一般战斗
	{"data\\bgm\\sabgm_b2.wav", 110,2,0},			//13	新的boss战斗
	{"data\\bgm\\sabgm_b4.wav", 110,2,0},			//14	新的最后boss战斗

	{"data\\bgm\\sabgm_f2.wav",	110,2,0},			//15	伊甸大陆

	{"data\\bgm\\sabgm_t2.wav",	110,2,0},			//16	伊甸园
	{"data\\bgm\\sabgm_t3.wav",	110,2,0},			//17	地城
	{"data\\bgm\\sabgm_t4.wav",	110,2,0},			//18	水城
	{"data\\bgm\\sabgm_t5.wav",	110,2,0},			//19	火城
	{"data\\bgm\\sabgm_t6.wav",	110,2,0},			//20	风城
	{"data\\bgm\\sabgm_t7.wav",	110,2,0},			//21	赌埸

#ifdef _NEWMUSICFILE6_0		   // Syu ADD 6.0 新地图音乐
	{"data\\bgm\\sabgm_t8.wav",	110,2,0},			//22	海底洞窟
	{"data\\bgm\\sabgm_t9.wav",	110,2,0},			//23	海底平原
	{"data\\bgm\\sabgm_t10.wav", 110,2,0},			//24	海底战斗
#endif
	{"data\\bgm\\sabgm_t11.wav", 110,2,0},			//25
	{"data\\bgm\\sabgm_t12.wav", 110,2,0},			//26
#ifdef _NEW_MUISC_
	{"data\\bgm\\sabgm_s2.wav", 110,2,0},			//26
#endif
};

int play_bgm(int bgm_no)
{
	if (MuteFlag) return -1;



	HMMIO hmmio;			//????????
    WAVEFORMATEX	Wfmtx;			//WAVE??????????????
	DWORD			DataSize;		//?????????
	DWORD			WaveSize;		//Wave????????

//	bgm_no = 0;
	//cary 2001 7 17
	if( bgm_no < 0)
		bgm_no = 0;

	//??????????
	t_music_fade_flg = 0;

	if(dsound_flg == -1)
		return -1;

	//???????????
	if(t_music_bgm_no != -1){
		//?????
		stop_thread();
	}

	//????????????
//	if( (hmmio = mmioOpen(fname[bgm_no], NULL, MMIO_READ | MMIO_ALLOCBUF )) == NULL){
	if( (hmmio = mmioOpen(bgm_tbl[bgm_no].fname, NULL, MMIO_READ | MMIO_ALLOCBUF )) == NULL){
#ifdef _STONDEBUG_
		MessageBoxNew(hWnd, "打开WAV档失败！", "Error", MB_OK);
#endif
		return FALSE;
	}
	//???????????
	if( WaveFormatRead( hmmio , &Wfmtx , &WaveSize ) == FALSE ){
#ifdef _STONDEBUG_
		MessageBoxNew(hWnd, "读取声音格式失败！", "Error", MB_OK);
#endif
		return FALSE;
	}
	DataSize = WaveSize;
	//??????????????
	if(bgm_tbl[bgm_no].loop_flg == 2){		//??????
		thread_stop_flg = 1;		//?????
		//???⿳???
#if BGM_AUTO_LOOP
		FILE *fp;
		int d0,d1,d2;
		fp = fopen( bgm_tbl[bgm_no].fname, "rb" );
		if( fp == NULL ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "打开声音档失败！", "Error", MB_OK);
#endif
			return FALSE;
		}
		d2 = 8;							//??????????????
		d2 += 4;						//??????????????
		d2 += 4;						//????  ?????????
		d2 += 16;						//?????????
		fseek(fp,d2,SEEK_CUR);			//??????????
		d0 = fgetc(fp);					//????????????
		d0 |= fgetc(fp) << 8;			//
		d2 = 2;							//????????
		d2 += 12+DataSize;				//??????????  ?  ??????????
		if(DataSize&1){					//????????
			d2++;						//?????
		}
		d2 += 12*4;						//??????????
		fseek(fp,d2,SEEK_CUR);			//??????????

		//?????
		d1 = fgetc(fp);					//??????????
		d1 |= fgetc(fp) << 8;			//
		d1 |= fgetc(fp) << 16;			//
		d1 |= fgetc(fp) << 24;			//
		if( d1 < 0)
			thread_loop_start = 0;
		else
			thread_loop_start = d1 * d0;	//???????
		//?????
		d1 = fgetc(fp);
		d1 |= fgetc(fp) << 8;
		d1 |= fgetc(fp) << 16;
		d1 |= fgetc(fp) << 24;
//		thread_loop_end = d1 * d0;

		fclose(fp);
#else
		thread_loop_start = bgm_tbl[bgm_no].loop_point << 1;
#endif
//		thread_loop_start = bgm_tbl[bgm_no].loop_start;
//		thread_loop_end = bgm_tbl[bgm_no].loop_end;
//		if( dwSoundInit2( &Wfmtx, DataSize, &pDSData_tone[TONE_MAX], hmmio ) == FALSE ){
		if( dwSoundInit2( &Wfmtx, DataSize, &pDSData_stream, hmmio ) == FALSE ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "建立声音的buffer失败！", "Error", MB_OK);
#endif
			return FALSE;
		}
#if BGM_AUTO_LOOP
		if( d1 > 0)
			sd.dwWaveSize = d1 * d0;		//?????????????????????
#endif
	} else {
		thread_stop_flg = 0;		//?????
		if( dwSoundInit( &Wfmtx, DataSize, &pDSData_tone[TONE_MAX] ) == FALSE ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "建立声音的buffer失败！", "Error", MB_OK);
#endif
			return FALSE;
		}
		//???????
		if( WaveDataRead( hmmio, &DataSize, pDSData_tone[TONE_MAX] ) == FALSE  ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "读取WAV档的资料失败！", "Error", MB_OK);
#endif
			return FALSE;
		}
	}
	mmioClose( hmmio , 0 );

	//??????
	pDSData_tone[ TONE_MAX ]->SetFrequency((DWORD)freq_tbl[36+1+t_music_bgm_pitch[bgm_no]]);
	//?????
	pDSData_tone[ TONE_MAX ]->SetVolume(volume_tbl[ bgm_tbl[bgm_no].volume * t_music_bgm_volume / 15 ]);		// ????????

	//?????
	if(bgm_tbl[bgm_no].loop_flg){		//?????
		pDSData_tone[ TONE_MAX ]->Play(0, 0, DSBPLAY_LOOPING);
	} else {
		pDSData_tone[ TONE_MAX ]->Play(0, 0, 0);
	}

	//??????
	t_music_bgm_no = bgm_no;
	if(t_music_bgm_no < 0) t_music_bgm_no=0;
	// ????????
	NowTime = TimeGetTime();

	//????????
	t_music_playing_flg = 1;

	//??????
//	map_bgm_no = t_music_bgm_no;

	return TRUE;
}

//??????????  ????????  ??????????
void bgm_volume_change(void)
{
	if (MuteFlag) return;

	if(dsound_flg == -1)
		return;

	if(t_music_bgm_volume > 15){		//????
		t_music_bgm_volume = 15;
	}
	if(t_music_bgm_volume < 0){		//????
		t_music_bgm_volume = 0;
	}
	//?????
	if (pDSData_tone[TONE_MAX])
	{
		pDSData_tone[TONE_MAX]->SetVolume(volume_tbl[bgm_tbl[t_music_bgm_no].volume * t_music_bgm_volume / 15]);		// ????????
	}
}

//??????????  ?????????  ??????????
void set_gbm_pitch(void)
{
	if(dsound_flg == -1)
		return;

	//??????
	pDSData_tone[ TONE_MAX ]->SetFrequency((DWORD)freq_tbl[36+1+t_music_bgm_pitch[t_music_bgm_no]]);
}

int t_music_se_no = -1;
//??????????  ????  ??????????
//static voice_seek_point=0;
int play_se(int tone, int x, int y)
{
	if (MuteFlag) return -1;


	int d0;
	int total_level = 127;
	t_music_se_no = tone;

	if(dsound_flg == -1)
		return -1;

	if(tone > TONE_MAX){		//???????
		return -1;
	}

	if(tone_tbl[ tone ].voice_place == -1){		//⺶????
		return -1;
	}

	if(tone_tbl[ tone ].play_time){		//??????
		return 0;
	}

	//???????
	d0 = voice[ voice_seek_point ].tone_no;
	if(voice[ voice_seek_point ].tone_no != tone){		//????????
		voice[ voice_seek_point ].tone_no = tone;		//??
		//????????????????
		if(d0 != -2){
			RELEASE(pDSData[voice_seek_point]);		//?
		}
		//????
		if( pDSound->DuplicateSoundBuffer(pDSData_tone[tone_tbl[ tone ].voice_place],&pDSData[voice_seek_point]) != DS_OK ){
#ifdef _STONDEBUG_
			MessageBoxNew(hWnd, "复制声音buffer失败！", "Error", MB_OK);
#endif
			//?????????????????
			voice[ voice_seek_point ].tone_no = -2;
			return -1;
		}
	} else {
		pDSData[voice_seek_point]->SetCurrentPosition(0);	//?????????
	}
#if 0
	total_level = abs(y - 240);		//?????????
	y = abs(x - 320) >> 1;		//?????????
	if(total_level < y)		//????
		total_level = y;		//

	total_level = total_level << 4;		//???????
	total_level /= 0x5a;				//

	if(total_level >= 127)		//????
		return 0;			//䲡????

	total_level = 127 - total_level;				//

#endif

	if(stereo_flg == T_MUSIC_MONO){		//??????
		x = 64;
	} else {
		x /= 5;			//???????
		if(x < 0)		//
			x = 0;		//
		if(x > 127)		//
			x = 127;	//
	}

	//??????
	total_level = 127 * tone_tbl[ tone ].voice_volume / 127;
//	total_level = total_level * tone_tbl[ tone ].voice_volume / 127;

	//?????????
	total_level = total_level * t_music_se_volume / 15;

	pDSData[ voice_seek_point ]->SetVolume(volume_tbl[ total_level ]);		// ????????
	pDSData[ voice_seek_point ]->SetPan(panpot_tbl[ x ]);			// ????????
	if(tone_tbl[ tone ].voice_note){		//??????
		pDSData[ voice_seek_point ]->SetFrequency(
			(DWORD)freq_tbl[tone_tbl[ tone ].voice_note + tone_tbl[ tone ].voice_rate]);
	}

#if 0
	if(tone_tbl[ tone ].voice_loop == 0 ){		//???䥺???
		pDSData[ voice_seek_point ]->Play(0, 0, 0);			//????
	} else {
		voice[ voice_seek_point ].loop_flg = 1;		//????
		pDSData[ voice_seek_point ]->Play(0, 0, DSBPLAY_LOOPING);		//????
	}
#else
	pDSData[ voice_seek_point ]->Play(0, 0, 0);			//????
#endif
	while(1){
		voice_seek_point++;		//??????
		voice_seek_point&=VOICE_MAX-1;				//
		if(voice[ voice_seek_point ].loop_flg == 0){		//??????????
			break;
		}
	}
	tone_tbl[ tone ].play_time = 5;		//???????

	return 0;
}
#endif

//??????????  ????  ??????????
//int play_environment_tone(int tone, int distance, int voice_address, int panpot, int new_flg)
int play_environment_tone(int tbl_no, int new_flg)
{
	int d0;
//	int total_level;

//	t_music_se_no = tone;

	if (MuteFlag) return -1;

	if(dsound_flg == -1)
		return -1;

	if(env_tbl[tbl_no].tone > TONE_MAX){		//???????
		return -1;
	}

	if(tone_tbl[ env_tbl[tbl_no].tone ].voice_place == -1){		//⺶????
		return -1;
	}

//	if(tone_tbl[ env_tbl[tbl_no].tone ].play_time){		//??????
//		return 0;
//	}

	env_tbl[tbl_no].distance = env_tbl[tbl_no].distance << 4;		//???????
	env_tbl[tbl_no].distance /= 0x6a;				//

//	if(env_tbl[tbl_no].distance >= 127)				//????
//		return 0;					//䲡????

	if(env_tbl[tbl_no].distance >= 127)				//????
		env_tbl[tbl_no].distance = 127;					//䲡????

	if(new_flg){		//???
		//???????
		d0 = voice[ env_tbl[tbl_no].voice_address ].tone_no;
		if(voice[ env_tbl[tbl_no].voice_address ].tone_no != env_tbl[tbl_no].tone){		//????????
			voice[ env_tbl[tbl_no].voice_address ].tone_no = env_tbl[tbl_no].tone;		//??
			//????????????????
			if(d0 != -2){
				RELEASE(pDSData[env_tbl[tbl_no].voice_address]);		//?
			}
			//????
			if( pDSound->DuplicateSoundBuffer(pDSData_tone[tone_tbl[ env_tbl[tbl_no].tone ].voice_place],&pDSData[env_tbl[tbl_no].voice_address]) != DS_OK ){
#ifdef _STONDEBUG_
				MessageBoxNew(hWnd, "复制声音buffer失败！", "Error", MB_OK);
#endif
				//?????????????????
				voice[ env_tbl[tbl_no].voice_address ].tone_no = -2;
				return -1;
			}
		}
	}

	//??????
//	total_level = (127 - env_tbl[tbl_no].volume) * tone_tbl[ env_tbl[tbl_no].tone ].voice_volume / 127;

	//?????????
//	total_level = total_level * t_music_se_volume / 15;

	//???????????
	if(env_tbl[tbl_no].volume != env_tbl[tbl_no].volume_old){
		// ????????
		pDSData[ env_tbl[tbl_no].voice_address ]->SetVolume(volume_tbl[ env_tbl[tbl_no].volume ]);
		env_tbl[tbl_no].volume_old = env_tbl[tbl_no].volume;
	}

	//???????????
	if(env_tbl[tbl_no].panpot != env_tbl[tbl_no].panpot_old){
		// ????????
		pDSData[ env_tbl[tbl_no].voice_address ]->SetPan(panpot_tbl[ env_tbl[tbl_no].panpot ]);
		env_tbl[tbl_no].panpot_old = env_tbl[tbl_no].panpot;
	}

	//??????
	if(tone_tbl[ env_tbl[tbl_no].tone ].voice_note){
		pDSData[ env_tbl[tbl_no].voice_address ]->SetFrequency(
			(DWORD)freq_tbl[tone_tbl[ env_tbl[tbl_no].tone ].voice_note + tone_tbl[ env_tbl[tbl_no].tone ].voice_rate]);
	}

	if(new_flg){		//???
		pDSData[ env_tbl[tbl_no].voice_address ]->SetCurrentPosition(0);	//
		if(tone_tbl[ env_tbl[tbl_no].tone ].voice_loop == 0 ){		//???䥺???
			pDSData[ env_tbl[tbl_no].voice_address ]->Play(0, 0, 0);			//????
		} else {
			voice[ env_tbl[tbl_no].voice_address ].loop_flg = 1;		//????
			pDSData[ env_tbl[tbl_no].voice_address ]->Play(0, 0, DSBPLAY_LOOPING);		//????
		}

		while(1){
			voice_seek_point++;		//??????
			voice_seek_point&=VOICE_MAX-1;				//
			if(voice[ voice_seek_point ].loop_flg == 0){		//??????????
				break;
			}
		}
	}
//	tone_tbl[ env_tbl[tbl_no].tone ].play_time = 8;		//???????

	return 0;
}

//??????????  ??????????  ??????????
void play_map_bgm_check(void)
{
	switch(map_bgm_vct_no){
	case 0:		//????????
		if(draw_map_bgm_flg){
			if(t_music_bgm_no != map_bgm_no){		//??????
				map_bgm_vct_no++;		//?????????
			}
		}
		draw_map_bgm_flg = 0;
		break;

	case 1:		//???????????
		fade_out_bgm();
		map_bgm_vct_no++;		//??????????
		break;

	case 2:		//????????????
		if(t_music_fade_flg == 0){		//??????????
			map_bgm_vct_no++;		//?????
		}
		break;

	case 3:		//????
		play_bgm(map_bgm_no);		//????
		map_bgm_vct_no = 0;		//?????????
		break;
	}
}

//??????????  ???????  ??????????

int BakBgm = 0;
int play_map_bgm(int tone)
{
	// shan 2002/01/18
#ifdef _NEWMUSICFILE6_0		   // Syu ADD 6.0 新地图音乐
	if( BakBgm != tone && tone >= 40 && tone <= 55 )
#else
	if( BakBgm != tone && tone >= 40 && tone <= 53 )
#endif
	{
		FILE *fp;
		char filename[255];
		char vTemp[32];
		BakBgm = tone;

		sprintf_s( filename, "map\\bgm%d.dat", sCharSide);
		sprintf_s( vTemp, "%d", tone);
		if( (fp = fopen( filename, "rb+" ))==NULL )
		{
			_mkdir( "map" );
			fp = fopen( filename, "wb" );
			fclose( fp );
			if( (fp = fopen( filename, "rb+" ))==NULL )
				return FALSE;
		}
		fwrite( vTemp, sizeof(char), 2, fp );
		fclose (fp);
	}
	switch(tone){
	//?????
	case 40:	//伡??
		map_bgm_no = 4;
		break;
	case 41:	//伡??
		map_bgm_no = 3;
		break;
	case 42:	//??
		map_bgm_no = 7;
		break;
	case 43:	//??
		map_bgm_no = 8;
		break;
	case 44:	//??
		map_bgm_no = 9;
		break;
	case 45:	//?????
		map_bgm_no = 10;
		break;
	case 46:	//????????????
		map_bgm_no = 11;
		break;
	case 47:	//伊甸大陆
		map_bgm_no = 15;
		break;
	case 48:	//伊甸园
		map_bgm_no = 16;
		break;
	case 49:	//赌场
		map_bgm_no = 21;
		break;
	case 50:	//地城
		map_bgm_no = 17;
		break;
	case 51:	//水城
		map_bgm_no = 18;
		break;
	case 52:	//火城
		map_bgm_no = 19;
		break;
	case 53:	//风城
		map_bgm_no = 20;
		break;

#ifdef _NEWMUSICFILE6_0		   // Syu ADD 6.0 新地图音乐
	case 54:
		map_bgm_no = 22;	   // 海底洞窟
		break;
	case 55:
		map_bgm_no = 23;	   // 海底平原
		break;
#endif
	}
	return 0;
}

//??????????  ????  ??????????
int play_environment(int tone, int x, int y)
{
	int d0,d1,distance,volume;
	d0 = d1 = 0;
	float dx, dy;
	if (MuteFlag) return 0;
//	tone = 157;

	if(tone < 20 || tone > 37){		//????
		return 0;					//䲡????
	}

	switch(tone){
	case 28:		//???
		if(SaTimeZoneNo != LS_MORNING){		//?????
			return 0;						//䲡????
		}
		break;
	case 29:		//?
		if(SaTimeZoneNo != LS_NIGHT){		//??????
			return 0;					//䲡????
		}
		break;
	case 37:		//?
		if(SaTimeZoneNo == LS_MORNING){		//??
			return 0;						//䲡????
		}
		if(SaTimeZoneNo == LS_NIGHT){		//???
			tone = 29;					//???
			break;
		}
		break;
	}






	dx = (float)(x - 320);
	dy = (float)(y - 240);

	distance = (int)sqrt( (double)(dx*dx+dy*dy) );

	volume = distance << 4;		//???????
	volume /= 0x6a;				//

	if(volume >= 127)				//????
		return 0;					//䲡????

	d0 = tone - 20;
	tone = 151 + d0;
	if(env_tbl[d0].count == 0){		//???
		//??
		env_tbl[d0].distance = distance;
		volume = (127 - volume) * tone_tbl[ tone ].voice_volume / 127;
		env_tbl[d0].volume = volume * t_music_se_volume / 15;
		d1 = 1;		//????????
		if(env_tbl[d0].voice_address == -1){		//???
			env_tbl[d0].tone = tone;
		}
	} else {
		//?????
		if(env_tbl[d0].distance > distance){
			env_tbl[d0].distance = distance;
			volume = (127 - volume) * tone_tbl[ tone ].voice_volume / 127;
			env_tbl[d0].volume = volume * t_music_se_volume / 15;
			d1 = 1;		//????????
		}
	}
	//????
	if(d1){
		env_tbl[d0].side = x;
	}
	env_tbl[d0].count++;
	return 0;
}

//??????????  ???????  ??????????
void play_environment_check(void)
{
	if(t_music_bgm_volume==1) return;
	int d0,d1,d3,d7;
	for(d7=0; d7<MAX_ENV; d7++){
		if(env_tbl[d7].count == 0){		//?䥺???
			if(env_tbl[d7].voice_address != -1){		//???
				pDSData[ env_tbl[d7].voice_address ]->Stop();		//????
				voice[ env_tbl[d7].voice_address ].loop_flg = 0;		//?????
				env_tbl[d7].voice_address = -1;
			}
			continue;
		}
		if(env_tbl[d7].voice_address == -1){		//???
			env_tbl[d7].voice_address = voice_seek_point;
			env_tbl[d7].volume_old = -1;
			env_tbl[d7].panpot_old = -1;
			d0 = 1;
		} else {
			d0 = 0;
		}

		if(stereo_flg == T_MUSIC_MONO){		//??????
			env_tbl[d7].panpot = d1 = 64;
		} else {
			d1 = env_tbl[d7].side / 5;			//???????
			if(d1 < 0)			//
				d1 = 0;			//
			if(d1 > 127)		//
				d1 = 127;		//
		}

		if(d0){		//???
			env_tbl[d7].panpot = d1;
		} else {
			d3 = d1 - env_tbl[d7].panpot;
			if(d3 > 2)
				d3 = 2;
			if(d3 < -2)
				d3 = -2;
			//?????
			env_tbl[d7].panpot += d3;
		}
//		play_environment_tone(env_tbl[d7].tone, env_tbl[d7].distance, env_tbl[d7].voice_address, env_tbl[d7].panpot, d0);
		play_environment_tone(d7, d0);

		env_tbl[d7].count = 0;		//????????
	}
}

//??????????  ???????????  ??????????
void bgm_fade_check(void)
{
	//???????
	if(t_music_playing_flg == 0){
		t_music_fade_flg = 0;
		return;
	}
	//????????????
	if(!t_music_fade_flg){
		return;
	}
	
	if(!t_music_fade_vol || (t_music_bgm_volume==1 && t_music_se_volume == 1)){
		stop_bgm();
		t_music_bgm_no = -1;
	} else {
		// ????????
		pDSData_tone[ TONE_MAX ]->SetVolume(volume_tbl[ --t_music_fade_vol ]);
	}
}

//??????????  ???????  ??????????
void check_se_loop(void){
	int d7;

	if(dsound_flg == -1)
		return;
	for(d7=0; d7<TONE_MAX ;d7++){
		if(tone_tbl[ d7 ].play_time){		//????
			tone_tbl[ d7 ].play_time--;
		}
	}
	//???????
	play_environment_check();
	//??????????
	play_map_bgm_check();
	//???????????????
	bgm_fade_check();
}

















int cdda_no = -1;
int stereo_flg = T_MUSIC_STEREO;
int t_music_se_volume = 15;
int t_music_bgm_volume = 15;
static MCI_OPEN_PARMS open  = {0};
static MCIERROR       dwRes = {0};
static int cdda_flg;
static int cdda_check_cnt = -1;
/////////////////////////////////////////////////////////////////////
//  CD-DA???? n????
//     ???? true???
//     ??? ???????????? false???
bool cdda_open(int n)
{
	cdda_flg = 0;
// ?????? 2???????
    _ASSERT( n > 1);

//    MCI_OPEN_PARMS open  = {0};
//  MCIERROR       dwRes = {0};

// ???????
    open.lpstrDeviceType  = "cdaudio";
    dwRes = mciSendCommand( 0, MCI_OPEN, MCI_OPEN_TYPE, (DWORD)&open);
    if ( dwRes)
    {
#ifdef _STONDEBUG_
//		MessageBoxNew(hWnd, "打开CD音轨失败！", "确定", MB_OK);
#endif
		cdda_flg = 1;
        return FALSE;
    }

// ????????????????
    MCI_SET_PARMS set;
    set.dwTimeFormat = MCI_FORMAT_TMSF;
    dwRes = mciSendCommand( open.wDeviceID, MCI_SET, 
                            MCI_SET_TIME_FORMAT, (DWORD)&set); 
    if ( dwRes)
    {
#ifdef _STONDEBUG_
//		MessageBoxNew(hWnd, "打开CD音轨失败！", "确定", MB_OK);
#endif
		cdda_flg = 1;
        return FALSE;
    }
	return TRUE;
}
/*--------------------------------------------
			?????????
---------------------------------------------*/
bool cdda_start(int n)
{
// ???
    // ???? n??
    MCI_PLAY_PARMS play;
    play.dwFrom = MCI_MAKE_TMSF( n,0,0,0);
    play.dwTo   = MCI_MAKE_TMSF( n+1,0,0,0);
    dwRes = mciSendCommand( open.wDeviceID, 
                            MCI_PLAY, MCI_FROM | MCI_TO,
                            (DWORD)&play);
    if ( dwRes)
    {
#ifdef _STONDEBUG_
//		MessageBoxNew(hWnd, "??????????????", "确定", MB_OK);
#endif
		cdda_flg = 2;		//????????
        return FALSE;
    }
	return TRUE;
}
/*--------------------------------------------
			?????
---------------------------------------------*/
bool cdda_stop(void)
{
	if(cdda_flg == 1)		//??????????
		return TRUE;

	mciSendCommand(open.wDeviceID, MCI_STOP, 0, NULL);

// ???????
    dwRes = mciSendCommand( open.wDeviceID, MCI_CLOSE, 0, (DWORD)NULL);
    if ( dwRes)
    {
#ifdef _STONDEBUG_
//	    MessageBoxNew(hWnd, "??????????????", "确定", MB_OK);
#endif
        return FALSE;
    }
	return TRUE;
}
/*--------------------------------------------
			??????
---------------------------------------------*/
extern	DWORD NowTime;
//extern	double NowTime;

bool cdda_play(int n)
{
	check_se_loop();		//????????

	cdda_flg = 1;		//??????????
	return TRUE;

	if(cdda_flg == 1)		//??????????
		return TRUE;

	if(cdda_no != n ){		//??????
		cdda_flg = 0;		//??????
		cdda_check_cnt = -1;
	}

	if(cdda_flg)		//??????
		return TRUE;

	cdda_check_cnt++;
	cdda_check_cnt&=63;
	if(cdda_check_cnt)
		return TRUE;

	if(cdda_no == n ){		//????
		MCI_STATUS_PARMS mcisp;	mcisp.dwItem = MCI_STATUS_MODE;
		if(mciSendCommand(open.wDeviceID, MCI_STATUS, MCI_STATUS_ITEM, (DWORD)&mcisp)){		//???
			cdda_flg = 3;		//??????????
			return FALSE;
		}
		if(mcisp.dwReturn == MCI_MODE_PLAY){		//????
			return TRUE;
		} else {		//?????
			cdda_no = Rnd( 11, 34 );
			cdda_start( cdda_no );
			// ????????
			NowTime = TimeGetTime();
			return TRUE;
		}
	} else {
		cdda_no = n;		//???
		cdda_stop();
		cdda_open( n );
		cdda_start( n );
		// ????????
		NowTime = TimeGetTime();
	}
	return TRUE;
}