/*
 * A simple ball-and-paddle video game for the Yaroze.
 * By: Ed Federmeyer  (Just messing around with the Yaroze functions)
 */

#include <libps.h>
#include "pad.h"


typedef struct
	{
	char		*fname;
	void		*addr;
	CdlFILE	finfo;
	} FILE_INFO;

#define VH_ADDR		0x80090000
#define VB_ADDR		0x800a0000
#define SEQ_ADDR	0x80110000

#define MVOL            127             /*  Main volume level*/
#define SVOL            96              /*  SEQ volume level*/
#define DFILE           3               /*  File number*/

FILE_INFO dfile[DFILE] =
	{
	{"\\DATA\\SOUND\\STD0.VH;1", (void *)VH_ADDR, 0},
	{"\\DATA\\SOUND\\STD0.VB;1", (void *)VB_ADDR, 0},
	{"\\DATA\\SOUND\\MUSI.SEQ;1", (void *)SEQ_ADDR, 0}, /* or GOGO.SEQ */
	};

short vabID, seq;

void datafile_search();		/* File retrieval on CD-ROM */
void datafile_read();		/* File reading on CD-ROM */
void init_sound();		/* Sound data on memory playback preparation */
void play_sound();		/* Sound playback start */
void stop_sound();		/* Sound playback termination */


#define PAD_SPEED	5
#define PAD_X_SIZE	8
#define PAD_Y_SIZE	32
#define BALL_SPEED	2
#define BALL_X_SIZE	8
#define BALL_Y_SIZE	8
#define BG_X_MIN	20
#define BG_X_MAX	492
#define BG_Y_MIN	40
#define BG_Y_MAX	220



#define PACKETMAX	(10000)
#define PACKETMAX2	(PACKETMAX*24)
#define OT_LENGTH	(5)

GsOT		WorldOrderingTable[2];
GsOT_TAG	zSortTable[2][1<<OT_LENGTH];   
PACKET		GpuOutputPacket[2][PACKETMAX2];

/*
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  ----------------
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  111111111111111-
 *  ----------------
 */

unsigned short tile1_image_data[4][16] = {
	0x2222, 0x2222, 0x2222, 0x0022,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x3333, 0x3333, 0x3333, 0x0033,
	0x0000, 0x0000, 0x0000, 0x0000,
	0x2222, 0x2222, 0x2222, 0x0022,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x1122, 0x1111, 0x1111, 0x0033,
	0x3333, 0x3333, 0x3333, 0x0033,
	0x0000, 0x0000, 0x0000, 0x0000,
};


unsigned short clut[16] = {
	0x0000, 0x0004, 0x0008, 0x0002, 0x7FFF, 0x7FFF, 0x7FFF, 0x7FFF,
	0x7FFF, 0x7FFF, 0x7FFF, 0x7FFF, 0x7FFF, 0x7FFF, 0x7FFF, 0x7FFF,
};


GsBG		bg;
GsMAP		map;
GsCELL		cell[1];
unsigned short	index[32][15] = {
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
};

unsigned long	bg_work_area[ (( (512/16+1) * (240/16+1+1) * 6+4) * 2+2 ) ];


unsigned short ball_image_data[8][8] = {
	0x0000, 0x0000, 0x0000, 0x2108, 0x2108, 0x0000, 0x0000, 0x0000,
	0x0000, 0x2108, 0x2108, 0x7FFF, 0x2108, 0x2108, 0x2108, 0x0000,
	0x0000, 0x2108, 0x7FFF, 0x2108, 0x2108, 0x2108, 0x2108, 0x0000,
	0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108,
	0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108,
	0x0000, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x0000,
	0x0000, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x2108, 0x0000,
	0x0000, 0x0000, 0x0000, 0x2108, 0x2108, 0x0000, 0x0000, 0x0000,
};

/* 2108 7FFF */
unsigned short pad_image_data[8][32] = {
	0x0000, 0x0000, 0xA108, 0xA108, 0xA108, 0xA108, 0x0000, 0x0000,
	0x0000, 0xA108, 0xA108, 0xFFFF, 0xFFFF, 0xFFFF, 0xA108, 0x0000,
	0xA108, 0xA108, 0xFFFF, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xFFFF, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108,
	0x0000, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0xA108, 0x0000,
	0x0000, 0x0000, 0xA108, 0xA108, 0xA108, 0xA108, 0x0000, 0x0000,
};


