archives/open-adventure
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More more globals into the game state block.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-06 21:46:17 -04:00
parent 07c0020a7a
commit ab04fe4d41
3 changed files with 38 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

14
actions1.c
View file

@ -536,9 +536,9 @@ L8305: DATIME(&I,&K);
SAVWDS(ABBNUM,BLKLIN,BONUS,CLOCK1,CLOCK2,CLOSED,CLOSNG);
SAVWDS(DETAIL,DFLAG,DKILL,DTOTAL,FOOBAR,HOLDNG,IWEST);
SAVWDS(KNFLOC,LIMIT,LL,LMWARN,LOC,NEWLOC,NUMDIE);
SAVWDS(OBJ,OLDLC2,OLDLOC,OLDOBJ,PANIC,SAVED,SETUP);
SAVWDS(OBJ,game.oldlc2,game.oldloc,OLDOBJ,PANIC,SAVED,SETUP);
SAVWDS(SPK,TALLY,THRESH,TRNDEX,TRNLUZ,TURNS,OBJTXT[OYSTER]);
SAVWDS(VERB,WD1,WD1X,WD2,WZDARK,ZZWORD,OBJSND[BIRD]);
SAVWDS(VERB,WD1,WD1X,WD2,WZDARK,game.zzword,OBJSND[BIRD]);
SAVWDS(OBJTXT[SIGN],CLSHNT,NOVICE,K,K,K,K);
SAVARR(ABB,LOCSIZ);
SAVARR(ATLOC,LOCSIZ);
@ -554,7 +554,7 @@ L8305: DATIME(&I,&K);
SAVWRD(KK,K);
if(K != 0) goto L8318;
K=NUL;
ZZWORD=RNDVOC(3,ZZWORD);
game.zzword=RNDVOC(3,game.zzword);
if(KK > 0) return(8);
RSPEAK(266);
exit(0);
@ -585,8 +585,8 @@ L8320: if(PROP[RUG] != 2)SPK=224;
L9320: if(OBJ != RUG) return(2011);
SPK=223;
if(PROP[RUG] != 2) return(2011);
OLDLC2=OLDLOC;
OLDLOC=LOC;
game.oldlc2=game.oldloc;
game.oldloc=LOC;
NEWLOC=PLACE[RUG]+FIXED[RUG]-LOC;
SPK=226;
if(PROP[SAPPH] >= 0)SPK=227;
@ -601,7 +601,7 @@ L8330: SPK=228;
RSPEAK(labs(K));
if(K < 0) return(2012);
SPK=0;
L8332: SETPRM(1,ZZWORD,0);
L8332: SETPRM(1,game.zzword,0);
/* 8335 */ for (I=1; I<=NOBJECTS; I++) {
if(!HERE(I) || OBJSND[I] == 0 || PROP[I] < 0) goto L8335;
PSPEAK(I,OBJSND[I]+PROP[I]);
@ -617,7 +617,7 @@ L8340: if(!AT(RESER) && LOC != FIXED[RESER]-1) return(2011);
PSPEAK(RESER,PROP[RESER]+1);
PROP[RESER]=1-PROP[RESER];
if(AT(RESER)) return(2012);
OLDLC2=LOC;
game.oldlc2=LOC;
NEWLOC=0;
RSPEAK(241);
return(2);