/**********************************/
/* BOLL                           */
/* ecrit par MAGNIER Nicolas      */
/* magnier@caramail.com           */
/* ou magnier1 sur le site yaroze */
/**********************************/


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


//	---definitions---

#define SPRITE_ADD	(0x80090000)
#define BG_ADD		(0x80092000)
#define NB_BALL		(10)
#define NB_SPRITE	(NB_BALL)
#define OT_LENGTH	(NB_SPRITE+1)
#define UN		(4096)

static GsOT	OTable_Header[2];
static GsOT_TAG	OTable_Array[2][1<<OT_LENGTH];

PACKET	PacketMemory[2][NB_SPRITE*sizeof(GsSPRITE)];

u_long BgWorkBase[(((SCREEN_WIDTH/16+1)*(SCREEN_HEIGHT/16+2)*6+4)*2+2)];

//	---structures---

typedef struct
{
 GsSPRITE ball[NB_BALL];
 short direction[NB_BALL];
}perso;

typedef struct
{
 long x,y;
 long w,h;
 GsGLINE line[4];
 short sens;
}select; 


//	---definition des fonctions---

void	ScreenInit();
void	TextInit();
void	LoadTIMData(u_long addressTIM);
void	SetSprite(GsSPRITE *Sprite , u_long addressTIM , long X , long Y); 
void	SetBg(GsBG *Bg ,GsMAP *BgMap ,GsCELL *BgCell ,u_long addressTIM);
void	Render();
void	Pad();
void	deplacement();
void	PersoInit();
void	RenderInit();
void	RenderSprite();
void	parcour();
void	Start();
select	Select(select menu);


//	---variables globales---

u_long	 Run=1;
u_long PAD;
short start_status=0;
long police;
u_long buff;
perso Worms;
GsBG BG;
GsMAP BGMAP;
GsCELL BGCELL;
u_short map[2*2]={0x0000,0x0000,0x0000,0x0000};

/************/
/*   MAIN   */
/************/


void main ()
{
 short i;

 ScreenInit();
 PadInit();
 TextInit();
 GsInitFixBg16(&BG,BgWorkBase);

 LoadTIMData(SPRITE_ADD);
 LoadTIMData(BG_ADD);
 for (i=0;i<NB_BALL;i++) SetSprite(&Worms.ball[i],SPRITE_ADD,100,100);
 SetBg(&BG,&BGMAP,&BGCELL,BG_ADD);
 Pad();
	do
	{
	 BGCELL.v++;
	 if (BGCELL.v==46) BGCELL.v=30;
	 parcour();
	 deplacement();
	 RenderInit();
	 RenderSprite();
	 Render();
	 Pad();
	 if (Run==0) break;
	}
	while (Run==1);
};

/***************/
/*  Fonctions  */
/***************/

void Start()
{
 long i;
 short pad_status=0;
 select menu;

 menu.x=100;
 menu.y=88;
 menu.w=120;
 menu.h=14;
 menu.sens=0;
 for (i=0;i<4;i++)
	{
	 menu.line[i].r0=10;
	 menu.line[i].g0=10;
	 menu.line[i].b0=10;
	 menu.line[i].r1=150;
	 menu.line[i].g1=150;
	 menu.line[i].b1=150;
	}

 start_status=0;
 while((!(PAD & PADstart) || (start_status==0)) && pad_status!=2)
	{
	 PAD=PadRead();
	 if (!(PAD & PADstart)) start_status=1;
	 if ((PAD & PADdown) && (pad_status==0)) {menu.y+=3*8;pad_status=1;}
	 if ((PAD & PADup) && (pad_status==0)) {menu.y-=3*8;pad_status=1;}
	 if (!(PAD & PADup) && !(PAD & PADdown)) pad_status=0;
	 if (menu.y>(88+2*(3*8))) menu.y=88;
	 if (menu.y<88) menu.y=88+2*(3*8);

	 if ((PAD & PADcross) && menu.y==88)
		pad_status=2;
	 if ((PAD & PADcross) && menu.y==88+(3*8))
		{pad_status=2;PersoInit();}
	 if ((PAD & PADcross) && menu.y==88+2*(3*8))
		{pad_status=2;Run=0;}

	 RenderInit();
	 FntPrint(police,"  start START\n\n\n\n");
	 FntPrint(police,"   continuer\n\n\n");
	 FntPrint(police,"  recommencer\n\n\n");
	 FntPrint(police,"    quitter");
	 menu=Select(menu);
 	 for (i=0;i<4;i++) GsSortGLine(&menu.line[i],&OTable_Header[buff],i);
	 Render();
	}
};

