tb1/tb1.c

/****************************************************************\
\*    TOM BOMBEM AND THE INVASION OF THE INANIMATE_OBJECTS      */
/*                    version 2.9.1      5 August 2000	        *\
\*        by Vince Weaver       weave@eng.umd.edu               */
/*                                                              *\
\*  Originally written in Pascal and x86 assembly for DOS       */
/*          using the PCGPE code as an example in 1994          *\
\*  Ported to Linux, C, and ggi late 1997-early 1998            */
/*  Port continued to SDL in June of 2000                       *\
\*          This source is released under the GPL               */
/****************************************************************/

#define TB1_VERSION "2.9.1"

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include <sys/time.h>

#include "SDL.h"
#include "sdl_svmwgraph.h"
#include "tb1_state.h"
#include "tblib.h"
#include "tb_keypress.h"
#include "sound.h"

    /* Setup the Graphics */
int setup_graphics(struct tb1_state *state)
{
   
       /* Initialize the SDL library */
    if ( SDL_Init(SDL_INIT_VIDEO) < 0 ) {
       fprintf(stderr,
	       "Couldn't initialize SDL: %s\n", SDL_GetError());
       exit(1);
    }

       /* Clean up on exit */
    atexit(SDL_Quit);

       /* Initialize the display in a 640x480 8-bit palettized mode */
    state->sdl_screen = SDL_SetVideoMode(320, 200, 16, SDL_SWSURFACE);
    if ( state->sdl_screen == NULL ) {
       fprintf(stderr, "Couldn't set 320x200x8 video mode: %s\n",
	      SDL_GetError());
       exit(1);
    }
   
    printf("  + SDL Graphics Initialization successful...\n");
    printf("  + Running TB1 in %dbpp Mode...\n",16);
    return 0;
}

int command_line_help(int show_version,char *runas)
{
    if (!show_version) {   
       printf("Usage:  %s [-force8bpp] [-nosound] [-readonly]"
	                  " [-version] [-?]\n\n",runas);
       printf("  -force8bpp : force to run in 8bpp mode\n");
       printf("  -nosound   : disables sound within game\n");
       printf("  -readonly  : don't try to write files to disk\n");
       printf("  -version   : print version\n");
       printf("  -?         : print this help message\n");
       printf("\n");
    }
   return 0;
}


