/************************
 * event.c
 * SDL port for Abuse
 * by Anthony Kruize
 ************************/

#include <SDL.h>

#include "system.h"
#include "image.hpp"
#include "palette.hpp"
#include "video.hpp"
#include "macs.hpp"
#include "mouse.hpp"
#include "event.hpp"
#include "timing.hpp"
#include "sprite.hpp"
#include "game.hpp"

extern int confirm_quit();
extern int get_key_binding( char *dir, int i );
extern int mouse_xscale, mouse_yscale;
short mouse_buttons[5] = { 0, 0, 0, 0, 0 };

// Pre-declarations
void handle_mouse( event &ev );

//
// Constructor
//
event_handler::event_handler( image *screen, palette *pal )
{
	CHECK( screen && pal );
	mouse = new JCMouse( screen, pal );
	mhere = mouse->exsist();
	last_keystat = get_key_flags();
	ewaiting = 0;

	// Ignore activate events
	SDL_EventState( SDL_ACTIVEEVENT, SDL_IGNORE );
}

//
// Destructor
//
event_handler::~event_handler()
{
	delete mouse;
}

//
// flush_screen()
// Redraw the screen
//
void event_handler::flush_screen()
{
	update_dirty( screen );
}

//
// get_key_flags()
// Return the flag for the key modifiers
//
int event_handler::get_key_flags()
{
	SDLMod key_flag;

	key_flag = SDL_GetModState();

	return ( ( key_flag & KMOD_SHIFT ) != 0 ) << 3 |
		   ( ( key_flag & KMOD_CTRL ) != 0 ) << 2 |
		   ( ( key_flag & KMOD_ALT ) != 0 ) << 1;
}

//
// event_waiting()
// Are there any events in the queue?
//
int event_handler::event_waiting()
{
	if( ewaiting )
	{
		return 1;
	}
	if( SDL_PollEvent( NULL ) )
	{
		ewaiting = 1;
	}
	return ewaiting;
}

//
// add_redraw()
// Add a redraw rectangle.
//
void event_handler::add_redraw( int X1, int Y1, int X2, int Y2, void *Start )
{
	event *ev;
	ev = new event;
	ev->type = EV_REDRAW;
	ev->redraw.x1 = X1;
	ev->redraw.x2 = X2;
	ev->redraw.y1 = Y1;
	ev->redraw.y2 = Y2;
	ev->redraw.start = Start;
	events.add_end( (linked_node *)ev );
}

