C/MOVES
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 16/09/1994

Browse Source
This commit is contained in:
José David Guillén
2021-09-08 21:30:32 +02:00
commit c3b744f270
40 changed files with 3785 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

383
FILMA_1.C Normal file
View File

@ -0,0 +1,383 @@
/*****************************************************************************/
/* TECNICA FILMATION (1<> PARTE) */
/* */
/* por: Jos<6F> Antonio Acedo Mart<72>n-Grande, miembro de "GOLDY GAMES" */
/* */
/* TEL: (91) 6 11 72 71 (MADRID) */
/*****************************************************************************/
/**************************** FICHEROS A INCLUIR ****************************/
#include <dos.h>
#include <bios.h>
#include <conio.h>
#include <stdio.h>
#include <alloc.h>
#include <stdlib.h>
/******************************* DEFINICIONES ********************************/
#define ALFANUMERICO 3
#define GRAFICO 19
#define COLOR 0
#define ULTIMO -1
/*********************** DECLARACIONES DE FUNCIONES **************************/
void BORRA_ZONA_MEMORIA(char *, int);
void COPIA_ZONA_MEMORIA(char *, char *);
void DIBUJA_BLOQUE (int *, char *, char *);
void DIBUJA_BLOQUE_CUT(int *, char *, char *);
void VUELCA_PANTALLA(int,int, int,int, int,int, char *);
void SET_VECTORES(volatile char *);
void UNSET_VECTORES(void);
void asigna_modo_video(char);
void lee_ficheros(const char *, char *);
void descomprime_dibujo(char *);
void asigna_rgb(char *);
void asigna_memoria(void);
void libera_memoria(void);
void error_memoria(void);
void error_fichero(void);
void salir_al_dos(void);
/*************************** VARIABLES GLOBALES /*****************************/
char *dir_carga_dibujos;
char *dir_dibujo1;
char *dir_muestra_dibujo1;
char *dir_zona_pantalla;
FILE *handle_dibujos;
char mapa_teclado[256];
char dibujo1[] = "filma_1.pcx";
int logotipo_filmation [6] = { 0,31, 0,182, 133,14 };
int logotipo_parte1 [6] = { 133,31, 0, 0, 64,18 };
int logotipo_goldy_games[6] = { 0,46, 206,182, 114,18 };
int mapa_zona_1[][6] = { 0, 0, 144, 36, 32,15, /* suelo rojo */
0, 0, 112, 52, 32,15,
0, 0, 144, 52, 32,15,
0, 0, 176, 52, 32,15,
0, 0, 80, 68, 32,15,
0, 0, 112, 68, 32,15,
0, 0, 144, 68, 32,15,
0, 0, 176, 68, 32,15,
0, 0, 208, 68, 32,15,
0, 0, 48, 84, 32,15,
0, 0, 80, 84, 32,15,
0, 0, 112, 84, 32,15,
0, 0, 144, 84, 32,15,
0, 0, 176, 84, 32,15,
0, 0, 208, 84, 32,15,
0, 0, 240, 84, 32,15,
0, 0, 16,100, 32,15,
0, 0, 48,100, 32,15,
0, 0, 80,100, 32,15,
0, 0, 112,100, 32,15,
0, 0, 144,100, 32,15,
0, 0, 176,100, 32,15,
0, 0, 208,100, 32,15,
0, 0, 240,100, 32,15,
0, 0, 272,100, 32,15,
0, 0, 16,116, 32,15,
0, 0, 48,116, 32,15,
0, 0, 80,116, 32,15,
0, 0, 112,116, 32,15,
0, 0, 144,116, 32,15,
0, 0, 176,116, 32,15,
0, 0, 208,116, 32,15,
0, 0, 240,116, 32,15,
0, 0, 272,116, 32,15,
0, 0, 48,132, 32,15,
0, 0, 80,132, 32,15,
0, 0, 112,132, 32,15,
0, 0, 144,132, 32,15,
0, 0, 176,132, 32,15,
0, 0, 208,132, 32,15,
0, 0, 240,132, 32,15,
0, 0, 80,148, 32,15,
0, 0, 112,148, 32,15,
0, 0, 144,148, 32,15,
0, 0, 176,148, 32,15,
0, 0, 208,148, 32,15,
0, 0, 112,164, 32,15,
0, 0, 144,164, 32,15,
0, 0, 176,164, 32,15,
0, 0, 144,180, 32,15,
32, 0, 128, 44, 32,15, /* suelo amarillo */
32, 0, 160, 44, 32,15,
32, 0, 96, 60, 32,15,
32, 0, 128, 60, 32,15,
32, 0, 160, 60, 32,15,
32, 0, 192, 60, 32,15,
32, 0, 64, 76, 32,15,
32, 0, 96, 76, 32,15,
32, 0, 128, 76, 32,15,
32, 0, 160, 76, 32,15,
32, 0, 192, 76, 32,15,
32, 0, 224, 76, 32,15,
32, 0, 32, 92, 32,15,
32, 0, 64, 92, 32,15,
32, 0, 96, 92, 32,15,
32, 0, 128, 92, 32,15,
32, 0, 160, 92, 32,15,
32, 0, 192, 92, 32,15,
32, 0, 224, 92, 32,15,
32, 0, 256, 92, 32,15,
32, 0, 0,108, 32,15,
32, 0, 32,108, 32,15,
32, 0, 64,108, 32,15,
32, 0, 96,108, 32,15,
32, 0, 128,108, 32,15,
32, 0, 160,108, 32,15,
32, 0, 192,108, 32,15,
32, 0, 224,108, 32,15,
32, 0, 256,108, 32,15,
32, 0, 288,108, 32,15,
32, 0, 32,124, 32,15,
32, 0, 64,124, 32,15,
32, 0, 96,124, 32,15,
32, 0, 128,124, 32,15,
32, 0, 160,124, 32,15,
32, 0, 192,124, 32,15,
32, 0, 224,124, 32,15,
32, 0, 256,124, 32,15,
32, 0, 64,140, 32,15,
32, 0, 96,140, 32,15,
32, 0, 128,140, 32,15,
32, 0, 160,140, 32,15,
32, 0, 192,140, 32,15,
32, 0, 224,140, 32,15,
32, 0, 96,156, 32,15,
32, 0, 128,156, 32,15,
32, 0, 160,156, 32,15,
32, 0, 192,156, 32,15,
32, 0, 128,172, 32,15,
32, 0, 160,172, 32,15,
0, 15, 0,116, 16,12, /* borde suelo izq */
0, 15, 16,124, 16,12,
0, 15, 32,132, 16,12,
0, 15, 48,140, 16,12,
0, 15, 64,148, 16,12,
0, 15, 80,156, 16,12,
0, 15, 96,164, 16,12,
0, 15, 112,172, 16,12,
0, 15, 128,180, 16,12,
0, 15, 144,188, 16,12,
16, 15, 304,116, 16,12, /* borde suelo der */
16, 15, 288,124, 16,12,
16, 15, 272,132, 16,12,
16, 15, 256,140, 16,12,
16, 15, 240,148, 16,12,
16, 15, 224,156, 16,12,
16, 15, 208,164, 16,12,
16, 15, 192,172, 16,12,
16, 15, 176,180, 16,12,
16, 15, 160,188, 16,12,
288, 0, 128,-28, 32,79, /* pared izq */
288, 0, 96,-12, 32,79,
288, 0, 64, 4, 32,79,
288, 0, 32, 20, 32,79,
288, 0, 0, 36, 32,79,
256, 0, 160,-28, 32,79, /* pared der */
256, 0, 192,-12, 32,79,
256, 0, 224, 4, 32,79,
256, 0, 256, 20, 32,79,
256, 0, 288, 36, 32,79,
ULTIMO
};
int objetos_zona_1[6]; /* array para las coordenadas de los cubos */
int xyz_objetos_zona_1[][8] = { 64,0, 0, 0, 0, 32,30, +2, /* cubo rojo */
96,0, 8, 0,24, 32,30, +2, /* cubo verde */
128,0, 16, 0,48, 32,30, -2, /* cubo azul */
160,0, 24, 0,72, 32,30, +2, /* cubo marr<72>n */
ULTIMO
};
/********************************* PROGRAMA **********************************/
void main(void)
{
int bloq, cubo, x, y, z;
asigna_memoria();
asigna_modo_video(GRAFICO);
lee_ficheros(dibujo1, dir_dibujo1);
SET_VECTORES(mapa_teclado);
BORRA_ZONA_MEMORIA(dir_muestra_dibujo1, COLOR);
DIBUJA_BLOQUE(logotipo_filmation, dir_dibujo1, dir_muestra_dibujo1);
DIBUJA_BLOQUE(logotipo_parte1, dir_dibujo1, dir_muestra_dibujo1);
DIBUJA_BLOQUE(logotipo_goldy_games, dir_dibujo1, dir_muestra_dibujo1);
for(bloq=0; mapa_zona_1[bloq][0]!=ULTIMO; bloq++)
DIBUJA_BLOQUE_CUT(&mapa_zona_1[bloq][0], dir_dibujo1, dir_muestra_dibujo1);
while(mapa_teclado[0]==0)
{
COPIA_ZONA_MEMORIA(dir_muestra_dibujo1, dir_zona_pantalla);
for(bloq=0; xyz_objetos_zona_1[bloq][0]!=ULTIMO; bloq++)
{
x=xyz_objetos_zona_1[bloq][2];
y=xyz_objetos_zona_1[bloq][3];
z=xyz_objetos_zona_1[bloq][4];
objetos_zona_1[0]=xyz_objetos_zona_1[bloq][0];
objetos_zona_1[1]=xyz_objetos_zona_1[bloq][1];
objetos_zona_1[2]=144+((x-z) << 1);
objetos_zona_1[3]= 21+ (x+z)-(y << 1);
objetos_zona_1[4]=xyz_objetos_zona_1[bloq][5];
objetos_zona_1[5]=xyz_objetos_zona_1[bloq][6];
DIBUJA_BLOQUE_CUT(objetos_zona_1, dir_dibujo1, dir_zona_pantalla);
}
VUELCA_PANTALLA(0,0, 0,0, 320,200, dir_zona_pantalla);
for(cubo=0; xyz_objetos_zona_1[cubo][0]!=ULTIMO; cubo++)
{
if(xyz_objetos_zona_1[cubo][2]==0)
{
xyz_objetos_zona_1[cubo][7]=+2;
sound(1000+(500*cubo));
delay(10);
nosound();
}
else if(xyz_objetos_zona_1[cubo][2]==72)
{
xyz_objetos_zona_1[cubo][7]=-2;
sound(2000+(500*cubo));
delay(10);
nosound();
}
xyz_objetos_zona_1[cubo][2]+=xyz_objetos_zona_1[cubo][7];
}
}
salir_al_dos();
}
void salir_al_dos(void)
{
asigna_modo_video(ALFANUMERICO);
libera_memoria();
UNSET_VECTORES();
textcolor(WHITE); textbackground(BLUE);
cprintf("Copyright (c) Goldy Games 1994. Jos<6F> Antonio Acedo Mart<72>n-Grande. Continuar<61> ...");
gotoxy(1,24);
exit(0);
}
void asigna_memoria(void)
{
if((dir_carga_dibujos =(char *)malloc(320*200))==NULL) error_memoria();
if((dir_dibujo1 =(char *)malloc(320*200))==NULL) error_memoria();
if((dir_muestra_dibujo1=(char *)malloc(320*200))==NULL) error_memoria();
if((dir_zona_pantalla =(char *)malloc(320*200))==NULL) error_memoria();
}
void libera_memoria(void)
{
free(dir_carga_dibujos);
free(dir_dibujo1);
free(dir_muestra_dibujo1);
free(dir_zona_pantalla);
}
void error_memoria(void)
{
asigna_modo_video(ALFANUMERICO);
libera_memoria();
printf("No hay suficiente memoria. Libere programas residentes.");
exit(1);
}
void error_fichero(void)
{
asigna_modo_video(ALFANUMERICO);
libera_memoria();
printf("Error leyendo fichero .PCX");
exit(1);
}
void asigna_modo_video(char modo) /* asigna el modo de v<>deo indicado */
{ /* en la variable "modo" */
union REGS ent, sal;
ent.h.al = modo;
ent.h.ah = 0;
int86(16, &ent, &sal); /* funci<63>n para asignar el modo de video */
}
void lee_ficheros(const char *file, char *dir_dibujo)
{
char *dir;
dir=dir_carga_dibujos;
if((handle_dibujos = fopen(file, "rb"))==NULL) error_fichero();
while(!feof(handle_dibujos)) { *dir++=getc(handle_dibujos); }
fclose(handle_dibujos);
descomprime_dibujo(dir_dibujo);
}
void descomprime_dibujo(char *dir_escritura)
{
unsigned char byte;
char *dir_lectura;
int columnas, filas, contador;
dir_lectura=dir_carga_dibujos+128; /* inicio del dibujo comprimido */
for(filas=200; filas>0; filas--)
{
columnas=320;
dir_escritura-=columnas; dir_escritura+=320;
while(columnas>0)
{
byte=(unsigned)*dir_lectura++;
if(byte<=192)
{
*dir_escritura++=byte; columnas--;
}
else
{
contador=byte&63; byte=*dir_lectura++;
for(; contador>0; contador--)
{
*dir_escritura++=byte; columnas--;
}
}
}
}
asigna_rgb(dir_lectura+1); /* remapea los 256 colores del dibujo */
}
void asigna_rgb(char *dir_lectura)
{
struct SREGS seg;
union REGS ent, sal;
unsigned int n;
long int dir;
char *dir_col;
dir_col=dir_lectura; /* divide entre */
for(n=256*3; n>0; n--) { /* 4 los colores */
*dir_col=*dir_col >> 2; dir_col++;
}
dir =(long)dir_lectura; /* obtiene el segmento */
seg.es=(int)(dir >> 16); /* donde estan los colores */
ent.h.al = 18;
ent.h.ah = 16;
ent.x.bx = 0;
ent.x.cx = 256;
ent.x.dx = (int)dir_lectura; /* offset de los colores */
int86x(0x10, &ent, &sal, &seg); /* funci<63>n para asignar los colores */
}