/* ===================================================================
** File:		card.c
** Purpose:	Load and save the Tetixx Hiscore list and Screen
**				adjust values to memory card.
**				The code is based on the Sony Computer Entertainment Inc.
**				card.c source.
*/

#include	<sys/file.h>
#include	<libps.h>

#include "tetixx.h"
#include "cardio.h"



// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// P R O T O T Y P E S
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
long List_Card(char *drv, struct DIRENTRY *d);
asm void Get_Data(void);
asm void Make_Save_Data(unsigned long);





// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// V A R I A B L E S
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
char *DevName[]={"bu00:","bu10:"};
static unsigned long CardBuffer[2048];
struct DIRENTRY cd[15];
unsigned char StonePattern[128] = {
 0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0xB8,0xEE,0x9B,0xA9,0xAB,0x79,0xBA,
 0x81,0xA8,0xFC,0xAB,0xA9,0x79,0x57,0x37,0x82,0xA8,0xCD,0x9B,0x79,0x79,0x57,0x37,
 0x83,0xB8,0xDD,0xAB,0x55,0x77,0x77,0x39,0x83,0xA8,0xCC,0x5A,0x97,0x79,0x99,0x27,
 0x82,0xA8,0xAD,0x59,0x77,0x99,0x79,0x15,0x81,0xC8,0xAE,0x55,0x57,0x97,0x37,0x13,
 0x81,0xB8,0x9A,0x53,0x57,0x77,0x35,0x25,0x82,0xB8,0x9A,0x53,0x57,0x77,0x35,0x25,
 0x82,0xA8,0xAD,0x59,0x77,0x99,0x79,0x15,0x81,0xC8,0xAE,0x55,0x57,0x97,0x37,0x13,
 0x81,0xB8,0x9A,0x53,0x57,0x77,0x35,0x25,0x82,0xA8,0x39,0x73,0x77,0x57,0x55,0x37,
 0x83,0x98,0x11,0x11,0x32,0x23,0x32,0x22,0x82,0x88,0x88,0x88,0x88,0x88,0x88,0x88,
 0x88
};
char TetixxTitle[]="KAMIX HISCORE";






/* ---------------------------------------------------------------------
** Function:	Load_Tetixx
**	Purpose:		Try to load the file. If Tetixx not exits then reutnr 1
*/

int Load_Tetixx(int n)
{
long ret,howmany,fd;
short i;
char name[32];

	ret = 0;
	howmany = List_Card(DevName[n], &cd[0]);

	if (howmany) {
		for (i=0; i<howmany; i++) {
			if (!(strcmp(cd[i].name, "BEYAROZE-KAMIX"))) {
				ret = 1;
				strcpy(name, DevName[n]);
				strcat(name, cd[i].name);
				fd = open(name, O_RDONLY);
				lseek(fd, 0, SEEK_SET);
				read(fd, (char *)&CardBuffer[0], 8192);
				close(fd);
				Get_Data();
			
				GsDISPENV.screen.x=ScrXOff;
				GsDISPENV.screen.y=ScrYOff;							
				goto leave;
				}
			}
		}	
	
leave:
	return(ret);
}






/* ---------------------------------------------------------------------
** Function:	Save_Tetixx
**	Purpose:		Try to save the file.
**					If coundn't return 0
*/

int Save_Tetixx(int n)
{
long ret,howmany,fd;
short i;
char name[64];

	ret = 0;
	howmany = List_Card(DevName[n], &cd[0]);

	if (!howmany)
		ret = 1;
	else {
		for (i=0; i<howmany; i++) {
			if (!(strcmp(cd[i].name, "BEYAROZE-KAMIX"))) {
				ret = 1;
				strcpy(name, DevName[n]);
				strcat(name, cd[i].name);
				if (delete(name)!=1) {
					ret = 0;
					goto produce;
					}
				goto produce;
				}
			}
		if (howmany == 15) {
			ret = 0;
			}
		else {
			ret = 1;
			strcpy(name, DevName[n]);
			strcat(name, "BEYAROZE-KAMIX");
			}	
		}
		
		
produce:
	if (ret) {
		srand(GetRCnt(1));
		Make_Save_Data(rand());
		
		fd = open(name, O_CREAT|(1<<16));
		close(fd);
		
		fd = open(name, O_WRONLY);
		lseek(fd,0,SEEK_SET);
		write(fd, (char *)CardBuffer, 8192);
		close(fd);
	}
	
	return(ret);
}









/* ---------------------------------------------------------------------
** Function:	List_Card
**	Purpose:		Get the card contents
*/

long List_Card(char *drv, struct DIRENTRY *d)
{
static long ret;
	char key[64];
	extern struct DIRENTRY *firstfile(), *nextfile();
	
	strcpy(key, drv);
	strcat(key, "*");
	
	ret = 0;
	
	if (firstfile(key, d)==d) {
		do {
			ret++;
			d++;
		} while(nextfile(d)==d);
	}

	return(ret);
}







