* 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)
-
-struct cave_node *cave_list;
+void setLevelInfoToDefaults_EM(void)
+{
+ int i, j, x, y;
+
+ native_em_level.file_version = FILE_VERSION_EM_ACTUAL;
+ native_em_level.cav = &cav;
+
+ game_em.lev = &lev;
+ for (i = 0; i < MAX_PLAYERS; i++)
+ game_em.ply[i] = &ply[i];
+
+ cav.width = 64;
+ cav.height = 32;
+
+ for (i = 0; i < MAX_PLAYERS; i++)
+ {
+ cav.player_x[i] = -1;
+ cav.player_y[i] = -1;
+ }
+
+ cav.time_seconds = 0;
+ cav.gems_needed = 0;
+
+ cav.eater_score = 0;
+ cav.alien_score = 0;
+ cav.bug_score = 0;
+ cav.tank_score = 0;
+ cav.slurp_score = 0;
+ cav.nut_score = 0;
+ cav.emerald_score = 0;
+ cav.diamond_score = 0;
+ cav.dynamite_score = 0;
+ cav.key_score = 0;
+ cav.lenses_score = 0;
+ cav.magnify_score = 0;
+ cav.exit_score = 0;
+
+ cav.android_move_time = 0;
+ cav.android_clone_time= 0;
+ cav.ball_time = 0;
+ cav.amoeba_time = 0;
+ cav.wonderwall_time = 0;
+ cav.wheel_time = 0;
+ cav.wheel_x = 0;
+ cav.wheel_y = 0;
+ cav.lenses_time = 0;
+ cav.magnify_time = 0;
+ cav.wind_time = 0;
+ cav.wind_direction = 0;
+
+ cav.num_eater_arrays = 8;
+ cav.num_ball_arrays = 8;
+
+ cav.testmode = FALSE;
+ cav.teamwork = FALSE;
+ cav.infinite = TRUE;
+ cav.infinite_true = FALSE; // default: use original EMC behaviour
+
+ cav.ball_random = FALSE;
+ cav.ball_active = FALSE;
+ cav.wonderwall_active = FALSE;
+ cav.wheel_active = FALSE;
+ cav.lenses_active = FALSE;
+ cav.magnify_active = FALSE;
+
+ for (i = 0; i < 8; i++)
+ for (j = 0; j < 9; j++)
+ cav.eater_array[i][j] = Cblank;
+
+ for (i = 0; i < 8; i++)
+ for (j = 0; j < 8; j++)
+ cav.ball_array[i][j] = Cblank;
+
+ for (i = 0; i < GAME_TILE_MAX; i++)
+ cav.android_array[i] = Cblank;
+
+ for (x = 0; x < CAVE_WIDTH; x++)
+ for (y = 0; y < CAVE_HEIGHT; y++)
+ cav.cave[x][y] = Cblank;
+}
-static void clear(void);
-/* attempt load a cave
+/* 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
-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;
-void free_cave_list(void)
-{
- struct cave_node *node, *next;
+ /* always start with reliable default values */
+ setLevelInfoToDefaults_EM();
- for(node = cave_list; node; node = next) {
- next = node->next;
- free(node);
- }
- cave_list = 0;
-}
+ if (!(file = openFile(filename, MODE_READ)))
+ {
+ if (!level_info_only)
+ Warn("cannot open level '%s' -- using empty level", filename);
-#endif
+ return FALSE;
+ }
+
+ raw_leveldata_length = readFile(file, raw_leveldata, 1, MAX_EM_LEVEL_SIZE);
+
+ closeFile(file);
+
+ if (raw_leveldata_length <= 0)
+ {
+ 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)
+ {
+ Warn("unknown EM level '%s' -- using empty level", filename);
+
+ return FALSE;
+ }
+
+ convert_em_level(raw_leveldata, file_version);
+ prepare_em_level();
+
+ return TRUE;
+}