/*
Copyright (C) 1996-1997 Id Software, Inc.

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  

See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

*/
// in_null.c -- for systems without a mouse

#include <exec/exec.h>
#include <intuition/intuition.h>
#include <libraries/lowlevel.h>
#include <powerup/ppcproto/lowlevel.h>
#include <powerup/ppcproto/exec.h>

#include "quakedef.h"

cvar_t m_filter = {"m_filter", "1"};

qboolean using_mouse = false;
qboolean using_joypad = false;
short int last_mouse[2] = {0, 0};

extern qboolean mousemove;
extern qboolean buttonpress;
extern UWORD buttoncode;

struct Library *LowLevelBase = NULL;

void IN_MouseMove (usercmd_t *cmd);
void Init_Joypad (void);
void Read_Joypad (void);

void Read_Joypad (void)
{
	ULONG joypos;

	joypos = ReadJoyPort(1);

	if (joypos & JPF_JOY_LEFT)
		Key_Event (K_AUX1, true);
	else
		Key_Event (K_AUX1, false);

	if (joypos & JPF_JOY_RIGHT)
		Key_Event (K_AUX2, true);
	else
		Key_Event (K_AUX2, false);

	if (joypos & JPF_JOY_UP)
		Key_Event (K_AUX3, true);
	else
		Key_Event (K_AUX3, false);

	if (joypos & JPF_JOY_DOWN)
		Key_Event (K_AUX4, true);
	else
		Key_Event (K_AUX4, false);

	if (joypos & JPF_BUTTON_RED)
		Key_Event (K_AUX5, true);
	else
		Key_Event (K_AUX5, false);

	if (joypos & JPF_BUTTON_GREEN)
		Key_Event (K_AUX6, true);
	else
		Key_Event (K_AUX6, false);

	if (joypos & JPF_BUTTON_YELLOW)
		Key_Event (K_AUX7, true);
	else
		Key_Event (K_AUX7, false);

	if (joypos & JPF_BUTTON_BLUE)
		Key_Event (K_AUX8, true);
	else
		Key_Event (K_AUX8, false);

	if (joypos & JPF_BUTTON_PLAY)
		Key_Event (K_AUX9, true);
	else
		Key_Event (K_AUX9, false);

	if (joypos & JPF_BUTTON_FORWARD)
		Key_Event (K_AUX10, true);
	else
		Key_Event (K_AUX10, false);

	if (joypos & JPF_BUTTON_REVERSE)
		Key_Event (K_AUX11 ,true);
	else
		Key_Event (K_AUX11, false);
}

void Init_Joypad (void)
{
	LowLevelBase = OpenLibrary ("lowlevel.library", 0);
	if (LowLevelBase)
	{
		Con_Printf ("Joypad enabled\n");
		using_joypad = true;
	}
	else
		Con_Printf ("Can't open lowlevel.libary\n");
}

void IN_Init (void)
{
  using_mouse = COM_CheckParm ("-mouse");
  if (using_mouse)
    Cvar_RegisterVariable (&m_filter);

	using_joypad = COM_CheckParm ("-joypad");
	if (using_joypad)
		Init_Joypad();
}

void IN_Shutdown (void)
{
	if (LowLevelBase != NULL)
	{
		CloseLibrary (LowLevelBase);
		LowLevelBase = NULL;
	}
}

void IN_Commands (void)
{
	if (using_joypad)
		Read_Joypad();

	if (!buttonpress)
		return;

	buttonpress = false;

	switch (buttoncode)
	{
  	case IECODE_LBUTTON:
    	Key_Event (K_MOUSE1, true);
			break;
    case IECODE_LBUTTON + IECODE_UP_PREFIX:
      Key_Event (K_MOUSE1, false);
      break;
    case IECODE_MBUTTON:
      Key_Event (K_MOUSE2, true);
      break;
    case IECODE_MBUTTON + IECODE_UP_PREFIX:
      Key_Event (K_MOUSE2, false);
      break;
    case IECODE_RBUTTON:
      Key_Event (K_MOUSE3, true);
      break;
    case IECODE_RBUTTON + IECODE_UP_PREFIX:
      Key_Event (K_MOUSE3, false);
      break;
		default:
			break;
	}
}

void IN_Move (usercmd_t *cmd)
{
	if (using_mouse)
		IN_MouseMove (cmd);
}

void IN_MouseMove(usercmd_t *cmd)
{
	short int mx, my;
  double mouse_x, mouse_y;
  static int old_mouse_x = 0, old_mouse_y = 0;

	if (mousemove == false)
		return;

	mousemove = false;

	mx = (last_mouse[0] >> 1) << 3;
  my = (last_mouse[1] >> 1) << 3;

	
  if (m_filter.value) {
    mouse_x = 0.5 * (mx + old_mouse_x);
    mouse_y = 0.5 * (my + old_mouse_y);
  } else {
    mouse_x = (double)mx;
    mouse_y = (double)my;
  }

  mouse_x *= sensitivity.value;
  mouse_y *= sensitivity.value;

  old_mouse_x = mx;
  old_mouse_y = my;

  /* add mouse X/Y movement to cmd */
  if ((in_strafe.state & 1) || (lookstrafe.value && (in_mlook.state & 1)))
    cmd->sidemove += m_side.value * mouse_x;
  else
    cl.viewangles[YAW] -= m_yaw.value * mouse_x;

  if (in_mlook.state & 1)
    V_StopPitchDrift ();

  if ((in_mlook.state & 1) && !(in_strafe.state & 1)) {
    cl.viewangles[PITCH] += m_pitch.value * mouse_y;
    if (cl.viewangles[PITCH] > 80)
      cl.viewangles[PITCH] = 80;
    if (cl.viewangles[PITCH] < -70)
      cl.viewangles[PITCH] = -70;
  } else {
    if ((in_strafe.state & 1) && noclip_anglehack)
      cmd->upmove -= m_forward.value * mouse_y;
    else
      cmd->forwardmove -= m_forward.value * mouse_y;
  }
}