rnd-20131217-1-src
[rocksndiamonds.git] / src / game_em / cave.c
index 759d6dc3fbc9c8a87dde46a03c3d8dc4838f59a4..09cc59554811e8821f33fb576c43b7105382e438 100644 (file)
  * cave data structures
  */
 
-#include <sys/types.h>
-#include <dirent.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
+#include "main_em.h"
 
-#include "global.h"
-#include "tile.h"
-#include "level.h"
-#include "file.h"
 
+struct LevelInfo_EM native_em_level;
 
-#if defined(TARGET_X11)
+void setLevelInfoToDefaults_EM(void)
+{
+  int i;
+
+  native_em_level.file_version = FILE_VERSION_EM_ACTUAL;
+
+  native_em_level.lev = &lev;
+  for (i = 0; i < MAX_PLAYERS; i++)
+    native_em_level.ply[i] = &ply[i];
+
+  lev.width = 64;
+  lev.height = 32;
+
+  for (i = 0; i < MAX_PLAYERS; i++)
+  {
+    ply[i].x_initial = 0;
+    ply[i].y_initial = 0;
+  }
+
+  lev.lenses_cnt_initial = 0;
+  lev.magnify_cnt_initial = 0;
+
+  lev.wheel_cnt_initial = 0;
+  lev.wheel_x_initial = 1;
+  lev.wheel_y_initial = 1;
+
+  lev.wind_time = 9999;
+  lev.wind_cnt_initial = 0;
+
+  lev.wonderwall_state_initial = 0;
+  lev.wonderwall_time_initial = 0;
+
+  lev.num_ball_arrays = 8;
+
+  for (i = 0; i < TILE_MAX; i++)
+    lev.android_array[i] = Xblank;
 
-struct cave_node *cave_list;
+#if 1
+  /* initial number of players in this level */
+  lev.home_initial = 0;
 
-static void clear(void);
+  for (i = 0; i < MAX_PLAYERS; i++)
+  {
+    ply[i].exists = 0;
+    ply[i].alive_initial = FALSE;
+  }
+#else
+  /* initial number of players in this level */
+  lev.home_initial = (setup.team_mode ? 2 : 1);
 
-/* attempt load a cave
+  for (i = 0; i < MAX_PLAYERS; i++)
+  {
+    ply[i].exists = 0;
+    ply[i].alive_initial = (lev.home_initial > i ? TRUE : FALSE);
+  }
+#endif
+}
+
+
+/* load cave
  * 
  * completely initializes the level structure, ready for a game
  */
-int cave_convert(char *filename)
-{
-       int result;
-       FILE *file;
-       int actual;
-       unsigned long length;
-       unsigned char buffer[16384];
-
-       clear();
-
-       file = fopen(filename, "rb");
-       if(file == 0) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, filename, "open error", strerror(errno));
-               result = 1;
-               goto fail;
-       }
-       actual = fread(buffer, 1, 16384, file);
-       if(actual == -1) {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, filename, "read error", strerror(errno));
-               result = 1;
-               goto fail;
-       }
-       length = actual;
-       fclose(file);
-       file = 0;
-
-       if(clean_emerald(buffer, &length)) {
-               fprintf(stderr, "%s: \"%s\": %s\n", progname, filename, "unrecognized format");
-               result = 1; goto fail;
-       }
-       convert_emerald(buffer);
-
-       result = 0;
-fail:
-       if(file) fclose(file);
-       return(result);
-}
 
-static void clear(void)
-{
-       lev.home = 1; /* number of players */
-       lev.width = 0;
-       lev.height = 0;
-       lev.time = 0;
-       lev.required = 0;
-       lev.score = 0;
-
-       ply1.num = 0;
-       ply1.alive = (lev.home >= 1);
-       ply1.dynamite = 0;
-       ply1.dynamite_cnt = 0;
-       ply1.keys = 0;
-       ply1.anim = 0;
-       ply1.oldx = ply1.x = 0;
-       ply1.oldy = ply1.y = 0;
-       ply1.joy_n = ply1.joy_e = ply1.joy_s = ply1.joy_w = ply1.joy_fire = ply1.joy_stick = ply1.joy_spin = 0;
-       ply2.num = 1;
-       ply2.alive = (lev.home >= 2);
-       ply2.dynamite = 0;
-       ply2.dynamite_cnt = 0;
-       ply2.keys = 0;
-       ply2.anim = 0;
-       ply2.oldx = ply2.x = 0;
-       ply2.oldy = ply2.y = 0;
-       ply2.joy_n = ply2.joy_e = ply2.joy_s = ply2.joy_w = ply2.joy_fire = ply2.joy_stick = ply2.joy_spin = 0;
-}
+#define MAX_EM_LEVEL_SIZE              16384
+
+#if 1
 
