bstub.c

小型游戏引擎

/*
 * "Build Engine & Tools" Copyright (c) 1993-1997 Ken Silverman
 * Ken Silverman's official web site: "http://www.advsys.net/ken"
 * See the included license file "BUILDLIC.TXT" for license info.
 * This file has been modified from Ken Silverman's original release
 */

#include <fcntl.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <memory.h>
#include <stdlib.h>
#include "engine.h"
#include "platform.h"
#include "build.h"
#include "pragmas.h"
#include "names.h"
#include "bstub.h"
#include "cache1d.h"  /* rcg05232001 need groupfile support. */
#include "display.h"  /* rcg05232001 need some "vesa" routines. */

/* !!! temporary externs. */
extern long total_rendered_frames, total_render_time;

extern char keystatus[256];

static char tempbuf[256];
extern long qsetmode;
extern short searchsector, searchwall, searchstat;
extern long zmode, kensplayerheight;
extern short defaultspritecstat;

extern short temppicnum, tempcstat, templotag, temphitag, tempextra;
extern char tempshade, temppal, tempxrepeat, tempyrepeat;
extern char somethingintab;

#define NUMOPTIONS 8
#define NUMKEYS 19
static long vesares[13][2] = {
	{320,200},{360,200},{320,240},{360,240},{320,400},
	{360,400},{640,350},{640,400},{640,480},{800,600},
	{1024,768},{1280,1024},{1600,1200}
};

static char option[NUMOPTIONS] = {0,0,0,0,0,0,1,0};
static char keys[NUMKEYS] =
{
	0xc8,0xd0,0xcb,0xcd,0x2a,0x9d,0x1d,0x39,
	0x1e,0x2c,0xd1,0xc9,0x33,0x34,
	0x9c,0x1c,0xd,0xc,0xf,
};

extern char buildkeys[NUMKEYS];

extern long frameplace, xdimenscale, ydimen;
extern long posx, posy, posz, horiz;
extern short ang, cursectnum;

static long hang = 0;

extern long stretchhline(long,long,long,long,long,long);

#ifdef PLATFORM_DOS
#pragma aux stretchhline parm [eax][ebx][ecx][edx][esi][edi];
#endif

#ifdef PLATFORM_DOS
extern void printext16(long xpos, long ypos, short col, short backcol,
			char name[82], char fontsize);
#define statusbar_printext16 printext16
#define statusbar_printext16_noupdate printext16
#else
extern void statusbar_printext16(long xpos, long ypos, short col, short backcol, char name[82], char fontsize);
#endif

/*
 * Detecting 2D / 3D mode:
 *    qsetmode is 200 in 3D mode
 *    qsetmode is 350/480 in 2D mode
 * 
 * You can read these variables when F5-F8 is pressed in 3D mode only:
 * 
 *    If (searchstat == 0)  WALL        searchsector=sector, searchwall=wall
 *    If (searchstat == 1)  CEILING     searchsector=sector
 *    If (searchstat == 2)  FLOOR       searchsector=sector
 *    If (searchstat == 3)  SPRITE      searchsector=sector, searchwall=sprite
 *    If (searchstat == 4)  MASKED WALL searchsector=sector, searchwall=wall
 * 
 *    searchsector is the sector of the selected item for all 5 searchstat's
 * 
 *    searchwall is undefined if searchstat is 1 or 2
 *    searchwall is the wall if searchstat = 0 or 4
 *    searchwall is the sprite if searchstat = 3 (Yeah, I know - it says wall,
 *                                       but trust me, it's the sprite number)
 */

long ofinetotalclock, ototalclock, averagefps;
#define AVERAGEFRAMES 32
static long frameval[AVERAGEFRAMES], framecnt = 0;

#ifdef PLATFORM_DOS

void inittimer42(void);
#pragma aux inittimer42 =\
	"in al, 0x61",\
	"or al, 1",\
	"out 0x61, al",\
	"mov al, 0xb4",\
	"out 0x43, al",\
	"xor al, al",\
	"out 0x42, al",\
	"out 0x42, al",\
	modify exact [eax]\


void uninittimer42(void);
#pragma aux uninittimer42 =\
	"in al, 0x61",\
	"and al, 252",\
	"out 0x61, al",\
	modify exact [eax]\


long gettimer42(void);
#pragma aux gettimer42 =\
	"mov al, 0x84",\
	"out 0x43, al",\
	"in al, 0x42",\
	"shl eax, 24",\
	"in al, 0x42",\
	"rol eax, 8",\
	modify [eax]
#else
  void inittimer42(void) {}
  void uninittimer42(void) {}
  int gettimer42(void) { return(0); }
#endif


/* rcg05232001 These are defined in build.c ... */
void editinput(void);
void clearmidstatbar16(void);
short getnumber16(char namestart[80], short num, long maxnumber);
void printmessage16(char name[82]);


/* rcg05232001 much thanks to TerminX (Mapster) for the lookup.dat info! */
static int use_palette_lookup_file(const char *lookup_file)
{
    int retval = 0;
    unsigned char *tempbuf = NULL;
    unsigned char *ptr = NULL;
    unsigned char num_palettes = 0;
    int i = 0;
    int bytes = 0;

    long in = kopen4load(lookup_file, 0);
    if (in != -1)
    {
        if (kread(in, &num_palettes, 1) == 1)
        {
            bytes = ( ((int) num_palettes) * 257 );
            tempbuf = (unsigned char *) malloc((size_t) bytes);
            if (tempbuf != NULL)
            {
                if (kread(in, tempbuf, bytes) == bytes)
                {
                    for (i = 0, ptr = tempbuf; i < num_palettes; i++)
                    {
                        makepalookup(*ptr, (char *) ptr + 1, 0, 0, 0, 1);
                        ptr += 257;
                    } /* for */
                    retval = 1;  /* success. */
                } /* if */
                free(tempbuf);
            } /* if */
        } /* if */
        kclose(in);
    } /* if */

    return(retval);
} /* use_lookup_dat */


