/********************************************************************************************
 * 
 * Map Editor
 * Main program.
 * ME_DX.cpp
 * Edition : DX1.0a
 *	Author : CCH & LightWing 
 *			Red Ants . SoftWorld . BeiJing
 *	(C)1998 5-6
 *
 ********************************************************************************************/

#include "ME_DX.h"

// array of the map. we suggested it as 35*10 in this demo.
// in fact it decided by the user, so we defined a pointer. 
// this is the true we used.
static sTME *sER;
int layer = 1;
sTME sERL1[35][10];
sTME sERL2[35][10];

// Current selected map element.
sTME CurME = {1,	1,	30,	32,	&sRcm[3]};

// Map Elements, we suggested that it has 72 in 6 class.
// Of cause not only so much.
static sTME me[6][12];

RECT *testpdate = NULL;

// Map Editor Object.
class  sEditor se;

static void Help(void)
{
}


void display(char * code,RECT * rc)
{
	HDC hdc;
	if(lpDDSOne->GetDC(&hdc) == DD_OK)
	{
		SetBkColor(hdc,RGB(111,15,27));
		SetTextColor(hdc,RGB(255,255,103));
		TextOut(hdc, rc->left, rc->top + 8, code, lstrlen(code));
		lpDDSOne->ReleaseDC(NULL);
	}
}


static void SelectME( int id1, int id2,int id3)
{
//	CurME.index = (id1<<8) | (id2-1) * 6 + (id3-1);
//	CurME.
}

static void displayCursor(long cx, long cy)
{
	int dx,dy;
	if( (cy /16)%2 == 0) dx = 64 * (cx/64) + 82 - CurME.hotx;
	else
	{
		cx = cx +32;
		dx = 64 * (cx/64) + 50 - CurME.hotx;
	}
	dy = 16 * (cy/16) + 15 - CurME.hoty;
	lpDDSTwo->BltFast(dx, dy, lpDDSOne, CurME.pdata, DDBLTFAST_SRCCOLORKEY);

	if( (cy /16)%2 == 0) dx = 64 * (cx/64) + 50;
	else dx = 64 * (cx/64) + 18;
	dy = 16 * (cy/16) -1;
	lpDDSTwo->BltFast(dx, dy, lpDDSOne, &sRcm[4],DDBLTFAST_SRCCOLORKEY);
}

static void Rendering(void)
{
	int			cx,cy;

	// Rendering...
	for(int i = 0; i < 35; i++)
	{
		for(int j = 0; j < 10; j++ )
		{
			// The first level.
			cx = 80 - (i % 2) * 32 + j * 64 - sERL1[i][j].hotx;
			cy = 48 + i * 16 - sERL1[i][j].hoty;
			lpDDSTwo->BltFast(cx, cy, lpDDSOne, sERL1[i][j].pdata, DDBLTFAST_SRCCOLORKEY);
			// The Second layer.
			cx = cx + sERL1[i][j].hotx - sERL2[i][j].hotx;
			cy = cy + sERL1[i][j].hoty - (sERL1[i][j].height + 1) * 16 - sERL2[i][j].hoty;
			if (sERL2[i][j].index)
				lpDDSTwo->BltFast(cx, cy, lpDDSOne, sERL2[i][j].pdata, DDBLTFAST_SRCCOLORKEY);
		}
	}
	if(CurWnd)displayCursor(md.g_x, md.g_y);
}

static int  sButtonRetMessage( void )
{
	for ( int i = 1; i<21; i++ )
	{
		if ( IsInRect( &sRcb[i-1], md.g_x, md.g_y) ) return i;
	}
	return 0;
}

static BOOL IsInRect(RECT *rc,long x,long y)
{
	if(x <= rc->right && x >= rc->left)
		if(y <= rc->bottom && y >= rc->top)
			return TRUE;
	return FALSE;
}

// finiObjects: release all the object.
static void finiObjects( void )
{
    if( lpDD != NULL )
    {
		if( lpDDSPrimary != NULL )
		{
			lpDDSPrimary->Release();
			lpDDSPrimary = NULL;
		}
		if( lpDDSOne != NULL )
		{
			lpDDSOne->Release();
			lpDDSOne = NULL;
		}
		if( lpDDPal != NULL )
		{
			lpDDPal->Release();
			lpDDPal = NULL;
		}
		lpDD->Release();
		lpDD = NULL;
    }
}

