Added support for relative line numbers.

Added instructions for, brk and cont. (They are still untested...)
Parser code cleanup. Removed garbage output to stderr.
Reorganize the repository structure.
Updated BLR2 code move it into archive.
Added BLR1 files.

1 files changed, 252 insertions, 0 deletions

diff --git a/archive/blr1/src/scorec.h b/archive/blr1/src/scorec.h
new file mode 100644
index 0000000..d07615a
--- /dev/null
+++ b/archive/blr1/src/scorec.h
@@ -0,0 +1,252 @@
+//Chrisoft Bullet Lab Remix HGE

+//Score Recording Implementations

+//"Copyleft" Chrisoft 2013

+struct TRecord

+{

+	long long score;

+	int len,rescol,scoll,clrusg;

+	int af_int,af_fric;

+	char name[16];

+}ERec[10],NRec[10],ExRec[10],FPMRec[10];

+unsigned int Ecnt,Ncnt,Excnt,FPMcnt;

+unsigned int header,seprt;

+char			newname[16];

+int				newlen,tbframebrk;

+unsigned int Getuint()

+{

+	unsigned int c1,c2,c3,c4,res;

+	c1=c2=c3=c4=0;

+	scanf("%c%c%c%c",&c1,&c2,&c3,&c4);

+	res=(c1<<24)+(c2<<16)+(c3<<8)+c4;

+	return res;

+}

+int Getint()

+{

+	return (int)Getuint();

+}

+long long Getll()

+{

+	long long c1,c2,c3,c4,c5,c6,c7,c8,res;

+	c1=c2=c3=c4=c5=c6=c7=c8=0;

+	scanf("%c%c%c%c%c%c%c%c",&c1,&c2,&c3,&c4,&c5,&c6,&c7,&c8);

+	res=(c1<<56)+(c2<<48)+(c3<<40)+(c4<<32)+(c5<<24)+(c6<<16)+(c7<<8)+c8;

+	return res;

+}

+void Putuint(unsigned int a)

+{

+	unsigned int c1,c2,c3,c4;

+	c1=a&0xFF000000;c2=a&0x00FF0000;

+	c3=a&0x0000FF00;c4=a&0x000000FF;

+	printf("%c%c%c%c",c1,c2,c3,c4);

+}

+void Putint(int a)

+{

+	Putuint((unsigned int)a);

+}

+void Putll(long long a)

+{

+	int c1,c2,c3,c4,c5,c6,c7,c8;

+	c1=a&0xFF00000000000000;

+	c2=a&0x00FF000000000000;

+	c3=a&0x0000FF0000000000;

+	c4=a&0x000000FF00000000;

+	c5=a&0x00000000FF000000;

+	c6=a&0x0000000000FF0000;

+	c7=a&0x000000000000FF00;

+	c8=a&0x00000000000000FF;

+	printf("%c%c%c%c%c%c%c%c",c1,c2,c3,c4,c5,c6,c7,c8);

+}

+TRecord GetTRecord()

+{

+	TRecord res;

+	res.len=Getint();

+	memset(res.name,0,sizeof(res.name));

+	for (int i=0;i<res.len;++i)scanf("%c",&res.name[i]);

+	res.score=Getll();

+	res.rescol=Getint();

+	res.scoll=Getint();

+	res.clrusg=Getint();

+	res.af_int=Getint();res.af_fric=Getint();

+	return res;

+}

+void PutTRecord(TRecord a)

+{

+	Putint(a.len);

+	for (int i=0;i<a.len;++i)printf("%c",a.name[i]);

+	Putll(a.score);

+	Putint(a.rescol);

+	Putint(a.scoll);

+	Putint(a.clrusg);

+	Putint(a.af_int);Putint(a.af_fric);

+}

+void Score_Init()

+{

+	freopen("score.cfg","r",stdin);

+	header=Getuint();

+	if (header!=0x3b424c53)//0x3b424c53=";BLS"

+	{

+		fclose(stdin);

+		Error("Error when loading score file!");

+	}

+	seprt=Getuint();

+	if (seprt!=0xd1ffa0c0)

+	{

+		fclose(stdin);

+		Error("Error when loading score file!");

+	}

+	Ecnt=Getuint();

+	for (unsigned int i=1;i<=Ecnt;++i)ERec[i]=GetTRecord();

+	seprt=Getuint();

+	if (seprt!=0xd1ffa0c1)

+	{

+		fclose(stdin);

+		Error("Error when loading score file!");

+	}

+	Ncnt=Getuint();

+	for (unsigned int i=1;i<=Ncnt;++i)NRec[i]=GetTRecord();

+	seprt=Getuint();

+	if (seprt!=0xd1ffa0c2)

+	{

+		fclose(stdin);

+		Error("Error when loading score file!");

+	}

+	Excnt=Getuint();

+	for (unsigned int i=1;i<=Excnt;++i)ExRec[i]=GetTRecord();

+	seprt=Getuint();

+	if (seprt!=0xd1ffa0c3)

+	{

+		fclose(stdin);

+		Error("Error when loading score file!");

+	}

+	FPMcnt=Getuint();

+	for (unsigned int i=1;i<=FPMcnt;++i)FPMRec[i]=GetTRecord();

+	fclose(stdin);

+}

+int CheckHighScore()

