/* NetHack 3.5	mhstatus.c	$NHDT-Date$  $NHDT-Branch$:$NHDT-Revision$ */
/* NetHack 3.5	mhstatus.c	$Date: 2012/01/11 01:45:02 $  $Revision: 1.14 $ */
/* Copyright (C) 2001 by Alex Kompel 	 */
/* NetHack may be freely redistributed.  See license for details. */

#include "winMS.h"
#include "mhstatus.h"
#include "mhmsg.h"
#include "mhfont.h"

#define NHSW_LINES    2
#define MAXWINDOWTEXT BUFSZ

extern COLORREF nhcolor_to_RGB (int c); /* from mhmap */

typedef struct mswin_nethack_status_window {
	int   			index;
	char  			window_text[NHSW_LINES][MAXWINDOWTEXT+1];
	int				n_fields;
	const char**	vals;
	boolean* 		activefields;
	int*			colors;
} NHStatusWindow, *PNHStatusWindow;

#ifdef STATUS_VIA_WINDOWPORT
static int fieldorder1[] = {
	 BL_TITLE, BL_STR, BL_DX,BL_CO, BL_IN,
	 BL_WI, BL_CH,BL_ALIGN, BL_SCORE, -1
	};
static int fieldorder2[] = {
	 BL_LEVELDESC, BL_GOLD, BL_HP, BL_HPMAX,
	 BL_ENE, BL_ENEMAX, BL_AC, BL_XP, BL_EXP, BL_HD,
	 BL_TIME, BL_HUNGER,BL_CAP, BL_CONDITION, -1
	};
static int* fieldorders[] = {fieldorder1, fieldorder2, NULL};
#endif /*  STATUS_VIA_WINDOWPORT */

static TCHAR szStatusWindowClass[] = TEXT("MSNHStatusWndClass");
LRESULT CALLBACK	StatusWndProc(HWND, UINT, WPARAM, LPARAM);
static void register_status_window_class(void);
static LRESULT  onWMPaint(HWND hWnd, WPARAM wParam, LPARAM lParam);

#define DEFAULT_COLOR_BG_STATUS	COLOR_WINDOW
#define DEFAULT_COLOR_FG_STATUS	COLOR_WINDOWTEXT

HWND mswin_init_status_window () {
	static int run_once = 0;
	HWND ret;
	NHStatusWindow* data;
	RECT  rt;

	if( !run_once ) {
		register_status_window_class( );
		run_once = 1;
	}

	/* get window position */
	if( GetNHApp()->bAutoLayout ) {
		SetRect( &rt, 0, 0, 0, 0);
	} else {
		mswin_get_window_placement(NHW_STATUS, &rt);
	}

	/* create status window object */
	ret = CreateWindow(                                
			szStatusWindowClass,
			NULL,
			WS_CHILD | WS_CLIPSIBLINGS | WS_SIZEBOX,
			rt.left,				/* horizontal position of window */
			rt.top,					/* vertical position of window */
			rt.right - rt.left,		/* window width */
			rt.bottom - rt.top,		/* window height */
			GetNHApp()->hMainWnd,
			NULL,
			GetNHApp()->hApp,
			NULL );
	if( !ret ) panic("Cannot create status window");

	/* Set window caption */
	SetWindowText(ret, "Status");

	/* create window data */	
	data = (PNHStatusWindow)malloc(sizeof(NHStatusWindow));
	if( !data ) panic("out of memory");

	ZeroMemory(data, sizeof(NHStatusWindow));
	SetWindowLongPtr(ret, GWLP_USERDATA, (LONG_PTR)data);
	return ret;
}

