Translate some loops out of FORTRAN.

[open-adventure.git] / init.c

diff --git a/init.c b/init.c
index 36c82b1bfa04af9671d1ebd7cf89551c70d6a83e..b229767001c5a7041837d01dea021fb4742cc36c 100644 (file)
--- a/init.c
+++ b/init.c
@@ -3,11 +3,9 @@
 #include <stdio.h>
 #include <stdbool.h>
 
-#include "misc.h"
-#include "main.h"
-#include "share.h"
+#include "advent.h"
 #include "funcs.h"
-#include "database/database.h"
+#include "database.h"
 
 /*
  * Initialisation
@@ -186,7 +184,7 @@ static int finish_init(void) {
        ABB[I]=0;
        if(LTEXT[I] == 0 || KEY[I] == 0) goto L1102;
        K=KEY[I];
-       if(MOD(IABS(TRAVEL[K]),1000) == 1)COND[I]=2;
+       if(MOD(labs(TRAVEL[K]),1000) == 1)COND[I]=2;
 L1102: ATLOC[I]=0;
        } /* end loop */