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

Rescope and retype a variable.

Browse source
This commit is contained in:
Jason S. Ninneman 2017-06-03 11:09:48 -07:00
parent ab46b5261b
commit 4babd6d058
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
misc.c
View file

@ -263,7 +263,6 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
* end of the line, the word is filled up with blanks (which encode as 0's). * end of the line, the word is filled up with blanks (which encode as 0's).
* If we're already at end of line when TEXT is called, we return -1. */ * If we're already at end of line when TEXT is called, we return -1. */
long CHAR;
long TEXT; long TEXT;
static long SPLITTING = -1; static long SPLITTING = -1;
@ -283,12 +282,12 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
TEXT=TEXT*64; TEXT=TEXT*64;
if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0)) if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0))
continue; continue;
CHAR=INLINE[LNPOSN]; char current=INLINE[LNPOSN];
if(CHAR < 63) { if(current < 63) {
SPLITTING = -1; SPLITTING = -1;
if(UPPER && CHAR >= 37) if(UPPER && current >= 37)
CHAR=CHAR-26; current=current-26;
TEXT=TEXT+CHAR; TEXT=TEXT+current;
LNPOSN=LNPOSN+1; LNPOSN=LNPOSN+1;
continue; continue;
} }
@ -298,7 +297,7 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
continue; continue;
} }
TEXT=TEXT+CHAR-63; TEXT=TEXT+current-63;
SPLITTING = -1; SPLITTING = -1;
LNPOSN=LNPOSN+1; LNPOSN=LNPOSN+1;
} }