/**********************************/
/* 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		(0x80090600)
#define START_ADD	(0x80091000)
#define MAX_OBJ		(1000)
#define MAX_BALL	(50)
#define NB_SPRITE	(2*MAX_BALL)
#define OT_LENGTH	(1)
#define UN		(4096)

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

PACKET	PacketMemory[2][MAX_OBJ*(20+4)];

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

//	---structures---

typedef struct
{
 GsSPRITE ball[MAX_BALL];
 short direction[MAX_BALL];
 short 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(perso *Worms);
void	PersoInit(perso *Worms);
void	RenderInit();
void	RenderSprite();
void	parcour(perso *Worms);
void	Start();
void	Select(select *menu);


//	---variables globales---

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

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


void main ()
{
 short i;

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

 LoadTIMData(SPRITE_ADD);
 LoadTIMData(BG_ADD);
 LoadTIMData(START_ADD);

 for (i=0;i<MAX_BALL;i++) SetSprite(&worms.ball[i],SPRITE_ADD,100,100);
 for (i=0;i<MAX_BALL;i++) SetSprite(&bot.ball[i],SPRITE_ADD,200,100);
 worms.nb_ball=10;
 bot.nb_ball=10;
 bot.direction[0]=1;
 SetBg(&BG,&BGMAP,&BGCELL,BG_ADD);

 Pad();
	do
	{
	 BG.scrolly++;
	 if (BG.scrolly==16) BG.scrolly=0;
	 parcour(&worms);
	 parcour(&bot);
	 deplacement(&worms);
	 deplacement(&bot);
	 RenderInit();
	 RenderSprite();
	 Render();
	 Pad();
	}
	while (Run==1);
};

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

void Start()
{
 long i;
 short pad_status=0,pad=1;
 select menu;
 GsSPRITE StartMenu;
 long debut;

 SetSprite(&StartMenu,START_ADD,SCREEN_WIDTH/2,SCREEN_HEIGHT/2);

 menu.x=100;
 menu.y=debut=96;
 menu.w=119;
 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;
	}

 while((!(PAD & PADstart) || (start_status==0)) && pad_status!=2)
	{
	 PAD=PadRead();
	 if (!(PAD & PADstart)) start_status=1;
	 if (PAD==0)	pad=0;
	 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>(debut+2*(3*8))) menu.y=debut;
	 if (menu.y<debut) menu.y=debut+2*(3*8);

	 if ((PAD & PADcross) && menu.y==debut)
		pad_status=2;
	 if ((PAD & PADcross) && menu.y==debut+1*(3*8))
		{pad_status=2;PersoInit(&worms);}
	 if ((PAD & PADleft) && worms.nb_ball>1 &&
		pad==0 && menu.y==debut+2*(3*8))
		{worms.nb_ball--;pad=1;}
	 if ((PAD & PADright) && worms.nb_ball<MAX_BALL &&
		pad==0 && menu.y==debut+2*(3*8))
		{worms.nb_ball++;pad=1;}

	 RenderInit();
	 FntPrint(police,"\n\n\n\n\n");
	 FntPrint(police,"   continuer\n\n\n");
	 FntPrint(police,"  recommencer\n\n\n");
	 FntPrint(police,"   %d",worms.nb_ball);
	 if (worms.nb_ball==1)	FntPrint(police," boule");
	 else			FntPrint(police," boules");
	 Select(&menu);

 	 for (i=0;i<4;i++) GsSortGLine(&menu.line[i],&OTable_Header[buff],0);
	 GsSortSprite(&StartMenu,&OTable_Header[buff],0);
	 GsSortFixBg16(&BG,BgWorkBase,&OTable_Header[buff],0);
	 
	 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<worms.nb_ball;i++)
	GsSortSprite(&worms.ball[i],&OTable_Header[buff],0);
 for (i=0;i<worms.nb_ball;i++)
	GsSortSprite(&bot.ball[i],&OTable_Header[buff],0);
 GsSortFixBg16(&BG,BgWorkBase,&OTable_Header[buff],0);
}; 

void	parcour(perso *Worms)
{
 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(perso *Worms)
{
 long i,X,Y;


 for (i=1;i<MAX_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<MAX_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;
	}
};

void	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;
		}
	};
};



void PersoInit(perso *Worms)
{
 short i;

 for (i=0;i<MAX_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->cellw=30;
 BgMap->cellh=30;
 BgMap->ncellw=1;
 BgMap->ncellh=1;
 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=128;
 Bg->g=128;
 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]);
};