/// Map tile section order + enemy script format
/// --------------------------------------------

#pragma option -zPmain_01

#include "platform.h"
#include "x86real.h"
#include "pc98.h"
#include "planar.h"
#include "master.hpp"
#include "th01/math/subpixel.hpp"
#include "th04/score.h"
#include "th04/resident.hpp"
#include "th04/formats/std.hpp"
#include "th04/main/playfld.hpp"
#include "th04/main/scroll.hpp"
#include "th04/main/tile/tile.hpp"

void near std_load(void)
{
	extern char* std_fn;

	uint16_t std_size;
	uint8_t chunk_size;
	uint8_t enemy_scripts_remaining;

	std_free();

	std_fn[3] = resident->stage_ascii;
	file_ropen(std_fn);
	file_read(&std_size, sizeof(std_size));
	file_read(&chunk_size, sizeof(chunk_size));
	std_size--; // Exclude [chunk_size]
	std_seg = reinterpret_cast<uint8_t __seg *>(hmem_allocbyte(std_size));

	_ES = FP_SEG(std_seg);
	uint8_t __es* std_off = 0;
	file_read(std_off, std_size);
	file_close();

	_ES = FP_SEG(std_seg);
	std_map_section_id = ((PLAYFIELD_H / TILE_H) / TILE_ROWS_PER_SECTION);
	tile_row_in_section = 0;

	// Advance to scroll speed section
	std_off += chunk_size;
	chunk_size = *std_off;
	std_scroll_speed = (
		reinterpret_cast<SubpixelLength8 near *>(std_off) +
		(TILES_Y / TILE_ROWS_PER_SECTION)
	);
	scroll_speed = *reinterpret_cast<SubpixelLength8 __es *>(std_off);

	// Advance to enemy script section
	std_off += (chunk_size + 1);  // Include [chunk_size]
	int enemy_script_i = 0;

	// ZUN landmine: Should be limited to STD_ENEMY_SCRIPT_COUNT.
	enemy_scripts_remaining = *(std_off++);

	do {
		chunk_size = *(std_off++);
		std_enemy_scripts[enemy_script_i++] = reinterpret_cast<void near *>(
			std_off
		);
		std_off += chunk_size;
		enemy_scripts_remaining--;
	} while(enemy_scripts_remaining > 0);

	std_off++;
	std_ip = std_off;
	stage_vm = std_run;
}