Backup proyecto Joyfe - Borland

2025-06-16 22:54:10 +02:00
commit d61829a1a7
130 changed files with 11881 additions and 0 deletions
--- a/CPP/DIBPRUE.CPP
+++ b/CPP/DIBPRUE.CPP
@ -0,0 +1,192 @@
+#include<stdio.h>
+#include<conio.h>
+
+char ventana (int ancho,int largo,int color_g,int color_borde,char titulo[],
+int color_titulo,int posx,int posy);
+
+void main() {
+  int cabeza[5][7],pelo[2][7],piernad[5][9],soga[12][7];
+  textbackground(0);
+  clrscr();
+  ventana(80,24,7,1,"Juego del Ahorcado",14,1,1);
+
+// Pintar soga.
+  soga[0][3]='<EFBFBD>';soga[1][3]='<EFBFBD>';soga[2][3]='<EFBFBD>';soga[3][3]='<EFBFBD>';soga[4][3]='<EFBFBD>';
+  soga[5][2]='<EFBFBD>';soga[5][4]='<EFBFBD>';soga[6][1]='<EFBFBD>';soga[6][5]='<EFBFBD>';soga[7][0]='<EFBFBD>';
+  soga[7][6]='<EFBFBD>';soga[8][0]='<EFBFBD>';soga[8][6]='<EFBFBD>';soga[9][0]='<EFBFBD>';soga[9][6]='<EFBFBD>';
+  soga[10][1]='<EFBFBD>';soga[10][5]='<EFBFBD>';soga[11][2]='<EFBFBD>';soga[11][3]='<EFBFBD>';
+  soga[11][4]='<EFBFBD>';
+
+  for (int f=2,y=2;f<12;f++,y++) {
+    gotoxy(60,y);
+    for (int c=0;c<7;c++) {
+      if (soga[f][c]=='<EFBFBD>') {
+	textcolor(14);
+	cprintf ("%c",soga[f][c]);
+      }
+      else {
+	textcolor(7);
+	cprintf ("<EFBFBD>");
+      }
+    }
+  }
+
+// pintar cabeza
+  cabeza[0][1]='<EFBFBD>';cabeza[0][2]='<EFBFBD>';cabeza[0][3]='<EFBFBD>';cabeza[0][4]='<EFBFBD>';
+  cabeza[0][5]='<EFBFBD>';cabeza[1][0]='<EFBFBD>';cabeza[1][1]='<EFBFBD>';cabeza[1][2]='<EFBFBD>';
+  cabeza[1][3]='<EFBFBD>';cabeza[1][4]='<EFBFBD>';cabeza[1][5]='<EFBFBD>';cabeza[1][6]='<EFBFBD>';
+  cabeza[2][0]='<EFBFBD>';cabeza[2][1]='<EFBFBD>';cabeza[2][2]='<EFBFBD>';cabeza[2][3]='<EFBFBD>';
+  cabeza[2][4]='<EFBFBD>';cabeza[2][5]='<EFBFBD>';cabeza[2][6]='<EFBFBD>';
+  cabeza[3][1]='<EFBFBD>';cabeza[3][2]='<EFBFBD>';cabeza[3][3]='<EFBFBD>';cabeza[3][4]='<EFBFBD>';
+  cabeza[3][5]='<EFBFBD>';cabeza[4][2]='<EFBFBD>';cabeza[4][3]='<EFBFBD>';cabeza[4][4]='<EFBFBD>';
+  for (f=0,y=6;f<5;f++,y++) {
+    gotoxy(60,y);
+    for (int c=0;c<7;c++) {
+      if (cabeza[f][c]=='<EFBFBD>') {
+	textcolor(6);
+	cprintf ("%c",cabeza[f][c]);
+      }
+      else {
+	textcolor(14);
+	cprintf ("<EFBFBD>");
+      }
+    }
+  }
+
+// Pintar pelo
+  pelo[0][0]='<EFBFBD>';pelo[0][1]='<EFBFBD>';pelo[0][2]='<EFBFBD>';pelo[0][3]='<EFBFBD>';
+  pelo[0][4]='<EFBFBD>';pelo[0][5]='<EFBFBD>';pelo[0][6]='<EFBFBD>';pelo[1][0]='<EFBFBD>';
+  pelo[1][6]='<EFBFBD>';
+  for (f=0,y=5;f<2;f++,y++) {
+    gotoxy(60,y);
+    for (int c=0;c<7;c++) {
+      if (pelo[f][c]=='<EFBFBD>') {
+	textcolor(0);
+	cprintf ("%c",pelo[f][c]);
+      }
+      else {
+	textcolor(6);
+	cprintf ("<EFBFBD>");
+      }
+    }
+  }
+// Pintar cara alegre.
+  // Pintar ojos
+  textbackground(6);textcolor(0);
+  gotoxy (62,7);cprintf ("O");
+  gotoxy (64,7);cprintf ("O");
+  // Pintar nariz.
+  gotoxy(63,8);cprintf("U");
+  // Pintar boca.
+  gotoxy(62,9);cprintf("<EFBFBD>");
+  gotoxy(64,9);cprintf("<EFBFBD>");
+  gotoxy(63,9);cprintf("-");
+
+// Pintar cara triste.
+  // Pintar ojos
+  textbackground(6);textcolor(0);
+  gotoxy (62,7);cprintf ("*");
+  gotoxy (64,7);cprintf ("*");
+  // Pintar nariz.
+  gotoxy(63,8);cprintf("U");
+  // Pintar boca.
+  gotoxy(62,9);cprintf("+");
+  gotoxy(64,9);cprintf("+");
+  gotoxy(63,9);cprintf("+");
+
+// Pintar cuerpo.
+  ventana(11,5,6,6,"",6,58,12);
+
+// Pintar pierna.
+  piernad[0][0]='<EFBFBD>';piernad[0][1]='<EFBFBD>';piernad[0][2]='<EFBFBD>';piernad[0][3]='<EFBFBD>';
+  piernad[1][1]='<EFBFBD>';piernad[1][2]='<EFBFBD>';piernad[1][3]='<EFBFBD>';piernad[1][4]='<EFBFBD>';
+  piernad[2][2]='<EFBFBD>';piernad[2][3]='<EFBFBD>';piernad[2][4]='<EFBFBD>';piernad[2][5]='<EFBFBD>';
+  piernad[3][3]='<EFBFBD>';piernad[3][4]='<EFBFBD>';piernad[3][5]='<EFBFBD>';piernad[3][6]='<EFBFBD>';
+  piernad[4][4]='<EFBFBD>';piernad[4][5]='<EFBFBD>';piernad[4][6]='<EFBFBD>';piernad[4][7]='<EFBFBD>';
+  // Derecha
+  for (f=0,y=17;f<5;f++,y++) {
+    gotoxy(64,y);
+    for (int c=0;c<9;c++) {
+      if (piernad[f][c]=='<EFBFBD>') {
+	textcolor(6);
+	cprintf ("%c",piernad[f][c]);
+      }
+      else {
+	textcolor(7);
+	cprintf ("<EFBFBD>");
+      }
+    }
+  }
+
+  // Izquierda.
+  for (f=0,y=17;f<5;f++,y++) {
+    gotoxy(54,y);
+    for (int c=8;c>=0;c--) {
+      if (piernad[f][c]=='<EFBFBD>') {
+	textcolor(6);
+	cprintf ("%c",piernad[f][c]);
+      }
+      else {
+	textcolor(7);
+	cprintf ("<EFBFBD>");
+      }
+    }
+  }
+
+// Pintar brazos.
+  // Derecho
+  for (f=0,y=12;f<4;f++,y++) {
+    gotoxy(69,y);
+    for (int c=0;c<9;c++) {
+      if (piernad[f][c]=='<EFBFBD>') {
+	textcolor(6);
+	cprintf ("%c",piernad[f][c]);
+      }
+      else {
+	textcolor(7);
+	cprintf ("<EFBFBD>");
+      }
+    }
+  }
+
+  // Izquierda.
+  for (f=0,y=12;f<4;f++,y++) {
+    gotoxy(49,y);
+    for (int c=8;c>=0;c--) {
+      if (piernad[f][c]=='<EFBFBD>') {
+	textcolor(6);
+	cprintf ("%c",piernad[f][c]);
+      }
+      else {
+	textcolor(7);
+	cprintf ("<EFBFBD>");
+      }
+    }
+  }
+
+
+getch();
+}
+
+char ventana (int ancho,int largo,int color_g,int color_borde,char titulo[80],
+int color_titulo,int posx,int posy) {
+  int x,y,cony,conx;
+  char dib;
+  dib='<EFBFBD>';
+  for (cony=0,y=posy;cony<largo;cony++,y++){
+    for (conx=0,x=posx;conx<ancho;conx++,x++) {
+      gotoxy(x,y);
+      if (x==posx || y==posy || y==(posy+(largo-1)) || x==(posx+1)
+      || x==(posx+(ancho-2)) || x==(posx+(ancho-1)))
+	textcolor(color_borde);
+      else
+	textcolor(color_g);
+      cprintf ("%c",dib);
+    }
+  }
+  gotoxy((posx+2),posy);
+  textcolor(color_titulo);
+  textbackground(color_borde);
+  cprintf("%s",titulo);
+  return(0);
+}