#include<ctype.h>
#include<mouse.h>
#include<dos.h>
#include<math.h>
#include<string.h>
#include<stdlib.h>
#include<stdio.h>
#include<iostream.h>
#include<fstream.h>
#include<conio.h>
#include<graphics.h>
#define sp textheight("A")+1

int gposx=5,gposy=30,twidth=8,theight=10;

int center (char *num){return (320-(textwidth(num)/2));}
//int center (int fp,int lp,int num){return ((lp-fp)/2)-(textwidth(num)/2);//return (((lp-fp)/2)-((num/2)*8))+fp;}
//int centery(int tp,int bt,int num){return (((bt-tp)/2)-(textheight(num)/2)+tp-3;}
void gout(char *);void gout(int,int,char *);void gendl();
void gout(int nam){char namc[6];namc[0]='\0';itoa(nam,namc,10);char n[1];n[0]='\0';strcat(namc,n);gout(namc);}
void gout(long nam){char namc[50];namc[0]='\0';ltoa(nam,namc,10);char n[1];n[0]='\0';strcat(namc,n);gout(namc);}
void gout(int x,int y,int nam){char namc[6];namc[0]='\0';itoa(nam,namc,10);char n[1];n[0]='\0';strcat(namc,n);gout(x,y,namc);}
void lgout(int x,int y,long nam){char namc[50];namc[0]='\0';ltoa(nam,namc,10);char n[1];n[0]='\0';strcat(namc,n);gout(x,y,namc);}
void gout(char nam){char namc[2];namc[0]=nam;;namc[1]='\0';gout(namc);}
void gout(int x,int y,char nam){char namc[2];namc[0]=nam;namc[1]='\0';gout(x,y,namc);}

void gout(char *nam)  // someday my son, you too will truly be recursive
{
setcolor(0);
int ovr=0;int len=strlen(nam)*twidth;
if(len+gposx>640)
{ovr=(gposx+len)-640;
outtextxy(gposx,gposy,nam);
char mid[5000]; // ----> make me smrt!! <----
int y=0;for(int x=(len-ovr)/twidth;x<len/twidth;x++){mid[y++]=nam[x];};
mid[y]='\0';gposy+=theight;gposx=2;
gout(mid);}else{setcolor(0);
outtextxy(gposx,gposy,nam);gposx+=len;};}

void gendl(){gposx=2;gposy+=9;};

void gout(int x,int y,char *nam){
if(x==999){outtextxy(center(nam),y,nam);}
else{outtextxy(x,y,nam);};}

void intro(){const int who1=31957;
char rich[30];sprintf(rich,"Richard Hollister's");
settextstyle(1,HORIZ_DIR,1);setusercharsize(9,4,9,3);
setcolor(10);gout(center(rich),2,rich);
settextstyle(1,HORIZ_DIR,1);setusercharsize(5,4,6,2);
setcolor(15);sprintf(rich,"HTML Viewer");
gout(999,85,rich);setusercharsize(1,1,1,1);
settextstyle(3,HORIZ_DIR,0);char ch[20];sprintf(ch,"Example character using gout:");
setcolor(5);gout(999,180,ch);gout(999,180+sp,'A');
char in[18];sprintf(in,"Example integer using gout:");
gout(999,180+sp+sp,in);gout(999,180+sp+sp+sp,who1);
sprintf(in,"Example long using gout:");
gout(999,180+sp+sp+sp+sp,in);lgout(999,180+sp+sp+sp+sp+sp,1489372852);
settextstyle(1,HORIZ_DIR,1);sprintf(in,"-HIT ANY KEY-");setfillstyle(1,0);
setusercharsize(3,2,2,3);int x=0,y=24,z=24;
int r=110,l=520,t=390,b=440;while(!kbhit()){
setlinestyle(4,1,1);if(x==15){x=0;};
setcolor(14);
line(r+x,t,l,t);line(r-x,b,l,b);line(l,t+x,l,b);line(r,t-x,r,b);
setcolor(0);setlinestyle(0,1,1);line(r-20,b,r-1,b);line(r,t-15,r,t-4);
delay(25);
line(r+x,t,l,t);line(r-x,b,l,b);line(l,t+x,l,b);line(r,t-x,r,b);
x+=5;if(++y==25){setcolor(14);setlinestyle(0,1,1);rectangle(r+7,t+7,l-7,b-7);y=0;setcolor(11);gout(999,402,in);};
if(++z==50){z=0;bar(r+5,t+5,l-5,b-5);};};getch();cleardevice();
setcolor(10);setusercharsize(1,1,1,1);settextstyle(0,HORIZ_DIR,0);
gout(999,220,"[ insert html here ]");getch();}