GsSPRITE	ball_sprite;
GsSPRITE	pad1_sprite;
GsSPRITE	pad2_sprite;

int		score1;
int		score2;

void
main( void )
{
	u_long		pad_data;
	int		outputBufferIndex;
	int		xi=BALL_SPEED, yi=BALL_SPEED;
	RECT		rect;
	GsLINE		line1, line2, line3, line4;
	GsBOXF		box1, box2, box3, box4;
	int		bg_timer = 0;

	SetVideoMode( MODE_NTSC );

	// Get the sound data files
	datafile_search();
	// Read in the sound data
	datafile_read();

	GsInitGraph( 512 ,240, GsOFSGPU|GsNONINTER, 1, 0 );
	GsDefDispBuff( 0, 0, 0, 240 );

	PadInit();

	WorldOrderingTable[0].length = OT_LENGTH;
	WorldOrderingTable[1].length = OT_LENGTH;
	WorldOrderingTable[0].org = zSortTable[0];
	WorldOrderingTable[1].org = zSortTable[1];

	FntLoad(960, 256);	
	FntOpen(32, 32, 480, 208, 0, 512);

	rect.x = 960;
	rect.y = 0;
	rect.w = 8;
	rect.h = 8;
	LoadImage( &rect, (unsigned long *)&ball_image_data );

	rect.x = 960;
	rect.y = 8;
	rect.w = 8;
	rect.h = 32;
	LoadImage( &rect, (unsigned long *)&pad_image_data );

	rect.x = 960;
	rect.y = 8+32;
	rect.w = 4;
	rect.h = 16;
	LoadImage( &rect, (unsigned long *)&tile1_image_data );

	rect.x = 960;
	rect.y = 8+32+16;
	rect.w = 16;
	rect.h = 1;
	LoadImage( &rect, (unsigned long *)&clut );

	bg.attribute = 0x08000040;
	bg.x = 0;
	bg.y = 0;
	bg.w = 512;
	bg.h = 240;
	bg.scrollx = 0;
	bg.scrolly = 0;
	bg.r = 128;
	bg.g = 128;
	bg.b = 128;
	bg.map = &map;
	bg.mx = 0;
	bg.my = 0;
	bg.scalex = ONE;
	bg.scaley = ONE;
	bg.rotate = 0;

	map.cellw = 16;
	map.cellh = 16;
	map.ncellw = 32;
	map.ncellh = 15;
	map.base = &cell[0];
	map.index = &index[0][0];

	cell[0].u = 0;
	cell[0].v = 8+32;
	cell[0].cba = GetClut( 960, 8+32+16 );
	cell[0].flag = 0;
	cell[0].tpage = GetTPage( 0, 0, 960, 8+32 );

	GsInitFixBg16( &bg, &bg_work_area[0] );

	ball_sprite.attribute = 0x0A000040;
	ball_sprite.x = (BG_X_MAX-BG_X_MIN) / 2;
	ball_sprite.y = (BG_Y_MAX-BG_Y_MIN) / 2;
	ball_sprite.w = BALL_X_SIZE;
	ball_sprite.h = BALL_X_SIZE;
	ball_sprite.tpage = 271;
	ball_sprite.u = 0;
	ball_sprite.v = 0;
	ball_sprite.cx = 0;
	ball_sprite.cy = 0;
	ball_sprite.r = 128;
	ball_sprite.g = 128;
	ball_sprite.b = 128;
	ball_sprite.mx = 0;
	ball_sprite.my = 0;
	ball_sprite.scalex = 0;
	ball_sprite.scaley = 0;
	ball_sprite.rotate = 0;

#define ATR_BRIGHT	0x00000040
#define ATR_CLUT4	0x00000000
#define ATR_CLUT8	0x01000000
#define ATR_DIR15	0x02000000
#define ATR_NOROT	0x08000000
#define ATR_TRANS1	0x10000000
#define ATR_TRANS2	0x20000000
#define ATR_TRANS3	0x30000000
#define ATR_TRANS4	0x40000000
	pad1_sprite.attribute = ATR_DIR15 | ATR_NOROT;
	pad1_sprite.x = BG_X_MIN + 30;
	pad1_sprite.y = ((BG_Y_MAX-BG_Y_MIN) / 2) + BG_Y_MIN - (PAD_Y_SIZE/2);
	pad1_sprite.w = PAD_X_SIZE;
	pad1_sprite.h = PAD_Y_SIZE;
	pad1_sprite.tpage = 271;
	pad1_sprite.u = 0;
	pad1_sprite.v = 8;
	pad1_sprite.cx = 0;
	pad1_sprite.cy = 0;
	pad1_sprite.r = 0;
	pad1_sprite.g = 128;
	pad1_sprite.b = 0;
	pad1_sprite.mx = 0;
	pad1_sprite.my = 0;
	pad1_sprite.scalex = 0;
	pad1_sprite.scaley = 0;
	pad1_sprite.rotate = 0;

	pad2_sprite.attribute = ATR_DIR15 | ATR_NOROT;
	pad2_sprite.x = BG_X_MAX - 30;
	pad2_sprite.y = ((BG_Y_MAX-BG_Y_MIN) / 2) + BG_Y_MIN - (PAD_Y_SIZE/2);
	pad2_sprite.w = PAD_X_SIZE;
	pad2_sprite.h = PAD_Y_SIZE;
	pad2_sprite.tpage = 271;
	pad2_sprite.u = 0;
	pad2_sprite.v = 8;
	pad2_sprite.cx = 0;
	pad2_sprite.cy = 0;
	pad2_sprite.r = 0;
	pad2_sprite.g = 0;
	pad2_sprite.b = 128+64;
	pad2_sprite.mx = 0;
	pad2_sprite.my = 0;
	pad2_sprite.scalex = 0;
	pad2_sprite.scaley = 0;
	pad2_sprite.rotate = 0;

	line1.attribute = 0;
	line1.x0 = BG_X_MIN;	line1.y0 = BG_Y_MIN;
	line1.x1 = BG_X_MAX;	line1.y1 = BG_Y_MIN;
	line1.r  = 128;	line1.g  = 128;	line1.b  = 128;

	line2.attribute = 0;
	line2.x0 = BG_X_MAX;	line2.y0 = BG_Y_MIN;
	line2.x1 = BG_X_MAX;	line2.y1 = BG_Y_MAX;
	line2.r  = 128;	line2.g  = 128;	line2.b  = 128;

	line3.attribute = 0;
	line3.x0 = BG_X_MAX;	line3.y0 = BG_Y_MAX;
	line3.x1 = BG_X_MIN;	line3.y1 = BG_Y_MAX;
	line3.r  = 128;	line3.g  = 128;	line3.b  = 128;

	line4.attribute = 0;
	line4.x0 = BG_X_MIN;	line4.y0 = BG_Y_MAX;
	line4.x1 = BG_X_MIN;	line4.y1 = BG_Y_MIN;
	line4.r  = 128;	line4.g  = 128;	line4.b  = 128;

	box1.attribute = 0;
	box1.x = 0;		box1.y = 0;
	box1.w = 512;		box1.h = BG_Y_MIN;
	box1.r = 0;		box1.g = 0;		box1.b = 0;

	box2.attribute = 0;
	box2.x = 0;		box2.y = 0;
	box2.w = BG_X_MIN;	box2.h = 240;
	box2.r = 0;		box2.g = 0;		box2.b = 0;

	box3.attribute = 0;
	box3.x = BG_X_MAX;	box3.y = 0;
	box3.w = 512-BG_X_MAX;	box3.h = 240;
	box3.r = 0;		box3.g = 0;		box3.b = 0;

	box4.attribute = 0;
	box4.x = 0;		box4.y = BG_Y_MAX;
	box4.w = 512;		box4.h = 240-BG_Y_MAX;
	box4.r = 0;		box4.g = 0;		box4.b = 0;

	score1 = 0;
	score2 = 0;

	// Init Music and sound FX
	init_sound();
	// Start the music
	play_sound();

	do {

		outputBufferIndex = GsGetActiveBuff();
		GsSetWorkBase( (PACKET*)GpuOutputPacket[outputBufferIndex]);
		GsClearOt(0, 0, &WorldOrderingTable[outputBufferIndex]);

		if ( pad_data & PADLup ) {
			pad1_sprite.y -= PAD_SPEED;
			if ( pad1_sprite.y<BG_Y_MIN+1 ) {
				pad1_sprite.y = BG_Y_MIN+1;
			}
		}
		if ( pad_data & PADLdown ) {
			pad1_sprite.y += PAD_SPEED;
			if ( pad1_sprite.y>BG_Y_MAX-PAD_Y_SIZE ) {
				pad1_sprite.y = BG_Y_MAX-PAD_Y_SIZE;
			}
		}
		GsSortFastSprite( &pad1_sprite,
			&WorldOrderingTable[outputBufferIndex], 1 );


		if ( pad_data & PAD2Lup ) {
			pad2_sprite.y -= PAD_SPEED;
			if ( pad2_sprite.y<BG_Y_MIN+1 ) {
				pad2_sprite.y = BG_Y_MIN+1;
			}
		}
		if ( pad_data & PAD2Ldown ) {
			pad2_sprite.y += PAD_SPEED;
			if ( pad2_sprite.y>BG_Y_MAX-PAD_Y_SIZE ) {
				pad2_sprite.y = BG_Y_MAX-PAD_Y_SIZE;
			}
		}
		GsSortFastSprite( &pad2_sprite,
			&WorldOrderingTable[outputBufferIndex], 2 );


		ball_sprite.x += xi;
		if ((ball_sprite.x<BG_X_MIN+1) || (ball_sprite.x>BG_X_MAX-BALL_X_SIZE-1)) {
			if ( ball_sprite.x<BG_X_MIN+1) {
				score2++;
			} else {
				score1++;
			}
			SsUtKeyOn(vabID, 55, 0, 58, 0, 127, 127);
			ball_sprite.x -= xi;
			xi = -xi;
		}
		ball_sprite.y += yi;
		if ( (ball_sprite.y<BG_Y_MIN+1) || (ball_sprite.y>BG_Y_MAX-BALL_Y_SIZE-1) ) {
			SsUtKeyOn(vabID, 9, 0, 58, 0, 127, 127);
			ball_sprite.y -= yi;
			yi = -yi;
		}
		if ((ball_sprite.y+BALL_Y_SIZE >  pad1_sprite.y) &&
		    (ball_sprite.y             <  pad1_sprite.y+PAD_Y_SIZE) &&
		    (ball_sprite.x+BALL_X_SIZE >  pad1_sprite.x) &&
		    (ball_sprite.x             <  pad1_sprite.x+PAD_X_SIZE)) {

			SsUtKeyOn(vabID, 8, 0, 58, 0, 127, 127);
			ball_sprite.x -= xi;
			xi = -xi;
			if ( ball_sprite.y+(BALL_Y_SIZE/2) < pad1_sprite.y+(PAD_Y_SIZE/3) ) {
				ball_sprite.y -= yi;
				yi = -abs(yi);
			}
			if ( ball_sprite.y+(BALL_Y_SIZE/2) > pad1_sprite.y+PAD_Y_SIZE-(PAD_Y_SIZE/3) ) {
				ball_sprite.y -= yi;
				yi = abs(yi);
			}
			pad1_sprite.r = 128;
			pad1_sprite.g = 128;
			pad1_sprite.b = 128;

		} else if (
		    (ball_sprite.y+BALL_Y_SIZE >  pad2_sprite.y) &&
		    (ball_sprite.y             <  pad2_sprite.y+PAD_Y_SIZE) &&
		    (ball_sprite.x+BALL_X_SIZE >  pad2_sprite.x) &&
		    (ball_sprite.x             <  pad2_sprite.x+PAD_X_SIZE)) {

			SsUtKeyOn(vabID, 8, 0, 58, 0, 127, 127);
			ball_sprite.x -= xi;
			xi = -xi;
			if ( ball_sprite.y+(BALL_Y_SIZE/2) < pad2_sprite.y+(PAD_Y_SIZE/3) ) {
				ball_sprite.y -= yi;
				yi = -abs(yi);
			}
			if ( ball_sprite.y+(BALL_Y_SIZE/2) > pad2_sprite.y+PAD_Y_SIZE-(PAD_Y_SIZE/3) ) {
				ball_sprite.y -= yi;
				yi = abs(yi);
			}
			pad2_sprite.r = 128;
			pad2_sprite.g = 128;
			pad2_sprite.b = 128;
		} else {
			pad1_sprite.r = 0;
			pad1_sprite.g = 128;
			pad1_sprite.b = 0;

			pad2_sprite.r = 0;
			pad2_sprite.g = 0;
			pad2_sprite.b = 128+64;
		}

		GsSortFastSprite( &ball_sprite,
			&WorldOrderingTable[outputBufferIndex], 3 );

		/* Draw a box */
		GsSortLine( &line1,
			&WorldOrderingTable[outputBufferIndex], 10 );
		GsSortLine( &line2,
			&WorldOrderingTable[outputBufferIndex], 11 );
		GsSortLine( &line3,
			&WorldOrderingTable[outputBufferIndex], 12 );
		GsSortLine( &line4,
			&WorldOrderingTable[outputBufferIndex], 13 );

		/* Draw a background */
		if ( bg_timer++ > 1 ) {
			if ( xi > 0 ) {
				bg.scrollx--;
			} else {
				bg.scrollx++;
			}
			if ( yi > 0 ) {
				bg.scrolly--;
			} else {
				bg.scrolly++;
			}
			bg_timer = 0;
		}
		GsSortFixBg16( &bg, &bg_work_area[0], 
			&WorldOrderingTable[outputBufferIndex], 15 );

		/* Mask out the background we don't want */
		GsSortBoxFill( &box1, 
			&WorldOrderingTable[outputBufferIndex], 14 );
		GsSortBoxFill( &box2, 
			&WorldOrderingTable[outputBufferIndex], 14 );
		GsSortBoxFill( &box3, 
			&WorldOrderingTable[outputBufferIndex], 14 );
		GsSortBoxFill( &box4, 
			&WorldOrderingTable[outputBufferIndex], 14 );

		DrawSync(0);
		VSync(0);
		pad_data = PadRead();
		GsSwapDispBuff();

		GsSortClear( 0x0, 0x0, 0x0,
				&WorldOrderingTable[outputBufferIndex] );

		GsDrawOt( &WorldOrderingTable[outputBufferIndex] );

		FntPrint( "Player1: %03d", score1 );
		FntPrint( "                               " );
		FntPrint( "Player2: %03d\n", score2 );
		FntFlush( -1 );

	} while ( !(pad_data & PADselect) );

	/* Execute this by pressing select button and verifying */
	// Stop the music
	stop_sound();

	ResetGraph(3);
}