void register_status_window_class()
{
	WNDCLASS wcex;
	ZeroMemory( &wcex, sizeof(wcex));

	wcex.style			= CS_NOCLOSE;
	wcex.lpfnWndProc	= (WNDPROC)StatusWndProc;
	wcex.cbClsExtra		= 0;
	wcex.cbWndExtra		= 0;
	wcex.hInstance		= GetNHApp()->hApp;
	wcex.hIcon			= NULL;
	wcex.hCursor		= LoadCursor(NULL, IDC_ARROW);
	wcex.hbrBackground	= status_bg_brush 
		? status_bg_brush : SYSCLR_TO_BRUSH(DEFAULT_COLOR_BG_STATUS);
	wcex.lpszMenuName	= NULL;
	wcex.lpszClassName	= szStatusWindowClass;

	RegisterClass(&wcex);
}
    
    
LRESULT CALLBACK StatusWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
	PNHStatusWindow data;
	
	data = (PNHStatusWindow)GetWindowLongPtr(hWnd, GWLP_USERDATA);
	switch (message) 
	{
	case WM_MSNH_COMMAND: {
		switch( wParam ) {
		
		case MSNH_MSG_PUTSTR: {
			PMSNHMsgPutstr msg_data = (PMSNHMsgPutstr)lParam;
			strncpy(data->window_text[data->index], msg_data->text, 
				    MAXWINDOWTEXT);
			data->index = (data->index+1) % NHSW_LINES;
			InvalidateRect(hWnd, NULL, TRUE);
		} break;
		
		case MSNH_MSG_CLEAR_WINDOW: {
			data->index = 0;
			ZeroMemory(data->window_text, sizeof(data->window_text));
			InvalidateRect(hWnd, NULL, TRUE);
		} break;

		case MSNH_MSG_GETTEXT: {
			PMSNHMsgGetText msg_data = (PMSNHMsgGetText)lParam;
#ifdef STATUS_VIA_WINDOWPORT
			int **fop;
			int *f;
			msg_data->buffer[0] = '\0';
			if( data->n_fields>0 ) {
				for(fop = fieldorders; *fop; fop++) {
					for(f=*fop; *f!=-1; f++) {
						if (data->activefields[*f])
							strncat(msg_data->buffer, data->vals[*f], msg_data->max_size - strlen(msg_data->buffer));
					}
					strncat(msg_data->buffer, "\r\n", msg_data->max_size - strlen(msg_data->buffer) );
				}
			}
#else /*  STATUS_VIA_WINDOWPORT */			
			strncpy(msg_data->buffer, data->window_text[0], msg_data->max_size);
			strncat(msg_data->buffer, "\r\n", msg_data->max_size - strlen(msg_data->buffer) );
			strncat(msg_data->buffer, data->window_text[1], msg_data->max_size - strlen(msg_data->buffer) );
#endif /*  STATUS_VIA_WINDOWPORT */
		} break;

		case MSNH_MSG_UPDATE_STATUS: {
			PMSNHMsgUpdateStatus msg_data = (PMSNHMsgUpdateStatus)lParam;
			data->n_fields = msg_data->n_fields;
			data->vals = msg_data->vals;
			data->activefields = msg_data->activefields;
			data->colors = msg_data->colors;
			InvalidateRect(hWnd, NULL, TRUE);
		} break;
		} /* end switch( wParam ) { */
	} break;

	case WM_PAINT: 
		return onWMPaint(hWnd, wParam, lParam);

	case WM_SIZE: {
		RECT	rt;
		GetWindowRect(hWnd, &rt);
		ScreenToClient(GetNHApp()->hMainWnd, (LPPOINT)&rt);
		ScreenToClient(GetNHApp()->hMainWnd, ((LPPOINT)&rt)+1);
		mswin_update_window_placement(NHW_STATUS, &rt);
	} return FALSE;

	case WM_MOVE: {
		RECT rt;
		GetWindowRect(hWnd, &rt);
		ScreenToClient(GetNHApp()->hMainWnd, (LPPOINT)&rt);
		ScreenToClient(GetNHApp()->hMainWnd, ((LPPOINT)&rt)+1);
		mswin_update_window_placement(NHW_STATUS, &rt);
	} return FALSE;

	case WM_DESTROY:
		free(data);
		SetWindowLongPtr(hWnd, GWLP_USERDATA, (LONG_PTR)0);
		break;

	case WM_SETFOCUS:
		SetFocus(GetNHApp()->hMainWnd);
		break;

	default:
		return DefWindowProc(hWnd, message, wParam, lParam);
   }
   return 0;
}