int main(int argc,char **argv)
{
    int i,grapherror,reloadpic=0;
    int custom_palette[256];
    int ch,x,barpos,time_sec;
    FILE *fff;
    unsigned char *virtual_1,*virtual_2; 
   
    struct tb1_state *game_state;
 
    vmw_font *tb1_font;
   
    struct timeval time_info;
    struct timezone dontcare;
   
    printf("\nTom Bombem v%s by Vince Weaver weave@eng.umd.edu\n",TB1_VERSION);
    printf("         http://www.glue.umd.edu/~weave/tb1\n\n");
   
       /* Setup the game state */
   
    if ( (game_state=calloc(1,sizeof(struct tb1_state)))==NULL) {
       printf("You are seriously low on RAM!\n");
       return 3;
    }
       /* Some sane defaults */
    game_state->level=0;
    game_state->shields=0;
    game_state->score=0;
    game_state->virtual_1=NULL;
    game_state->virtual_2=NULL;
    game_state->virtual_3=NULL;
    game_state->sdl_screen=NULL;
    game_state->sound_enabled=1;
    game_state->tb1_font=NULL;
   
       /* Parse Command Line Arguments */
    i=1;
    while(i<argc) {
       if (argv[i][0]=='-') {         
	  switch (argv[i][1]) {
	   case 'h': case '?':
	     command_line_help(0,argv[0]); return 5; break;
	   case 'v':
	     command_line_help(1,argv[0]); return 5; break;
	
	   case 'n': 
	     game_state->sound_enabled=0;
//	     sound_possible=0;
	     printf("  + Sound totally disabled\n");
	     break;
	   case 'r': 
//	     read_only_mode=1;
	     printf("  + Read Only mode enabled\n");
	     break;
	   default : command_line_help(0,argv[0]);
	             printf("Unknown Option: %s\n\n",argv[i]);
	             return 5;   
	  }
       }
       else {
	  command_line_help(0,argv[0]);
	  printf("Unknown Option: %s\n\n",argv[i]);
	  return 5;
       }
       i++;
    }
      
       /* Find the Data */
/* FIXME : User Defined Path Info*/
    if ( (fff=fopen("./data/data_files_here","r"))!=NULL) {
       strncpy(game_state->path_to_data,"./data/",20);
    }
    else if ( (fff=fopen("/usr/local/games/tb1/data/data_files_here","r"))
	      !=NULL) {
	strncpy(game_state->path_to_data,"/usr/local/games/tb1/data/",40);
    }
    else {
       char tempst[200];
	
       sprintf(tempst,"%s/.tb1/data/data_files_here",getenv("HOME"));
       if ( (fff=fopen(tempst,"r"))!=NULL) {
	  sprintf(game_state->path_to_data,"%s/.tb1/data/",getenv("HOME"));
       }
       else {
	  printf("ERROR!  Could not find tb1 data!\n");
	  printf("   Checked ./data, /usr/local/games/tb1/data\n");
	  printf("           and %s/.tb1/data\n\n",getenv("HOME"));
          return 9;	       
       }
    }
    printf("  + Found tb1 data in %s\n",game_state->path_to_data);
   
/* FIXME : find where writing info out to */
   
  
       /* REMNANT OPERATION BOTTLECAP STUFF--->                *\
       \* No 9-22-94    Back to yes 10-6-94     uh_oh 2-21-95  */
       /* gone for real long time 10-12-95                     *\
       \* 11-95 not Amy anymore, but Gus                       */
       /* 3-96 oh well... gave up on Gus finally               *\
       \* 5-11-96 Now Marie... what fun life is                */
      
       /* Randomize random number generator */
    srandom(time(NULL));
    printf("  + Seeding random number generator...\n");
   
       /* Load sounds */
    initSound(game_state->path_to_data);
    loadSound(tb1_data_file("vmwfan.mod",game_state->path_to_data));
   
    printf("  + Loaded sounds...\n");
   
       /* Load the tom bombem font */
    game_state->tb1_font=vmwLoadFont(tb1_data_file("tbfont.tb1",game_state->path_to_data),8,16,256);
    printf("  + Loaded tb1 font...\n");
   
       /* Setup Graphics */
    if (setup_graphics(game_state)) {   
       fprintf(stderr,"ERROR: Couldn't get display set up properly.\n");
       return 2;
    }
     
   
    if ((game_state->virtual_1=calloc(320*200,2))==NULL) {
       fprintf(stderr,"ERROR: Couldn't get RAM for virtual screen 1!\n");
       return 3;
    }
    if ((game_state->virtual_2=calloc(320*400,2))==NULL) {
       fprintf(stderr,"ERROR: Couldn't get RAM for virtual screen 2!\n");
       return 3;
    }
    if ((game_state->virtual_3=calloc(320*200,2))==NULL) {
       fprintf(stderr,"ERROR: Couldn't get RAM for virtual screen 3!\n");
       return 3;
    }
   
    printf("  + Allocated virtual screens...\n");

      /* To ease typing burden */
    virtual_1=game_state->virtual_1;
    virtual_2=game_state->virtual_2;
    tb1_font=game_state->tb1_font;
   
       /* Do the VMW Software Production Logo */
    for(x=0;x<=40;x++) {
       custom_palette[100+x]=vmwPack3Bytes( ((x+20)*4),0,0);
       custom_palette[141+x]=vmwPack3Bytes(0,0, ( (x+20)*4 ));
       custom_palette[182+x]=vmwPack3Bytes(0, ( (x+20)*4),0);
    }

       /* Set the white color */
    custom_palette[15]=vmwPack3Bytes(0xff,0xff,0xff);
   
       /* Finalize Pallette Stuff */
    vmwLoadCustomPalette(custom_palette);
    SDL_UpdateRect(game_state->sdl_screen, 0, 0, 0, 0);
   
   
       /* Actually draw the stylized VMW */
    for(x=0;x<=40;x++){ 
       vmwDrawVLine(x+40,45,2*x,100+x,virtual_1);
       vmwDrawVLine(x+120,45,2*x,141+x,virtual_1);
       vmwDrawVLine(x+200,45,2*x,141+x,virtual_1);
       vmwDrawVLine(x+80,125-(2*x),2*x,182+x,virtual_1);
       vmwDrawVLine(x+160,125-(2*x),2*x,182+x,virtual_1);
    }
    for(x=40;x>0;x--){
       vmwDrawVLine(x+80,45,80-(2*x),140-x,virtual_1);
       vmwDrawVLine(x+160,45,80-(2*x),181-x,virtual_1);
       vmwDrawVLine(x+240,45,80-(2*x),181-x,virtual_1);
       vmwDrawVLine(x+120,45+(2*x),80-(2*x),222-x,virtual_1);
       vmwDrawVLine(x+200,45+(2*x),80-(2*x),222-x,virtual_1);
    }
   
    vmwTextXY("A VMW SOFTWARE PRODUCTION",60,140,
	      15,15,0,game_state->tb1_font,virtual_1);   
    
    playSound();
   
    vmwBlitMemToSDL(game_state->sdl_screen,virtual_1);
    pauseawhile(5);

    stopSound();
    loadSound(tb1_data_file("weave1.mod",game_state->path_to_data));

   
       /* Clear the Screen and get ready for the Menu */
    vmwClearScreen(virtual_1,0); 
    
       /* Load the title screen */
    grapherror=vmwLoadPicPacked(0,0,virtual_1,1,1,
				tb1_data_file("tbomb1.tb1",game_state->path_to_data)); 
    grapherror=vmwLoadPicPacked(0,0,virtual_2,1,1,
				tb1_data_file("tbomb1.tb1",game_state->path_to_data));
    
    vmwBlitMemToSDL(game_state->sdl_screen,virtual_1);
    
   
       /* Main Menu Loop */
    while (1) {
       if (reloadpic) {
          grapherror=vmwLoadPicPacked(0,0,virtual_2,1,1,
				    tb1_data_file("tbomb1.tb1",game_state->path_to_data));
	  reloadpic=0;
       }
       vmwFlipVirtual(virtual_1,virtual_2);
       playSound();
       
       while (!vmwGetInput()) usleep(300);
            
       barpos=0;
       vmwTextXY("F1 HELP",0,190,9,7,0,tb1_font,virtual_1);   
       coolbox(117,61,199,140,1,virtual_1);
       vmwBlitMemToSDL(game_state->sdl_screen,virtual_1);
       ch=0;
       
       while(ch!=TB_ENTER){
          if (barpos==0) vmwTextXY("NEW GAME",123,67,32,0,1,tb1_font,virtual_1);
                    else vmwTextXY("NEW GAME",123,67,32,7,1,tb1_font,virtual_1);
          if (barpos==1) vmwTextXY("OPTIONS",123,77,32,0,1,tb1_font,virtual_1);
                    else vmwTextXY("OPTIONS",123,77,32,7,1,tb1_font,virtual_1);
          if (barpos==2) vmwTextXY("ABOUT",123,87,32,0,1,tb1_font,virtual_1);
                    else vmwTextXY("ABOUT",123,87,32,7,1,tb1_font,virtual_1);
          if (barpos==3) vmwTextXY("LOAD GAME",123,97,32,0,1,tb1_font,virtual_1);
                    else vmwTextXY("LOAD GAME",123,97,32,7,1,tb1_font,virtual_1);
          if (barpos==4) vmwTextXY("STORY",123,107,32,0,1,tb1_font,virtual_1);
                    else vmwTextXY("STORY",123,107,32,7,1,tb1_font,virtual_1);
          if (barpos==5) vmwTextXY("CREDITS",123,117,32,0,1,tb1_font,virtual_1);
                    else vmwTextXY("CREDITS",123,117,32,7,1,tb1_font,virtual_1);
          if (barpos==6) vmwTextXY("QUIT",123,127,32,0,1,tb1_font,virtual_1);
                    else vmwTextXY("QUIT",123,127,32,7,1,tb1_font,virtual_1);

          vmwBlitMemToSDL(game_state->sdl_screen,virtual_1);
	  
	      /* If at title screen too long, run credits */
	  gettimeofday(&time_info,&dontcare);
          time_sec=time_info.tv_sec;  	  
	  
	  while( ((ch=vmwGetInput())==0)) {
	     usleep(10);
             gettimeofday(&time_info,&dontcare);
	     if (time_info.tv_sec-time_sec>40) {
		stopSound();
		credits(game_state);
		ch=TB_ENTER;
		barpos=9;
		reloadpic=1;
		gettimeofday(&time_info,&dontcare);
		time_sec=time_info.tv_sec;
	     }
	  }
	  
	      /* Change menu position based on key pressed */
          if ((ch==TB_DOWN)||(ch==TB_RIGHT)) barpos++;
          if ((ch==TB_UP) || (ch==TB_LEFT)) barpos--;
          if (ch==TB_F1) {barpos=10; ch=TB_ENTER;} /*F1*/
          if (ch=='n') barpos=0;    /*N*/
          if (ch=='o') barpos=1;    /*O*/
          if (ch=='a') barpos=2;    /*A*/
          if (ch=='l') barpos=3;    /*L*/
          if (ch=='s') barpos=4;    /*S*/
          if (ch=='c') barpos=5;    /*C*/
          if (ch=='q') barpos=6;    /*Q*/
          if (ch==TB_ESCAPE){ /* escape */
             barpos=6;
             ch=TB_ENTER;
          }
          if(barpos==7) barpos=0;
          if(barpos<0) barpos=6;
       }
       stopSound();
       
          /* Run whatever it was that the person pressed */
       switch (barpos) {
        case 0:  playthegame(game_state); reloadpic=1; break;
	case 1:  options(game_state); reloadpic=1; break;
        case 2:  about(game_state); reloadpic=1; break;
        case 3:  loadgame(); reloadpic=1; break;
        case 4:  story(game_state); reloadpic=1; break;
        case 5:  credits(game_state);  reloadpic=1; break;
	case 6:  barpos=quit(game_state); break;
        case 10: help(game_state);   break;
       }
    }
}