DataMuseum.dk

top - metrics - download

    Length: 14850 (0x3a02)
    Types: TextFile
    Names: »build.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Spacewar/build.c« 

TextFile

/*
 * Spacewar - (re)build a ship
 *
 * Copyright 1984 obo Systems, Inc.
 * Copyright 1984 Dan Rosenblatt
 */

#ifndef VMS
#include <sys/types.h>
#include <dbm.h>
#else /* BSD SYSIII SYSV */
#include <types.h>
#include "dbm.h"
#endif /* VMS */
#include "spacewar.h"
#include "universe.h"
#include "obj.h"
#include "login.h"
#include "sys.h"
#include "crft.h"
#define BUILD
#include "build.h"

static struct crftkey getcrkey;
static struct crft getcrdat;
static struct syskey getskey;
static struct sys getsdat;
static datum dbmkey,dbmdata;
static struct sysc *getsc;
static getsys(),getcrft();
static VOID fixdmg(),putcrft(),putsys(),delsys();
extern long atol();

VOID build(plogin)
struct login *plogin;
{
	char buf[80+1];

#ifdef DEBUG
	DBG("build(#%d/%s)\n",plogin-loginlst,plogin->ln_name);
#endif

	/****************/
	/* no craft yet */
	/****************/
#ifdef DEBUG
	VDBG("build: #%d/%s doing %s/%d\n",plogin-loginlst,plogin->ln_name,
	plogin->ln_crft,(int)plogin->ln_substat);
#endif
	if (!plogin->ln_crft[0]) {

	    /* nothing - prompt for craft name */
	    if (!plogin->ln_input[0]) {
#ifdef DEBUG
		VDBG("build: prompt for craft name\n");
#endif
		output(plogin,'C',0,
		"A single dot (.) on a line by itself terminates Build.\n\n");
		output(plogin,'C',0,"What is the name of your ship?");
		output(plogin,0,0,0);
#ifdef DEBUG
		VDBG("build return\n");
#endif
		return;

	    /* craft name - store and get or create craft */
	    } else {
#ifdef DEBUG
		VDBG("build: get/create craft '%s'\n",plogin->ln_input);
#endif
		plogin->ln_input[sizeof(plogin->ln_crft)-1] = NULL;
		strcpy(plogin->ln_crft,plogin->ln_input);
		if (!strcmp(plogin->ln_input,".")) {
		    plogin->ln_crft[0] = NULL;
		    plogin->ln_stat = NULL;
		    plogin->ln_substat = NULL;
		    output(plogin,'C',0,PROMPT);
		    output(plogin,0,0,0);
#ifdef DEBUG
		    VDBG("build return\n");
#endif
		    return;
		}

		/* exists */
		if (getcrft(plogin)) {
#ifdef DEBUG
		    VDBG("build: craft exists\n");
#endif

		    /* has a valid hull type */
		    if (getcrdat.cr_htyp) {
#ifdef DEBUG
			VDBG("build: has valid hull %d\n",getcrdat.cr_htyp);
#endif

			/* must be docked or priviledged */
			if ((!getcrdat.cr_dock.ip_ofst ||
			getcrdat.cr_dock.ip_ofst >= MAXOBJ) &&
			!getcrdat.cr_plvl) {
#ifdef DEBUG
			    VDBG("build: docked=%d plvl=%d\n",
			    getcrdat.cr_dock.ip_ofst,getcrdat.cr_plvl);
#endif
			    plogin->ln_crft[0] = NULL;
			    plogin->ln_stat = NULL;
			    plogin->ln_substat = NULL;
			    output(plogin,'C',0,"Must be docked to rebuild.");
			    output(plogin,'C',0,PROMPT);
			    output(plogin,0,0,0);
#ifdef DEBUG
			    VDBG("build return\n");
#endif
			    return;

			/* docked - fix hull damage; set next subsys prompt */
			} else {
#ifdef DEBUG
			    VDBG("build: docked=%d plvl=%d\n",
			    getcrdat.cr_dock.ip_ofst,getcrdat.cr_plvl);
#endif
			    if (!getsys(plogin,HULL)) {
				perror("build: docked and can't find HULL");
				plogin->ln_crft[0] = NULL;
				plogin->ln_stat = NULL;
				plogin->ln_substat = NULL;
				output(plogin,'C',0,PROMPT);
				output(plogin,0,0,0);
#ifdef DEBUG
				VDBG("build return\n");
#endif
				return;
			    }
			    fixdmg();
			    putsys(plogin);
			    plogin->ln_substat = (char *)(HULL+1);
			}

		    /* invalid hull - set up prompting for hull type */
		    } else {
#ifdef DEBUG
			VDBG("build: has invalid hull %d\n",getcrdat.cr_htyp);
#endif
			plogin->ln_substat = (char *)(HULL);
		    }

		/* craft doesn't exist - create it, */
		/* set up prompting for hull type */
		} else {
#ifdef DEBUG
		    VDBG("build: creating craft\n");
#endif
		    binit((char *)&getcrdat,sizeof(getcrdat));
		    getcrdat.cr_dock.ip_ofst = -1;
		    dbmdata.dptr = (char *)&getcrdat;
		    dbmdata.dsize = CRDATSIZ;
		    if (store(dbmkey,dbmdata)) {
			output(plogin,'C',0,
			"(sigh) database collision - try another ship name\n\n\
What is the name of your ship?");
			output(plogin,0,0,0);
			plogin->ln_crft[0] = NULL;
#ifdef DEBUG
			VDBG("build return\n");
#endif
			return;
		    }
		    plogin->ln_substat = (char *)(HULL);
		}
	    }

	/******************************/
	/* get craft - error if can't */
	/******************************/
	} else if (!getcrft(plogin)) {
		perror("build: can't find craft\n");
		plogin->ln_crft[0] = NULL;
		plogin->ln_stat = NULL;
		plogin->ln_substat = NULL;
		output(plogin,'C',0,PROMPT);
		output(plogin,0,0,0);
#ifdef DEBUG
		VDBG("build return\n");
#endif
		return;

	/*************************************/
	/* no hull type - input is hull type */
	/*************************************/
	} else if (!getcrdat.cr_htyp) {
#ifdef DEBUG
		VDBG("build: craft given hull '%s'\n",plogin->ln_input);
#endif

		if (!strcmp(plogin->ln_input,".")) {
		    plogin->ln_crft[0] = NULL;
		    plogin->ln_stat = NULL;
		    plogin->ln_substat = NULL;
		    output(plogin,'C',0,PROMPT);
		    output(plogin,0,0,0);
#ifdef DEBUG
		    VDBG("build return\n");
#endif
		    return;
		}

		/* must be 1, 2, or 3 */
		if (strcmp("1",plogin->ln_input) &&
		strcmp("2",plogin->ln_input) &&
		strcmp("3",plogin->ln_input))
			output(plogin,'C',0,"Bad hull type\n\n");

		/* update craft */
		/* create hull subsystem */
		/* set next subsys prompt */
		else {
			getcrdat.cr_htyp = plogin->ln_input[0] - '0';
			getsc = &config[HULL][getcrdat.cr_htyp];
			getcrdat.cr_flsp = getsc->sc_bsp;
			getcrdat.cr_crew = getsc->sc_bcr;
			putcrft(plogin);

			getsys(plogin,HULL); /* should fail */
			getsdat.s_pct = getsc->sc_rpct;
			getsdat.s_edmg = getsc->sc_edmg;
			getsdat.s_dmg = 0;
			getsdat.s_lvl = getsc->sc_ilvl;
			getsdat.s_cap = getsc->sc_cap;
			putsys(plogin);

			plogin->ln_substat = (char *)(HULL+1);
		}

	/**********************************************/
	/* null response - fix damage and leave as is */
	/**********************************************/
	} else if (!plogin->ln_input[0]) {
#ifdef DEBUG
		VDBG("build: null response for subsys %d\n",
		(int)plogin->ln_substat);
#endif

		/* only if system exists */
		if (getsys(plogin,(int)plogin->ln_substat)) {
			fixdmg();
			putsys(plogin);
		}

		plogin->ln_substat = (char *)((int)plogin->ln_substat + 1);

	/*****************************************************************/
	/* zero - delete subsystem if at starbase, zero it out otherwise */
	/*****************************************************************/
	} else if (!strcmp("0",plogin->ln_input)) {
#ifdef DEBUG
	    VDBG("build: zero percent for subsys %d\n",(int)plogin->ln_substat);
#endif

	    /* only if system exists */
	    if (getsys(plogin,(int)plogin->ln_substat)) {
#ifdef DEBUG
		VDBG("build: subsys exists\n");
#endif
		fixdmg();

		/* delete if priviledged or brand new or */
		/* docked at starbase freeing up space and crew */
		getsc = &config[getskey.s_type][getcrdat.cr_htyp];
		if (getcrdat.cr_plvl || getcrdat.cr_dock.ip_ofst < 0 ||
		(getcrdat.cr_dock.ip_ofst > 0 &&
		univlst[getcrdat.cr_dock.ip_ofst].uv_pctr == '#')) {
#ifdef DEBUG
		    VDBG("build: deleting subsys\n");
#endif
		    getcrdat.cr_flsp += getsc->sc_bsp +
		    (getsc->sc_fsp * getsdat.s_pct) / 100L;
		    getcrdat.cr_crew += getsc->sc_bcr +
		    (getsc->sc_fcr * getsdat.s_pct) / 100L;
		    delsys(plogin);

		/* otherwise set to 0 keeping base space and */
		/* crew freeing incremental space and crew */
		} else {
#ifdef DEBUG
		    VDBG("build: zero out subsys\n");
#endif
		    getcrdat.cr_flsp += (getsc->sc_fsp * getsdat.s_pct) / 100L;
		    getcrdat.cr_crew += (getsc->sc_fcr * getsdat.s_pct) / 100L;
		    getsdat.s_pct = 0;
		    putsys(plogin);
		}
		putcrft(plogin);
	    }

	    plogin->ln_substat = (char *)((int)plogin->ln_substat + 1);

	/************************************************************/
	/* create/update to new percentage if enough space and crew */
	/************************************************************/
	} else {
	    long pct = atol(plogin->ln_input);
	    long maxspcpct,maxcrwpct,maxpct;
	    long fspc = getcrdat.cr_flsp;	/* current free space */
	    long fcrw = getcrdat.cr_crew;	/* current free crew */

#ifdef DEBUG
	    VDBG("build: %s%% for subsys %d\n",plogin->ln_input,
	    (int)plogin->ln_substat);
#endif
	    if (!strcmp(plogin->ln_input,".")) {
		plogin->ln_crft[0] = NULL;
		plogin->ln_stat = NULL;
		plogin->ln_substat = NULL;
		output(plogin,'C',0,PROMPT);
		output(plogin,0,0,0);
#ifdef DEBUG
		VDBG("build return\n");
#endif
		return;
	    }

	    /***************************************/
	    /* compute maximum percentage possible */
	    /***************************************/
	    if (getsys(plogin,(int)plogin->ln_substat)) {
#ifdef DEBUG
		VDBG("build: subsys exists with %d%%\n",getsdat.s_pct);
#endif
		getsc = &config[getskey.s_type][getcrdat.cr_htyp];
		fspc += getsc->sc_bsp + (getsc->sc_fsp * getsdat.s_pct) / 100L;
		fcrw += getsc->sc_bcr + (getsc->sc_fcr * getsdat.s_pct) / 100L;
	    } else {
#ifdef DEBUG
		VDBG("build: subsys doesn't exist\n");
#endif
		binit((char *)&getsdat,sizeof(getsdat));
	    }
	    maxspcpct = ((fspc - getsc->sc_bsp) * 100L) / getsc->sc_fsp;
	    maxcrwpct = ((fcrw - getsc->sc_bcr) * 100L) / getsc->sc_fcr;
	    maxpct = (maxspcpct < maxcrwpct) ? maxspcpct : maxcrwpct;
	    if (maxpct < 0L)
		maxpct = 0L;
	    else if (maxpct > 100L)
		maxpct = 100L;
	    
	    /* check request against limits */
	    if (pct < 0L || pct > maxpct) {
#ifdef DEBUG
		VDBG("build: %ld%% not between %ld and %ld\n",pct,0,maxpct);
#endif
		sprintf(buf,
		"\nPercent of subsystem '%s' must be between 0 and %ld?",
		subsysnam[(int)plogin->ln_substat],maxpct);
		output(plogin,'C',0,buf);
		output(plogin,0,0,0);
#ifdef DEBUG
		VDBG("build return\n");
#endif
		return;

	    /* create/update subsystem; update craft free space and crew */
	    } else {
#ifdef DEBUG
		VDBG("build: subsys from %d%% to %ld%%\n",getsdat.s_pct,pct);
#endif
		getsdat.s_pct = pct;
		fixdmg();
		putsys(plogin);

		getsc = &config[getskey.s_type][getcrdat.cr_htyp];
		getcrdat.cr_flsp = fspc - (getsc->sc_bsp +
		(getsc->sc_fsp * pct) / 100L);
		getcrdat.cr_crew = fcrw - (getsc->sc_bcr +
		(getsc->sc_fcr * pct) / 100L);
		putcrft(plogin);

		plogin->ln_substat = (char *)((int)plogin->ln_substat + 1);
	    }
	}

