#include "diablo.h"

void *optbar_cel;
BOOLEAN byte_634464; // weak
void *PentSpin_cel;
TMenuItem *sgpCurrItem;
void *BigTGold_cel;
int dword_634474; // weak
char byte_634478; // weak
void(*dword_63447C)(TMenuItem *);
TMenuItem *dword_634480; // idb
void *option_cel;
void *sgpLogo;
int dword_63448C; // weak

const unsigned char lfontframe[127] = {
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
	0, 0, 0, 37, 49, 38, 0, 39, 40, 47,
	42, 43, 41, 45, 52, 44, 53, 55, 36, 27,
	28, 29, 30, 31, 32, 33, 34, 35, 51, 50,
	0, 46, 0, 54, 0, 1, 2, 3, 4, 5,
	6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
	16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
	26, 42, 0, 43, 0, 0, 0, 1, 2, 3,
	4, 5, 6, 7, 8, 9, 10, 11, 12, 13,
	14, 15, 16, 17, 18, 19, 20, 21, 22, 23,
	24, 25, 26, 20, 0, 21, 0
};
const unsigned char lfontkern[56] = {
	18, 33, 21, 26, 28, 19, 19, 26, 25, 11,
	12, 25, 19, 34, 28, 32, 20, 32, 28, 20,
	28, 36, 35, 46, 33, 33, 24, 11, 23, 22,
	22, 21, 22, 21, 21, 21, 32, 10, 20, 36,
	31, 17, 13, 12, 13, 18, 16, 11, 20, 21,
	11, 10, 12, 11, 21, 23
};

void gmenu_draw_pause()
{
	if (currlevel)
		RedBack();
	if (!dword_634480) {
		light_table_index = 0;
		gmenu_print_text(316, 336, "Pause");
	}
}
// 69BEF8: using guessed type int light_table_index;

void gmenu_print_text(int x, int y, char *pszStr)
{
	char *v3;         // edi
	int v4;           // ebp
	int v5;           // esi
	unsigned char i;  // al
	unsigned char v7; // bl

	v3 = pszStr;
	v4 = y;
	v5 = x;
	for (i = *pszStr; *v3; i = *v3) {
		++v3;
		v7 = lfontframe[gbFontTransTbl[i]];
		if (v7)
			CelDecodeLightOnly(v5, v4, (BYTE *)BigTGold_cel, v7, 46);
		v5 += lfontkern[v7] + 2;
	}
}

void FreeGMenu()
{
	void *ptr;

	ptr = sgpLogo;
	sgpLogo = NULL;
	mem_free_dbg(ptr);
	ptr = BigTGold_cel;
	BigTGold_cel = NULL;
	mem_free_dbg(ptr);
	ptr = PentSpin_cel;
	PentSpin_cel = NULL;
	mem_free_dbg(ptr);
	ptr = option_cel;
	option_cel = NULL;
	mem_free_dbg(ptr);
	ptr = optbar_cel;
	optbar_cel = NULL;
	mem_free_dbg(ptr);
}

void gmenu_init_menu()
{
	byte_634478 = 1;
	dword_634480 = 0;
	sgpCurrItem = 0;
	dword_63447C = 0;
	dword_63448C = 0;
	byte_634464 = 0;
	sgpLogo = LoadFileInMem("Data\\Diabsmal.CEL", 0);
	BigTGold_cel = LoadFileInMem("Data\\BigTGold.CEL", 0);
	PentSpin_cel = LoadFileInMem("Data\\PentSpin.CEL", 0);
	option_cel = LoadFileInMem("Data\\option.CEL", 0);
	optbar_cel = LoadFileInMem("Data\\optbar.CEL", 0);
}
// 634464: using guessed type char byte_634464;
// 634478: using guessed type char byte_634478;
// 63448C: using guessed type int dword_63448C;

BOOL gmenu_exception()
{
	return dword_634480 != 0;
}

void gmenu_call_proc(TMenuItem *pItem, void(*gmFunc)(TMenuItem *))
{
	TMenuItem *v2;         // eax
	int v3;                // ecx
	void(* *v4)(BOOL); // edx

	PauseMode = 0;
	byte_634464 = 0;
	v2 = pItem;
	dword_63447C = gmFunc;
	dword_634480 = pItem;
	if (gmFunc) {
		gmFunc(dword_634480);
		v2 = dword_634480;
	}
	v3 = 0;
	dword_63448C = 0;
	if (v2) {
		v4 = &v2->fnMenu;
		while (*v4) {
			++v3;
			v4 += 3;
			dword_63448C = v3;
		}
	}
	sgpCurrItem = &v2[v3 - 1];
	gmenu_up_down(1);
}
// 525740: using guessed type int PauseMode;
// 634464: using guessed type char byte_634464;
// 63448C: using guessed type int dword_63448C;

