LNPOSN=1;
state=0;
for (i = msg; i <= nxt; i++) {
- PUTTXT(LINES[i],state,2);
+ PUTTXT(LINES[i],&state,2);
}
LNPOSN=0;
++LNPOSN;
while (PARMS[nparms] > 0) {
if (PARMS[nparms+1] < 0)
casemake=0;
- PUTTXT(PARMS[nparms],state,casemake);
+ PUTTXT(PARMS[nparms],&state,casemake);
nparms=nparms+1;
}
++nparms;
if (prmtyp == 33)
casemake=0;
i = LNPOSN;
- PUTTXT(PARMS[nparms],state,casemake);
- PUTTXT(PARMS[nparms+1],state,casemake);
+ PUTTXT(PARMS[nparms],&state,casemake);
+ PUTTXT(PARMS[nparms+1],&state,casemake);
if (prmtyp == 13 && INLINE[i] >= 37 && INLINE[i] <= 62)
INLINE[i] -= 26;
nparms += 2;
}
}
-bool fGETIN(FILE *input,
+bool GETIN(FILE *input,
long *pword1, long *pword1x,
long *pword2, long *pword2x)
/* Get a command from the adventurer. Snarf out the first word, pad it with
for (;;) {
RSPEAK(x);
- GETIN(input, reply,junk1,junk2,junk3);
+ GETIN(input, &reply, &junk1, &junk2, &junk3);
if (reply == MAKEWD(250519) || reply == MAKEWD(25)) {
RSPEAK(y);
return true;
return word;
}
-void fPUTTXT(token_t word, long *state, long casemake)
+void PUTTXT(token_t word, long *state, long casemake)
/* Unpack the 30-bit value in word to obtain up to TOKLEN (currently
* 5) integer-encoded chars, and store them in inline starting at
* LNPOSN. If LNLENG>=LNPOSN, shift existing characters to the right