// **********************
// Preprocessor functions
// **********************

#include "header.h"				        			  						// include standard libs

static GsOT         OTable_Header[2];                 // Header files holding OTable info
static GsOT_TAG     OTable_Array[2][1<<OTABLE_LENGTH];
                                                      // Array to hold drawing order info
PACKET		Packet_Memory[2][MAX_PACKETS];            	// Memory to hold GPU packet data

u_long 		currentBuffer;															// Current drawing screen
short			FntOne;
u_long		ScreenDrawTiming = 0;
u_long		ScreenMin = 10000;
u_long		ScreenMax = 0;

u_long		GameRunning = 1;                          	// Is game running variable
u_long		Counter = 0;																// Frame counter

long			PXPos = 160 << 2;														// Starting position
long			PYPos = 280 << 2;
long			PStatus = 1;																// Starts falling
long			PJump = 0;																	// Change in speed due to gravity
long			PSpeed = 0;																	// Speed
GsSPRITE	PRun[30];																		// Running sprites

long			XScreen = 0;																// Visible screen co-ordinates
long			YScreen = 0;

GsSPRITE	MountainsSprite[80];												// Background sprites
u_char		Mountains[20][5];														// Background layer of parallax

GsSPRITE	CloudSprite[192];														// Cloud sprites
u_char		Clouds[16][12];															// Clouds

GsSPRITE	TreeTopSprite[4];														// Treetop sprites

GsSPRITE	ForegroundSprite[256];											// Foreground sprites
u_char		Foreground[100][100];												// Foreground array

u_short		Middleground[100][100];											// Middleground array
GsCELL		MiddlegroundCELL[256];				  						// Middleground cell data
GsMAP			MiddlegroundMAP;				 										// Middleground map data
GsBG			MiddlegroundBG;								  						// Middleground bg data
u_long		MiddlegroundBGWork[(((320/16 + 1) * (240 / 16 + 2) * 6 + 4) * 2 + 2) * 2];
																											// Middleground bg working area

typedef struct{
					long type;
					long x, y;
					long a, b, c, d, e;
					} OBJECT;																		// All object definition

OBJECT		Objects[200];																// All objects in game

double		SIN[360];
double		COS[360];

// ***********
// Subroutines
// ***********

#include "i_object.c"																	// include functions
#include "i_init.c"
#include "i_screen.c"
#include "i_tim.c"
#include "i_misc.c"

// *************
// Main function
// *************

void main()
	{
	Initialise();

	printf("\n\nstarting\n\n");													// Print starting message on PC

	VSync(0);
	while (GameRunning == 1)
		{
		RenderStart();																		// Define frame variables
		UpdateWorld();                                    // Update all the sprites
		RenderWorld();                                   	// draw the screen

		Counter++;																				// Increase frame counter each update
		};

	printf("\n\nending\n\n");														// Print quit message on PC

	ResetGraph(3);																			// Reset yaroze
	}

// *****************
// Update everything
// *****************