/* ---------------------------------------------------------------------
** Function:	Get_Data
**	Purpose:		Get screen adjustment and Hiscore form loded data
*/

asm void Get_Data(void)
{

	.set	reorder

	la		t0, CardBuffer
	addiu	t1, t0, sizeof(_CARD)
	
	lhu	t2, 0(t1)
	lhu	t3, 2(t1)
	sh		t2, ScrXOff
	sh		t3, ScrYOff
	
	addiu	t1, t1, 4
	
	la		t0, HiscoreList
	li		t2, 64
	
copy_hiscore:
	lw		t3, 0(t1)
	lw		t4, 4(t1)
	lw		t5, 8(t1)
	lw		t6, 12(t1)
	lw		t7, 16(t1)
	lw		t8, 20(t1)
	
	sw		t3, 0(t0)
	sw		t4, 4(t0)
	sw		t5, 8(t0)
	sw		t6, 12(t0)
	sw		t7, 16(t0)
	sw		t8, 20(t0)
	
	addiu	t1, t1, 24
	addiu	t0, t0, 24
	addi	t2, t2, -1
	nop
	bne	t2, $0, copy_hiscore

	nop
	jr		ra
}








/* ---------------------------------------------------------------------
** Function:	Make_Save_Data
**	Purpose:		Construct the save data.
*/

asm void Make_Save_Data(unsigned long)
{

	.set	reorder

	addiu	sp, sp, -12
	sw		ra, 0(sp)
	sw		a0, 8(sp)
	
	la		t0, CardBuffer

	li		t1, 'S'
	li		t2, 'C'
	sb		t1, 0(t0)			// MAGIC
	sb		t2, 1(t0)

	li		t1, 0x11
	sb		t1, 2(t0)			// TYPE
	
	li		t1, 1
	sb		t1, 3(t0)			// Block entry
	addiu	t0, t0, 4
	
/*	li		t1, 16

cll0:								// title
	sw		$0, 0(t0)
	addiu	t0, t0, 4
	addi	t1, t1, -1
	bne	t1, $0, cll0
*/

	li		t1, 13
	la		t2, TetixxTitle

cll0:
	lbu	t3, 0(t2)
	sb		t3, 0(t0)
	addiu	t2, t2, 1
	addiu	t0, t0, 1
	addi	t1, t1, -1
	bne	t1, $0, cll0
	
	li		t1, 51
cll00:
	sb		$0, 0(t0)
	addiu	t0, t0, 1
	addi	t1, t1, -1
	bne	t1, $0, cll00
	

	li		t1, 7

cll1:								// reserve
	sw		$0, 0(t0)
	addiu	t0, t0, 4
	addi	t1, t1, -1
	bne	t1, $0, cll1
	
	sw		t0, 4(sp)
		
	
	lw		a0, 8(sp)					// get random number
	li		t0, STONE_CLUT_NUMBER	// the cluts are
	divu	a0, t0						// the same as in the game
	nop
	nop
	mfhi	t0
	la		t1, StoneCluts
	li		t2, 48
	multu	t2, t0
	nop
	nop
	mflo	t3
	addu	t1, t1, t3
	addiu	t1, t1, 16
	
	lw		t0, 4(sp)
	nop
	li		t2, 8

cll2:										// copy clut loop
	lw		t3, 0(t1)
	sw		t3, 0(t0)
	addiu	t1, t1, 4
	addiu	t0, t0, 4
	addi	t2, t2, -1
	bne	t2, $0, cll2
	
	
	la		t1, StonePattern
	li		t2, 32

cll3:									// copy stone pattern 16x16x4bit
	lw		t3, 0(t1)
	sw		t3, 0(t0)
	addiu	t0, t0, 4
	addiu	t1, t1, 4
	addi	t2, t2, -1
	bne	t2, $0, cll3
	
	li		t2, 64					// clear the two unused icons

cll4:
	sw		$0, 0(t0)
	addiu	t0, t0, 4
	addi	t2, t2, -1
	bne	t2, $0, cll4
	
	
	lhu	t3, ScrXOff					// get the screen adjustment
	lhu	t4, ScrYOff
	sh		t3, 0(t0)
	sh		t4, 2(t0)
	addiu	t0, t0, 4
	
	la		t1, HiscoreList			// copy the Hiscorelist
	li		t2, 64
	
cll5:
	lw		t3, 0(t1)
	lw		t4, 4(t1)
	lw		t5, 8(t1)
	lw		t6, 12(t1)
	lw		t7, 16(t1)
	lw		t8, 20(t1)
	
	sw		t3, 0(t0)
	sw		t4, 4(t0)
	sw		t5, 8(t0)
	sw		t6, 12(t0)
	sw		t7, 16(t0)
	sw		t8, 20(t0)
	
	addiu	t0, t0, 24
	addiu	t1, t1, 24
	addi	t2, t2, -1
	bne	t2, $0, cll5
	nop

	lw		ra, 0(sp)
	nop
	addiu	sp, sp, 12
	jr		ra
}