	/*****************************/
	/* prompt for next subsystem */
	/*****************************/
	if ((int)plogin->ln_substat == HULL) {
	    output(plogin,'C',0,
	    "Hull type (1-rocket, 2-sphere, 3-Enterprise)>");
	    output(plogin,0,0,0);
	} else if ((int)plogin->ln_substat < MAXSYS) {
	    getsc = &config[(int)plogin->ln_substat][getcrdat.cr_htyp];
	    sprintf(buf,"\n\nSubsystem '%s'\n",subsysnam[(int)plogin->ln_substat]);
	    output(plogin,'C',0,buf);
	    sprintf(buf,"Your ship has free space of %ld and free crew of %ld\n",
	    getcrdat.cr_flsp,getcrdat.cr_crew);
	    output(plogin,'C',0,buf);
	    if (getsys(plogin,(int)plogin->ln_substat)) {
		sprintf(buf,"Your ship currently has %d%% of this subsystem\n",
		getsdat.s_pct);
		output(plogin,'C',0,buf);
	    }
	    sprintf(buf,
	    "For this subsystem, the base space is %ld and the base crew is %ld\n",
	    getsc->sc_bsp,getsc->sc_bcr);
	    output(plogin,'C',0,buf);
	    sprintf(buf,
	    "100%% installation uses an additional %ld space and %ld crew\n",
	    getsc->sc_fsp,getsc->sc_fcr);
	    output(plogin,'C',0,buf);
	    output(plogin,'C',0,"What percent do you want?");
	    output(plogin,0,0,0);

	/* all done */
	} else {
	    plogin->ln_crft[0] = NULL;
	    plogin->ln_stat = NULL;
	    plogin->ln_substat = NULL;
	    output(plogin,'C',0,PROMPT);
	    output(plogin,0,0,0);
	}
#ifdef DEBUG
	VDBG("build return\n");
#endif
}