/**********************************************************************
 * Code snarfed from other demos
 **********************************************************************/

void datafile_search()
	{
	int i, j;

	for (i = 0; i < DFILE; i++)		   /* Deal with DFILE file */
		{		
		for (j = 0; j < 10; j++) 	   /* Return loop */
			{  
			if (CdSearchFile(&(dfile[i].finfo), dfile[i].fname) != 0)
				break;		

			else	/* Retry loop interruption on normal termination */
				printf("%s not found.\n", dfile[i].fname);
			}
		}
	}

void datafile_read()
	{
	int i, j;
	int cnt;

	for (i = 0; i < DFILE; i++)		   /* Deal with DFILE file */
		{
		for (j = 0; j < 10; j++)	   /* Retry loop */
			{	
			CdReadFile(dfile[i].fname, dfile[i].addr,dfile[i].finfo.size);

			/* Normal processing can be executed by other side of read */
			/* Here, remaining sector number is monitored until Read terminated */

			/* Wait for VSync for time adjustment */
			while ((cnt = CdReadSync(1, 0)) > 0 )
				VSync(0);

			/* Retry loop interruption on normal termination*/
			if (cnt == 0)
				break;	
			}

		}
	}


void init_sound()
	{
	/* VAB opening and transmission to sound buffer */
	vabID = SsVabTransfer( (u_char*)VH_ADDR, (u_char*)VB_ADDR, -1, 1 );
	if (vabID < 0)
		{
		printf("SsVabTransfer failed (%d)\n", vabID);
		return;
		}

	/* SEQ opening */
	seq = SsSeqOpen((u_long *)SEQ_ADDR, vabID);
	if (seq < 0)
		printf("SsSeqOpen failed (%d)\n", seq);
	}

void play_sound()
	{
	SsSetMVol(MVOL, MVOL);					/* Main volume setting*/
	SsSeqSetVol(seq, SVOL, SVOL);			/* Volume setting for each SEQ */
	SsSeqPlay(seq, SSPLAY_PLAY, SSPLAY_INFINITY);	/* Playback switch ON */
	}

void stop_sound()
	{
	SsSeqStop(seq);			/* Playback switch OFF */
	VSync(0);
	VSync(0);
	SsSeqClose(seq);		/* SEQ close */
	SsVabClose(vabID);		/* VAB close */
	}