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:01:01 -04:00
parent 4e1ab63322
commit d8e8bc8e89
1 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
main.c
View file

@ -449,12 +449,13 @@ L19999: K=43;
if((V1 != 1000+WATER && V1 != 1000+OIL) || (V2 != 1000+PLANT && V2 != if((V1 != 1000+WATER && V1 != 1000+OIL) || (V2 != 1000+PLANT && V2 !=
1000+DOOR)) goto L2610; 1000+DOOR)) goto L2610;
{long x = V2-1000; if(AT(x))WD2=MAKEWD(16152118);} {long x = V2-1000; if(AT(x))WD2=MAKEWD(16152118);}
L2610: if(V1 == 1000+CAGE && V2 == 1000+BIRD && HERE(CAGE) && L2610: if(V1 == 1000+CAGE && V2 == 1000+BIRD && HERE(CAGE) && HERE(BIRD))
HERE(BIRD))WD1=MAKEWD(301200308); WD1=MAKEWD(301200308);
L2620: if(WD1 != MAKEWD(23051920)) goto L2625; L2620: if(WD1 == MAKEWD(23051920)) {
IWEST=IWEST+1; IWEST=IWEST+1;
if(IWEST == 10)RSPEAK(17); if(IWEST == 10)RSPEAK(17);
L2625: if(WD1 != MAKEWD( 715) || WD2 == 0) goto L2630; }
if(WD1 != MAKEWD( 715) || WD2 == 0) goto L2630;
IGO=IGO+1; IGO=IGO+1;
if(IGO == 10)RSPEAK(276); if(IGO == 10)RSPEAK(276);
L2630: I=VOCAB(WD1,-1); L2630: I=VOCAB(WD1,-1);
@ -632,10 +633,12 @@ L20: K=OLDLOC;
L21: LL=MOD((labs(TRAVEL[KK])/1000),1000); L21: LL=MOD((labs(TRAVEL[KK])/1000),1000);
if(LL == K) goto L25; if(LL == K) goto L25;
if(LL > 300) goto L22; if(LL <= 300) {
J=KEY[LL]; J=KEY[LL];
if(FORCED(LL) && MOD((labs(TRAVEL[J])/1000),1000) == K)K2=KK; if(FORCED(LL) && MOD((labs(TRAVEL[J])/1000),1000) == K)
L22: if(TRAVEL[KK] < 0) goto L23; K2=KK;
}
if(TRAVEL[KK] < 0) goto L23;
KK=KK+1; KK=KK+1;
goto L21; goto L21;