//
// get_event()
// Get and handle waiting events
//
void event_handler::get_event( event &ev )
{
	event *ep;
	while( !ewaiting )
	{
		event_waiting();

		if (!ewaiting)
			milli_wait( 1 );	// Sleep for 1 millisecond if there are no events
	}

	ep = (event *)events.first();
	if( ep )
	{
		ev = *ep;
		events.unlink( (linked_node *)ep );
		delete ep;
		ewaiting = events.first() != NULL;
	}
	else
	{
		// NOTE : that the mouse status should be known
		// even if another event has occured.
		ev.mouse_move.x = mouse->x();
		ev.mouse_move.y = mouse->y();
		ev.mouse_button = mouse->button();

		// Gather events
		SDL_Event event;
		if( SDL_PollEvent( &event ) )
		{
			// always sort the mouse out
			handle_mouse( ev );
			mouse->update( ev.mouse_move.x, ev.mouse_move.y, ev.mouse_button );

			switch( event.type )
			{
				case SDL_QUIT:
				{
					if( the_game->state == RUN_STATE )
					{
						// We're in the actual game so just confirm the user
						// wishes to quit and exit the game.
						if( confirm_quit() )
						{
							the_game->end_session();
						}
					}
					else
					{
						// We're at the menu screen so simluate the user
						// pressing the ESC key.
						ev.type = EV_KEY;
						ev.key = JK_ESC;
					}
					break;
				}
				case SDL_MOUSEBUTTONUP:
				{
					switch( event.button.button )
					{
						case 4:		// Mouse wheel goes up...
						{
							ev.key = get_key_binding( "b4", 0 );
							ev.type = EV_KEYRELEASE;
							break;
						}
						case 5:		// Mouse wheel goes down...
						{
							ev.key = get_key_binding( "b3", 0 );
							ev.type = EV_KEYRELEASE;
							break;
						}
					}
					break;
				}
				case SDL_MOUSEBUTTONDOWN:
				{
					switch( event.button.button )
					{
						case 4:		// Mouse wheel goes up...
						{
							ev.key = get_key_binding( "b4", 0 );
							ev.type = EV_KEY;
							break;
						}
						case 5:		// Mouse wheel goes down...
						{
							ev.key = get_key_binding( "b3", 0 );
							ev.type = EV_KEY;
							break;
						}
					}
					break;
				}
				case SDL_KEYDOWN:
				case SDL_KEYUP:
				{
					// Default to EV_SPURIOUS
					ev.key = EV_SPURIOUS;
					if( event.type == SDL_KEYDOWN )
					{
						ev.type = EV_KEY;
					}
					else
					{
						ev.type = EV_KEYRELEASE;
					}
					switch( event.key.keysym.sym )
					{
						case SDLK_DOWN:			ev.key = JK_DOWN; break;
						case SDLK_UP:			ev.key = JK_UP; break;
						case SDLK_LEFT:			ev.key = JK_LEFT; break;
						case SDLK_RIGHT:		ev.key = JK_RIGHT; break;
						case SDLK_LCTRL:		ev.key = JK_CTRL_L; break;
						case SDLK_RCTRL:		ev.key = JK_CTRL_R; break;
						case SDLK_LALT:			ev.key = JK_ALT_L; break;
						case SDLK_RALT:			ev.key = JK_ALT_R; break;
						case SDLK_LSHIFT:		ev.key = JK_SHIFT_L; break;
						case SDLK_RSHIFT:		ev.key = JK_SHIFT_R; break;
						case SDLK_NUMLOCK:		ev.key = JK_NUM_LOCK; break;
						case SDLK_HOME:			ev.key = JK_HOME; break;
						case SDLK_END:			ev.key = JK_END; break;
						case SDLK_BACKSPACE:	ev.key = JK_BACKSPACE; break;
						case SDLK_TAB:			ev.key = JK_TAB; break;
						case SDLK_RETURN:		ev.key = JK_ENTER; break;
						case SDLK_SPACE:		ev.key = JK_SPACE; break;
						case SDLK_CAPSLOCK:		ev.key = JK_CAPS; break;
						case SDLK_ESCAPE:		ev.key = JK_ESC; break;
						case SDLK_F1:			ev.key = JK_F1; break;
						case SDLK_F2:			ev.key = JK_F2; break;
						case SDLK_F3:			ev.key = JK_F3; break;
						case SDLK_F4:			ev.key = JK_F4; break;
						case SDLK_F5:			ev.key = JK_F5; break;
						case SDLK_F6:			ev.key = JK_F6; break;
						case SDLK_F7:			ev.key = JK_F7; break;
						case SDLK_F8:			ev.key = JK_F8; break;
						case SDLK_F9:			ev.key = JK_F9; break;
						case SDLK_F10:			ev.key = JK_F10; break;
						case SDLK_INSERT:		ev.key = JK_INSERT; break;
						case SDLK_KP0:			ev.key = JK_INSERT; break;
						case SDLK_PAGEUP:		ev.key = JK_PAGEUP; break;
						case SDLK_PAGEDOWN:		ev.key = JK_PAGEDOWN; break;
						case SDLK_KP8:			ev.key = JK_UP; break;
						case SDLK_KP2:			ev.key = JK_DOWN; break;
						case SDLK_KP4:			ev.key = JK_LEFT; break;
						case SDLK_KP6:			ev.key = JK_RIGHT; break;
						case SDLK_F11:
						{
							// Only handle key down
							if( ev.type == EV_KEY )
							{
								// Toggle fullscreen
								SDL_WM_ToggleFullScreen( SDL_GetVideoSurface() );
							}
							ev.key = EV_SPURIOUS;
							break;
						}
						case SDLK_F12:
						{
							// Only handle key down
							if( ev.type == EV_KEY )
							{
								// Toggle grab mouse
								if( SDL_WM_GrabInput( SDL_GRAB_QUERY ) == SDL_GRAB_ON )
								{
									the_game->show_help( "Grab Mouse: OFF\n" );
									SDL_WM_GrabInput( SDL_GRAB_OFF );
								}
								else
								{
									the_game->show_help( "Grab Mouse: ON\n" );
									SDL_WM_GrabInput( SDL_GRAB_ON );
								}
							}
							ev.key = EV_SPURIOUS;
							break;
						}
						case SDLK_PRINT:	// print-screen key
						{
							// Only handle key down
							if( ev.type == EV_KEY )
							{
								// Grab a screenshot
								SDL_SaveBMP( SDL_GetVideoSurface(), "screenshot.bmp" );
								the_game->show_help( "Screenshot saved to: screenshot.bmp.\n" );
							}
							ev.key = EV_SPURIOUS;
							break;
						}
						default:
						{
							ev.key = (int)event.key.keysym.sym;
							// Need to handle the case of shift being pressed
							// There has to be a better way
							if( (event.key.keysym.mod & KMOD_SHIFT) != 0 )
							{
								if( event.key.keysym.sym >= SDLK_a &&
									event.key.keysym.sym <= SDLK_z )
								{
									ev.key -= 32;
								}
								else if( event.key.keysym.sym >= SDLK_1 &&
										 event.key.keysym.sym <= SDLK_5 )
								{
									ev.key -= 16;
								}
								else
								{
									switch( event.key.keysym.sym )
									{
										case SDLK_6:
											ev.key = SDLK_CARET; break;
										case SDLK_7:
										case SDLK_9:
										case SDLK_0:
											ev.key -= 17; break;
										case SDLK_8:
											ev.key = SDLK_ASTERISK; break;
										case SDLK_MINUS:
											ev.key = SDLK_UNDERSCORE; break;
										case SDLK_EQUALS:
											ev.key = SDLK_PLUS; break;
										case SDLK_COMMA:
											ev.key = SDLK_LESS; break;
										case SDLK_PERIOD:
											ev.key = SDLK_GREATER; break;
										case SDLK_SLASH:
											ev.key = SDLK_QUESTION; break;
										case SDLK_SEMICOLON:
											ev.key = SDLK_COLON; break;
										case SDLK_QUOTE:
											ev.key = SDLK_QUOTEDBL; break;
									}
								}
							}
						}
					}
					break;
				}
			}
		}
		// No more events
		ewaiting = 0;
	}
}

