projects
/
open-adventure.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4d6078d
)
Translate some loops out of FORTRAN.
author
Eric S. Raymond
<esr@thyrsus.com>
Tue, 6 Jun 2017 13:55:30 +0000
(09:55 -0400)
committer
Eric S. Raymond
<esr@thyrsus.com>
Tue, 6 Jun 2017 13:55:30 +0000
(09:55 -0400)
actions2.c
patch
|
blob
|
history
diff --git
a/actions2.c
b/actions2.c
index f208a4978520ef6c44fa76b92685c2ef56ef27d0..ea236a37eb27e590eb326b64bbf88307e15b1700 100644
(file)
--- a/
actions2.c
+++ b/
actions2.c
@@
-146,12
+146,13
@@
int attack(FILE *input) {
/* CLAM AND OYSTER BOTH TREATED AS CLAM FOR INTRANSITIVE CASE; NO HARM DONE. */
if(HERE(CLAM) || HERE(OYSTER))OBJ=100*OBJ+CLAM;
if(OBJ > 100) return(8000);
/* CLAM AND OYSTER BOTH TREATED AS CLAM FOR INTRANSITIVE CASE; NO HARM DONE. */
if(HERE(CLAM) || HERE(OYSTER))OBJ=100*OBJ+CLAM;
if(OBJ > 100) return(8000);
-L9124: if(OBJ != BIRD) goto L9125;
- SPK=137;
- if(CLOSED) return(2011);
- DSTROY(BIRD);
- PROP[BIRD]=0;
- SPK=45;
+L9124: if(OBJ == BIRD) {
+ SPK=137;
+ if(CLOSED) return(2011);
+ DSTROY(BIRD);
+ PROP[BIRD]=0;
+ SPK=45;
+ }
L9125: if(OBJ != VEND) goto L9126;
PSPEAK(VEND,PROP[VEND]+2);
PROP[VEND]=3-PROP[VEND];
L9125: if(OBJ != VEND) goto L9126;
PSPEAK(VEND,PROP[VEND]+2);
PROP[VEND]=3-PROP[VEND];
@@
-197,15
+198,15
@@
L9128: RSPEAK(SPK);
RSPEAK(6);
DSTROY(OGRE);
K=0;
RSPEAK(6);
DSTROY(OGRE);
K=0;
-
/* 9129 */
for (I=1; I<=5; I++) {
- if(DLOC[I] != LOC) goto L9129;
- K=K+1;
- DLOC[I]=61;
- DSEEN[I]=false;
-L9129: /*etc*/ ;
- }
/* end loop */
+ for (I=1; I<=5; I++) {
+ if(DLOC[I] == LOC) {
+
K=K+1;
+
DLOC[I]=61;
+
DSEEN[I]=false;
+ }
+ }
SPK=SPK+1+1/K;
SPK=SPK+1+1/K;
-
return(2011);
+ return(2011);
}
/* Throw. Same as discard unless axe. Then same as attack except ignore bird,
}
/* Throw. Same as discard unless axe. Then same as attack except ignore bird,