projects
/
open-adventure.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Translate some loops out of FORTRAN.
[open-adventure.git]
/
actions1.c
diff --git
a/actions1.c
b/actions1.c
index 5ef0953c79830b97bdf2565fe785a2b39243d59f..25e05df5d2848e816341109bcbb38cf27bb50eed 100644
(file)
--- a/
actions1.c
+++ b/
actions1.c
@@
-1,8
+1,6
@@
#include <stdlib.h>
#include <stdbool.h>
#include <stdlib.h>
#include <stdbool.h>
-#include "misc.h"
-#include "main.h"
-#include "share.h"
+#include "advent.h"
#include "funcs.h"
#include "database.h"
#include "funcs.h"
#include "database.h"
@@
-600,7
+598,7
@@
L9320: if(OBJ != RUG) return(2011);
L8330: SPK=228;
K=LOCSND[LOC];
if(K == 0) goto L8332;
L8330: SPK=228;
K=LOCSND[LOC];
if(K == 0) goto L8332;
- RSPEAK(
IABS
(K));
+ RSPEAK(
labs
(K));
if(K < 0) return(2012);
SPK=0;
L8332: SETPRM(1,ZZWORD,0);
if(K < 0) return(2012);
SPK=0;
L8332: SETPRM(1,ZZWORD,0);