//
// Handle mouse motion and button presses
// We don't handle the mousewheel here as
// SDL_GetMouseState doesn't seem to be
// able to detect that.
//
void handle_mouse( event &ev )
{
	Uint8 buttons;
	int x, y;

	// always sort the mouse out
	buttons = SDL_GetMouseState( &x, &y );
	x = (x << 16) / mouse_xscale;
	y = (y << 16) / mouse_yscale;
	if( x > 319 )
	{
		x = 319;
	}
	if( y > 199 )
	{
		y = 199;
	}
	ev.mouse_move.x = x;
	ev.mouse_move.y = y;
	ev.type = EV_MOUSE_MOVE;

	// Left button
	if( (buttons & SDL_BUTTON(1)) && !mouse_buttons[1] )
	{
		ev.type = EV_MOUSE_BUTTON;
		mouse_buttons[1] = !mouse_buttons[1];
		ev.mouse_button |= LEFT_BUTTON;
	}
	else if( !(buttons & SDL_BUTTON(1)) && mouse_buttons[1] )
	{
		ev.type = EV_MOUSE_BUTTON;
		mouse_buttons[1] = !mouse_buttons[1];
		ev.mouse_button &= ( 0xff - LEFT_BUTTON );
	}

	// Middle button
	if( (buttons & SDL_BUTTON(2)) && !mouse_buttons[2] )
	{
		ev.type = EV_MOUSE_BUTTON;
		mouse_buttons[2] = !mouse_buttons[2];
		ev.mouse_button |= LEFT_BUTTON;
		ev.mouse_button |= RIGHT_BUTTON;
	}
	else if( !(buttons & SDL_BUTTON(2)) && mouse_buttons[2] )
	{
		ev.type = EV_MOUSE_BUTTON;
		mouse_buttons[2] = !mouse_buttons[2];
		ev.mouse_button &= ( 0xff - LEFT_BUTTON );
		ev.mouse_button &= ( 0xff - RIGHT_BUTTON );
	}

	// Right button
	if( (buttons & SDL_BUTTON(3)) && !mouse_buttons[3] )
	{
		ev.type = EV_MOUSE_BUTTON;
		mouse_buttons[3] = !mouse_buttons[3];
		ev.mouse_button |= RIGHT_BUTTON;
	}
	else if( !(buttons & SDL_BUTTON(3)) && mouse_buttons[3] )
	{
		ev.type = EV_MOUSE_BUTTON;
		mouse_buttons[3] = !mouse_buttons[3];
		ev.mouse_button &= ( 0xff - RIGHT_BUTTON );
	}
}