My C programs - The Bricks Game !
/************************************************************************/ /* Designed & developed by J.V.RAVICHANDRAN. */ /* Started on 19/04/1998. */ /* Author's name -- J.V.RAVICHANDRAN */ /* Company's name -- Semantix Computers. */ /* Company's address -- B-10, Triveni Apartments, */ /* Vikas puri, New Delhi - 110018. */ /* Completed on -- 27th April, 1998. */ /* Name of software -- GREYcells Bricks */ /* Nature of software -- Game */ /************************************************************************/ #include#include #include #include #include #include #include #include #include #include #include
_fmode=O_BINARY;
handle=_creat("termtic.$$$", FA_HIDDEN);
lseek(handle, 0L, SEEK_SET);
_write(handle,"1",1);
_close(handle);
_fmode=O_BINARY;
handle=_creat("delaytic.$$$", FA_HIDDEN);
lseek(handle, 0L, SEEK_SET);
_write(handle,"1",1);
_close(handle);
goon=1;}
if (ct==0){goon=1;}
if (goon==1){
ct=access("termtic.$$$",0);
if (ct==-1){
setfillstyle(SOLID_FILL,15);
bar(100,100,400,200);
setfillstyle(SOLID_FILL,0);
bar(101,101,399,120);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
setcolor(15);
outtextxy(220,111,"GREYcells");
setcolor(0);
outtextxy(110,135,"Intruder alert ! Please contact");
outtextxy(110,150,"the developer immediately.");
sound(100);
delay(75);
nosound();
getch();
cleardevice();
closegraph();
_close(handle);
ix=0;
exit(0);}
if (ct==0){
handle=open("termtic.$$$", O_RDONLY | O_BINARY);
lseek(handle, 0L, SEEK_SET);
counter=0;
leng=filelength(handle);
sscanf(&terminator,"%d",&leng);
while (!eof(handle)){
read(handle,&terminator,4);}
}
chmod("termtic.$$$",S_IWRITE);
unlink("termtic.$$$");
_fmode=O_BINARY;
handle=_creat("termtic.$$$", FA_HIDDEN);
lseek(handle, 0L, SEEK_SET);
if (ballrow>=435 && down==1){
if (soundon==1){
sound(100);
delay(10);
nosound();}
wallctr=0;
bx=x;
bxx=xx;
counter=bx;
downangle=0;
down=6;}
if (ballrow>=435 && down==7){
if (soundon==1){
sound(100);
delay(10); nosound();}
wallctr=0;
bx=x;
bxx=xx;
counter=bx;
downangle=0;
down=6;}
if (down==6){
for (counter==bx;counter=bx-6 && ballcol<=bx+10){
angle=1;
counter=bxx+3;
down=3;}
if (ballcol>bx+10 && ballcol<=bx+20){
angle=2;
counter=bxx+3;
down=3;}
if (ballcol>bx+20 && ballcol<=bx+30){
angle=3;
counter=bxx+3;
down=3;}
if (ballcol>bx+30 && ballcol<=bx+40 && ballcol!=bx+36 && ballcol!=bx+37){
angle=4;
counter=bxx+3;
down=3;}
if (ballcol>bx+40 && ballcol<=bx+50){
angle=5;
counter=bxx+3;
down=3;}
if (ballcol>bx+50 && ballcol<=bx+60){
angle=6;
counter=bxx+3;
down=3;}
if (ballcol>bx+60 && ballcol<=bx+70){
angle=7;
counter=bxx+3;
down=3;}
if (ballcol>bx+70 && ballcol<=bx+83){
angle=8;
counter=bxx+3;
down=3;}
if (ballcol==bx+36 || ballcol==bx+37){
ballrow=ballrow-5;
angle=-1;
down=4;
counter=bxx+3;}
if (down==6){
counter=bxx+3;
down=5;}
}
}
if (down==3){
upangles();}
if (down==5){
if (delayover==3){
cleardevice();
start();
ballrow=125;
ballcol=300;
downangle=1;
gamestart=1;
delayover=5;}
if (delayover!=3 || delayover!=5){
if (soundon==1){
sound(100);
delay(50);
nosound();}
ballrow=ballrow+10;
incolor=9;
ball();
if (ballcx<=135){
setcolor(0);
circle(ballcx,470,7);
ballcx=ballcx+25;
ballnum++;
if (ballnum>4){ballnum=0;}
settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
settextjustify(0,1);
setcolor(10);
outtextxy(125,250,"Have another ball !");
delay(1500);
settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
settextjustify(0,1);
setcolor(0);
outtextxy(125,250,"Have another ball !");}
if (ballcx>=150){
settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
settextjustify(0,1);
setcolor(12);
outtextxy(225,250,"Game over !");
tune();
getch();
setfillstyle(SOLID_FILL,0);
bar(x,y,xx,yy);
incolor=0;
ball();
delay(50);
settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
settextjustify(0,1);
setcolor(0);
outtextxy(225,250,"Game over !");
score=0;
start();
scorex=510;
score=0;
scorex+=textwidth("Score -");
scorex=scorex+5;
ballcx=10;}
}
if (delayover==5){down=1;}
writescore();
wallctr=0;
incolor=0;
ball();
ballrow=125;
down=1;}
incolor=12;
ball();
}
}
key=getch();
switch(key){
case 32:
if (gamestart==2){
if (menuon==2 && item==1){
sound(100);
delay(50);
nosound();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(15);
soundon++;
if (soundon>1){
soundon=0;}
if (soundon==1){
setcolor(7);
outtextxy(menucol+75,menurow+13,"Sound ( OFF )");
setcolor(15);
outtextxy(menucol+75,menurow+13,"Sound ( ON )");}
if (soundon==0){
setcolor(7);
outtextxy(menucol+75,menurow+13,"Sound ( ON )");
setcolor(15);
outtextxy(menucol+75,menurow+13,"Sound ( OFF )");}
}
}
break;
case ALT==1:
case 129:
if (gamestart==2){
if (menuon==0){
menucol=15;
menurow=14;
menucoll=164;
menuroww=57;
messageboxc=menucol;
messageboxr=menurow;
messageboxcc=menucoll;
messageboxrr=menuroww;
savebox();
dropdownmenu();
setcolor(12); settextstyle(DEFAULT_FONT,VERT_DIR,1); settextjustify(0,1); outtextxy(18,11,"0");
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(8);
if (soundon==1){
outtextxy(menucol+75,menurow+13,"Sound ( ON )");}
if (soundon==0){
outtextxy(menucol+75,menurow+13,"Sound ( OFF )");}
outtextxy(menucol+75,menurow+33,"Levels (1-3)");
item=0;
menuon=2;}
}
break;
case 34:
if (gamestart==2){
if (menuon==0){
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
cx=10;
setcolor(12);
outtextxy(cx,60,"G");
cx+=textwidth("G");
cx=cx+1;
setcolor(15);
outtextxy(cx,60,"ame");
menuon=1;
menuflag=0;
menuitem=1;}
if (menuon==1 && menuitem==1 && menuflag==0){
menucol=10;
menurow=63;
menucoll=130;
menuroww=106;
messageboxc=menucol;
messageboxr=menurow;
messageboxcc=menucoll;
messageboxrr=menuroww;
savebox();
dropdownmenu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(8);
outtextxy(menucol+60,menurow+13,"Start");
outtextxy(menucol+60,menurow+33,"Quit");
item=0;
menuflag=1;}
}
break;
case 35:
if (gamestart==2){
if (menuon==0){
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
cx=100;
setcolor(12);
outtextxy(cx,60,"H");
cx+=textwidth("H");
cx=cx+1;
setcolor(15);
outtextxy(cx,60,"elp");
menuon=1;
menuflag=0;
menuitem=2;}
if (menuon==1 && menuitem==2 && menuflag==0){
menucol=100;
menurow=63;
menucoll=239;
menuroww=106;
messageboxc=menucol;
messageboxr=menurow;
messageboxcc=menucoll;
messageboxrr=menuroww;
savebox();
dropdownmenu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(8);
outtextxy(menucol+75,menurow+13,"How to use...");
outtextxy(menucol+70,menurow+33,"About");
item=0;
menuflag=1;}
}
break;
case 80:
if (gamestart==2){
if (menuon==2){
if (item==0){
threed_menu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1); settextjustify(1,1);
if (soundon==1){
setcolor(7);
outtextxy(menucol+75,menurow+13,"Sound ( OFF )");
setcolor(15);
outtextxy(menucol+75,menurow+13,"Sound ( ON )");}
if (soundon==0){
setcolor(7);
outtextxy(menucol+75,menurow+13,"Sound ( ON )");
setcolor(15);
outtextxy(menucol+75,menurow+13,"Sound ( OFF )");}
}
if (item==1){
twod_menu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(8);
if (soundon==1){
outtextxy(menucol+75,menurow+13,"Sound ( ON )");}
if (soundon==0){
outtextxy(menucol+75,menurow+13,"Sound ( OFF )");}
setlinestyle(SOLID_LINE,1,1);
threed_menuitem2();
setcolor(15);
outtextxy(menucol+75,menurow+33,"Levels (1-3)");}
if (item==2){
twod_menuitem2();
setcolor(8);
outtextxy(menucol+75,menurow+33,"Levels (1-3)");}
sound(20);
delay(75);
nosound();
item++;
if (item==3){
item=0;}
}
if (menuon==1 && menuflag==1 && menuitem==1){
if (item==0){
threed_menu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(15);
outtextxy(menucol+60,menurow+13,"Start");}
if (item==1){
twod_menu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(8);
outtextxy(menucol+60,menurow+13,"Start");
setlinestyle(SOLID_LINE,1,1);
threed_menuitem2();
setcolor(15);
outtextxy(menucol+60,menurow+33,"Quit");}
if (item==2){
twod_menuitem2();
setcolor(8);
outtextxy(menucol+60,menurow+33,"Quit");}
sound(20);
delay(75);
nosound();
item++;
if (item==3){
item=0;}
}
if (menuon==1 && menuflag==1 && menuitem==2){
if (item==0){
threed_menu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(15);
outtextxy(menucol+75,menurow+13,"How to use...");}
if (item==1){
twod_menu();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(1,1);
setcolor(8);
outtextxy(menucol+75,menurow+13,"How to use...");
setlinestyle(SOLID_LINE,1,1);
threed_menuitem2();
setcolor(15);
outtextxy(menucol+70,menurow+33,"About");}
if (item==2){
twod_menuitem2();
setcolor(8);
outtextxy(menucol+70,menurow+33,"About");}
sound(20);
delay(75);
nosound();
item++;
if (item==3){
item=0;}
}
}
break;
case 13:
if (gamestart==2){
if (menuon==1 && menuitem==1){
restorebox();
if (item==0){
sound(200);
delay(25);
nosound();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
cx=10;
setcolor(15);
outtextxy(cx,60,"G");
cx+=textwidth("G");
cx=cx+1;
setcolor(12);
outtextxy(cx,60,"ame");}
if (item==1){
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
cx=10;
setcolor(15);
outtextxy(cx,60,"G");
cx+=textwidth("G");
cx=cx+1;
setcolor(12);
outtextxy(cx,60,"ame");
item=0;
menuon=0;
menuflag=0;
cleardevice();
textcounter=5;
start();
writescore();
gamestart=1;
count=1;
down=1;
ix=1;}
if (item==2){
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
cx=10;
setcolor(15);
outtextxy(cx,60,"G");
cx+=textwidth("G");
cx=cx+1;
setcolor(12);
outtextxy(cx,60,"ame");
quit();
count=1;
ix=0;}
menuon=0;
}
if (menuon==1 && menuitem==2){
restorebox();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
cx=100;
setcolor(15);
outtextxy(cx,60,"H");
setcolor(12);
cx+=textwidth("H");
cx=cx+1;
outtextxy(cx,60,"elp");
if (item==0){
sound(200);
delay(25);
nosound();}
if (item==1){
howtouse();}
if (item==2){
about();}
menuon=0;}
if (menuon==2){
restorebox();
setcolor(7);
settextstyle(DEFAULT_FONT,VERT_DIR,1);
settextjustify(0,1);
outtextxy(18,11,"0");
if (item==2){
shareware();}
settextstyle(DEFAULT_FONT,VERT_DIR,1);
settextjustify(0,1);
setcolor(7);
outtextxy(18,11,"0");
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
setcolor(15);
outtextxy(295,12,"GREYcells");
cx=10;
setcolor(15);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
outtextxy(cx,60,"G");
cx+=textwidth("G");
cx=cx+1;
setcolor(12);
outtextxy(cx,60,"ame");
cx=100;
setcolor(15);
outtextxy(cx,60,"H");
cx+=textwidth("H");
cx=cx+1;
setcolor(12);
outtextxy(cx,60,"elp");
setlinestyle(SOLID_LINE,1,1);
setcolor(15);
line(0,65,640,65); barx=0; barxx=barx+60; bary=75; baryy=bary+20; bricknum=0; ctr=0;
if (barxx>640){
if (ctr==0 || ctr==2 || ctr==4 || ctr==6 || ctr==8 || ctr==10 || ctr==12 || ctr==14){
bricknum=1;}
if (ctr==1 || ctr==3 || ctr==5 || ctr==7 || ctr==9 || ctr==11 || ctr==13 || ctr==15){
bricknum=0;}
if (bricknum==1){
bary=bary+25;
baryy=bary+20;
barx=0;
barxx=barx+30;}
if (bricknum==0){
bary=bary+25;
baryy=bary+20;
barx=0;
barxx=barx+60;}
ctr++;}
}
if (textcounter==0){
messageboxc=125;
messageboxr=125;
messageboxcc=450;
messageboxrr=200;
midx=265;
sound(100);
delay(75);
nosound();
savebox();
errorscreen();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(1,3,1,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,messageboxr+5,"Speed");
setcolor(0);
outtextxy(messageboxc+5,messageboxr+35,"Enter ballspeed (less than 100) -");
messageboxc+=textwidth("Enter ballspeed (less than 100) -");
cursorctr=messageboxc+5;
messageboxc=cursorctr;
setfillstyle(SOLID_FILL,15);
bar(messageboxc,messageboxr+45,messageboxc+5,messageboxr+50);}
/* BRICKS */
/* B */
srand( seed ); /* Restart random # function */
count=0;
color=15;
while (!kbhit()){
if (count==0 || count==2){
i=0;
z=50;
q=20;
w=200;
h=125;
ctr=0;
greateri=1000;
bee();}
if (count==0 || count==1){
i=0;
z=150;
q=20;
w=200;
h=125;
ctr=0;
greateri=1000;
arr();}
if (count==0 || count==2){
i=0;
z=250;
q=20;
w=200;
h=125;
greateri=1000;
eye();}
if (count==0 || count==1){
i=0;
z=325;
q=15;
w=200;
h=25;
greateri=100;
ctr=0;
see();}
if (count==0 || count==2){
i=0;
z=425;
q=20;
w=200;
h=125;
greateri=1000;
ctr=0;
kay();}
if (count==0 || count==1){
i=0;
z=595;
q=20;
w=200;
h=15;
greateri=100;
ctr=0;
ess();}
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setcolor(10);
outtextxy(115,340,"A ballgame designed & developed by J.V.Ravichandran");
sound(275);
delay(50);
sound(250);
delay(100);
sound(300);
delay(75);
sound(125);
delay(50);
sound(225);
delay(50);
sound(300);
delay(100);
sound(125);
delay(50);
sound(225);
delay(100);
nosound();
/* End */
delay(200);
count++;
color++;
if (color>=15){
color=0;}
}
while (textcounter!=5){
ctrlbrk(c_break);
key=getch();
switch(key){
case 8:
if (textcounter>0 && messageboxc>cursorctr){
setfillstyle(SOLID_FILL,9);
bar(messageboxc-3,messageboxr+30,messageboxc+10,messageboxr+50);
messageboxc-=textwidth(&key);
textcounter--;}
if (textcounter<=0){textcounter=0;}
if (messageboxc<=cursorctr){messageboxc=cursorctr;}
setfillstyle(SOLID_FILL,15);
bar(messageboxc,messageboxr+45,messageboxc+5,messageboxr+50);
break;
case 27:
sound(200);
delay(50);
nosound();
break;
case 13:
if (textcounter==0){
sound(200);
delay(50);
nosound();}
if (delayover==1 && textcounter>0){
lastcounter=textcounter;
gamestart=2;
count=0;
while (count
/* Frame */ setfillstyle(SOLID_FILL,2); bar(0,100,5,460); bar(0,455,640,460); bar(635,100,640,460);
ballrow=125;
ballcol=300;
once=0;
down=1;
brickctr=1;
while (brickctr<=40){
strcpy(&brick[brickctr],"0");
brickctr++;}
incolor=12;
ball();
if (delayover==3 || delayover==5){
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
setcolor(12);
outtextxy(275,470,"Level - 1");
if (ballnum==0){
ballcx=10;}
if (ballnum==1){
ballcx=35;}
if (ballnum==2){
ballcx=60;}
if (ballnum==3){
ballcx=85;}
if (ballnum==4){
ballcx=110;}
if (ballnum>4){
srand( seed ); /* Restart Random # at same # */
vx=z+random(q-1); /* Column */ vy=w+random(h-1); /* Row */ putpixel( vx, vy, color );} ctr++; if (ctr==1){ i=0; z=170; q=15; w=200; greateri=50; h=15;} if (ctr==2){ i=0; greateri=50; z=180; q=15; w=200; h=25;} if (ctr==3){ i=0; greateri=50; z=190; q=15; w=210; h=25;} if (ctr==4){ i=0; greateri=50; z=200; q=15; w=220; h=25;} if (ctr==5){ i=0; greateri=50; z=190; q=15; w=210; h=25;} if (ctr==6){ i=0; greateri=50; z=170; q=15; w=250; h=25;} if (ctr==7){ i=0; greateri=50; z=180; q=15; w=240; h=25;} if (ctr==8){ i=0; z=190; q=15; w=230; greateri=50; h=25;} if (ctr==9){ i=0; z=170; q=15; w=250; greateri=50; h=15;} if (ctr==10){ i=0; greateri=50; z=180; q=15; w=250; h=25;} if (ctr==11){ i=0; greateri=50; z=180; q=15; w=260; h=25;} if (ctr==12){ i=0; greateri=50; z=195; q=15; w=270; h=25;} if (ctr==13){ i=0; greateri=50; z=200; q=15; w=280; h=25;} if (ctr==14){ i=0; greateri=50; z=205; q=15; w=290; h=25;} if (ctr==15){ i=0; greateri=50; z=205; q=15; w=300; h=25;} } srand(seed); return 1;} int eye(){ for( i=0 ; i
delay(100); for( i=0 ; i
w=195; greateri=100; h=25;} if (ctr==3){ i=0; z=565; q=15; w=205; greateri=100; h=25;} if (ctr==4){ i=0; z=555; q=15; w=210; greateri=100; h=25;} if (ctr==5){ i=0; z=545; q=15; w=215; greateri=100; h=25;} if (ctr==6){ i=0; z=545; q=15; w=225; greateri=100; h=25;} if (ctr==7){ i=0; z=555; q=15; w=235; greateri=100; h=25;} if (ctr==8){ i=0; z=565; q=15; w=245; greateri=100; h=25;} if (ctr==9){ i=0; z=575; q=15; w=255; greateri=100; h=25;} if (ctr==10){ i=0; z=585; q=15; w=265; greateri=100; h=25;} if (ctr==11){ i=0; z=585; q=15; w=275; greateri=100; h=25;} if (ctr==12){ i=0; z=575; q=15; w=285; greateri=100; h=25;} if (ctr==13){ i=0; z=565; q=15; w=290; greateri=100; h=25;} if (ctr==14){ i=0; z=555; q=15; w=290; greateri=100; h=25;} if (ctr==15){ i=0; z=545; q=15; w=295; greateri=100; h=25;} if (ctr==16){ i=0; z=535; q=15; w=300; greateri=100; h=25;} if (ctr==17){ i=0; z=525; q=15; w=300; greateri=100; h=25;}srand(seed); } return 1;} int dropdownmenu(){ settextstyle(DEFAULT_FONT,HORIZ_DIR,1); settextjustify(1,1); setfillstyle(SOLID_FILL,15); bar(menucol,menurow+2,menucoll,menuroww); setfillstyle(SOLID_FILL,0); bar(menucol+1,menurow+3,menucoll-1,menuroww-1);setfillstyle(SOLID_FILL,7); bar(menucol+4,menurow+5,menucoll-3,menurow+20); bar(menucol+4,menurow+25,menucoll-3,menurow+41); setlinestyle(SOLID_LINE,1,2); setcolor(15); line(menucol+4,menurow+5,menucoll-3,menurow+5); line(menucol+4,menurow+5,menucol+4,menurow+20);line(menucol+4,menurow+25,menucoll-3,menurow+25); line(menucol+4,menurow+25,menucol+4,menurow+41);setcolor(0); line(menucol+4,menurow+20,menucoll-3,menurow+20); line(menucoll-3,menurow+5,menucoll-3,menurow+20);line(menucol+4,menurow+41,menucoll-3,menurow+41); line(menucoll-3,menurow+25,menucoll-3,menurow+41);/* line in between menu items */ setcolor(15); line(menucol,menurow+22,menucoll,menurow+22);return 1;} int threed_menu(){ setlinestyle(SOLID_LINE,1,1); setcolor(15); line(menucoll-6,menurow+8,menucoll-6,menurow+17); line(menucol+7,menurow+17,menucoll-6,menurow+17); setcolor(0); line(menucol+7,menurow+7,menucoll-7,menurow+7); line(menucol+7,menurow+7,menucol+7,menurow+17); return 1;}
int twod_menu(){
setlinestyle(SOLID_LINE,1,1);
setcolor(7);
line(menucol+7,menurow+7,menucoll-7,menurow+7);
line(menucol+7,menurow+7,menucol+7,menurow+17);
setcolor(7);
line(menucoll-6,menurow+8,menucoll-6,menurow+17);
line(menucol+7,menurow+17,menucoll-6,menurow+17);
return 1;}
int threed_menuitem2(){
setlinestyle(SOLID_LINE,1,1);
setcolor(15);
line(menucol+7,menurow+27,menucoll-8,menurow+27);
line(menucol+7,menurow+27,menucol+7,menurow+39);
setlinestyle(SOLID_LINE,1,1);
setcolor(0);
line(menucoll-6,menurow+27,menucoll-6,menurow+39);
line(menucol+7,menurow+39,menucoll-6,menurow+39);
return 1;}
int twod_menuitem2(){
setlinestyle(SOLID_LINE,1,1);
setcolor(7);
line(menucol+7,menurow+27,menucoll-8,menurow+27);
line(menucol+7,menurow+27,menucol+7,menurow+39);
setlinestyle(SOLID_LINE,1,1);
setcolor(7);
line(menucoll-6,menurow+27,menucoll-6,menurow+39);
line(menucol+7,menurow+39,menucoll-6,menurow+39);
return 1;}
int howtouse(){
messageboxc=125;
messageboxr=125;
messageboxcc=515;
messageboxrr=320;
midx=300;
savebox();
errorscreen();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(1,3,1,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,messageboxr+5,"Help");
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,160,"How to use GREYcells Bricks");
setcolor(7);
outtextxy(messageboxc+5,185,"Use the left & right arrow keys to move the");
outtextxy(messageboxc+5,200,"board between the walls. After a game is over,");
outtextxy(messageboxc+5,215,"select START from the menu to start a new game.");
outtextxy(messageboxc+5,235,"To select a menu, depress ALT + the colored");
outtextxy(messageboxc+5,250,"letter. To select the oval menu, depress");
outtextxy(messageboxc+5,265,"ALT + Zero. To turn off sound use space bar.");
outtextxy(messageboxc+5,280,"To exit game, press .");
getch();
restorebox();
return 1;}
int about(){
messageboxc=125;
messageboxr=125;
messageboxcc=515;
messageboxrr=300;
midx=300;
savebox();
errorscreen();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(1,3,1,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,messageboxr+5,"Help");
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(3,1,3,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,155,"About GREYcells Bricks");
setcolor(7);
outtextxy(messageboxc+5,185,"A game developed by J.V.Ravichandran, Software");
outtextxy(messageboxc+5,200,"architect/Software consultant/Proprietor.");
outtextxy(messageboxc+5,230,"Semantix Computers, B-10, Triveni Apartments,");
outtextxy(messageboxc+5,245,"Near 'H' Block, Vikas puri, New Delhi-110 018.");
getch();
restorebox();
return 1;}
int shareware(){
messageboxc=125;
messageboxr=125;
messageboxcc=525;
messageboxrr=325;
savebox();
if (soundon==1){
sound(275);
delay(150);
sound(225);
delay(250);
sound(375);
delay(250);
nosound();}
midx=300;
errorscreen();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(1,3,1,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,messageboxr+5,"Alert");
setusercharsize(3,1,3,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,155,"GREYcells Bricks");
setcolor(12);
outtextxy(messageboxc+5,messageboxr+60,"A game developed by J.V.Ravichandran, Software");
outtextxy(messageboxc+5,messageboxr+75,"architect/Software consultant/Proprietor.");
settextstyle(SMALL_FONT,HORIZ_DIR,3);
settextjustify(0,1);
setusercharsize(2,2,3,3);
setcolor(0);
outtextxy(messageboxc+5,messageboxr+95,"This is a shareware version. To increase the no. of levels in the");
outtextxy(messageboxc+5,messageboxr+110,"game, please send Rs.100.00 only or TEN dollars for more levels.");
outtextxy(messageboxc+5,messageboxr+125,"Cheque to be drawn in favor of Semantix Computers, New Delhi,");
outtextxy(messageboxc+5,messageboxr+140,"and mail it to");
setcolor(10);
outtextxy(messageboxc+5,messageboxr+155,"Mr. J.V.Ravichandran, Proprietor, Semantix Computers,");
outtextxy(messageboxc+5,messageboxr+170,"B-10, Triveni Apartments, Vikas puri, New Delhi-110 018.");
outtextxy(messageboxc+5,messageboxr+185,"");
getch();
restorebox();
return 1;}
int errorscreen(){
setfillstyle(SOLID_FILL,9);
bar(messageboxc,messageboxr,messageboxcc,messageboxrr);
setfillstyle(SOLID_FILL,7);
bar(messageboxc+1,messageboxr+1,messageboxcc-1,messageboxr+16);
setfillstyle(SOLID_FILL,0);
bar(messageboxc+2,messageboxr+2,messageboxc+45,messageboxr+15);
setlinestyle(SOLID_LINE,1,1);
setcolor(15);
line(messageboxc+45,messageboxr,messageboxcc,messageboxr);
line(messageboxc+45,messageboxr,messageboxcc,messageboxr);
setfillstyle(SOLID_FILL,7);
bar(messageboxc+1,messageboxrr-16,messageboxcc-65,messageboxrr-1);
setcolor(15);
line(messageboxc,messageboxrr-16,messageboxcc-65,messageboxrr-16);
line(messageboxc,messageboxrr-16,messageboxc,messageboxrr-15);
setfillstyle(SOLID_FILL,0);
bar(messageboxcc-63,messageboxrr-16,messageboxcc-1,messageboxrr-1);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setcolor(15);
setusercharsize(1,3,1,1);
settextjustify(0,1);
outtextxy(midx,messageboxr+5,"GREYcells");
setcolor(13);
outtextxy(messageboxc+5,messageboxrr-11,"Press any key to continue...");
return 1;}
int quit(){
messageboxc=150;
messageboxr=173;
messageboxcc=500;
messageboxrr=300;
midx=300;
if (soundon==1){
sound(275);
delay(150);
sound(225);
delay(250);
sound(375);
delay(250);
nosound();}
errorscreen();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(1,3,1,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,messageboxr+5,"Exit");
setcolor(12);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
outtextxy(messageboxc+5,messageboxr+35,"GREYcells Bricks");
setcolor(10);
outtextxy(messageboxc+5,messageboxr+55,"A game developed by J.V.Ravichandran.");
setcolor(7);
outtextxy(messageboxc+5,messageboxr+75,"(c) Semantix Computers, New Delhi");
setcolor(0);
outtextxy(messageboxc+5,messageboxr+90,"B-10, Triveni apartments, Vikas puri,");
outtextxy(messageboxc+5,messageboxr+105,"New Delhi-110 018.");
getch();
return 1;}
int evaluate(){
if (ballcol>=0 && ballcol<=60){
firstbrick();
baryy=bary+20;
once=0;
barx=0;
checkbrickexistence();
downevaluateflag=0;}
if (ballcol>=64 && ballcol<=124){
downevaluateflag=0;
secondbrick();
barx=64;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=128 && ballcol<=188){
downevaluateflag=0;
thirdbrick();
barx=128;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=192 && ballcol<=252){
downevaluateflag=0;
fourthbrick();
barx=192;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=256 && ballcol<=316){
downevaluateflag=0;
fifthbrick();
barx=256;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=320 && ballcol<=380){
downevaluateflag=0;
sixthbrick();
barx=320;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=384 && ballcol<=444){
downevaluateflag=0;
seventhbrick();
barx=384;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=448 && ballcol<=508){
downevaluateflag=0;
eighthbrick();
barx=448;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=512 && ballcol<=572){
downevaluateflag=0;
ninthbrick();
barx=512;
baryy=bary+20;
checkbrickexistence();}
if (ballcol>=576 && ballcol<=636){
downevaluateflag=0;
tenthbrick();
barx=576;
baryy=bary+20;
checkbrickexistence();}
return 1;}
int secondevaluate(){
if (ballcol>56 && ballcol<70 ballcol="" barx="64;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="0;}" firstbrick="" if="" secondbrick="">119 && ballcol<135 ballcol="" barx="128;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="1;" if="" secondbrick="" thirdbrick="">182 && ballcol<199 ballcol="" barx="192;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="1;" fourthbrick="" if="" thirdbrick="">248 && ballcol<264 ballcol="" barx="256;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="1;" fifthbrick="" fourthbrick="" if="">315 && ballcol<331 ballcol="" barx="320;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="1;" fifthbrick="" if="" sixthbrick="">374 && ballcol<394 ballcol="" barx="384;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="1;" if="" seventhbrick="" sixthbrick="">440 && ballcol<456 ballcol="" barx="448;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="1;" eighthbrick="" if="" seventhbrick="">501 && ballcol<521 ballcol="" barx="512;" baryy="bary+20;" checkbrickexistence="" downevaluateflag="1;" eighthbrick="" if="" ninthbrick="">568 && ballcol<582 1="" bar="" barx="" barxx="" bary="" baryy="" brick="" brickctr="" checkbrickexistence="" d="" delay="" down="1;" downangle="1;" downevaluateflag="2;" evaluateflag="3;" hitflag="=1){" if="" int="" ninthbrick="" nosound="" once="=2" pre="" return="" setfillstyle="" settextjustify="" settextstyle="" sound="" soundon="=1){" sscanf="" strcpy="" tenthbrick="">
setcolor(0);
scorex=510;
scorex+=textwidth("Score -");
scorex=scorex+5;
outtextxy(scorex,470,&newstr);
strcpy(&brick[brickctr],"2");
sscanf(&brick[brickctr],"%d",&hitflag);
score=score+10;
scorex=510;
scorex+=textwidth("Score -");
scorex=scorex+5;
#if 0
setfillstyle(SOLID_FILL,15);
bar(100,200,400,400);
setcolor(0);
outtextxy(110,225,"Ballcol");
outtextxy(110,250,"Ballrow");
outtextxy(110,275,"Brickctr");
sprintf(&newstr,"%d",ballcol);
outtextxy(250,225,&newstr);
sprintf(&newstr,"%d",ballrow);
outtextxy(250,250,&newstr);
sprintf(&newstr,"%d",brickctr);
outtextxy(250,275,&newstr);
getch();
#endif
switch(score){
case 400:
case 800:
case 1200:
case 1600:
case 2000:
case 2400:
case 2800:
case 3200:
case 3600:
case 4000:
case 4400:
case 4800:
case 5200:
case 5600:
case 6000:
case 6400:
case 6800:
case 7200:
case 7600:
case 8000:
case 8400:
case 8800:
case 9200:
case 9600:
case 10000:
delayover=3;
down=5;
once=0;
break;
}
if (score>10000){
scorectr++;
if (scorectr>=1){
settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
settextjustify(0,1);
setcolor(12);
outtextxy(150,150,"Congratulations !");
outtextxy(225,250,"Join the");
outtextxy(175,300,"high scorers'");
outtextxy(250,350,"band !");
while (!kbhit()){
tune();}
getch();
delayover=3;
settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
settextjustify(0,1);
setcolor(0);
outtextxy(150,150,"Congratulations !");
outtextxy(225,250,"Join the");
outtextxy(175,300,"high scorers'");
outtextxy(250,350,"band !");
alertformoney();
down=5;
gamestart=1;
once=0;}
}
if (down==5 && scorectr>=1){
down=8;}
if (down==8){
delayover=5;
down=5;}
if (down!=5){
scorex=510;
scorex+=textwidth("Score -");
scorex=scorex+5;
writescore();
bx=barx;
bxx=barxx;
counter=bx;
downangle=1;
once=0;
down=1;}
}
return 1;}
int firstbrick(){
if (ballrow>=0 && ballrow<21 ballrow="" bary="0;}" brickctr="1;" if="" once="0;">23 && ballrow<45 ballrow="" bary="24;}" brickctr="2;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="3;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="4;" if="" int="" once="0;" return="" secondbrick="">=0 && ballrow<21 pre="">
once=0;
brickctr=5;
bary=0;}
if (ballrow>23 && ballrow<45 ballrow="" bary="24;}" brickctr="6;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="7;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="8;" if="" int="" once="0;" return="" thirdbrick="">=0 && ballrow<21 ballrow="" bary="0;}" brickctr="9;" if="" once="0;">23 && ballrow<45 ballrow="" bary="24;}" brickctr="10;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="11;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="12;" fourthbrick="" if="" int="" once="0;" return="">=0 && ballrow<21 ballrow="" bary="0;}" brickctr="13;" if="" once="0;">23 && ballrow<45 ballrow="" bary="24;}" brickctr="14;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="15;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="16;" fifthbrick="" if="" int="" once="0;" return="">=0 && ballrow<21 ballrow="" bary="0;}" brickctr="17;" if="" once="0;">24 && ballrow<45 ballrow="" bary="24;}" brickctr="18;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="19;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="20;" if="" int="" once="0;" return="" sixthbrick="">=0 && ballrow<21 ballrow="" bary="0;}" brickctr="21;" if="" once="0;">24 && ballrow<45 ballrow="" bary="24;}" brickctr="22;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="23;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="24;" if="" int="" once="0;" return="" seventhbrick="">=0 && ballrow<21 ballrow="" bary="0;}" brickctr="25;" if="" once="0;">24 && ballrow<45 ballrow="" bary="24;}" brickctr="26;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="27;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="28;" eighthbrick="" if="" int="" once="0;" return="">=0 && ballrow<21 ballrow="" bary="0;}" brickctr="29;" if="" once="0;">24 && ballrow<45 ballrow="" bary="24;}" brickctr="30;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="31;" if="" once="0;">71 && ballrow<95 1="" ballrow="" bary="72;}" brickctr="32;" if="" int="" ninthbrick="" once="0;" return="">=0 && ballrow<21 ballrow="" bary="0;}" brickctr="33;" if="" once="0;">24 && ballrow<45 ballrow="" bary="24;}" brickctr="34;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="35;" if="" once="0;">71 && ballrow<95 1="" bary="72;}" brickctr="36;" once="0;" pre="" return="">
int tenthbrick(){
if (ballrow>=0 && ballrow<21 ballrow="" bary="0;}" brickctr="37;" if="" once="0;">24 && ballrow<45 ballrow="" bary="24;}" brickctr="38;" if="" once="0;">47 && ballrow<69 ballrow="" bary="48;}" brickctr="39;" if="" once="0;">71 && ballrow<95 1="" angle="=1){" ballrow="" bary="72;}" brickctr="40;" if="" int="" once="0;" return="" upangles="">0 && ballcol>14 && wallctr==0){
ballcol=ballcol-6;}
if (ballrow>0 && ballcol<=14){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol+6;
ballrow=ballrow-5;}}
if (angle==2){
if (ballrow>0 && ballcol>14 && wallctr==0){
ballcol=ballcol-4;}
if (ballrow>0 && ballcol<=14){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol+4;}}
if (angle==3){
if (ballrow>0 && ballcol>14 && wallctr==0){
ballcol=ballcol-2;}
if (ballrow>0 && ballcol<=14){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol+2;}}
if (angle==4){
if (ballrow>0 && ballcol>14 && wallctr==0){
ballcol=ballcol-1;}
if (ballrow>0 && ballcol<=14){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol+1;}}
if (angle==5){
if (ballrow>0 && ballcol<626 ballcol="ballcol+2;}" ballrow="" if="" wallctr="=0){">0 && ballcol>=626){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol-2;}}
if (angle==6){
if (ballrow>0 && ballcol<626 ballcol="ballcol+4;}" ballrow="" if="" wallctr="=0){">0 && ballcol>=626){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol-4;}
if (ballcol<=14){ballcol=14;}
}
if (angle==7){
if (ballrow>0 && ballcol<626 ballcol="ballcol+6;}" ballrow="" if="" wallctr="=0){">0 && ballcol>=626){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol-6;}
if (ballcol<=14){ballcol=14;}}
if (angle==8){
if (ballrow>0 && ballcol<626 ballcol="ballcol+8;}" ballrow="" if="" wallctr="=0){">0 && ballcol>=626){
if (soundon==1){
sound(50);
delay(50);
nosound();}
wallctr=1;}
if (wallctr==1){
ballcol=ballcol-8;}
if (ballcol<=14){ballcol=14;}}
if (ballrow<=0){
ballrow=0;
incolor=0;
ball();
ballrow=ballrow+5;
delay(20);
incolor=12;
ball();
angle=-1;
down=1;}
ballrow=ballrow-5;
return (ballrow);}
int alertformoney(){
messageboxc=25;
messageboxr=100;
messageboxcc=615;
messageboxrr=216;
midx=300;
savebox();
errorscreen();
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(1,3,1,1);
settextjustify(0,1);
setcolor(12);
outtextxy(messageboxc+5,messageboxr+5,"Alert");
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
setusercharsize(1,3,1,3);
setcolor(0);
outtextxy(30,125,"This is a shareware software. To access all the features in the software,");
outtextxy(30,140,"please send a cheque of Rs.100.00 only or TEN dollars drawn in favor of");
outtextxy(30,155,"Semantix computers, New Delhi and address it to,");
setcolor(12);
cx=30;
outtextxy(cx,170,"J.V.Ravichandran,");
cx+=textwidth("J.V.Ravichandran,");
cx++;
setcolor(14);
outtextxy(cx,170,"Proprietor/Software Architect/Consultant.");
setcolor(10);
outtextxy(30,185,"B-10, Triveni Apartments, Vikas puri, New Delhi - 110 018.");
getch();
restorebox();
return 1;}
int tune(){
if (soundon==1){
sound(275);
delay(50);
sound(250);
delay(100);
sound(300);
delay(75);
sound(125);
delay(50);
sound(225);
delay(50);
sound(300);
delay(100);
sound(125);
delay(50);
sound(225);
delay(100);
nosound();}
return 1;}
int savebox(){
size=imagesize(messageboxc,messageboxr,messageboxcc,messageboxrr);
sbox=malloc(size);
getimage(messageboxc,messageboxr,messageboxcc,messageboxrr,sbox);
return 1;}
int restorebox(){
putimage(messageboxc,messageboxr,sbox, COPY_PUT);
free(sbox);
return 1;}
int writescore(){
scorex=510;
sprintf(&newstr,"%d",score);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
settextjustify(0,1);
scorex+=textwidth("Score -");
scorex=scorex+5;
setcolor(14);
outtextxy(scorex,470,&newstr);
return 1;}
END OF GREYcells Bricks
No comments:
Post a Comment