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

Gotoectomy+.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-06 20:32:00 -04:00
parent d8e8bc8e89
commit e4f8218d9c
1 changed files with 23 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

19
main.c
View file

@ -423,13 +423,15 @@ L2605: WZDARK=DARK(0);
L2607: FOOBAR=(FOOBAR>0 ? -FOOBAR : 0);
TURNS=TURNS+1;
if(TURNS != THRESH) goto L2608;
if(TURNS == THRESH) {
SPEAK(TTEXT[TRNDEX]);
TRNLUZ=TRNLUZ+TRNVAL[TRNDEX]/100000;
TRNDEX=TRNDEX+1;
THRESH= -1;
if(TRNDEX <= TRNVLS)THRESH=MOD(TRNVAL[TRNDEX],100000)+1;
L2608: if(VERB == SAY && WD2 > 0)VERB=0;
if(TRNDEX <= TRNVLS)
THRESH=MOD(TRNVAL[TRNDEX],100000)+1;
}
if(VERB == SAY && WD2 > 0)VERB=0;
if(VERB == SAY) goto L4090;
if(TALLY == 0 && INDEEP(LOC) && LOC != 33)CLOCK1=CLOCK1-1;
if(CLOCK1 == 0) goto L10000;
@ -632,7 +634,7 @@ L20: K=OLDLOC;
return true;
L21: LL=MOD((labs(TRAVEL[KK])/1000),1000);
if(LL == K) goto L25;
if(LL != K) {
if(LL <= 300) {
J=KEY[LL];
if(FORCED(LL) && MOD((labs(TRAVEL[J])/1000),1000) == K)
@ -643,11 +645,13 @@ L21: LL=MOD((labs(TRAVEL[KK])/1000),1000);
goto L21;
L23: KK=K2;
if(KK != 0) goto L25;
if(KK == 0) {
RSPEAK(140);
return true;
}
}
L25: K=MOD(labs(TRAVEL[KK]),1000);
K=MOD(labs(TRAVEL[KK]),1000);
KK=KEY[LOC];
goto L9;
@ -887,7 +891,8 @@ L11000: PROP[BOTTLE]=PUT(BOTTLE,115,1);
FIXED[MIRROR]=116;
for (I=1; I<=NOBJECTS; I++) {
if(TOTING(I))DSTROY(I);
if(TOTING(I))
DSTROY(I);
} /* end loop */
RSPEAK(132);