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

Replace homebrew IABS() with C kubrary labs(3).

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-06 09:21:46 -04:00
parent 1445c7ebcc
commit 4d6078d8a8
5 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

14
main.c
View file

@ -236,12 +236,12 @@ L6010: DTOTAL=0;
KK=DLOC[I];
KK=KEY[KK];
if(KK == 0) goto L6016;
L6012: NEWLOC=MOD(IABS(TRAVEL[KK])/1000,1000);
L6012: NEWLOC=MOD(labs(TRAVEL[KK])/1000,1000);
{long x = J-1;
if(NEWLOC > 300 || !INDEEP(NEWLOC) || NEWLOC == ODLOC[I] || (J > 1 &&
NEWLOC == TK[x]) || J >= 20 || NEWLOC == DLOC[I] ||
FORCED(NEWLOC) || (I == 6 && CNDBIT(NEWLOC,3)) ||
IABS(TRAVEL[KK])/1000000 == 100) goto L6014;}
labs(TRAVEL[KK])/1000000 == 100) goto L6014;}
TK[J]=NEWLOC;
J=J+1;
L6014: KK=KK+1;
@ -530,7 +530,7 @@ L8: KK=KEY[LOC];
OLDLC2=OLDLOC;
OLDLOC=LOC;
L9: LL=IABS(TRAVEL[KK]);
L9: LL=labs(TRAVEL[KK]);
if(MOD(LL,1000) == 1 || MOD(LL,1000) == K) goto L10;
if(TRAVEL[KK] < 0) goto L50;
KK=KK+1;
@ -543,7 +543,7 @@ L11: NEWLOC=LL/1000;
if(PROP[K] != NEWLOC/100-3) goto L16;
L12: if(TRAVEL[KK] < 0)BUG(25);
KK=KK+1;
NEWLOC=IABS(TRAVEL[KK])/1000;
NEWLOC=labs(TRAVEL[KK])/1000;
if(NEWLOC == LL) goto L12;
LL=NEWLOC;
goto L11;
@ -630,11 +630,11 @@ L20: K=OLDLOC;
RSPEAK(K2);
return true;
L21: LL=MOD((IABS(TRAVEL[KK])/1000),1000);
L21: LL=MOD((labs(TRAVEL[KK])/1000),1000);
if(LL == K) goto L25;
if(LL > 300) goto L22;
J=KEY[LL];
if(FORCED(LL) && MOD((IABS(TRAVEL[J])/1000),1000) == K)K2=KK;
if(FORCED(LL) && MOD((labs(TRAVEL[J])/1000),1000) == K)K2=KK;
L22: if(TRAVEL[KK] < 0) goto L23;
KK=KK+1;
goto L21;
@ -644,7 +644,7 @@ L23: KK=K2;
RSPEAK(140);
return true;
L25: K=MOD(IABS(TRAVEL[KK]),1000);
L25: K=MOD(labs(TRAVEL[KK]),1000);
KK=KEY[LOC];
goto L9;