Apple-2-SW/tb1
1
0
Fork 0
mirror of https://github.com/deater/tb1.git synced 2025-01-09 23:31:08 +00:00
Code Issues Projects Releases Wiki Activity
tb1/tb1_linux/level3/level3.c
Vince Weaver 137d2b45fd Move tb1 into its own subdir 
I'm merging all the the tom bombem projects into one git tree
2012-12-18 21:24:06 -05:00

795 lines
17 KiB
C
Raw Blame History

#include <termios.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <string.h>
#include <time.h>
#include <sys/time.h>
#define SCREEN_WIDTH 24
#define SCREEN_HEIGHT 20
#define BYTES_PER_PIXEL 2
#include "game_sprites.h"
int dump_screen=0;
int clear_framebuffer(char *buffer,char color,char value) {
int i=0;
while(i<SCREEN_WIDTH*SCREEN_HEIGHT*BYTES_PER_PIXEL) {
buffer[i]=color;
buffer[i+1]=value;
i+=BYTES_PER_PIXEL;
}
return 0;
}
int blit(char *sprite, char *framebuffer, char ascii,int x, int y,int xsize,int ysize) {
int xx=0,yy=0,offset;
offset=((y*SCREEN_WIDTH)+x)*BYTES_PER_PIXEL;
while(yy<ysize) {
if (sprite[(yy*xsize)+xx]) {
framebuffer[offset]=sprite[(yy*xsize)+xx];
framebuffer[offset+1]=ascii;
}
offset+=BYTES_PER_PIXEL;
xx++;
if (xx>=xsize) {
offset+=((SCREEN_WIDTH-xsize)*BYTES_PER_PIXEL);
xx=0;
yy++;
}
}
return 0;
}
int put_text_xy(char *text,int x,int y,int color, char *framebuffer) {
int offset,i;
offset=(y*SCREEN_WIDTH+x)*BYTES_PER_PIXEL;
i=0;
while(i<strlen(text)) {
framebuffer[offset]=(char)color;
framebuffer[offset+1]=text[i];
i++;
offset+=2;
}
return 0;
}
int to_buffer(char *buffer,char *string) {
strncat(buffer,string,BUFSIZ);
return strlen(string);
}
int to_buffer_color(char *buffer,int bold, int color) {
char temp_string[BUFSIZ];
sprintf(temp_string,"\033[%i;%im",bold,color);
strncat(buffer,temp_string,BUFSIZ);
return strlen(temp_string);
}
int dump_to_screen(char *framebuffer) {
static char out_buffer[40*44*10];
char colors[8]={30,34,32,36,31,35,33,37};
unsigned char temp_string[2]={0,0};
int size=0,i,j,color,old_color=-1;
int block_mode;
block_mode=0;
out_buffer[0]='\0';
/* home cursor */
size+=to_buffer(out_buffer,"\033[0;0H");
for(j=0;j<SCREEN_HEIGHT;j++) {
for(i=0;i<SCREEN_WIDTH;i++) {
color=framebuffer[(i+j*SCREEN_WIDTH)*BYTES_PER_PIXEL];
if (color!=old_color) {
size+=to_buffer_color(out_buffer,color>7,colors[color&7]);
old_color=color;
}
temp_string[0]=framebuffer[((i+j*SCREEN_WIDTH)*BYTES_PER_PIXEL)+1];
if (temp_string[0]==219) {
if (!block_mode){
block_mode=1;
size+=to_buffer(out_buffer,"\016");
}
temp_string[0]='0';
}
else {
if (block_mode) {
block_mode=0;
size+=to_buffer(out_buffer,"\017");
}
}
size+=to_buffer(out_buffer,temp_string);
}
size+=to_buffer(out_buffer,"\n");
}
if (size>40*44*10) {
printf("\a\a\a\n");
exit(10);
}
write(1,out_buffer,size);
if (dump_screen) {
int fd;
fd=creat("screen",0x666);
write(fd,out_buffer,size);
close(fd);
dump_screen=0;
}
// fdatasync(1);
return 0;
}
int get_timer() {
static int initialized=0;
static int startseconds,startusecs;
struct timeval our_time;
int temp_time;
if (!initialized) {
gettimeofday(&our_time,NULL);
startseconds=time(NULL);
startusecs=our_time.tv_usec;
initialized=1;
}
gettimeofday(&our_time,NULL);
temp_time=(time(NULL)-startseconds)*1000;
temp_time+=(our_time.tv_usec/1000);
return temp_time;
}
void clear_keyboard_buffer()
{
int ch;
while(read(0,&ch,1)==1);
}
void pause_a_while(int msecs) {
int ch,our_time;
our_time=get_timer();
while ( read(0,&ch,1)!=1) {
usleep(1);
if ( (get_timer()-our_time) > msecs ) break;
}
clear_keyboard_buffer();
}
int get_char() {
char ch;
int result;
result=read(0,&ch,1);
if (result<1) return 0;
else return ch;
}
int get_a_char() {
char ch,ch1,ch2,ch3;
ch=get_char();
if (ch==27) {
ch1=get_char();
ch2=get_char();
ch3=get_char();
if ((ch1==0) && (ch2==0)) return 'q';
if ((ch1==91) && (ch2==66)) return 'm';
if ((ch1==91) && (ch2==65)) return 'i';
if ((ch1==91) && (ch2==67)) return 'k';
if ((ch1==91) && (ch2==68)) return 'j';
if ((ch1==91) && (ch2==91)) {
if (ch3==65) return 'h';
}
{
FILE *fff;
fff=fopen("bob","w");
fprintf(fff,"%i %i %i\n",ch1,ch2,ch3);
fclose(fff);
}
// }
}
return ch;
}
void null()
{
}
void put_attention_block(char *framebuffer,int color) {
int i,j;
for(i=5;i<12;i++)
for(j=0;j<40;j++)
put_text_xy("*",j,i,color,framebuffer);
}
int verify_quit(char *framebuffer) {
int quit_bar=0;
char ch;
put_attention_block(framebuffer,14);
put_text_xy(" QUIT? Are you sure? ",9,7,12,framebuffer);
put_text_xy(" NO!",9,8,12,framebuffer);
put_text_xy(" YES!",9,9,12,framebuffer);
quit_loop:
if (quit_bar==0) {
put_text_xy(" --> NO! ",9,8,13,framebuffer);
put_text_xy(" YES ",9,9,5,framebuffer);
}
else {
put_text_xy(" NO ",9,8,5,framebuffer);
put_text_xy(" --> YES! ",9,9,13,framebuffer);
}
dump_to_screen(framebuffer);
while ((ch=get_a_char())==0) usleep(5000);
if ((ch=='i') || (ch=='j') || (ch=='k') || (ch=='m')) quit_bar=!quit_bar;
if (ch=='y') quit_bar=1;
if (ch=='n') quit_bar=0;
if (ch=='\n') {
return quit_bar;
}
goto quit_loop;
return 0;
}
int help(char *framebuffer) {
clear_framebuffer(framebuffer,0,' ');
put_text_xy("TOM BOMBEM",10,0,15,framebuffer);
put_text_xy("by",14,1,7,framebuffer);
put_text_xy("Vince Weaver",9,2,15,framebuffer);
put_text_xy("Key Bindings:",0,4,15,framebuffer);
put_text_xy("UP or 'i' : Move menu up",2,6,7,framebuffer);
put_text_xy("DOWN or 'm' : Move menu down",2,7,7,framebuffer);
put_text_xy("ENTER : Selects current option",2,8,7,framebuffer);
put_text_xy("RIGHT or 'k' : Move ship right",2,10,7,framebuffer);
put_text_xy("LEFT or 'j' : Move ship left",2,11,7,framebuffer);
put_text_xy("SPACEBAR : Shoots",2,12,7,framebuffer);
put_text_xy("F1 or 'h' : Displays help",2,14,7,framebuffer);
put_text_xy("ESC or 'q' : Quits",2,15,7,framebuffer);
put_text_xy("'p' : Pauses",2,16,7,framebuffer);
put_text_xy("'s' : Toggles sound",2,17,7,framebuffer);
dump_to_screen(framebuffer);
while(get_char()==0) usleep(30);
return 0;
}
int map_ch;
void skip_line(FILE *fff) {
map_ch=fgetc(fff);
while((map_ch!='\n') && (map_ch!=-1)) map_ch=fgetc(fff);
}
int get_int(FILE *fff) {
int result=0;
map_ch=fgetc(fff);
while(map_ch!=-1) {
while ((map_ch<=' ')&&(map_ch!=-1)) map_ch=fgetc(fff);
if (map_ch==';') skip_line(fff);
if ((map_ch>='0') && (map_ch<='9')) {
while ((map_ch>='0') && (map_ch<='9')) {
result=result*10;
result+=map_ch-'0';
map_ch=fgetc(fff);
}
return result;
}
}
return -1;
}
void panic_oom(char *string) {
printf("Out of Memory: %s\n",string);
exit(1);
}
int new_game(char *framebuffer) {
int quit=0,game_paused=0,sound=1,done_waiting=0;
int ch;
int time_spent,oldusec=0,oldsec=0;
struct timeval timing_info;
struct tom_struct {
int x,y,xadd,yadd;
int roomx,roomy,roomz;
} tom;
struct enemies_struct {
int x,y,xadd,yadd;
char type;
} enemies[2];
int total_enemies=0;
int x,y,z,i,j,k,tempx,tempy;
int roomx,roomy,roomz,offset;
char *current_room;
FILE *level_file;
struct map_type {
int xsize,ysize,zsize;
int roomx,roomy;
char **rooms;
} map;
tom.xadd=0; tom.yadd=0;
/* Load Level */
level_file=fopen("level3.map","r");
if (level_file==NULL) {
printf("File not found!\n");
exit(1);
}
/* Get header info */
map.xsize=get_int(level_file);
map.ysize=get_int(level_file);
map.zsize=get_int(level_file);
map.roomx=get_int(level_file);
map.roomy=get_int(level_file);
printf("Found map of %i,%i,%i\n",map.xsize,map.ysize,map.zsize);
printf("Roomsize of %ix%i\n",map.roomx,map.roomy);
map.rooms=calloc(map.xsize*map.ysize*map.zsize,sizeof(char *));
if (map.rooms==NULL) panic_oom("map.rooms");
for(i=0;i<map.xsize;i++) {
for(j=0;j<map.ysize;j++) {
for(k=0;k<map.zsize;k++) {
map.rooms[i+(j*map.xsize)+(k*map.xsize*map.ysize)]
=calloc(1,sizeof(char)*map.roomx*map.roomy);
if (map.rooms[i+(j*map.xsize)+(k*map.xsize*map.ysize)]==NULL)
panic_oom("map.rooms2");
}
}
}
/*
f f f
z z z f
x x x z f
x x x z
x x x
*/
while(map_ch!=-1) {
roomx=get_int(level_file);
roomy=get_int(level_file);
roomz=get_int(level_file);
// skip_line(level_file);
printf("Loading room %i,%i,%i\n",roomx,roomy,roomz);
if ((roomx>map.xsize) || (roomy>map.ysize) || (roomz>map.zsize)) {
printf("Room horribly out of bounds!\n");
exit(1);
}
offset=roomx+(roomy*map.xsize)+(roomz*map.xsize*map.ysize);
printf("Offset=%i\n",offset);
current_room=map.rooms[offset];
x=0;y=0;
for(i=0;i<map.roomx;i++) {
for(j=0;j<map.roomy;j++) {
current_room[j*map.roomx+i]=' ';
}
}
while(map_ch<' ') map_ch=fgetc(level_file); // skip last '\n'
if (map_ch=='\n') map_ch=fgetc(level_file); // skip last '\n'
// printf("Next=%i %c\n",map_ch,map_ch);
while(y<map.roomy) {
// printf("%c",map_ch);
switch(map_ch) {
case 'T': tom.x=x; tom.y=y;
tom.roomx=roomx;
tom.roomy=roomy;
tom.roomz=roomz;
printf("Found Tom at %i,%i,%i\n",roomx,roomy,roomz);
map_ch=fgetc(level_file);
x++;
break;
case '#': current_room[y*map.roomx+x]='#';
map_ch=fgetc(level_file);
x++;
break;
case ' ':
map_ch=fgetc(level_file);
x++;
break;
case '/': current_room[y*map.roomx+x]='/';
map_ch=fgetc(level_file);
x++;
break;
case 'A': case 'G': case 'S':
map_ch=fgetc(level_file);
x++;
break;
case 'w':
map_ch=fgetc(level_file);
/* enemies[total_enemies].x=x;
enemies[total_enemies].y=y;
enemies[total_enemies].xadd=0;
enemies[total_enemies].yadd=1;
enemies[total_enemies].type='*';
total_enemies++;
*/
x++;
break;
case '\n': y++; x=0; map_ch=fgetc(level_file);break;
default:
printf("Unknown char '%c' (%i)\n",map_ch,map_ch);
map_ch=fgetc(level_file);
}
if (x>=map.roomx) {
while(map_ch!='\n') map_ch=fgetc(level_file);
map_ch=fgetc(level_file);
// printf("SKIP LINE, ch=%i\n",map_ch);
y++;
x=0;
}
}
}
clear_keyboard_buffer();
clear_framebuffer(framebuffer,0x0,' ');
for(i=0;i<map.roomx;i++) {
for(j=0;j<map.roomy;j++) {
printf("%c",current_room[i+j*map.roomx]);
}
printf("\n");
}
/* RANDOMIZE TIMER */
srand(time(NULL));
offset=tom.roomx+(tom.roomy*map.xsize)+(tom.roomz*map.xsize*map.ysize);
printf("Tom starting in room offset %i\n",offset);
current_room=map.rooms[offset];
while(!quit) {
clear_framebuffer(framebuffer,0x0,' ');
ch=0;
while( (ch=get_a_char()) ) {
switch(ch) {
case 'd': dump_screen=1; break;
case 'q': case 'Q':
if (verify_quit(framebuffer)) {
quit=1;
}
else {
game_paused=1;
}
break;
case 'j': if (tom.x>0) tom.xadd=-1;
else {
tom.xadd=0;
tom.x=(map.roomx-1);
tom.roomx--;
offset=tom.roomx+(tom.roomy*map.xsize)+(tom.roomz*map.xsize*map.ysize);
// printf("Tom starting in room offset %i\n",offset);
current_room=map.rooms[offset];
}
break;
case 'k': if (tom.x<SCREEN_WIDTH-1) tom.xadd=1;
else {
tom.xadd=0;
tom.x=0;
tom.roomx++;
offset=tom.roomx+(tom.roomy*map.xsize)+(tom.roomz*map.xsize*map.ysize);
// printf("Tom starting in room offset %i\n",offset);
current_room=map.rooms[offset];
}
break;
case 'i': if (tom.y>0) tom.yadd=-1;
else {
tom.yadd=0;
tom.y=(map.roomy-1);
tom.roomy--;
offset=tom.roomx+(tom.roomy*map.xsize)+(tom.roomz*map.xsize*map.ysize);
// printf("Tom starting in room offset %i\n",offset);
current_room=map.rooms[offset];
}
break;
case 'm': if (tom.y<SCREEN_HEIGHT-1) tom.yadd=1;
else {
tom.yadd=0;
tom.y=0;
tom.roomy++;
offset=tom.roomx+(tom.roomy*map.xsize)+(tom.roomz*map.xsize*map.ysize);
// printf("Tom starting in room offset %i\n",offset);
current_room=map.rooms[offset];
}
break;
case 'p':
put_attention_block(framebuffer,14);
put_text_xy(" GAME PAUSED! ",13,8,12,framebuffer);
dump_to_screen(framebuffer);
while (get_char()==0) usleep(5000);
game_paused=1;
break;
case 's': sound=!sound; /*level++;*/ break;
case 'h': help(framebuffer); /*game_paused=1;*/ break;
case ' ':
break;
}
}
/* Collision Detect Tom */
tempx=tom.x+tom.xadd;
tempy=tom.y+tom.yadd;
if (current_room[tempx+tempy*map.roomx]==' ') {
tom.x=tempx;
tom.y=tempy;
}
tom.xadd=0; tom.yadd=0;
/* Collision Detect Enemies */
for(i=0;i<total_enemies;i++) {
tempx=enemies[i].x+enemies[i].xadd;
if (current_room[tempx+enemies[i].y*map.roomx]==' ') {
enemies[i].x=tempx;
}
else enemies[i].xadd= -enemies[i].xadd;
tempy=enemies[i].y+enemies[i].yadd;
if (current_room[enemies[i].x+tempy*map.roomx]==' ') {
enemies[i].y=tempy;
}
else enemies[i].yadd= -enemies[i].yadd;
}
/* draw level */
for(i=0;i<map.roomx;i++) {
for(j=0;j<map.roomy;j++) {
switch(current_room[i+j*map.roomx]) {
case '#': blit( (char *)wall,framebuffer,'#',
i,j,1,1);
break;
case '/': blit( (char *)door,framebuffer,'/',
i,j,1,1);
break;
}
}
}
/* draw items */
/* draw enemies */
for(i=0;i<total_enemies;i++) {
blit( (char *)wisp,framebuffer,enemies[i].type,
enemies[i].x,enemies[i].y,1,1);
}
/* draw tom */
blit( (char *)tom_sprite,framebuffer,'T',
tom.x,tom.y,1,1);
dump_to_screen(framebuffer);
done_waiting=0;
while (!done_waiting) {
gettimeofday(&timing_info,NULL);
time_spent=timing_info.tv_usec-oldusec;
/* Assume we don't lag more than a second */
/* Seriously, if we lag more than 10ms we are screwed anyway */
if (time_spent<0) time_spent+=1000000;
if (time_spent<30000) usleep(100);
else (done_waiting=1);
}
oldusec=timing_info.tv_usec;
oldsec=timing_info.tv_sec;
if (game_paused) {
gettimeofday(&timing_info,NULL);
oldusec=timing_info.tv_usec;
oldsec=timing_info.tv_sec;
game_paused=0;
}
}
put_attention_block(framebuffer,14);
put_text_xy(" GAME OVER! ",14,8,12,framebuffer);
dump_to_screen(framebuffer);
clear_keyboard_buffer();
clear_framebuffer(framebuffer,0,' ');
return 0;
}
int main(int argc, char **argv) {
static struct termios new_tty,old_tty;
char *framebuffer;
framebuffer=calloc(SCREEN_WIDTH*SCREEN_HEIGHT*BYTES_PER_PIXEL,sizeof(char));
/* setup non-blocking non-echo mode */
tcgetattr(0,&old_tty);
new_tty=old_tty;
new_tty.c_lflag&=~ICANON;
new_tty.c_cc[VMIN]=1;
new_tty.c_lflag&=~ECHO;
tcsetattr(0,TCSANOW,&new_tty);
fcntl(0,F_SETFL,fcntl(0,F_GETFL) | O_NONBLOCK);
/* clear screen */
printf("\033[2J\n");
new_game(framebuffer);
// done_the_game:
printf("%c\n",15);
tcsetattr(0,TCSANOW,&old_tty);
printf("%c[0m%c[255D\n",27,27);
return 0;
}
Reference in New Issue View Git Blame Copy Permalink