static getcrft(plogin)
struct login *plogin;
{
	binit((char *)&getcrkey,sizeof(getcrkey));
	getcrkey.cr_crftkey = CRAFT;
	strcpy(getcrkey.cr_plyr,plogin->ln_name);
	strcpy(getcrkey.cr_name,plogin->ln_crft);
	dbmkey.dptr = (char *)&getcrkey;
	dbmkey.dsize = sizeof(getcrkey);
	dbmdata = fetch(dbmkey);
#ifdef DEBUG
	VDBG("getcrft - %s %s\n",(dbmdata.dptr) ? "found" : "couldn't find",
	getcrkey.cr_name);
#endif
	if (!dbmdata.dptr)
		return(0);
	bcopy((char *)&getcrdat,dbmdata.dptr,CRDATSIZ);
	return(1);
}

/* assumes getcrkey and getcrdat are current */
static VOID putcrft(plogin)
struct login *plogin;
{
#ifdef DEBUG
	VDBG("putcrft - %s\n",getcrkey.cr_name);
#endif
	dbmkey.dptr = (char *)&getcrkey;
	dbmkey.dsize = sizeof(getcrkey);
	dbmdata.dptr = (char *)&getcrdat;
	dbmdata.dsize = CRDATSIZ;
	if (store(dbmkey,dbmdata)) {
		perror("putcrft: can't update craft");
		plogin->ln_crft[0] = NULL;
		plogin->ln_stat = NULL;
		plogin->ln_substat = NULL;
		output(plogin,'C',0,PROMPT);
		output(plogin,0,0,0);
	}
}