void initbutt()
{
cleardevice();
setfillstyle(1,15);bar(0,0,640,480);
setfillstyle(1,7);bar(0,0,640,20);
setfillstyle(1,15);bar(248,4,500,16);
setcolor(0);
gout(20,6, "<-Back");
gout(77,6, "Next->");
gout(134,6,"-Stop-"); //138 205
gout(191,6,"Reload");
setlinestyle(0,1,3);
line(618,5 ,631,14);
line(618,14,631,5);
settextstyle(2,HORIZ_DIR,1);setusercharsize(1,1,1,1);
//cout<<"l:"<<textwidth("l")<<" w:"<<textwidth("w")<<" i:"<<textwidth("l");
}

void highlight(int x,int y,int w,int l){
HideMouse();setlinestyle(0,1,1);setcolor(15);
line(x,y,x+w,y);line(x,y,x,y+l);
setcolor(0);line(x,y+l,x+w,y+l);line(x+w,y,x+w,y+l);ShowMouse();}

void reload(){HideMouse();setfillstyle(1,15);bar(0,20,640,480);ShowMouse();}


void rhighlight(int x,int y,int w,int l){
HideMouse();setlinestyle(0,1,1);setcolor(0);
line(x,y,x+w,y);line(x,y,x,y+l);
setcolor(15);line(x,y+l,x+w,y+l);line(x+w,y,x+w,y+l);ShowMouse();}

int click_butt(int cx,int cy,int cw, int cl, int &ha,int c)
{int x,y,b,ox,oy;
ReadMouse(&y,&x,&b);
if(ha==0 && x>cx && x<cx+cw && y>cy && y<cl){
 highlight(cx,cy,cw,cl);ha=1;
 while(!kbhit() && x>cx && x<cx+cw && y>cy && y<cl){ReadMouse(&y,&x,&b);
	if(b==1){rhighlight(cx,cy,cw,cl);
	 if(c==0){}
	 if(c==1){}
	 if(c==2){return 1;}
	 if(c==3){reload();};
	 if(c==4){return 1;};
	 ox=x;oy=y;
	 while(!kbhit() && b==1){
		ReadMouse(&y,&x,&b);
		if(ox!=x && oy!=y){
		ReadMouse(&y,&x,&b);
		if(x>cx && x<cx+cw && y>cy && y<cl){
		HideMouse();rhighlight(cx,cy,cw,cl);ShowMouse();}
		else if(x<cx || x>cx+cw || y<cy || y>cl){
		HideMouse();setcolor(7);rectangle(cx,cy,cx+cw,cy+cl);ShowMouse();};
		ox=x;oy=y;
		};
	 };
	if(x>cx && x<cx+cw && y>cy && y<cl){highlight(cx,cy,cw,cl);};
	};
	};
	HideMouse();setcolor(7);rectangle(cx,cy,cx+cw,cy+cl);ShowMouse();

};
return 0;
}

int blink(int pos){
int x,y,b;
while(!kbhit()){setcolor(0);line(pos,6,pos,14);
ReadMouse(&y,&x,&b);if(b!=0){return 1;};if(kbhit()){setcolor(15);line(pos,6,pos,14);return 0;};delay(400);
setcolor(15);line(pos,6,pos,14);
ReadMouse(&y,&x,&b);if(b!=0){return 1;};if(kbhit()){setcolor(15);line(pos,6,pos,14);return 0;};delay(400);};
return 0;
}
int cpos=250;
char loc[255],data[5000];