void Pad()
{
 PAD=PadRead();
 
 if (PAD & PADcircle)	Worms.direction[0]=0;
 if (PAD & PADright)	Worms.direction[0]=1;
 if (PAD & PADdown)	Worms.direction[0]=-2;
 if (PAD & PADleft)	Worms.direction[0]=-1;
 if (PAD & PADup)	Worms.direction[0]=2;
 if (!(PAD & PADstart)) start_status=0;
 if ((PAD & PADstart) && start_status==0)	Start();
};

void	RenderSprite()
{
 short i;

 for (i=0;i<NB_BALL;i++) GsSortSprite(&Worms.ball[i],&OTable_Header[buff],i+1);
 
 GsSortFixBg16(&BG,BgWorkBase,&OTable_Header[buff],i);
}; 

void	parcour()
{
 if (Worms.ball[0].x<20){Worms.direction[0]=2;Worms.ball[0].x=20;}
 if (Worms.ball[0].x>300){Worms.direction[0]=-2;Worms.ball[0].x=300;}
 if (Worms.ball[0].y<20){Worms.direction[0]=1;Worms.ball[0].y=20;}
 if (Worms.ball[0].y>220){Worms.direction[0]=-1;Worms.ball[0].y=220;}
};

void deplacement()
{
 long i,X,Y;


 for (i=1;i<NB_BALL;i++)
	{
 	Y=Worms.ball[i-1].y-Worms.ball[i].y;
 	X=Worms.ball[i-1].x-Worms.ball[i].x;

	 if (	Worms.direction[i]!=0 || abs(X)>20 || abs(Y)>20 )
	 {

	  if (Worms.direction[i-1]==1)
		{if (Worms.ball[i].y!=Worms.ball[i-1].y)
			{if (Y>0)  Worms.direction[i]=-2;
			else  Worms.direction[i]=2;}
		else
			{if (X>20) Worms.direction[i]=1;
			if (X<-20) Worms.direction[i]=-1;}
		}
	  if (Worms.direction[i-1]==2)
		{if (Worms.ball[i].x!=Worms.ball[i-1].x)
			{if (X>0)  Worms.direction[i]=1;
			else  Worms.direction[i]=-1;}
		else
			{if (Y>20) Worms.direction[i]=-2;
			if (Y<-20) Worms.direction[i]=2;}
		}
	  if (Worms.direction[i-1]==-1)
		{if (Worms.ball[i].y!=Worms.ball[i-1].y)
			{if (Y>0)  Worms.direction[i]=-2;
			else  Worms.direction[i]=2;}
		else
			{if (X>20) Worms.direction[i]=1;
			if (X<-20) Worms.direction[i]=-1;}
		}
	  if (Worms.direction[i-1]==-2)
		{if (Worms.ball[i].x!=Worms.ball[i-1].x)
			{if (X>0)  Worms.direction[i]=1;
			else  Worms.direction[i]=-1;}
		else
			{if (Y>20) Worms.direction[i]=-2;
			if (Y<-20) Worms.direction[i]=2;}
		}
	 }
	}

 for (i=0;i<NB_BALL;i++)
	{
	 if (Worms.direction[i]==1)	Worms.ball[i].x+=2;
	 if (Worms.direction[i]==-2)	Worms.ball[i].y+=2;
	 if (Worms.direction[i]==-1)	Worms.ball[i].x-=2;
	 if (Worms.direction[i]==2)	Worms.ball[i].y-=2;
	 if (Worms.ball[i].x==Worms.ball[i-1].x &&
		Worms.ball[i].y==Worms.ball[i-1].y)	Worms.direction[i]=0;
	}
};

select	Select(select menu)
{
 short i;
 
 menu.line[3].x0=menu.line[0].x0=menu.x;
 menu.line[3].y0=menu.line[0].y0=menu.y;
 menu.line[0].x1=menu.line[1].x1=menu.x+menu.w;
 menu.line[0].y1=menu.line[1].y1=menu.y;
 menu.line[1].x0=menu.line[2].x0=menu.x+menu.w;
 menu.line[1].y0=menu.line[2].y0=menu.y+menu.h;
 menu.line[2].x1=menu.line[3].x1=menu.x;
 menu.line[2].y1=menu.line[3].y1=menu.y+menu.h;

 for (i=0;i<4;i++)
	{
	 menu.line[i].attribute=0;
	 if (menu.line[3].b0>150)
		menu.sens=1;
	 if (menu.line[3].b0<10)
		menu.sens=0;
	 if (menu.sens==0)
		{
		 menu.line[i].r0+=6;
		 menu.line[i].g0+=6;
		 menu.line[i].b0+=6;
		 menu.line[i].r1-=6;
		 menu.line[i].g1-=6;
		 menu.line[i].b1-=6;
		}
	 else
		{
		 menu.line[i].r0-=6;
		 menu.line[i].g0-=6;
		 menu.line[i].b0-=6;
		 menu.line[i].r1+=6;
		 menu.line[i].g1+=6;
		 menu.line[i].b1+=6;
		}
	};

 return (menu);
};



