Turbo Basic - juegos en turbo-c

//hola espero que esto te sirva es muy sencillo 

//pacman 

#include<stdio.h>

#include<dos.h>

#include<stdlib.h>

#include<conio.h>

#define Tfil 20

#define Tcol 20

generar_m(char m[][Tcol],int F,int C)

{

 int i,j;

 for(i=0;i<Fi++)

   for(j=0;j<Cj++)   m[i][j]=\'.\';

}

imprimir_m(char m[][Tcol],int F,int C, int puntos)

{

 int i,j;

 clrscr();

 textcolor(YELLOW);

 cprintf(\"Presiona <ESC> para salir\");

 printf(\"n\");

 for(i=0;i<Fi++)

  {

   textcolor(WHITE);

   for(j=0;j<Cj++)     cprintf(\"%c\",m[i][j]);

   printf(\"n\");

  }

 textcolor(GREEN);

 cprintf(\"n   < %i puntos >\",puntos*15);

 textcolor(RED);

 printf(\"nCreado por: Glenda Coronel C.\");

 delay(100000);

}

int vacio(char m[][Tcol],int F,int C)

{

 int i,j;

 for(i=0;i<Fi++)

  {

   for(j=0;j<Cj++)

    {

     if(m[i][j]==\'.\') return 0;

    }

  }

return 1;

}

bichos(char m[][Tcol],int F,int C)

{

 int i=0,j=0,x1=C-1,x2=C-1,y1=0,y2=F-1,k=0;

 char c;

 int r;

 m[i][j]=\'@\';

 m[y1][x1]=2;  /* monster 1*/

 m[y2][x2]=1;  /* monster 2*/

 while(1)

  {imprimir_m(m,F,C,k);

   m[y1][x1]=\' \';  /* monster 1*/

   m[y2][x2]=\' \';  /* monster 2*/

   if(vacio(m,F,C))

     {  printf(\"***Ganaste!!***\");

	getch();exit(0);

     }

   if(kbhit())

     { m[i][j]=\' \';

       c=getch();

       if(c==0) c=getch();

       switch(c)

	 { case 75: if(j) j--;break;

	   case 77: if(j<C-1) j++;break;

	   case 72: if(i) i--;break;

	   case 80: if(i<F-1) i++;break;

	   case 27: exit(0);

	 }

       if(m[i][j]==\'.\') k++;

       m[i][j]=\'@\';

     }

   if( (x1==j && y1==i) || (x2==j && y2==i) )

     { m[i][j]=\'X\';

       imprimir_m(m,F,C,k);

       printf(\"***Perdiste!!***\");

       getch();

       exit(0);

     }

   if(random(2))   { if(x1<C-1) x1++; }

   else            { if(x1) x1--;}

   if(random(2))   { if(y1<F-1) y1++; }

   else            { if(y1) y1--;}

   m[y1][x1]=2;

   if(random(2))   { if(x2<C-1) x2++; }

   else            { if(x2) x2--;}

   if(random(2))   { if(y2<F-1) y2++; }

   else            { if(y2) y2--;}

   m[y2][x2]=1;

  }

}

main()

{

 char m[Tfil][Tcol];

 randomize();

 clrscr();

 generar_m(m,10,20);

 bichos(m,10,20);

 getch();

}