#ifdef STATUS_VIA_WINDOWPORT
static LRESULT onWMPaint(HWND hWnd, WPARAM wParam, LPARAM lParam)
{
	int* f;
	int** fop;
	SIZE sz;
	HGDIOBJ oldFont, normalFont, boldFont;
	TCHAR wbuf[BUFSZ];
	COLORREF OldBg, OldFg, Bg, Fg;
	RECT rt;
	PAINTSTRUCT ps;
	HDC hdc;
	PNHStatusWindow data;
	
	data = (PNHStatusWindow)GetWindowLongPtr(hWnd, GWLP_USERDATA);

	hdc = BeginPaint(hWnd, &ps);
	GetClientRect(hWnd, &rt);
	
	normalFont = mswin_get_font(NHW_STATUS, ATR_NONE, hdc, FALSE);
	boldFont = mswin_get_font(NHW_STATUS, ATR_BOLD, hdc, FALSE);
	oldFont = SelectObject(hdc, normalFont);

	Bg = status_bg_brush? status_bg_color : (COLORREF)GetSysColor(DEFAULT_COLOR_BG_STATUS);
	OldBg = SetBkColor(hdc, Bg);
	
	Fg = status_fg_brush? status_fg_color : (COLORREF)GetSysColor(DEFAULT_COLOR_FG_STATUS);
	OldFg = SetTextColor(hdc, Fg);
	
	for(fop = fieldorders; *fop; fop++) {
		LONG left = rt.left;
		LONG cy = 0;
		int vlen;
		for(f=*fop; *f!=-1; f++) {
			if( ((*f)>= data->n_fields) || (!data->activefields[*f])) continue;
	    	vlen = strlen(data->vals[*f]);
			NH_A2W(data->vals[*f], wbuf, SIZE(wbuf));
			
			if(data->colors[*f]==CLR_MAX || data->colors[*f]==BL_HILITE_NONE) {
				SelectObject(hdc, normalFont);
				SetBkColor(hdc, Bg);
				SetTextColor(hdc, Fg);
			} else if(data->colors[*f]>0) {
				SelectObject(hdc, normalFont);
				SetBkColor(hdc, Bg);
				SetTextColor(hdc, nhcolor_to_RGB(data->colors[*f]));
			} else if(data->colors[*f]==BL_HILITE_INVERSE) {
				SelectObject(hdc, normalFont);
				SetBkColor(hdc, Fg);
				SetTextColor(hdc, Bg);
			} else if(data->colors[*f]==BL_HILITE_BOLD) {
				SelectObject(hdc, boldFont);
				SetBkColor(hdc, Bg);
				SetTextColor(hdc, Fg);
			} else {
				SelectObject(hdc, normalFont);
				SetBkColor(hdc, Bg);
				SetTextColor(hdc, Fg);
			}
			
			GetTextExtentPoint32(hdc, wbuf, vlen, &sz);
			DrawText(hdc, wbuf, vlen, &rt, DT_LEFT);
			
			rt.left += sz.cx;
			cy = max(cy, sz.cy);
		}
		rt.left = left;
		rt.top += cy;
	}

	SelectObject(hdc, oldFont);
	SetTextColor (hdc, OldFg);
	SetBkColor (hdc, OldBg);
	EndPaint(hWnd, &ps);
	
	return 0;
}
#else
static LRESULT  onWMPaint(HWND hWnd, WPARAM wParam, LPARAM lParam)
{
	int i;
	SIZE sz;
	HGDIOBJ oldFont;
	TCHAR wbuf[BUFSZ];
	COLORREF OldBg, OldFg;
	RECT rt;
	PAINTSTRUCT ps;
	HDC hdc;
	PNHStatusWindow data;
	
	data = (PNHStatusWindow)GetWindowLongPtr(hWnd, GWLP_USERDATA);

	hdc = BeginPaint(hWnd, &ps);
	GetClientRect(hWnd, &rt);
	
	oldFont = SelectObject(hdc, mswin_get_font(NHW_STATUS, ATR_NONE, hdc, FALSE));

	OldBg = SetBkColor(hdc, status_bg_brush 
		? status_bg_color : (COLORREF)GetSysColor(DEFAULT_COLOR_BG_STATUS));
	OldFg = SetTextColor(hdc, status_fg_brush 
		? status_fg_color : (COLORREF)GetSysColor(DEFAULT_COLOR_FG_STATUS));
	
	for(i=0; i<NHSW_LINES; i++ ) {
		int wlen = strlen(data->window_text[i]);
		NH_A2W(data->window_text[i], wbuf, SIZE(wbuf));
		GetTextExtentPoint32(hdc, wbuf, wlen, &sz);
		DrawText(hdc, wbuf, wlen, &rt, DT_LEFT | DT_END_ELLIPSIS);
		rt.top += sz.cy;
	}

	SelectObject(hdc, oldFont);
	SetTextColor (hdc, OldFg);
	SetBkColor (hdc, OldBg);
	EndPaint(hWnd, &ps);
	
	return 0;
}
#endif /*STATUS_VIA_WINDOWPORT*/

void mswin_status_window_size (HWND hWnd, LPSIZE sz)
{
    TEXTMETRIC tm;
	HGDIOBJ saveFont;
	HDC hdc;
	PNHStatusWindow data;
	RECT rt;
	SIZE text_sz;
 
	GetClientRect(hWnd, &rt);

	data = (PNHStatusWindow)GetWindowLongPtr(hWnd, GWLP_USERDATA);
	if(data) {
		hdc = GetDC(hWnd);
		saveFont = SelectObject(hdc, mswin_get_font(NHW_STATUS, ATR_NONE, hdc, FALSE));
		GetTextExtentPoint32(hdc, _T("W"), 1, &text_sz);
		GetTextMetrics(hdc, &tm);

		rt.bottom = rt.top + text_sz.cy*NHSW_LINES;

		SelectObject(hdc, saveFont);
		ReleaseDC(hWnd, hdc);
	}
	AdjustWindowRect(&rt, GetWindowLong(hWnd, GWL_STYLE), FALSE);
	sz->cx = rt.right - rt.left;
	sz->cy = rt.bottom - rt.top;
}