static getsys(plogin,styp)
struct login *plogin;
int styp;
{
	binit((char *)&getskey,sizeof(getskey));
	getskey.s_syskey = SUBSYS;
	strcpy(getskey.s_plyr,plogin->ln_name);
	strcpy(getskey.s_crft,plogin->ln_crft);
	getskey.s_type = styp;
	dbmkey.dptr = (char *)&getskey;
	dbmkey.dsize = sizeof(getskey);
	dbmdata = fetch(dbmkey);
#ifdef DEBUG
	VDBG("getsys - %s %d\n",(dbmdata.dptr) ? "found" : "couldn't find",styp);
#endif
	if (!dbmdata.dptr)
		return(0);
	bcopy((char *)&getsdat,dbmdata.dptr,sizeof(getsdat));
	return(1);
}

/* assumes getskey and getsdat are current */
static VOID putsys(plogin)
struct login *plogin;
{
#ifdef DEBUG
	VDBG("putsys - %d\n",getskey.s_type);
#endif
	dbmkey.dptr = (char *)&getskey;
	dbmkey.dsize = sizeof(getskey);
	dbmdata.dptr = (char *)&getsdat;
	dbmdata.dsize = sizeof(getsdat);
	if (store(dbmkey,dbmdata)) {
		perror("putsys: can't update subsystem");
		plogin->ln_crft[0] = NULL;
		plogin->ln_stat = NULL;
		plogin->ln_substat = NULL;
		output(plogin,'C',0,PROMPT);
		output(plogin,0,0,0);
	}
}