void gmenu_up_down(int a1)
{
	TMenuItem *v1; // eax
	int v2;        // edi

	v1 = sgpCurrItem;
	if (sgpCurrItem) {
		byte_634464 = 0;
		v2 = dword_63448C;
		while (v2) {
			--v2;
			if (a1) {
				++v1;
				sgpCurrItem = v1;
				if (v1->fnMenu)
					goto LABEL_10;
				v1 = dword_634480;
			} else {
				if (v1 == dword_634480)
					v1 = &dword_634480[dword_63448C];
				--v1;
			}
			sgpCurrItem = v1;
		LABEL_10:
			if ((v1->dwFlags & 0x80000000) != 0) {
				if (v2)
					PlaySFX(IS_TITLEMOV);
				return;
			}
		}
	}
}
// 634464: using guessed type char byte_634464;
// 63448C: using guessed type int dword_63448C;

void gmenu_draw()
{
	int v0;       // edi
	TMenuItem *i; // esi
	DWORD v2;     // eax

	if (dword_634480) {
		if (dword_63447C)
			dword_63447C(dword_634480);
		CelDecodeOnly(236, 262, (BYTE *)sgpLogo, 1, 296);
		v0 = 320;
		for (i = dword_634480; i->fnMenu; v0 += 45) {
			gmenu_draw_menu_item(i, v0);
			++i;
		}
		v2 = GetTickCount();
		if ((signed int)(v2 - dword_634474) > 25) {
			if (++byte_634478 == 9)
				byte_634478 = 1;
			dword_634474 = v2;
		}
	}
}
// 634474: using guessed type int dword_634474;
// 634478: using guessed type char byte_634478;

void gmenu_draw_menu_item(TMenuItem *pItem, int a2)
{
	int v2;           // edi
	TMenuItem *v3;    // ebx
	unsigned int v4;  // eax
	unsigned int v5;  // ebp
	int v6;           // esi
	unsigned int v7;  // ecx
	unsigned int v8;  // eax
	int v9;           // ecx
	unsigned int v10; // ebp
	int v11;          // esi
	int v12;          // eax
	int v13;          // edi
	unsigned int v14; // [esp+10h] [ebp-4h]

	v2 = a2;
	v3 = pItem;
	v4 = gmenu_get_lfont(pItem);
	v5 = v4;
	v14 = v4;
	if (v3->dwFlags & 0x40000000) {
		v6 = (v4 >> 1) + 80;
		CelDecodeOnly(v6, v2 - 10, (BYTE *)optbar_cel, 1, 287);
		v7 = (v3->dwFlags >> 12) & 0xFFF;
		if (v7 < 2)
			v7 = 2;
		v8 = ((v3->dwFlags & 0xFFF) << 8) / v7;
		v9 = (v5 >> 1) + 82;
		v10 = v8;
		gmenu_clear_buffer(v9, v2 - 12, v8 + 13, 28);
		CelDecodeOnly(v6 + v10 + 2, v2 - 12, (BYTE *)option_cel, 1, 27);
		v5 = v14;
	}
	v11 = 384 - (v5 >> 1);
	v12 = -((v3->dwFlags & 0x80000000) != 0);
	_LOBYTE(v12) = v12 & 0xF1;
	light_table_index = v12 + 15;
	gmenu_print_text(384 - (v5 >> 1), v2, v3->pszStr);
	if (v3 == sgpCurrItem) {
		v13 = v2 + 1;
		CelDecodeOnly(v11 - 54, v13, (BYTE *)PentSpin_cel, (unsigned char)byte_634478, 48);
		CelDecodeOnly(v11 + v5 + 4, v13, (BYTE *)PentSpin_cel, (unsigned char)byte_634478, 48);
	}
}
// 634478: using guessed type char byte_634478;
// 69BEF8: using guessed type int light_table_index;

void gmenu_clear_buffer(int x, int y, int width, int height)
{
	int v4;  // edi
	char *i; // esi

	v4 = height;
	for (i = (char *)gpBuffer + PitchTbl[y] + x; v4; --v4) {
		memset(i, 205, width);
		i -= 768;
	}
}

int gmenu_get_lfont(TMenuItem *pItem)
{
	char *v2;         // eax
	int i;            // edx
	unsigned char v4; // cl

	if (pItem->dwFlags & 0x40000000)
		return 490;
	v2 = pItem->pszStr;
	for (i = 0;; i += lfontkern[lfontframe[gbFontTransTbl[v4]]] + 2) {
		v4 = *v2;
		if (!*v2)
			break;
		++v2;
	}
	return i - 2;
}

BOOL gmenu_presskeys(int a1)
{
	if (!dword_634480)
		return 0;
	switch (a1) {
	case VK_RETURN:
		if ((sgpCurrItem->dwFlags & 0x80000000) != 0) {
			PlaySFX(IS_TITLEMOV);
			sgpCurrItem->fnMenu(TRUE);
		}
		break;
	case VK_ESCAPE:
		PlaySFX(IS_TITLEMOV);
		gmenu_call_proc(0, 0);
		break;
	case VK_SPACE:
		return FALSE;
	case VK_LEFT:
		gmenu_left_right(0);
		break;
	case VK_RIGHT:
		gmenu_left_right(1);
		break;
	case VK_UP:
		gmenu_up_down(0);
		break;
	case VK_DOWN:
		gmenu_up_down(1);
		break;
	}
	return TRUE;
}

