/************************************************************************************************************************************* 
 *Simply program to manipulate sprites and change them with a press of left, right, up or down on the controller pad 
 *
 * By James Banks - 26th December 1997
 *
 * Based upon the Sprite demonstration program by Ira Rainey - 2/6/97 (Cheers for the excellent tutorial !!! )
 *************************************************************************************************************************************/
#include <libps.h>
#include <pad.h>
#include <MWDebugIO.h>

#define SCREEN_HEIGHT 	256
#define SCREEN_WIDTH 	320

#define SPRITE_HEIGHT	60
#define SPRITE_WIDTH		34

/* Max. number of sprites to be used */
#define MAX_SPRITES		(12+1)

/* Memory Address for the TIM to be held */
#define TIM_ADDRESS 		0x80100000

/* Ordering Table information */
#define OT_LENGTH 		1
GsOT		WorldOT[2];
GsOT_TAG	OTTags[2][1<<OT_LENGTH];
int activeBuffer, version, marker=0;

/* Packet definition */
PACKET		GpuPacketArea[2][MAX_SPRITES*sizeof(GsSPRITE)];

/* Sprite handling structure pointer */
GsSPRITE	TestSprite[12], YarozePicture;

/* Functions and procedure definitions */
void Load_TIM_file(int version);
static int CheckPad(int number);