void PersoInit()
{
 short i;

 for (i=0;i<NB_BALL;i++)
	{
	 Worms.ball[i].x=100;
	 Worms.ball[i].y=100;
	 Worms.direction[i]=0;
	}
};

void	ScreenInit()
{
 long i;

 SetVideoMode(VIDEO_MODE);
 GsInitGraph(SCREEN_WIDTH,SCREEN_HEIGHT,4,0,0);
 GsDefDispBuff(0,0,0,SCREEN_HEIGHT);
 
 for (i=0 ; i<2 ; i++)
	{
	 OTable_Header[i].length=OT_LENGTH;
	 OTable_Header[i].org=OTable_Array[i];
	 GsClearOt(0,0,&OTable_Header[i]);
	}
};

void	TextInit()
{
 FntLoad(960,256);
 police=FntOpen(100,60,120,200,0,256);
};

void	LoadTIMData(u_long addressTIM)
{
 RECT Rect;
 GsIMAGE Tim;

 GsGetTimInfo((u_long *)(addressTIM+4),&Tim);

 Rect.x=Tim.px;
 Rect.y=Tim.py;
 Rect.w=Tim.pw;
 Rect.h=Tim.ph;
 LoadImage(&Rect,Tim.pixel);

 Rect.x=Tim.cx;
 Rect.y=Tim.cy;
 Rect.w=Tim.cw;
 Rect.h=Tim.ch;
 LoadImage(&Rect,Tim.clut);

 DrawSync(0);
};

void	SetBg(GsBG *Bg ,GsMAP *BgMap ,GsCELL *BgCell ,u_long addressTIM)
{
 GsIMAGE Tim;
 u_long	 Clut;

 GsGetTimInfo((u_long *)(addressTIM+4),&Tim);

 Clut=1;
 BgCell->u=Tim.px-SCREEN_WIDTH;
 BgCell->v=Tim.py;
 BgCell->cba= GetClut(Tim.cx,Tim.cy);
 BgCell->flag=0;
 BgCell->tpage=GetTPage(Clut,0,Tim.px,Tim.py);
 
 BgMap->cellw=Tim.pw;
 BgMap->cellh=Tim.ph/2;
 BgMap->ncellw=2;
 BgMap->ncellh=2;
 BgMap->base=BgCell;
 BgMap->index=map;

 Bg->attribute=(1<<24);
 Bg->x=0;
 Bg->y=0;
 Bg->w=BgMap->cellw*BgMap->ncellw;
 Bg->h=BgMap->cellh*BgMap->ncellh;
 Bg->scrollx=0;
 Bg->scrolly=0;
 Bg->r=Bg->g=Bg->b=128;
 Bg->map=BgMap;
 Bg->mx=Bg->w/2;
 Bg->my=Bg->h/2;
 Bg->scalex=UN;
 Bg->scaley=UN;
 Bg->rotate=0;
};

void	SetSprite(GsSPRITE *Sprite,u_long addressTIM,long X,long Y) 
{
 GsIMAGE Tim;
 u_long	 Clut;

 GsGetTimInfo((u_long *)(addressTIM+4),&Tim);

 Clut=1;
 Sprite->attribute=(1<<24);
 Sprite->w=Tim.pw*2;
 Sprite->h=Tim.ph;
 Sprite->x=X;
 Sprite->y=Y;
 Sprite->u=Tim.px-SCREEN_WIDTH;
 Sprite->v=Tim.py;
 Sprite->tpage=GetTPage(Clut,0,Tim.px,Tim.py);
 Sprite->cx=Tim.cx;
 Sprite->cy=Tim.cy;
 Sprite->r=128;
 Sprite->g=128;
 Sprite->b=128;
 Sprite->mx=Sprite->w/2;
 Sprite->my=Sprite->h/2;
 Sprite->scalex=UN;
 Sprite->scaley=UN;
 Sprite->rotate=0;
};

void	Render()
{
 DrawSync(0);
 VSync(0);
 GsSwapDispBuff();
 GsSortClear(50,50,50,&OTable_Header[buff]);

 GsDrawOt(&OTable_Header[buff]);
 FntFlush(police);
};

void	RenderInit()
{
 buff=GsGetActiveBuff();

 GsClearOt(0,0,&OTable_Header[buff]);
 GsSetWorkBase((PACKET *) PacketMemory[buff]);
};