void gmenu_left_right(int a1)
{
	signed int v1;   // edx
	unsigned int v2; // eax
	int v3;          // eax

	v1 = sgpCurrItem->dwFlags;
	if (sgpCurrItem->dwFlags & 0x40000000) {
		v2 = sgpCurrItem->dwFlags & 0xFFF;
		if (a1) {
			if (v2 == ((v1 >> 12) & 0xFFF))
				return;
			v3 = v2 + 1;
		} else {
			if (!(v1 & 0xFFF))
				return;
			v3 = v2 - 1;
		}
		_LOWORD(v1) = v1 & 0xF000;
		sgpCurrItem->dwFlags = v1;
		sgpCurrItem->dwFlags |= v3;
		sgpCurrItem->fnMenu(FALSE);
	}
}

BOOL gmenu_on_mouse_move()
{
	int a1; // [esp+0h] [ebp-4h]

	if (!byte_634464)
		return 0;
	gmenu_valid_mouse_pos(&a1);
	a1 = a1 * ((sgpCurrItem->dwFlags >> 12) & 0xFFF) / 256;
	_LOWORD(sgpCurrItem->dwFlags) &= 0xF000u;
	sgpCurrItem->dwFlags |= a1;
	sgpCurrItem->fnMenu(FALSE);
	return 1;
}
// 41A37A: could not find valid save-restore pair for esi
// 634464: using guessed type char byte_634464;

BOOLEAN gmenu_valid_mouse_pos(int *plOffset)
{
	*plOffset = 282;
	if (MouseX < 282) {
		*plOffset = 0;
		return 0;
	}
	if (MouseX > 538) {
		*plOffset = 256;
		return 0;
	}
	*plOffset = MouseX - 282;
	return 1;
}

int gmenu_left_mouse(int a1)
{
	int result;      // eax
	unsigned int v2; // eax
	unsigned int v3; // eax
	TMenuItem *v4;   // esi
	unsigned int v5; // eax
	//LPARAM v6; // ecx
	int a1a; // [esp+4h] [ebp-4h]

	if (a1) {
		if (!dword_634480 || MouseY >= 352)
			return 0;
		if (MouseY - 117 >= 0) {
			v2 = (MouseY - 117) / 45;
			if (v2 < dword_63448C) {
				v3 = v2;
				v4 = &dword_634480[v3];
				if ((v4->dwFlags & 0x80000000) != 0) {
					v5 = (unsigned int)gmenu_get_lfont(&dword_634480[v3]) >> 1;
					if (MouseX >= 320 - v5 && MouseX <= v5 + 320) {
						sgpCurrItem = v4;
						PlaySFX(IS_TITLEMOV);
						if (v4->dwFlags & 0x40000000) {
							byte_634464 = gmenu_valid_mouse_pos(&a1a);
							gmenu_on_mouse_move();
						} else {
							sgpCurrItem->fnMenu(TRUE);
						}
					}
				}
			}
		}
	} else {
		result = 0;
		if (!byte_634464)
			return result;
		byte_634464 = 0;
	}
	return 1;
}
// 634464: using guessed type char byte_634464;
// 63448C: using guessed type int dword_63448C;

void gmenu_enable(TMenuItem *pMenuItem, BOOL enable)
{
	if (enable)
		pMenuItem->dwFlags |= 0x80000000;
	else
		pMenuItem->dwFlags &= ~0x80000000;
}

void gmenu_slider_1(TMenuItem *pItem, int min, int max, int gamma)
{
	unsigned int v4; // esi
	int v5;          // eax

	v4 = pItem->dwFlags;
	v5 = (pItem->dwFlags >> 12) & 0xFFF;
	if (v5 < 2)
		v5 = 2;
	_LOWORD(v4) = v4 & 0xF000;
	pItem->dwFlags = v4 | (v5 * (gamma - min) + (max - min - 1) / 2) / (max - min);
}

int gmenu_slider_get(TMenuItem *pItem, int min, int max)
{
	int v3;          // eax
	unsigned int v4; // ecx

	v3 = (pItem->dwFlags >> 12) & 0xFFF;
	v4 = pItem->dwFlags & 0xFFF;
	if (v3 < 2)
		v3 = 2;
	return min + (v4 * (max - min) + (v3 - 1) / 2) / v3;
}

void gmenu_slider_3(TMenuItem *pItem, int dwTicks)
{
	pItem->dwFlags ^= (pItem->dwFlags ^ (dwTicks << 12)) & 0xFFF000;
}