int main()
{
	int 		i, number; /* used for counter purposes */
	
	version = 0;
	
	/* Initialise the screen display and double buffer areas */
	SetVideoMode(MODE_PAL);
	
	GsInitGraph(SCREEN_WIDTH, SCREEN_HEIGHT, 4, 0, 0);
	
	GsDefDispBuff(0,0,0,SCREEN_HEIGHT);
	
	/* Setup up the Ordering Table */
	for(i=0;i<2;i++){
		WorldOT[i].length = OT_LENGTH;
		WorldOT[i].org = OTTags[i];
	}
	
	FntLoad(960,256);
	
	FntOpen(0, 10, SCREEN_WIDTH, SCREEN_HEIGHT, 0, 256);
	
	start: number = 0;
	
	Load_TIM_file(version);
	
	SetPadBuffers(); //GetPadBuf(&bb0, &bb1);
			
	number=(CheckPad(number));
	
	while(number != 99)
		{
		activeBuffer = GsGetActiveBuff();
		
		GsSetWorkBase((PACKET *)GpuPacketArea[activeBuffer]);
		
		GsClearOt(0, 0, &WorldOT[activeBuffer]);
		
		if(version==0){				
			GsSortFastSprite(&YarozePicture, &WorldOT[activeBuffer], 0);
			FntPrint("\n\n\t\t  A Simple Sprite Demo\n\t\t  ====================\n\n\t\t\t Created using\n\n");
			FntPrint("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\t   By James Banks - 11/1/98\n\n\n");
			FntPrint("\t   Press Select to continue\n");
			FntFlush(-1);
		}
		else
			{
			GsSortFastSprite(&TestSprite[number], &WorldOT[activeBuffer], 0);
			FntPrint("\t  Sprite number : %d", (number+1));
			FntPrint(" of 12\n");
			FntPrint("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
			FntPrint("\t   Press Select to continue\n");
			FntFlush(-1);
		}

		/* Waiting for drawing to stop */
		DrawSync(0);
		VSync(0);
		
		GsSwapDispBuff();
		
		GsSortClear(0, 0, 0, &WorldOT[activeBuffer]);
		
		GsDrawOt(&WorldOT[activeBuffer]);
		
		number = (CheckPad(number));
		}
		
	if(version==0){
		ResetGraph(0);
		++version;
		goto start;
	}
	
	ResetGraph(1);
		
	return(0);
}

void Load_TIM_file(int version)
{
	int		counter;
	RECT	Rect;
	GsIMAGE	Tim_data;
		
	/* Load the TIM file into the memory address */
	if(version==0)
		MWbload("Yaroze.tim", (u_long *)TIM_ADDRESS);
	else
		MWbload("Sprite.tim", (u_long *)TIM_ADDRESS);
	
	/* Get TIM info but skip 4 bytes to get the info we need */
	GsGetTimInfo((u_long *)(TIM_ADDRESS+4), &Tim_data);
	
	/* Define the part of the TIM to look at */
	Rect.x 	= 	Tim_data.px;
	Rect.y 	=	Tim_data.py;
	Rect.w 	= 	Tim_data.pw;
	Rect.h 	=	Tim_data.ph;
	LoadImage(&Rect, Tim_data.pixel);

	/* Get the CLUT information if the second set of sprites are loaded */
	Rect.x 	= 	Tim_data.cx;
	Rect.y 	= 	Tim_data.cy;
	Rect.w 	= 	Tim_data.cw;
	Rect.h 	= 	Tim_data.ch;
	LoadImage(&Rect, Tim_data.clut);
	
	if(version==0){
		YarozePicture.attribute				=	0x01000000;
		YarozePicture.x					=	((SCREEN_WIDTH/2)-(Tim_data.pw));
		YarozePicture.y					=	((SCREEN_HEIGHT/2)-(Tim_data.ph/2));
		YarozePicture.w					=	(Tim_data.pw*2);
		YarozePicture.h					=	Tim_data.ph;
		YarozePicture.tpage					=	GetTPage(1, 0, Tim_data.px, Tim_data.py);
		YarozePicture.u					=	0;
		YarozePicture.v					=	0;
		YarozePicture.cx					=	Tim_data.cx;
		YarozePicture.cy					=	Tim_data.cy;
		YarozePicture.r					=	128;
		YarozePicture.g					=	128;
		YarozePicture.b					=	128;
		YarozePicture.mx					=	0;
		YarozePicture.my					=	0;
		YarozePicture.scalex				=	ONE;
		YarozePicture.scaley				=	ONE;
		YarozePicture.rotate					=	0;
		}
	else
		{
		for(counter=0;counter<12;counter++){
		/* Initialise the sprite structure and where it will be displayed */
			TestSprite[counter].attribute		=	0x01000000;
		
			if(counter<=5)
				TestSprite[counter].x		=	(((SCREEN_WIDTH/2)-(Tim_data.pw))+(counter*34));
			else
				TestSprite[counter].x		=	(((SCREEN_WIDTH/2)-(Tim_data.pw))+((counter-6)*34));
		
			if(counter<=5)
				TestSprite[counter].y		=	((SCREEN_HEIGHT/2)-(Tim_data.ph/2));
			else
				TestSprite[counter].y		=	(((SCREEN_HEIGHT/2)-(Tim_data.ph/2))+SPRITE_HEIGHT);
	
			/* Setup the various attributes for the sprite to be displayed */
			TestSprite[counter].w			=	SPRITE_WIDTH;
			TestSprite[counter].h			=	SPRITE_HEIGHT;
			TestSprite[counter].tpage			=	GetTPage(1, 0, Tim_data.px, Tim_data.py);
		
			if(counter<=5)
				TestSprite[counter].u		=	(counter*SPRITE_WIDTH);
			else
				TestSprite[counter].u		=	((counter-6)*SPRITE_WIDTH);
		
			if(counter<=5)
				TestSprite[counter].v		=	0;
			else
				TestSprite[counter].v		=	SPRITE_HEIGHT;
		
			TestSprite[counter].cx			=	Tim_data.cx;
			TestSprite[counter].cy			=	Tim_data.cy;
			TestSprite[counter].r				=	128;
			TestSprite[counter].g			=	128;
			TestSprite[counter].b			=	128;
			TestSprite[counter].mx			=	0;
			TestSprite[counter].my			=	0;
			TestSprite[counter].scalex		=	ONE;
			TestSprite[counter].scaley		=	ONE;
			TestSprite[counter].rotate			=	0;
			}
		}
		/* Wait until the LoadImage() call has finished drawing */
		DrawSync(0);
}

/****************************************************************************************
 * Function to return 99 if Select is pressed on the left controller pad 
 *
 * Returns number to allocate which sprite to show (out of the 12 pictures)
 ****************************************************************************************/
static int CheckPad(int number)
{
	u_long pad = PadRead(PORT_ONE);
	
	if(pad & PADSelect)		return(99);
	
	if((pad==0)||(pad & PAD_Square)||(pad & PAD_Cross)||(pad & PAD_Circle)||(pad & PAD_Triangle)||(pad & PADL1)||(pad & PADL2)||(pad & PADR1)||(pad & PADR2)||(pad & PADStart))			return(number);

	if(version > 0){
		if(pad & PAD_Left){							
			if(number==0)
				return(0);
			if((marker==1)&&(number==6))
				return(6);
			else
				return(--number);
		}
		
		if(pad & PAD_Right){
			if(number==5)
				return(5);
			if((marker==1)&&(number==11))
				return(11);
			else
				return(++number);
		}
		
		if(pad & PAD_Down){
			if(marker==0){
				marker=1;
				return(number+6);
			}
			else
				return(number);
		}
		if(pad & PAD_Up){
			if(marker==1){
				marker=0;
				return(number-6);
			}
			else
				return(number);
		}
	}	
}