void UpdateWorld()
	{
	u_long Pad1, Pad2;
	long t1, t2, t3, t4, t5;

	Pad1 = Pad1Read();
	Pad2 = Pad2Read();

	if ((Pad1 & PADstart) && (Pad1 & PADselect)) GameRunning = 0;
																											// Quit the game

	switch(PStatus)
		{
		case 0:																						// Normal
			if ((Pad1 & PADright) && (PSpeed < 11)) PSpeed += 2;
			if ((Pad1 & PADleft) && (PSpeed > -11)) PSpeed -= 2;
			if ((Pad1 & PADcross))
				{
				PStatus = 1;																	// Jump status
				PJump = -20;																	// Initial upwards force
				}
			else
				{
				t1 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 63);
				t2 = GetBlockStatus((PXPos >> 2) + 15, (PYPos >> 2) + 63);
				t3 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 63);

				if ((t1 == -1) && (t2 == -1) && (t3 == -1))		// Check if nothing underfoot
					{
					PStatus = 1;																// Start falling
					PJump = 4;
					}
				}

			PXPos += PSpeed;																// Move according to speed

			if (PSpeed < 0)																	// Collision detection for going left
				{
				t1 = GetBlockStatus((PXPos >> 2), (PYPos >> 2));
				t2 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 16);
				t3 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 31);
				t4 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 46);
				t5 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 61);

				if ((t1 != -1) || (t2 != -1) || (t3 != -1) || (t4 != -1) || (t5 != -1))
					{
					PSpeed = 0;
					PXPos -= PXPos % 64 - 64;
					}
				}

			if (PSpeed > 0)																	// Collision detection for going right
				{
				t1 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2));
				t2 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 16);
				t3 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 31);
				t4 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 46);
				t5 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 61);

				if ((t1 != -1) || (t2 != -1) || (t3 != -1) || (t4 != -1) || (t5 != -1))
					{
					PSpeed = 0;
					PXPos -= PXPos % 64;
					}
				}

			break;
		case 1:																						// Jumping/falling
			if ((Pad1 & PADright) && (PSpeed < 15)) PSpeed += 1;
			if ((Pad1 & PADleft) && (PSpeed > -15)) PSpeed -= 1;

			PXPos += PSpeed;																// Move according to speed
			PYPos += PJump;																	// Change height according to acceleration

			if (PJump < 25) PJump++;												// Drop faster until limit

			if (PSpeed < 0)																	// Collision detection 1 for going left
				{
				t1 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 16);
				t2 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 31);
				t3 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 46);

				if ((t1 != -1) || (t2 != -1) || (t3 != -1))
					{
					PSpeed = 0;
					PXPos -= PXPos % 64 - 64;
					}
				}

			if (PSpeed > 0)																	// Collision detection 1 for going right
				{
				t1 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 16);
				t2 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 31);
				t3 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 46);

				if ((t1 != -1) || (t2 != -1) || (t3 != -1))
					{
					PSpeed = 0;
					PXPos -= PXPos % 64;
					}
				}

			if (PJump < 1)																	// Cheap check for hitting head
				{
				t1 = GetBlockStatus((PXPos >> 2), (PYPos >> 2));
				t2 = GetBlockStatus((PXPos >> 2) + 15, (PYPos >> 2));
				t3 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2));

				if ((t1 != -1) || (t2 != -1) || (t3 != -1))
					{
					PYPos -= PYPos % 64 - 64;
					PJump = 0;
					}
				}

			if (PJump > 1)																	// Cheap check for blocks below
				{
				t1 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 62);
				t2 = GetBlockStatus((PXPos >> 2) + 15, (PYPos >> 2) + 62);
				t3 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 62);

				if ((t1 != -1) || (t2 != -1) || (t3 != -1))
					{
					PYPos -= MAX(MAX(t1, t2), t3) << 2;					// This may not be accurate enough
					PStatus = 0;
					}
				}

			if (PSpeed < 0)																	// Collision detection 2 for going left
				{
				t1 = GetBlockStatus((PXPos >> 2), (PYPos >> 2));
				t2 = GetBlockStatus((PXPos >> 2), (PYPos >> 2) + 61);

				if ((t1 != -1) || (t2 != -1))
					{
					PSpeed = 0;
					PXPos -= PXPos % 64 - 64;
					}
				}

			if (PSpeed > 0)																	// Collision detection 2 for going right
				{
				t1 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2));
				t2 = GetBlockStatus((PXPos >> 2) + 31, (PYPos >> 2) + 61);

				if ((t1 != -1) || (t2 != -1))
					{
					PSpeed = 0;
					PXPos -= PXPos % 64;
					}
				}

			break;
		}

	// Process objects

	UpdateObjects();

	// Miscellaneous variable messing

	if (PSpeed > 0) PSpeed--;												// Slow down generally
	if (PSpeed < 0) PSpeed++;												// Slow down generally

	// Offset the visible area from player's position

	XScreen = (PXPos >> 2) - 152;
	YScreen = (PYPos >> 2) - 120;
	}