Pacman

Un juego sencillo muy similar a Pacman, especial para principiantes en el lenguaje C.

				/*|---------------------------|*/

/*|         CREADORES         |*/

/*|                           |*/

/*| ªDORIAN BUTRON C.         |*/

/*| ªDR. GUSTAVO CALDERON     |*/

/*|---------------------------|*/



#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<F;i++)

   for(j=0;j<C;j++)   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<F;i++)

  {

   textcolor(WHITE);

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

   printf("n");

  }

 textcolor(GREEN);

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

 textcolor(RED);

 printf("nCreado por:nDorian Butron C.");

 delay(100000);

}



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

{

 int i,j;

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

  {

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

    {

     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();

}