// restoreAll: restore all lost objects
static HRESULT restoreAll( void )	
{
    HRESULT     ddrval;

    ddrval = lpDDSPrimary->Restore();
    if( ddrval == DD_OK )
    {
		ddrval = lpDDSOne->Restore();
		if( ddrval == DD_OK )
		{
			if( ddrval == DD_OK ) InitSurfaces();
		}
    }
    return ddrval;
}

static void UpdateFrame(void)
{
	RECT        rcRect;
	HRESULT		ddrval;
	HDC			hdc;
	
	// Rendering.
	Rendering();
	rcRect.top = 48;
	rcRect.left = 47;
	rcRect.bottom = rcRect.top + 32 * 17;
	rcRect.right = rcRect.left + 64 * 10;
	lpDDSBack->BltFast(6, 44, lpDDSTwo, &rcRect,FALSE);

	// Copy the background.
	rcRect.left = 0;	rcRect.top = 0;
	rcRect.right = 800;	rcRect.bottom = 600;
	while(1 )
    {
        ddrval = lpDDSBack->BltFast( 0, 0, lpDDSOne, &rcRect, DDBLTFAST_SRCCOLORKEY);
	    if( ddrval == DD_OK && ButtonPressed <18)
		{
			rcRect.left = sRcm[0].left + 30 * (ButtonPressed-1);	
			rcRect.top = sRcm[0].top;
			rcRect.right = sRcm[0].left + 30 * ButtonPressed;	
			rcRect.bottom = sRcm[0].bottom;
			lpDDSBack->BltFast(sRcb[ButtonPressed-1].left, sRcb[ButtonPressed-1].top, 
				lpDDSOne,&rcRect,DDBLTFAST_SRCCOLORKEY);
			break;
		}
	    if( ddrval == DDERR_SURFACELOST )
	    {
		    ddrval = restoreAll();
		    if( ddrval != DD_OK ) break;
	    }
	    if( ddrval != DDERR_WASSTILLDRAWING ) break;
    }

	// 
	// insert code for rendering the map.
	// 
	if(bGrid)
	{
		ddrval = lpDDSBack->GetDC(&hdc);
		if(ddrval==DD_OK)
		{
			for(int i = 8, k = 0, j = 288; i <= 584; i += 64,k += 32, j -= 32 ) 
			{
				MoveToEx( hdc, i, 42, NULL );
				LineTo( hdc, 8, k + 42  );
				LineTo( hdc, 584, 330+k );
				MoveToEx( hdc, i, 42, NULL );
				LineTo( hdc, 584,j + 42 );
				LineTo( hdc, 8, 330 + j );
				MoveToEx( hdc, i, 586, NULL );
				LineTo( hdc, 8, 586 - k );
				MoveToEx( hdc, i, 586, NULL );
				LineTo( hdc, 584,586 - j);
			}
		}
		lpDDSBack->ReleaseDC(hdc);
	}

	while( 1 )					// Flip the surface .
	{
		ddrval = lpDDSPrimary->Flip( NULL, 0 );
		if( ddrval == DD_OK ) break;
		if( ddrval == DDERR_SURFACELOST )
		{
			ddrval = restoreAll();
			if( ddrval != DD_OK ) break;
		}
		if( ddrval != DDERR_WASSTILLDRAWING ) break;
	}
}