-void read_cave_list(void)
+boolean LoadNativeLevel_EM(char *filename, boolean level_info_only)
 {
-       char name[MAXNAME+2];
-       struct cave_node *node, **prev;
-       DIR *dir;
-       struct dirent *entry;
-       char *cut;
-       int len;
-
-       free_cave_list(); /* delete old list if i forgot to before */
-
-       name[MAXNAME] = 0;
-       if(arg_basedir) {
-               snprintf(name, MAXNAME+2, "%s/%s", arg_basedir, EM_LVL_DIR);
-       } else {
-               snprintf(name, MAXNAME+2, "%s", EM_LVL_DIR);
-       }
-       if(name[MAXNAME]) snprintf_overflow("read cave/ directory");
-
-       dir = opendir(name);
-       if(dir) {
-               prev = &cave_list;
-               while((entry = readdir(dir))) {
-                       if(strcmp(entry->d_name, ".") == 0 || strcmp(entry->d_name, "..") == 0) continue;
-
-                       node = malloc(sizeof(*node)); if(node == 0) break;
-                       *prev = node; prev = &node->next;
-
-                       node->path[MAXNAME] = 0;
-                       snprintf(node->path, MAXNAME+2, "%s/%s", name, entry->d_name);
-                       if(node->path[MAXNAME]) snprintf_overflow("read cave/ directory");
-
-                       cut = strrchr(node->path, '/'); cut = cut ? cut + 1 : node->path;
-                       len = strlen(cut);
-                       if(len <= 32) {
-                               strncpy(node->name, cut, 32);
-                       } else {
-                               snprintf(node->name, 32, "%.8s..%s", cut, cut + len - 16);
-                       }
-               }
-               *prev = 0;
-               closedir(dir);
-       } else {
-               fprintf(stderr, "%s: \"%s\": %s: %s\n", progname, name, "failed to open directory", strerror(errno));
-       }
+  unsigned char raw_leveldata[MAX_EM_LEVEL_SIZE];
+  int raw_leveldata_length;
+  int file_version;
+  File *file;
+
+  /* always start with reliable default values */
+  setLevelInfoToDefaults_EM();
+
+  if (!(file = openFile(filename, MODE_READ)))
+  {
+    if (!level_info_only)
+      Error(ERR_WARN, "cannot open level '%s' -- using empty level", filename);
+
+    return FALSE;
+  }
+
+  raw_leveldata_length = readFile(file, raw_leveldata, 1, MAX_EM_LEVEL_SIZE);
+
+  closeFile(file);
+
+  if (raw_leveldata_length <= 0)
+  {
+    Error(ERR_WARN, "cannot read level '%s' -- using empty level", filename);
+
+    return FALSE;
+  }
+
+  file_version = cleanup_em_level(raw_leveldata, raw_leveldata_length,filename);
+
+  if (file_version == FILE_VERSION_EM_UNKNOWN)
+  {
+    Error(ERR_WARN, "unknown EM level '%s' -- using empty level", filename);
+
+    return FALSE;
+  }
+
+  convert_em_level(raw_leveldata, file_version);
+  prepare_em_level();
+
+  return TRUE;
 }
 
-void free_cave_list(void)
+#else
+
+boolean LoadNativeLevel_EM(char *filename, boolean level_info_only)
 {
-       struct cave_node *node, *next;
+  unsigned char raw_leveldata[MAX_EM_LEVEL_SIZE];
+  int raw_leveldata_length;
+  int file_version;
+  FILE *file;
+
+  /* always start with reliable default values */
+  setLevelInfoToDefaults_EM();
+
+  if (!(file = fopen(filename, MODE_READ)))
+  {
+    if (!level_info_only)
+      Error(ERR_WARN, "cannot open level '%s' -- using empty level", filename);
+
+    return FALSE;
+  }
+
+  raw_leveldata_length = fread(raw_leveldata, 1, MAX_EM_LEVEL_SIZE, file);
+
+  fclose(file);
+
+  if (raw_leveldata_length <= 0)
+  {
+    Error(ERR_WARN, "cannot read level '%s' -- using empty level", filename);
+
+    return FALSE;
+  }
+
+  file_version = cleanup_em_level(raw_leveldata, raw_leveldata_length,filename);
+
+  if (file_version == FILE_VERSION_EM_UNKNOWN)
+  {
+    Error(ERR_WARN, "unknown EM level '%s' -- using empty level", filename);
+
+    return FALSE;
+  }
+
+  convert_em_level(raw_leveldata, file_version);
+  prepare_em_level();
 
-       for(node = cave_list; node; node = next) {
-               next = node->next;
-               free(node);
-       }
-       cave_list = 0;
+  return TRUE;
 }
 
 #endif