[unix-history] / usr / src / games / adventure / init.c

#
/*      Re-coding of advent in C: data initialization                   */

static char sccsid[] = "        init.c  1.1     82/05/11        ";

# include "hdr.h"

int blklin = TRUE;
int setup  = 0;

int setbit[16] = {1,2,4,010,020,040,0100,0200,0400,01000,02000,04000,
                 010000,020000,040000,0100000};


init(command)                           /* everything for 1st time run  */
char *command;                          /* command we were called with  */
{       int stat,adfd;
       rdata();                        /* read data from orig. file    */
       linkdata();
       poof();
       setup=1;                        /* indicate that data is in     */
       if (confirm("got the data.  save as \"advent\"? "))
       {       if (save(command,"advent")<0)   /* save core image      */
               {       printf("Save failed\n");
                       exit(0);
               }
       }
       else exit(0);
       printf("Save succeeded.  Adding messages.\n");
       adfd=open("advent",1);
       lseek(adfd,0L,2);
       close(datfd);
       if (fork()==0)                  /* child process                */
       {       close(1);
               dup(adfd);              /* output goes to advent file   */
               execl("/bin/cat","cat",TMPFILE,0);
               printf("unable to find /bin/cat\n");
       }
       wait(&stat);
       unlink(TMPFILE);
       printf("Advent is ready.\n");
       exit(0);
}


linkdata()                              /*  secondary data manipulation */
{       register int i,j;
       /*      array linkages          */
       for (i=1; i<=LOCSIZ; i++)
               if (ltext[i].seekadr!=0 && travel[i] != 0)
                       if ((travel[i]->tverb)==1) cond[i]=2;
       for (j=100; j>0; j--)
               if (fixd[j]>0)
               {       drop(j+100,fixd[j]);
                       drop(j,plac[j]);
               }
       for (j=100; j>0; j--)
       {       fixed[j]=fixd[j];
               if (plac[j]!=0 && fixd[j]<=0) drop(j,plac[j]);
       }

       maxtrs=79;
       tally=0;
       tally2=0;

       for (i=50; i<=maxtrs; i++)
       {       if (ptext[i].seekadr!=0) prop[i] = -1;
               tally -= prop[i];
       }

       /* define mnemonics */
       keys=vocab("keys",1);
       lamp=vocab("lamp",1);
       grate=vocab("grate",1);
       cage=vocab("cage",1);
       rod=vocab("rod",1);
       rod2=rod+1;
       steps=vocab("steps",1);
       bird=vocab("bird",1);
       door=vocab("door",1);
       pillow=vocab("pillow",1);
       snake=vocab("snake",1);
       fissur=vocab("fissu",1);
       tablet=vocab("table",1);
       clam=vocab("clam",1);
       oyster=vocab("oyster",1);
       magzin=vocab("magaz",1);
       dwarf=vocab("dwarf",1);
       knife=vocab("knife",1);
       food=vocab("food",1);
       bottle=vocab("bottl",1);
       water=vocab("water",1);
       oil=vocab("oil",1);
       plant=vocab("plant",1);
       plant2=plant+1;
       axe=vocab("axe",1);
       mirror=vocab("mirro",1);
       dragon=vocab("drago",1);
       chasm=vocab("chasm",1);
       troll=vocab("troll",1);
       troll2=troll+1;
       bear=vocab("bear",1);
       messag=vocab("messa",1);
       vend=vocab("vendi",1);
       batter=vocab("batte",1);

       nugget=vocab("gold",1);
       coins=vocab("coins",1);
       chest=vocab("chest",1);
       eggs=vocab("eggs",1);
       tridnt=vocab("tride",1);
       vase=vocab("vase",1);
       emrald=vocab("emera",1);
       pyram=vocab("pyram",1);
       pearl=vocab("pearl",1);
       rug=vocab("rug",1);
       chain=vocab("chain",1);

       back=vocab("back",0);
       look=vocab("look",0);
       cave=vocab("cave",0);
       null=vocab("null",0);
       entrnc=vocab("entra",0);
       dprssn=vocab("depre",0);

       say=vocab("say",2);
       lock=vocab("lock",2);
       throw=vocab("throw",2);
       find=vocab("find",2);
       invent=vocab("inven",2);
       /* initialize dwarves */
       chloc=114;
       chloc2=140;
       for (i=1; i<=6; i++)
               dseen[i]=FALSE;
       dflag=0;
       dloc[1]=19;
       dloc[2]=27;
       dloc[3]=33;
       dloc[4]=44;
       dloc[5]=64;
       dloc[6]=chloc;
       daltlc=18;

       /* random flags & ctrs */
       turns=0;
       lmwarn=FALSE;
       iwest=0;
       knfloc=0;
       detail=0;
       abbnum=5;
       for (i=0; i<=4; i++)
               if (rtext[2*i+81].seekadr!=0) maxdie=i+1;
       numdie=holdng=dkill=foobar=bonus=0;
       clock1=30;
       clock2=50;
       saved=0;
       closng=panic=closed=scorng=FALSE;
}



trapdel()                               /* come here if he hits a del   */
{       delhit++;                       /* main checks, treats as QUIT  */
       signal(2,trapdel);              /* catch subsequent DELs        */
}


startup()
{       int tvec[2];
       demo=start(0);
       time(tvec);
       srand(tvec[1]|1);               /* random odd seed              */
/*      srand(371);             */      /* non-random seed                      */
       hinted[3]=yes(65,1,0);
       newloc=1;
       setup=3;
       limit=330;
       if (hinted[3]) limit=1000;      /* better batteries if instrucs */
}