/* assumes getskey is current */
static VOID delsys(plogin)
struct login *plogin;
{
#ifdef DEBUG
	VDBG("delsys - %d\n",getskey.s_type);
#endif
	dbmkey.dptr = (char *)&getskey;
	dbmkey.dsize = sizeof(getskey);
	if (delete(dbmkey)) {
		perror("delsys: can't delete subsystem");
		plogin->ln_crft[0] = NULL;
		plogin->ln_stat = NULL;
		plogin->ln_substat = NULL;
		output(plogin,'C',0,PROMPT);
		output(plogin,0,0,0);
	}
}

/* assumes getcrdat, getskey, and getsdat are current */
static VOID fixdmg()
{
	/* if priviledged or docked at a starbase, fix all damage */
	if (getcrdat.cr_plvl ||
	(getcrdat.cr_dock.ip_ofst > 0 &&
	univlst[getcrdat.cr_dock.ip_ofst].uv_pctr == '#'))
		getsdat.s_dmg = 0;

	/* fix temporary damage to 0, permanent damage to 45 */
	getsdat.s_dmg = (getsdat.s_dmg > 45) ? 45 : 0;

	/* update passive parameters and level */
	getsc = &config[getskey.s_type][getcrdat.cr_htyp];
	getsdat.s_edmg = getsc->sc_edmg;
	getsdat.s_lvl =  getsc->sc_ilvl;
	getsdat.s_cap =  getsc->sc_cap;
	if (getskey.s_type == ROCKETS)
		getsdat.s_lvl = ((long)getsdat.s_lvl * (long)getsdat.s_pct) / 100L;
	else if (getskey.s_type == TORPS)
		getsdat.s_lvl = (getsdat.s_cap * getsdat.s_pct) / 100;
}