+{

+	int i;

+	switch (mode)

+	{

+		case 4:

+			for (i=1;i<=Ecnt;++i)

+				if (ERec[i].score<score)break;

+			if (i==5&&ERec[i].score>score)return -1;

+			if (Ecnt<5&&ERec[Ecnt].score>score)return Ecnt+1;

+			return i;

+			break;

+		case 1:

+			for (i=1;i<=Ncnt;++i)

+				if (NRec[i].score<score)break;

+			if (i==5&&NRec[i].score>score)return -1;

+			if (Ncnt<5&&NRec[Ncnt].score>score)return Ncnt+1;

+			return i;

+			break;

+		case 2:

+			for (i=1;i<=Excnt;++i)

+				if (ExRec[i].score<score)break;

+			if (i==5&&ExRec[i].score>score)return -1;

+			if (Excnt<5&&ExRec[Ncnt].score>score)return Excnt+1;

+			return i;

+			break;

+		case 3:

+			for (i=1;i<=FPMcnt;++i)

+				if (FPMRec[i].score<score)break;

+			if (i==5&&FPMRec[i].score>score)return -1;

+			if (FPMcnt<5&&FPMRec[Ncnt].score>score)return FPMcnt+1;

+			return i;

+			break;

+	}

+}

+void Score_Write()

+{

+	freopen("score.cfg","w",stdout);

+	Putuint(0x3b424c53u);

+	Putuint(0xd1ffa0c0u);

+	Putint(Ecnt);

+	for (int i=1;i<=Ecnt;++i)

+		PutTRecord(ERec[i]);

+	Putuint(0xd1ffa0c1u);

+	Putint(Ncnt);

+	for (int i=1;i<=Ncnt;++i)

+		PutTRecord(NRec[i]);

+	Putuint(0xd1ffa0c2u);

+	Putint(Excnt);

+	for (int i=1;i<=Excnt;++i)

+		PutTRecord(ExRec[i]);

+	Putuint(0xd1ffa0c3u);

+	Putint(FPMcnt);

+	for (int i=1;i<=FPMcnt;++i)

+		PutTRecord(FPMRec[i]);

+	fclose(stdout);

+}

+void Score_Initailize()

+{

+	freopen("score.cfg","w",stdout);

+	printf(";BLS");

+	printf("%c%c%c%c",0xd1,0xff,0xa0,0xc0);printf("%c%c%c%c",0,0,0,0);

+	printf("%c%c%c%c",0xd1,0xff,0xa0,0xc1);printf("%c%c%c%c",0,0,0,0);

+	printf("%c%c%c%c",0xd1,0xff,0xa0,0xc2);printf("%c%c%c%c",0,0,0,0);

+	printf("%c%c%c%c",0xd1,0xff,0xa0,0xc3);printf("%c%c%c%c",0,0,0,0);

+	fclose(stdout);

+}

+void InsertHighScore()

+{

+	int pos=CheckHighScore();

+	switch (mode)

+	{

+		case 4:

+			if (pos<=Ecnt)

+			for (int i=5;i>pos;--i)

+				ERec[i]=ERec[i-1];

+			else ++Ecnt;

+			if (Ecnt<5)++Ecnt;

+			ERec[pos].score=score;

+			ERec[pos].len=newlen;

+			memcpy(ERec[pos].name,newname,sizeof(newname));

+			ERec[pos].clrusg=clrusg;

+			ERec[pos].rescol=restarts;ERec[pos].scoll=semicoll;

+			ERec[pos].af_int=(int)averfps;

+			ERec[pos].af_fric=(int)(averfps*10)%10*10+(int)(averfps*100)%10;

+			break;

+		case 1:

+			if (pos<=Ncnt)

+			for (int i=5;i>pos;--i)

+				NRec[i]=NRec[i-1];

+			if (Ncnt<5)++Ncnt;

+			NRec[pos].score=score;

+			NRec[pos].len=newlen;

+			memcpy(NRec[pos].name,newname,sizeof(newname));

+			NRec[pos].clrusg=clrusg;

+			NRec[pos].rescol=restarts;NRec[pos].scoll=semicoll;

+			NRec[pos].af_int=(int)averfps;

+			NRec[pos].af_fric=(int)(averfps*10)%10*10+(int)(averfps*100)%10;

+			break;

+		case 2:

+			if (pos<=Excnt)

+			for (int i=5;i>pos;--i)

+				ExRec[i]=ExRec[i-1];

+			if (Excnt<5)++Excnt;

+			ExRec[pos].score=score;

+			ExRec[pos].len=newlen;

+			memcpy(ExRec[pos].name,newname,sizeof(newname));

+			ExRec[pos].clrusg=clrusg;

+			ExRec[pos].rescol=restarts;ExRec[pos].scoll=semicoll;

+			ExRec[pos].af_int=(int)averfps;

+			ExRec[pos].af_fric=(int)(averfps*10)%10*10+(int)(averfps*100)%10;

+			break;

+		case 3:

+			if (pos<=FPMcnt)

+			for (int i=5;i>pos;--i)

+				FPMRec[i]=FPMRec[i-1];

+			if (FPMcnt<5)++FPMcnt;

+			FPMRec[pos].score=score;

+			FPMRec[pos].len=newlen;

+			memcpy(FPMRec[pos].name,newname,sizeof(newname));

+			FPMRec[pos].clrusg=clrusg;

+			FPMRec[pos].rescol=coll;FPMRec[pos].scoll=semicoll;

+			FPMRec[pos].af_int=(int)averfps;

+			FPMRec[pos].af_fric=(int)(averfps*10)%10*10+(int)(averfps*100)%10;

+			break;

+	}

+	Score_Write();

+}
\ No newline at end of file