#include <graphics.h>
#include <conio.h>
#include <stdlib.h>
 
int main()
{
      int z, i, j=0;
      int ch, v;
   initwindow(1200, 600, "Tank 1.0"); 
   delay(1500);
   setcolor(6);
   settextstyle(TRIPLEX_FONT, HORIZ_DIR,7);
   outtextxy(400,250, "TANK");
   settextstyle(TRIPLEX_FONT,HORIZ_DIR,4);  
   outtextxy(800,275, "1.0");
   setbkcolor(16);
   delay(2000);
   cleardevice();
   outtextxy(930,1,"TANK");
   settextstyle(TRIPLEX_FONT,HORIZ_DIR,2);
   outtextxy(1100,9,"1.0");
   settextstyle(DEFAULT_FONT, HORIZ_DIR,2);
   setcolor(3);
   outtextxy(200,200,"Left: <-");
   outtextxy(200,250,"Right: ->");
   outtextxy(200,300,"Rocket: Space");
   outtextxy(200,350,"Quit: q");
   setcolor(7);
   line(300,500,900,500);
   line(300,475,900,475);
   line(900,500,900,475);
   for(v=0; v<=600; v++){
   setlinestyle(SOLID_LINE, 3, 7);
   line(300+v,501,300+v,475);
   delay(10);
}
   delay(500);
   setcolor(7);
   settextstyle(TRIPLEX_FONT, HORIZ_DIR,4);
   outtextxy(390,430,"PRESS ANY KEY!");
   getch();
   setbkcolor(15);
   cleardevice();
   setlinestyle(SOLID_LINE, 0, 1);
            setcolor(2);
            line(0,550,1200,550);
            line(0,551,1200,551);
            setcolor(0);
            line(50,550,250,550);
            line(50,550,10,500);
            line(250,550,290,500);
            line(10,500,290,500);
            line(10,500,30,475);
            line(290,500,270,475);
            line(30,475,270,475);
            line(70,475,85,450);
            line(260,475,245,450);
            line(85,450,245,450);
            line(250,460,430,460);
            line(255,465,430,465);
            line(430,465,430,460);
            circle(63,535,15);
            circle(98,535,15);
            circle(133,535,15);
            circle(168,535,15);
            circle(203,535,15);
            circle(238,535,15);
            circle(33,512,10);
            circle(265,512,10);
   while((ch = getch()) != 113)
	{	switch(ch)
		{	case KEY_RIGHT: 
   for(i=j; i<=j+1; i=i+1){
            cleardevice();
            setbkcolor(15);
            setcolor(2);
            line(0,550,1200,550);
            line(0,551,1200,551);
            setcolor(0);
            line(50+i,550,250+i,550);
            line(50+i,550,10+i,500);
            line(250+i,550,290+i,500);
            line(10+i,500,290+i,500);
            line(10+i,500,30+i,475);
            line(290+i,500,270+i,475);
            line(30+i,475,270+i,475);
            line(70+i,475,85+i,450);
            line(260+i,475,245+i,450);
            line(85+i,450,245+i,450);
            line(250+i,460,430+i,460);
            line(255+i,465,430+i,465);
            line(430+i,465,430+i,460);
            circle(63+i,535,15);
            circle(98+i,535,15);
            circle(133+i,535,15);
            circle(168+i,535,15);
            circle(203+i,535,15);
            circle(238+i,535,15);
            circle(33+i,512,10);
            circle(265+i,512,10);
   }
   j=i+5;
   break;
   case KEY_LEFT:
        for(i=j; i<=j+1; i=i+1){
            cleardevice();
            setcolor(2);
            line(0,550,1200,550);
            line(0,551,1200,551);
            setcolor(0);
            line(50+i,550,250+i,550);
            line(50+i,550,10+i,500);
            line(250+i,550,290+i,500);
            line(10+i,500,290+i,500);
            line(10+i,500,30+i,475);
            line(290+i,500,270+i,475);
            line(30+j,475,270+i,475);
            line(70+i,475,85+i,450);
            line(260+i,475,245+i,450);
            line(85+i,450,245+i,450);
            line(250+i,460,430+i,460);
            line(255+i,465,430+i,465);
            line(430+i,465,430+i,460);
            circle(63+i,535,15);
            circle(98+i,535,15);
            circle(133+i,535,15);
            circle(168+i,535,15);
            circle(203+i,535,15);
            circle(238+i,535,15);
            circle(33+i,512,10);
            circle(265+i,512,10);
            }
            j=i-7;
        break;
        case 32:
             for(z=1; z<=1000; z=z+5){
             cleardevice();
             setcolor(0);
             setlinestyle(SOLID_LINE,0,4);
             line(420+i+z,460,470+i+z,460);
             line(420+i+z,462,470+i+z,460);
             setcolor(2);
             setlinestyle(SOLID_LINE,0,1);
            line(0,550,1200,550);
            line(0,551,1200,551);
            setcolor(0);
            line(50+i,550,250+i,550);
            line(50+i,550,10+i,500);
            line(250+i,550,290+i,500);
            line(10+i,500,290+i,500);
            line(10+i,500,30+i,475);
            line(290+i,500,270+i,475);
            line(30+j,475,270+i,475);
            line(70+i,475,85+i,450);
            line(260+i,475,245+i,450);
            line(85+i,450,245+i,450);
            line(250+i,460,430+i,460);
            line(255+i,465,430+i,465);
            line(430+i,465,430+i,460);
            circle(63+i,535,15);
            circle(98+i,535,15);
            circle(133+i,535,15);
            circle(168+i,535,15);
            circle(203+i,535,15);
            circle(238+i,535,15);
            circle(33+i,512,10);
            circle(265+i,512,10);
            }
            j=i-7;
            break;
             }
             }
             setbkcolor(16);
             cleardevice();
             delay(500);
             setcolor(6);
             settextstyle(TRIPLEX_FONT, HORIZ_DIR,7);
             outtextxy(400,200, "TANK");
             settextstyle(TRIPLEX_FONT,HORIZ_DIR,4);  
             outtextxy(800,225, "1.0");
             setcolor(7);
             outtextxy(400,300,"End of the game");
             settextstyle(TRIPLEX_FONT,HORIZ_DIR,2);
             outtextxy(970,580,"by: Szabo Janos");
   delay(2000);
   closegraph();
   return 0;
}