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

Another gotoicide.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-09 13:09:45 -04:00
parent d23235e902
commit 6862a92650
1 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

29
main.c
View file

@ -760,7 +760,20 @@ L8: KK=KEY[game.loc];
L9: LL=labs(TRAVEL[KK]); L9: LL=labs(TRAVEL[KK]);
if(MOD(LL,1000) == 1 || MOD(LL,1000) == K) goto L10; if(MOD(LL,1000) == 1 || MOD(LL,1000) == K) goto L10;
if(TRAVEL[KK] < 0) goto L50; if(TRAVEL[KK] < 0) {
/* Non-applicable motion. Various messages depending on
* word given. */
SPK=12;
if(K >= 43 && K <= 50)SPK=52;
if(K == 29 || K == 30)SPK=52;
if(K == 7 || K == 36 || K == 37)SPK=10;
if(K == 11 || K == 19)SPK=11;
if(VERB == FIND || VERB == INVENT)SPK=59;
if(K == 62 || K == 65)SPK=42;
if(K == 17)SPK=80;
RSPEAK(SPK);
return true;
}
KK=KK+1; KK=KK+1;
goto L9; goto L9;
@ -867,20 +880,6 @@ L21: LL=MOD((labs(TRAVEL[KK])/1000),1000);
KK=KEY[game.loc]; KK=KEY[game.loc];
goto L9; goto L9;
/* Non-applicable motion. Various messages depending on word given. */
L50: SPK=12;
if(K >= 43 && K <= 50)SPK=52;
if(K == 29 || K == 30)SPK=52;
if(K == 7 || K == 36 || K == 37)SPK=10;
if(K == 11 || K == 19)SPK=11;
if(VERB == FIND || VERB == INVENT)SPK=59;
if(K == 62 || K == 65)SPK=42;
if(K == 17)SPK=80;
RSPEAK(SPK);
return true;
/* Cave closing and scoring */ /* Cave closing and scoring */