void ExtInit(void)
{
	long i, fil;
    const char *grpname = getenv("BUILD_GROUPFILE");

	/*
    printf("------------------------------------------------------------------------------\n");
	printf("   BUILD.EXE copyright(c) 1996 by Ken Silverman.  You are granted the\n");
	printf("   right to use this software for your personal use only.  This is a\n");
	printf("   special version to be used with \"Happy Fun KenBuild\" and may not work\n");
	printf("   properly with other Build engine games.  Please refer to license.doc\n");
	printf("   for distribution rights\n");
	printf("------------------------------------------------------------------------------\n");
	getch();
	*/

        /* Now we check for an envr variable first, for Duke/SW/etc groups. */
    if (grpname == NULL)
        grpname = "stuff.dat";

        /* rcg08122000 panic if groupfile is missing. */
	if (initgroupfile(grpname) < 0)
    {
        fprintf(stderr, "BUILDGRP: Cannot open \"%s\"! Aborting...\n", grpname);
        exit(55);
    } /* if */

	if ((fil = open("setup.dat",O_BINARY|O_RDWR,S_IREAD)) != -1)
	{
		read(fil,&option[0],NUMOPTIONS);
		read(fil,&keys[0],NUMKEYS);
		memcpy((void *)buildkeys,(void *)keys,NUMKEYS);   /* Trick to make build use setup.dat keys */
		close(fil);
	}
	if (option[4] > 0) option[4] = 0;
	initmouse();
	initengine();
	vidoption = option[0]; xdim = vesares[option[6]&15][0]; ydim = vesares[option[6]&15][1];

		/*
         * You can load your own palette lookup tables here if you just
		 * copy the right code! (sez Ken).
         *
         * We try to use a Duke3D lookup.dat first. If that fails, then
         *  we revert to KenBuild's original method.  (sez Ryan).
         */
    if (!use_palette_lookup_file("lookup.dat"))
    {
    	for(i=0;i<256;i++)
    		tempbuf[i] = ((i+32)&255);  /* remap colors for screwy palette sectors */
    	makepalookup(16,tempbuf,0,0,0,1);
    } /* if */

	kensplayerheight = 32;
	zmode = 0;
	defaultspritecstat = 0;
	pskyoff[0] = 0; pskyoff[1] = 0; pskybits = 1;
}

void ExtUnInit(void)
{
	uninittimer42();
	uninitgroupfile();
}

static long daviewingrange, daaspect, horizval1, horizval2;
void ExtPreCheckKeys(void)
{
	long cosang, sinang, dx, dy, mindx, i;

	if (keystatus[0x3e])  /* F4 - screen re-size */
	{
		keystatus[0x3e] = 0;

			/* cycle through all vesa modes, then screen-buffer mode */
		getvalidvesamodes();
		if (vidoption == 1)
		{
			for(i=0;i<validmodecnt;i++)
				if ((validmodexdim[i] == xdim) && (validmodeydim[i] == ydim))
				{
					if (i == validmodecnt-1)
						setgamemode(2,320L,200L);
					else
						setgamemode(1,validmodexdim[i+1],validmodeydim[i+1]);
					break;
				}
		}
		else if (validmodecnt > 0)
			setgamemode(1,validmodexdim[0],validmodeydim[0]);

		inittimer42();  /* Must init here because VESA 0x4F02 messes timer 2 */
	}

	if (keystatus[0x2a]|keystatus[0x36])
	{
		if (keystatus[0xcf]) hang = max(hang-1,-182);
		if (keystatus[0xc7]) hang = min(hang+1,182);
	}
	else
	{
		if (keystatus[0xcf]) hang = max(hang-8,-182);
		if (keystatus[0xc7]) hang = min(hang+8,182);
	}
	if (keystatus[0x4c]) { hang = 0; horiz = 100; }
	if (hang != 0)
	{
		walock[4094] = 255;
		if (waloff[4094] == 0) allocache(&waloff[4094],240L*384L,(unsigned char *) &walock[4094]);
		setviewtotile(4094,240L,384L);

		cosang = sintable[(hang+512)&2047];
		sinang = sintable[hang&2047];

		dx = dmulscale1(320,cosang,200,sinang); mindx = dx;
		dy = dmulscale1(-200,cosang,320,sinang);
		horizval1 = dy*(320>>1)/dx-1;

		dx = dmulscale1(320,cosang,-200,sinang); mindx = min(dx,mindx);
		dy = dmulscale1(200,cosang,320,sinang);
		horizval2 = dy*(320>>1)/dx+1;

		daviewingrange = scale(65536,16384*(xdim>>1),mindx-16);
		daaspect = scale(daviewingrange,scale(320,tilesizx[4094],tilesizy[4094]),horizval2+6-horizval1);
		setaspect(daviewingrange,scale(daaspect,ydim*320,xdim*200));
		horiz = 100-divscale15(horizval1+horizval2,daviewingrange);
	}
}

#define MAXVOXMIPS 5
extern char *voxoff[][MAXVOXMIPS];
void ExtAnalyzeSprites(void)
{
	long i, *longptr;
	spritetype *tspr;

	for(i=0,tspr=&tsprite[0];i<spritesortcnt;i++,tspr++)
	{
		switch(tspr->picnum)
		{
			case PLAYER:
				if (!voxoff[0][0]) qloadkvx(0L,"voxel000.kvx");
				tspr->cstat |= 48;