int debopr()
{settextstyle(2,HORIZ_DIR,1);setusercharsize(1,1,1,1);gposy-=3;gposx-=10;
reload();
int c=-1,ux=0,col=0;char tag[5],chs[2];
while(data[++c]!='\0'){
 if(data[c]!='\n'){
 if(data[c]=='<'){tag[0]='\0';
	if(data[c+1]=='/'){c++;
	 while(data[++c]!='>'){chs[0]=toupper(data[c]);chs[1]='\0';strcat(tag,chs);};
	 if(tag[0]=='B'){gposy-=3;gposx-=10;settextstyle(2,HORIZ_DIR,1);setusercharsize(1,1,1,1);}
	 if(tag[0]=='U'){
	 //cout<<" gx:"<<gposx<<" gy:"<<gposy;
	 setlinestyle(0,1,col);line(gposx-3,gposy+10,ux,gposy+10);}
	 //cout<<" t:"<<tag;
	}
	else{
	 while(data[++c]!='>'){chs[0]=toupper(data[c]);chs[1]='\0';strcat(tag,chs);};
	 if(tag[0]=='B'){
		if(tag[1]=='R'){gendl();}
		else{gposy+=3;gposx+=12;settextstyle(0,HORIZ_DIR,1);};}
	 if(tag[0]=='U'){ux=gposx;}
	};
 }
 else{/*if(data[c]!=' '){*/gout(data[c]);};// };
};};


return 0;
}

int openloc(){FILE *fin;
if((fin=fopen(loc, "rt"))==NULL){
void *under;
unsigned int size;
size=imagesize(227,218,410,229);
under=malloc(size);
getimage(227,218,410,229,under);
setfillstyle(1,0);bar(227,218,410,229);
setcolor(12);setusercharsize(1,1,1,1);settextstyle(0,HORIZ_DIR,0);
gout(999,220,"Cannot open input file");
getch();putimage(227,218,under,0);
return 1;}
char ch='0',chs[2];
strnset(data,'\0',1);
while(!feof(fin)){ch=getc(fin);if(ch!='\0'){chs[1]='\0';chs[0]=ch;strcat(data,chs);};};
fclose(fin);
chs[1]='\0';chs[0]='\0';strcat(data,chs);
debopr();
return 0;
}

int savurl()
{
FILE *fout;
fout=fopen("ce.cfg","w");
int c=-1;
while(data[++c]!='\0'){putc(data[c],fout);};
fclose(fout);
return 0;
}

int cur=0;

int locbox(){
int x,y,b,ox,oy;
ReadMouse(&y,&x,&b);
ox=x;oy=y;int ha=0,c=0;
setlinestyle(0,1,1);
ReadMouse(&y,&x,&b);
while(b==1){ReadMouse(&y,&x,&b);};
if(blink(cpos)==1){return 0;};
unsigned int ch;
while(b==0){ReadMouse(&y,&x,&b);
if(ox!=x || oy!=y){for(c=0;c<4;c++){ReadMouse(&y,&x,&b);if(ha==0 && x>c*57+15 && x<c*57+10+57 && y>2 && y<15){if(click_butt(c*57+15,2,57,15,ha,c)==1){return 0;};};};};
ox=x;oy=y;
if(kbhit()){ch=getch();
settextstyle(2,HORIZ_DIR,1);setusercharsize(1,1,1,1);
setcolor(0);
int grr=0;
if(ch==13){savurl();return 1;}
if(ch==27){return 0;}
if(ch==71){grr=1;cpos=250;}
if(ch==79){grr=1;cpos=500;}
if(ch==75){grr=1;if(cpos>250){cpos-=textwidth("a");};}
if(ch==79){grr=1;if(cpos<490){cpos+=textwidth("a");};}
if(ch==80){//FILE *fout;if(
//(fout=fopen("ce.cfg","rt")!=NULL){
//int i=0;while(!feof(fout)){cpos+=textwidth("a");;loc[i++]=getc(fout);};
//fclose(fout);loc[i]='\0';
}
if(ch==8){grr=1;if(cpos>250){loc[--cur]='\0';cpos-=textwidth("a");HideMouse();setfillstyle(1,15);bar(cpos,7,cpos+textwidth("a"),16);ShowMouse();};}
else if(grr==0){if(cpos<490){
char chs[2];chs[0]=ch;chs[1]='\0';
strcat(loc,chs);HideMouse();
setfillstyle(1,15);bar(cpos,7,cpos+textwidth("a"),16);
gout(cpos,4,char(ch));ShowMouse();cpos+=textwidth("a");cur++;};};
};
ReadMouse(&y,&x,&b);
};
return 0;
}

