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, 549 insertions, 0 deletions

diff --git a/archive/blr2/src/global.h b/archive/blr2/src/global.h
new file mode 100644
index 0000000..a20c5d1
--- /dev/null
+++ b/archive/blr2/src/global.h
@@ -0,0 +1,549 @@
+// Chrisoft Bullet Lab Remix HGE  -*- C++ -*-
+// Global varibles and implementations
+// Copyright Chrisoft 2014
+#include <hge.h>
+#include <hgefont.h>
+#define MaxRes 80
+#define Resd 20.0f
+#define MaxBulCnt 20000
+HGE *hge=0;
+HEFFECT				snd,menuin,menuout,menumov;
+hgeQuad				quad;
+hgeFont				*fnt,*vdig,*bdig;
+hgeSprite			*spr,*titlespr;
+int					Current_Position;//Where we are now
+/*Scenes:
+0: main menu
+1: game scene
+2: tip scene
+3: start menu
+4: about scene
+5: death scene
+6: complete scene
+7: new highscore scene
+8: highscore scene
+9: highscore view scene
+10: highscore details scene
+11: Pause scene
+12: BackToTitle Confirmation
+13: Options scene
+14: Player Profile scene
+15: Help scene
+*/
+HTEXTURE			SprSheet,TexTitle,TexCredits,MenuTex,HelpTex;
+/*
+Texture Mapping:
+SprSheet:ss.png
+Bullet Blue			0,0,24,24
+Bullet Dark Blue	24,0,24,24
+Bullet Green		48,0,24,24
+Bullet Orange		72,0,24,24
+Bullet Pnt			96,0,24,24
+Bullet Purple		120,0,24,24
+Bullet Red			144,0,24,24
+Bullet White		168,0,24,24
+Bullet Yellow		192,0,24,24
+Cursor				216,0,24,24
+Player				0,24,24,24
+Bullet Circle		24,24,24,24
+Tower Blue			0,48,44,44
+Tower Dark Blue		0,92,44,44
+Tower Green			0,136,44,44
+Tower Orange		0,180,44,44
+Tower Purple		48,24,44,44
+Tower Red			92,24,44,44
+Tower White			136,24,44,44
+Tower Yellow		180,24,44,44
+Target				63,71,193,193
+Laser Module		0,264,248,8
+Ribbon Module		151,264,2,8
+Multiplier"+1"		0,272,48,48
+MultPo spawn efct	48,272,48,48
+Text:blnsns.png
+"Multiplier bonus!"	0,235,163,21
+Menus and titles: menus.png
+Menu items...
+Classic Mode		0,0,256,128
+Assessment Mode		256,0,256,128
+Free Play Mode		0,128,256,128
+Titles...
+Select a Mode		256,128,256,64
+Options				256,192,256,64
+Player Preference	0,256,256,64
+You Are Dead!		256,256,256,64
+It Ends Here!		0,320,256,64
+View Highscore for..0,376,256,64
+Highscore details	0,448,256,64
+Left Arrow          256,320,26,15
+Right Arrow			256,335,26,15
+Ribbon				256,350,64,16
+*/
+enum TColors
+{green=0,blue,yellow,purple,red,white,dblue,orange,grey,circle,COLOR_COUNT};
+hgeSprite *bulletspr[COLOR_COUNT],*towerspr[COLOR_COUNT];
+const double zero=1e-5;
+vector2d playerpos;
+bool playerLockX,playerLockY;
+bool DisableAllTower;
+bool DisablePlayer;
+bool LOWFPS,diffkey,showdebug;
+int VidMode=-1;
+hgeTTFont rbPanelFont;
+inline double GetDist(vector2d,vector2d);
+class Bullet
+{
+public:
+	vector2d bulletpos,bulletdir,limpos;
+	double dist;
+	int bullettype,redexplo,redattrib,oriexplo,whicnt;
+	DWORD sccolor;
+	/*In Orange bullets
+	//redattrib also serves as oraattrib to determine if they will explode or change direction
+	//redexplo also serves as orange explo
+	//yelbrk serves as direction-change timer
+	//whicnt describes how much one will explode into (into an exactly circle)*/
+	double bulletspeed,bulletaccel,limv;
+	int exist,inv,addblend;
+	int whirem,whiskp,yelbrk;
+	int exp1,exp2;
+	double lifetime,rot;
+	bool scollable,collable,extborder;
+	double scale;int effbrk;
+	TColors alterColor,alterColor2;
+	void redir(vector2d targ)
+	{
+		bulletdir.x=bulletpos.x-targ.x;
+		bulletdir.y=bulletpos.y-targ.y;
+		dist=bulletdir.x*bulletdir.x+bulletdir.y*bulletdir.y;
+		dist=sqrt(dist);
+		bulletdir.x/=dist;bulletdir.y/=dist;dist=1;
+	}
+	void setdir(double rad)
+	{
+		bulletdir.x=cos(rad);
+		bulletdir.y=sin(rad);
+		dist=1;
+	}
+}*bullet=NULL;
+/*Something about bullets:
+//bullettype:
+//1: player dir-based green bullet
+//2: degree-based blue bullet (for clocks only)[are they clocks?]
+//3: 12direction-based blue bullet
+//4: yellow chaser bullet
+//5: purple slow down bullet
+//6: red exploding bullet
+//7: white stalled bullet
+//8: Orange Redir bullet
+//9: dark Blue bullet
+//254: Semi-collision effect
+//255: Score point*/
+struct Tower
+{
+	vector2d towerpos;
+	int towertype;
+	int towertimer,curtimer;
+	int towertimer2,curtimer2,shotcount,curshotcount;
+	bool dblstate;
+	double bulletspeed;
+	int redexplo,whicnt,yelbrk;
+	int exp1,exp2;
+	int t3t;
+	bool exist,effect;
+	double offset;
+	DWORD RendColor;
+}tower[250];
+//t3t is for Tower3
+//0:All 12 directions
+//1:four default directions
+//2:random left/right
+//3:random up/down
+struct Target//An annoying circle
+{
+	hgeSprite *targspr;
+	vector2d targpos,targdir;
+	double rot,rotspd;
+	bool isonshow,isonhide,visible;
+	void Init(double _rotspd,vector2d ipos)
+	{
+		targspr=new hgeSprite(SprSheet,63,71,193,193);
+		targspr->SetHotSpot(96.5f,96.5f);
+		rotspd=_rotspd;
+		rot=0;
+		targpos=ipos;
+	}
+	void TargShow()
+	{
+		if (!visible)
+			isonshow=true,isonhide=false,visible=true;
+	}
+	void TargHide()
+	{
+		if (visible)
+			isonhide=true,isonshow=false;
+	}
+	void TargShowProc()
+	{
+		if (LOWFPS)
+			targspr->SetColor(SETA(targspr->GetColor(),GETA(targspr->GetColor())+17));
+		else
+			targspr->SetColor(SETA(targspr->GetColor(),GETA(targspr->GetColor())+1));
+		if (GETA(targspr->GetColor())>=0x80)
+			isonshow=isonhide=false,targspr->SetColor(SETA(targspr->GetColor(),0x80));
+	}
+	void TargHideProc()
+	{
+		if (LOWFPS)
+			if(GETA(targspr->GetColor())<17)
+			targspr->SetColor(SETA(targspr->GetColor(),0));
+			else
+			targspr->SetColor(SETA(targspr->GetColor(),GETA(targspr->GetColor())-17));
+		else
+			targspr->SetColor(SETA(targspr->GetColor(),GETA(targspr->GetColor())-1));
+		if (GETA(targspr->GetColor())==0x00)
+			isonshow=isonhide=visible=false;
+	}
+	void TargFollowPlayer()
+	{
+		double curspd=0.01f;
+		if (GetDist(playerpos,targpos)>1)curspd=0.02f;else targpos=playerpos;
+		if (GetDist(playerpos,targpos)>2)curspd=0.1f;
+		if (GetDist(playerpos,targpos)>5)curspd=0.5f;
+		if (GetDist(playerpos,targpos)>10)curspd=0.75f;
+		if (GetDist(playerpos,targpos)>20)curspd=1.0f;
+		if (GetDist(playerpos,targpos)>30)curspd=2.0f;
+		if (GetDist(playerpos,targpos)>40)curspd=5.0f;
+		targdir.x=targpos.x-playerpos.x;
+		targdir.y=targpos.y-playerpos.y;
+		double dist=sqr(targdir.x)+sqr(targdir.y);
+		dist=sqrt(dist);
+		if (dist<1e-4)return;
+		if (LOWFPS)
+			targpos.x-=targdir.x/dist*curspd*17/20,
+			targpos.y-=targdir.y/dist*curspd*17/20;
+		else
+			targpos.x-=targdir.x/dist*curspd/20,
+			targpos.y-=targdir.y/dist*curspd/20;
+	}
+	void TargGoto(vector2d pos)
+	{
+		double curspd=0.01f;
+		if (GetDist(pos,targpos)>1)curspd=0.25f;else targpos=pos;
+		if (GetDist(pos,targpos)>2)curspd=0.5f;
+		if (GetDist(pos,targpos)>5)curspd=1.0f;
+		if (GetDist(pos,targpos)>10)curspd=2.0f;
+		if (GetDist(pos,targpos)>20)curspd=3.0f;
+		if (GetDist(pos,targpos)>30)curspd=4.0f;
+		if (GetDist(pos,targpos)>40)curspd=5.0f;
+		targdir.x=targpos.x-pos.x;
+		targdir.y=targpos.y-pos.y;
+		double dist=sqr(targdir.x)+sqr(targdir.y);
+		dist=sqrt(dist);
+		if (dist<1e-4)return;
+		if (LOWFPS)
+			targpos.x-=targdir.x/dist*curspd*17/20,
+			targpos.y-=targdir.y/dist*curspd*17/20;
+		else
+			targpos.x-=targdir.x/dist*curspd/20,
+			targpos.y-=targdir.y/dist*curspd/20;
+	}
+	void TargRender()
+	{
+		if (isonshow)TargShowProc();if(isonhide)TargHideProc();
+		targspr->RenderEx(targpos.x+7,targpos.y+7,rot,0.8);
+		if (!DisableAllTower)
+		{
+			if (LOWFPS)
+				rot+=17*rotspd;
+			else
+				rot+=rotspd;
+		}
+	}
+}ATarg,BTarg;
+int bulcnt=0,towcnt=0,linecnt=0;
+double playerrot;
+double playerspeed;
+double playerslospeed;
+double playerfulspd=0.2;
+double playerfulslospd=0.05;
+double clockrot,deltarot,deltadelta;
+double whirot,dwhirot;
+hgeSprite *playerspr;
+DWORD DBGColor;
+int frameleft,infofade;
+int level,part,clrtime,clrbns;
+int coll,semicoll,mode,dsmc,restarts;
+double clrrange,clrrad,clrmaxrange,clrind,assetime,asts;
+hgeSprite *clrcircle;
+bool Dis8ref,t8special;
+int frameskips=0,stepskips=0;
+bool IfCallLevel,IfShowTip,FadeTip,PlayerSplit,charge;
+RandomEngine re;
+hgeFont *TipFont,*MenuFont;
+char lasttip[200];
+int whicnt,whrcnt,shots,clrusg;
+bool yelattrib,Complete;
+double bsscale;
+long long score,scminus;
+double mult,lsc;
+int multbrk,multbat;
+int frms;double averfps;
+int plrspd,plrslospd;
+int TenSeconds=600,TwentySeconds=1200,ThirtySeconds=1800,AMinute=3600;
+int Infinity=1000000000;
+int effskp=0;
+hgeSprite *Credits,*CreditsRail;
+int creditsp;double creditfly,creditacc,credbrk;
+bool credstop,creddone;
+hgeSprite *Helpspr,*NHelpspr,*HlpL,*HlpR;
+double Helpscroll,Hlpyofst;int Helpslide;
+bool hshl;
+bool tfs;
+double scale;
+#ifndef WIN32
+double yos;
+#endif
+int fpslvl,clrmode,sfxvol,bgmvol;
+const vector2d splitData[4]={vector2d(0,0),vector2d(400,0),vector2d(0,300),vector2d(400,300)};
+//options from command line arguments
+bool fNoSound,
+#ifdef WIN32
+noHideConsole,
+#endif
+fFristStartUp,fFast;
+int startLvl,startPrt,fFullScreen;
+char alterLog[64];
+#ifdef WIN32
+static const int arFilecount=23;
+static const char* archive[]={
+"./Resources/b_diff.png",
+"./Resources/b_inter.png",
+"./Resources/b_null.png",
+"./Resources/e_sflake.png",
+"./Resources/e_skyitem.png",
+"./Resources/blnsns.png",
+"./Resources/charmap.fnt",
+"./Resources/vdig.fnt",
+"./Resources/bdig.fnt",
+"./Resources/ss.png",
+"./Resources/help.png",
+"./Resources/menus.png",
+"./Resources/title.png",
+"./Resources/credits.png",
+"./Resources/b_leaves.png",
+"./Resources/e_leaf.png",
+"./Resources/tap.ogg",
+"./Resources/menuin.ogg",
+"./Resources/menuout.ogg",
+"./Resources/Music/BLR2_TR01.ogg",
+"./Resources/Music/BLR2_TR07.ogg",
+"./Resources/Music/BLR2_TR09.ogg",
+"./Resources/Music/CanonTechno.ogg"
+};
+#endif
+//static const char* GLOBAL_H_FN="global.h";
+static const char* BLRVERSION="1.0.0-0 (r100)";
+static const char *months="JanFebMarAprMayJunJulAugSepOctNovDec";
+char *parseDate(const char *date)
+{
+	char ms[8];
+	int y,d,m;sscanf(date,"%s %d %d",ms,&d,&y);
+	m=(strstr(months,ms)-months)/3+1;
+	char *r=new char[16];
+	sprintf(r,"%04d-%02d-%02d",y,m,d);
+	return r;
+}
+static char* BuiltDate=parseDate(__DATE__);
+
+void Throw(char *Filename,char *Info)
+{
+	fprintf(stderr,"%s: %s\n",Filename,Info);
+	hge->System_Log("%s: %s\n",Filename,Info);
+}
+void Error(const char *EC,bool hgecreated=false)
+{
+	hge->System_Log("%s\n",EC);
+#ifdef WIN32
+	MessageBox(NULL,EC,"Error!",MB_ICONERROR);
+#endif
+	if (hgecreated)
+	{
+		hge->System_Shutdown();
+		hge->Release();
+	}
+#ifdef WIN32
+	for(int i=0;i<arFilecount;++i)remove(archive[i]);
+	_rmdir("./Resources/Music");
+	_rmdir("./Resources");
+#endif
+	exit(1);
+}
+void ShowTip(const char *tip)
+{
+	if (strcmp(tip,lasttip)!=0)
+	{
+		TipFont->SetColor(0x00FFFFFF);
+	}
+	memcpy(lasttip,tip,sizeof(lasttip));
+	DisableAllTower=true;
+	DisablePlayer=true;
+	if (hge->Input_GetKeyStateEx(HGEK_Z)==HGEKST_HIT)
+		FadeTip=true;
+	double width=TipFont->GetStringWidth(tip);
+	TipFont->printf(400-width/2,400,HGETEXT_LEFT,tip);
+	if (FadeTip)
+	{
+		if (LOWFPS)
+		{
+			if (TipFont->GetColor()>>24>=0x08)
+				TipFont->SetColor(TipFont->GetColor()-0x8000000);
+			else
+			{
+				DisableAllTower=false;
+				DisablePlayer=false;
+				Current_Position=1;
+			}
+		}
+		else
+		{
+			if (TipFont->GetColor()>>24>=0x01)
+				TipFont->SetColor(TipFont->GetColor()-0x1000000);
+			else
+			{
+				DisableAllTower=false;
+				DisablePlayer=false;
+				Current_Position=1;
+			}
+		}
+		return;
+	}
+	if (!LOWFPS)
+	{
+		if (TipFont->GetColor()>>24<=0xFE)
+			TipFont->SetColor(TipFont->GetColor()+0x01000000);
+	}
+	else
+	{
+		if (TipFont->GetColor()>>24<=0xF7)
+			TipFont->SetColor(TipFont->GetColor()+0x08000000);
+	}
+}
+void All2pnt();//forward that...
+
+int AllocBullet()
+{
+	int i;
+	if (bulcnt==0)
+	{
+		bulcnt=i=1;
+		bullet=(Bullet*)malloc(sizeof(Bullet)*(bulcnt+1));
+	}
+	else
+	{
+		for (i=1;i<=bulcnt;++i)
+			if (!bullet[i].exist)break;
+		if (i>bulcnt)
+		{
+			bulcnt=i;
+			Bullet *nblt=(Bullet*)realloc(bullet,sizeof(Bullet)*(bulcnt+1));
+			if(!nblt)Error("Error allocating bullets!",1);
+			bullet=nblt;
+		}
+	}
+	return i;
+}
+void SigHandler(int pm)
+{
+	hge->System_Log("Oops, the application ate a piece of DE AD BE EF!");
+#if defined(__GNUC__) && !defined(MINGW_BUILD)
+	void *strs[64];unsigned cnt;
+	char **str;cnt=backtrace(strs,64);
+	str=backtrace_symbols(strs,cnt);
+	for(unsigned i=0;i<cnt;++i)
+		hge->System_Log("%s",str[i]);
+#endif
+	hge->System_Shutdown();
+	exit(1);
+}
+void ClearAll(bool cbullet=true)
+{
+	DisableAllTower=true;
+	bool none=true;
+	for (int i=1;i<=towcnt;++i)
+	{
+		if (!tower[i].exist)continue;
+		if (LOWFPS)
+		{
+			if (tower[i].RendColor>>24>=0x08)
+			{
+				tower[i].RendColor=tower[i].RendColor-0x8000000;
+				none=false;
+			}
+		}
+		else
+		{
+			if (tower[i].RendColor>>24>=0x01)
+			{
+				tower[i].RendColor=tower[i].RendColor-0x1000000;
+				none=false;
+			}
+		}
+	}
+	if (none)
+	{
+		towcnt=0;
+		memset(tower,0,sizeof(tower));
+		if (cbullet)All2pnt();
+	}
+}
+TextureRect GetTextureRect(int type,TColors color)
+{
+	if (type==0)
+	{
+		switch(color)
+		{
+			case green:return TextureRect(48,0,24,24);
+			case blue:return TextureRect(0,0,24,24);
+			case yellow:return TextureRect(192,0,24,24);
+			case purple:return TextureRect(120,0,24,24);
+			case red:return TextureRect(144,0,24,24);
+			case white:return TextureRect(168,0,24,24);
+			case dblue:return TextureRect(24,0,24,24);
+			case orange:return TextureRect(72,0,24,24);
+			case grey:return TextureRect(96,0,24,24);
+			case circle:return TextureRect(24,24,24,24);
+			default:return TextureRect(0,0,0,0);
+		}
+	}
+	if (type==1)
+	{
+		switch(color)
+		{
+			case green:return TextureRect(0,136,44,44);
+			case blue:return TextureRect(0,48,44,44);
+			case yellow:return TextureRect(180,24,44,44);
+			case purple:return TextureRect(48,24,44,44);
+			case red:return TextureRect(92,24,44,44);
+			case white:return TextureRect(136,24,44,44);
+			case dblue:return TextureRect(0,92,44,44);
+			case orange:return TextureRect(0,180,44,44);
+			default:return TextureRect(0,0,0,0);
+		}
+	}
+	return TextureRect(0,0,0,0);
+}
+DWORD ColorToDWORD(TColors a)
+{
+	switch(a)
+	{
+		case green:return 0xCCFF00;
+		case blue:return 0x33CCFF;
+		case yellow:return 0xFFFF00;
+		case purple:return 0x9966FF;
+		case red:return 0xFFFF3333;
+		case white:return 0xFFFEFEFE;
+		case dblue:return 0xFF0000FF;
+		case orange:return 0xFFFF8800;
+		default:return 0xFF000000;
+	}
+}