long FAR PASCAL WindowProc( HWND hWnd, UINT message, 
			    WPARAM wParam, LPARAM lParam )
{
	int rm;
	switch( message )
    {
    case WM_ACTIVATEAPP:
		bActive = wParam;
		break;

    case WM_CREATE:
		break;

	case WM_ACTIVATE:
		break;

	case WM_SETCURSOR:
		SetCursor(LoadCursor(NULL,IDC_ARROW));
		break;

    case WM_TIMER:
		if( bActive )
		{
			PALETTEENTRY	pe[8];

			// recycle the palette.
			if(lpDDPal->GetEntries(0,248,7,pe)!=DD_OK) break;
			pe[7].peRed = pe[6].peRed;
			pe[7].peGreen = pe[6].peGreen;
			pe[7].peBlue = pe[6].peBlue;
			for (int i=6;i>0;i--)
			{
				pe[i].peRed = pe[i-1].peRed;
				pe[i].peGreen = pe[i-1].peGreen;
				pe[i].peBlue = pe[i-1].peBlue;
			}
			pe[0].peRed = pe[7].peRed;
			pe[0].peGreen = pe[7].peGreen;
			pe[0].peBlue = pe[7].peBlue;
			lpDDPal->SetEntries( 0, 248, 7, pe);
    		UpdateFrame();
		}
		break;

	case WM_LBUTTONDOWN:
		md.g_x = LOWORD(lParam);
		md.g_y = HIWORD(lParam);
		rm = sButtonRetMessage();
		if(rm > 12 && rm < 18 && CurWnd)
		{
			CurWnd = 0;
			PreButton = ButtonPressed;
			ButtonPressed = rm;
		}
		else if( rm >= 18 )
		{
			CurWnd = PreWnd;
			ButtonPressed = PreButton;
		}
		else if(rm && CurWnd)
		{
			CurWnd = PreWnd;
			PreButton = ButtonPressed = rm;
		}
		
/*		if(md.g_x <585 && md.g_y > 8)
		{
			se.ChangeMap(md.rx, md.ry, &CurME);
			wsprintf(codebuf, "(%06x, %06x)", sERL1[md.ry][md.rx].pdata, CurME.pdata);
			display(codebuf, &sRcw[3]);
		}
*/
		if(ButtonPressed == 16) PostMessage(hWnd, WM_CLOSE, 0, 0);//Quit();
		break;

	case WM_LBUTTONUP:
		if(md.g_x <585 && md.g_y > 8)
			se.ChangeMap(md.rx, md.ry, &CurME);
		break;

	case WM_MOUSEMOVE:
		md.g_x = LOWORD(lParam);
		md.g_y = HIWORD(lParam);
		if(md.g_x > 585 || md.g_y < 43 )
		{
			rm = sButtonRetMessage();
	//		wsprintf(codebuf,"%04d %04d",CurWnd, rm);
	//		display(codebuf,&sRcw[3]);
			if( CurWnd )
			{
				if(rm && rm < 18) display(sButtonPrompt[rm -1],&sRcw[3]);
			}
			else 
			{
				if(rm >= 18) display(sButtonPrompt[rm -1],&sRcw[3]);
			}
			if(rm == 0) display("                             ",&sRcw[3]);
		}
		else
		{
			// Calculate the map position coordinate on the screen.
			if( (md.g_y /16)%2 == 0) md.rx = (md.g_x - md.g_x%64 + 82) / 64 -1;
				//(64 * (md.g_x/64) + 82) / 64 - 1;
			else md.rx = md.g_x/64;
			md.ry = (md.g_y/16) - 2;
//			wsprintf(codebuf, "(%03d, %03d)", md.rx, md.ry);
//			display(codebuf, &sRcw[3]);
		}
		break;

	case WM_SYSCHAR:
//		wsprintf(codebuf,"%04x %08x",wParam,lParam);
//		display(codebuf,&sRcw[3]);
		break;

	case WM_CHAR:
//		wsprintf(codebuf,"%04x %08x",wParam,lParam);
//		display(codebuf,&sRcw[3]);

		if(CurWnd)
		{
			switch( wParam )
			{
			case 0x3:
				PreButton = ButtonPressed = 7;
				CurWnd = PreWnd;
				// SelectME(Earth, 1, 1);
				break;

			case 0x16:
				PreButton = ButtonPressed = 8;
				CurWnd = PreWnd;
				// SelectME(Earth , 1, 1);
				break;

			case 0x4:
				PreButton = ButtonPressed = 9;
				CurWnd = PreWnd;
				// SelectME(Earth, 1, 1);
				break;

			case 0x18:
				PreButton = ButtonPressed = 10;
				CurWnd = PreWnd;
				// SelectME(Earth, 1, 1);
				break;

			case 0x1:
				PreButton = ButtonPressed = 11;
				CurWnd = PreWnd;
				// SelectME(Earth, 1, 1);