int ONEHUGE___MOTHA_____IF() // BITE ME MAN WITH NO TITLES!!!!
{int x,y,b,ox,oy;
ShowMouse();
ReadMouse(&y,&x,&b);int q=0;
ox=x;oy=y;int ha=0,c=0;char ch=' ';
while(ch!=27 && q==0){
ShowMouse();
if(kbhit()){ch=getch();if(ch==9){if(locbox()==1){openloc();};};};
ReadMouse(&y,&x,&b);
//if(ox!=x || oy!=y){
for(c=0;c<4;c++){ReadMouse(&y,&x,&b);if(ha==0 && x>c*57+15 && x<c*57+10+57 && y>2 && y<15){if(click_butt(c*57+15,2,57,15,ha,c)==1){return 0;};};//};
ReadMouse(&y,&x,&b);if(ha==0 && x>615 && x<635 && y>2 && y<17){if(click_butt(615,2,20,15,ha,4)==1){return 0;};};
ReadMouse(&y,&x,&b);if(x>250 && x<500 && y>5 && y<17){ReadMouse(&y,&x,&b);if(b==1){if(locbox()==1){openloc();};};ShowMouse();
};
ha=0;

};
ox=x;oy=y;
};
return 0;
}

/*
BLACK        ³  0  ³ Yes ³ Yes
BLUE         ³  1  ³ Yes ³ Yes
GREEN        ³  2  ³ Yes ³ Yes
CYAN         ³  3  ³ Yes ³ Yes
RED          ³  4  ³ Yes ³ Yes
MAGENTA      ³  5  ³ Yes ³ Yes
BROWN        ³  6  ³ Yes ³ Yes
LIGHTGRAY    ³  7  ³ Yes ³ Yes
DARKGRAY     ³  8  ³ No  ³ Yes
LIGHTBLUE    ³  9  ³ No  ³ Yes
LIGHTGREEN   ³ 10  ³ No  ³ Yes
LIGHTCYAN    ³ 11  ³ No  ³ Yes
LIGHTRED     ³ 12  ³ No  ³ Yes
LIGHTMAGENTA ³ 13  ³ No  ³ Yes
YELLOW       ³ 14  ³ No  ³ Yes
WHITE        ³ 15  ³ No  ³ Yes */

void main()
{
clrscr();
int gdriver = DETECT, gmode, errorcode;
initgraph(&gdriver, &gmode, "c:\\tc\\bgi");
cleardevice();
setcolor(15);
strnset(loc,'\0',1);
gposx=0;gposy=23;
intro();
/*

	 line single;
	 node  *new_node;
int x;

int m=0,i=0;
while(m!=9){
	 for (i=1; i <=20; i++)
		{
		new_node = new  node; //this line actually goes to the memory stack and gets
		new_node -> value = i;   //a node's worth of memory
		single.append_node (new_node);
		}
node *n;
*/
ActivMouse();ResetMouse();HideMouse();
cleardevice();
initbutt();
ONEHUGE___MOTHA_____IF();
ResetMouse();HideMouse();
//getch();
}