gameanalyse.c

#include <stdio.h>
#include <string.h>
#include <stdint.h>

#define DUMP_BLOCKS 0

char *gme;

uint16_t start_oid;
uint16_t end_oid;
uint16_t count_games;
uint16_t count_media;
uint32_t file_size;

uint32_t end_game;
uint32_t unknown_table;
uint32_t media_table;

void prepare_tests(FILE * file)
{
    fseek(file, 0, SEEK_END);
    file_size = ftell(file);
    fseek(file, 0, SEEK_SET);
    uint32_t p_script_table;
    fread(&p_script_table, sizeof(p_script_table), 1, file);

    fseek(file, p_script_table, SEEK_SET);
    fread(&end_oid, sizeof(end_oid), 1, file);
    fseek(file, 2, SEEK_CUR);
    fread(&start_oid, sizeof(start_oid), 1, file);

    fseek(file, 4, SEEK_SET);
    uint32_t p_media_table;
    fread(&p_media_table, sizeof(p_media_table), 1, file);
    media_table = p_media_table;

    fseek(file, 0x18, SEEK_SET);
    uint32_t p_unknown_table;
    fread(&p_unknown_table, sizeof(p_unknown_table), 1, file);
    unknown_table = p_unknown_table;
    end_game = p_unknown_table;

    uint32_t p_media_start, v_media_length, p_media_next;
    do {
	fseek(file,
	      p_media_table + count_media++ * 2 * sizeof(p_media_start),
	      SEEK_SET);
	fread(&p_media_start, sizeof(p_media_start), 1, file);
	fread(&v_media_length, sizeof(v_media_length), 1, file);
	fread(&p_media_next, sizeof(p_media_next), 1, file);
    }
    while (p_media_start + v_media_length == p_media_next);
}

int
test_list_16(FILE * file, uint32_t start, uint16_t v_begin, uint16_t v_end)
{
    int result = 0;

    uint16_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);

    uint16_t i;
    for (i = 0; i < count; i++) {
	uint16_t value;
	fseek(file, start + 2 + i * sizeof(value), SEEK_SET);
	fread(&value, sizeof(value), 1, file);
	if ((value < v_begin) || (value > v_end)) {
	    result++;
	}
    }
    if (count == 0)
	result = -1;

    return result;
}

int
test_list_32(FILE * file, uint32_t start, uint32_t v_begin, uint32_t v_end)
{
    int result = 0;

    uint16_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);

    uint16_t i;
    for (i = 0; i < count; i++) {
	uint32_t value;
	fseek(file, start + 2 + i * sizeof(value), SEEK_SET);
	fread(&value, sizeof(value), 1, file);
	if ((value < v_begin) || (value > v_end)) {
	    result++;
	}
    }
    if (count == 0)
	result = -1;

    return result;
}

int test_list_oid(FILE * file, uint32_t start)
{
    return test_list_16(file, start, start_oid, end_oid);
}

int test_list_gid(FILE * file, uint32_t start)
{
    return test_list_16(file, start, 0, count_games);
}

int test_list_media(FILE * file, uint32_t start)
{
    return test_list_16(file, start, 0, count_media);
}

void save_block(char *name, uint32_t start, uint32_t size)
{

    char out_name[2024];

    snprintf(out_name, 2020, "%s_%s", gme, name);

    FILE *out = fopen(out_name, "wb");

    FILE *in = fopen(gme, "rb");
    fseek(in, start, SEEK_SET);

    unsigned char buffer = 0;

    int i;
    for (i = 0; i < size; i++) {
	fread(&buffer, sizeof(buffer), 1, in);
	fwrite(&buffer, sizeof(buffer), 1, out);

    }

    fclose(in);
    fclose(out);
}

void parse_list_16(FILE * file, uint32_t start)
{
    uint16_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);
    printf("List (0x%X, %d) = [ ", start, count);
    int i = 0;
    for (i = 0; i < count; i++) {
	fflush(stdout);
	uint16_t id;
	fseek(file, start + 2 + i * 2, SEEK_SET);
	fread(&id, sizeof(id), 1, file);
	printf("%3d, ", id);
    }
    printf(" ]\n");
}

void parse_playlist(FILE * file, uint32_t start)
{
    uint16_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);
    printf("\t\t\t\tPlaylist (0x%X, %d) = [ ", start, count);
    int i = 0;
    for (i = 0; i < count; i++) {
	fflush(stdout);
	uint16_t id;
	fseek(file, start + 2 + i * 2, SEEK_SET);
	fread(&id, sizeof(id), 1, file);
	printf("%3d, ", id);
    }
    printf(" ]\n");
}

void parse_oidlist(FILE * file, uint32_t start)
{
    uint16_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);
    printf("\t\t\t\tOIDlist (0x%X, %d) = [ ", start, count);
    int i = 0;
    for (i = 0; i < count; i++) {
	fflush(stdout);
	uint16_t id;
	fseek(file, start + 2 + i * 2, SEEK_SET);
	fread(&id, sizeof(id), 1, file);
	printf("%3d, ", id);
    }
    printf(" ]\n");
}

void parse_gameidlist(FILE * file, uint32_t start)
{
    uint16_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);
    printf("\t\t\t\tGamelist (0x%X, %d) = [ ", start, count);
    int i = 0;
    for (i = 0; i < count; i++) {
	fflush(stdout);
	uint16_t id;
	fseek(file, start + 2 + i * 2, SEEK_SET);
	fread(&id, sizeof(id), 1, file);
	printf("%3d, ", id);
    }
    printf(" ]\n");
}

void
parse_playlistpointer(FILE * file, uint32_t start, uint32_t pbegin,
		      uint32_t pend)
{
    uint16_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);

    printf("\t\t\tPlaylistpointer (0x%X, %d)\n", start, count);
    int i = 0;
    int playerror = 0;
    for (i = 0; i < count; i++) {
	uint32_t pointer;
	fseek(file, start + 2 + i * 4, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	if ((pointer < pbegin) || (pointer > pend)) {
	    printf("\t\t\t\tPlaylist (0x%X) = PlayError!\n ", pointer);
	    playerror = 1;
	} else {
	    parse_playlist(file, pointer);
	}
    }
    if (playerror == 1) {
	parse_playlist(file, start);
    }


}

void
print_block(FILE * file, uint32_t start, uint32_t end, uint32_t bstart,
	    uint32_t bend)
{
    uint32_t blocks[50001];
    blocks[0] = start;
    int bi = 1;
    int i = 0;
    do {
	i++;
	fseek(file, start + i, SEEK_SET);
	uint32_t testp;
	fread(&testp, sizeof(testp), 1, file);
	if ((testp >= start) && (testp < end)) {
	    blocks[bi++] = testp;
	}
    }
    while ((bi < 50000) && (i < (end - start - 3)));
    if (bi < 50000) {
	blocks[bi++] = end;
	// sortieren
	int z = 0;
	for (i = 0; i < bi; i++) {
	    int j;
	    for (j = i + 1; j < bi; j++) {
		if (blocks[i] > blocks[j]) {
		    uint32_t tmp = blocks[i];
		    blocks[i] = blocks[j];
		    blocks[j] = tmp;
		}
		if (blocks[i] == blocks[j] && (blocks[i] != 0xffffffff)) {
		    blocks[j] = 0xffffffff;
		    z++;
		}
	    }
	}
	bi -= z;
	// ausgeben
	for (i = 0; i < (bi - 1); i++) {
	    printf("0x%X B%02d %06d\n\t", blocks[i], i,
		   blocks[i + 1] - blocks[i]);
	    uint32_t j;
	    int p = 0;
	    for (j = blocks[i]; j < blocks[i + 1]; j++) {
		fseek(file, j, SEEK_SET);
		uint8_t val;
		fread(&val, sizeof(val), 1, file);
		printf("%02X ", val);
		if (p == 7) {
		    printf(" ");
		}
		if (p++ == 15) {
		    p = 0;
		    printf("\n\t");
		}
	    }

	    printf("\n\t\t");
	    int coun = 0;
	    uint32_t last = 0;
	    int k = 0;
	    for (j = blocks[i]; j < blocks[i + 1]; j++) {
		fseek(file, j, SEEK_SET);
		uint32_t point;
		fread(&point, sizeof(point), 1, file);
		if ((point >= bstart) && (point < bend)) {
		    j += 3;
		    if (last < point) {
			coun++;
			last = point;
		    } else {
			printf("LB%02d I%02d L%02d \n\t\t", i, k++, coun);
			coun = 1;
			last = 0;
		    }
		} else {
		    if (coun > 0) {
			printf("LB%02d I%02d L%02d \n\t\t", i, k++, coun);
			coun = 0;
			last = 0;
		    }
		}
	    }
	    if (coun > 0) {
		printf("LB%02d I%02d L%02d \n\t\t", i, k++, coun);
		coun = 0;
		last = 0;
	    }
	    printf("\n");
	}
    }
    printf("EndSub\n");
}

void
parse_subgame(FILE * file, uint32_t start, uint32_t end, uint16_t type)
{

    uint16_t index = 20;
    fseek(file, start + index, SEEK_SET);
    int i;
    for (i = 0; i < 3; i++) {
	uint16_t count;
	fread(&(count), sizeof(count), 1, file);
	printf("\t\tOID List (%d, %d) = [ ", i, count);
	int j;
	for (j = 0; j < count; j++) {
	    uint16_t oid;
	    fread(&oid, sizeof(oid), 1, file);
	    printf("%d, ", oid);
	}
	printf(" ]\n");
    }
    int pindex = ftell(file) - start;
    for (i = 0; i < 9; i++) {

	uint32_t pointer;
	fseek(file, start + pindex + i * 4, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	if (test_list_32(file, pointer, 0, file_size) > 0) {
	    printf("No Playlist pointer (%08X)\n", pointer);
	} else {
	    parse_playlistpointer(file, pointer, 0, file_size);
	}
    }

    uint16_t tmp;
    fseek(file, start + index, SEEK_SET);
    uint16_t count[3];
    fread(&(tmp), sizeof(tmp), 1, file);
    count[0] = tmp;

    index += 2 + count[0] * 2;
    fseek(file, start + index, SEEK_SET);
    fread(&(tmp), sizeof(tmp), 1, file);
    count[1] = tmp;

    index += 2 + count[1] * 2;
    fseek(file, start + index, SEEK_SET);
    fread(&(tmp), sizeof(tmp), 1, file);
    count[2] = tmp;
    index += 2 + count[2] * 2;

    int testlen =
	20 + 2 + 2 * count[0] + 2 + 2 * count[1] + 2 + 2 * count[2] +
	4 * 9;
    if (testlen != (end - start)) {
	printf(" 20 + 2 + %d + 2 + %d + 2 + %d + %d = %d != %d\n",
	       count[0] * 2, count[1] * 2, count[2] * 2, 9 * 4, testlen,
	       end - start);
	printf("SubType%02d Error2!\n", type);
    }

    if (DUMP_BLOCKS) {
	if (start < end) {
	    print_block(file, start, end, start, end);
	} else {
	    print_block(file, start, start + testlen, start,
			start + testlen);
	}
//      hinten immer 9 * 32 bit
    }
}


void parse_game(FILE * file, int id, uint32_t start, uint32_t end)
{

    fseek(file, start, SEEK_SET);

    uint32_t index = 0;
    uint16_t type = 0;
    fread(&type, sizeof(type), 1, file);
    printf("\tType:\t%d\n", type);
    if (type == 253) {
	print_block(file, start, end, start, end);
	uint16_t count;
	fseek(file, start + 2, SEEK_SET);
	fread(&count, sizeof(count), 1, file);
	index = 4;

	int i;
	for (i = 0; i < count; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    parse_list_16(file, pointer);
	}

	printf("Typ%03d (%d)PLY ", type, count);
	for (i = 0; i < count; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    int tmp = test_list_media(file, pointer);
	    if (tmp == 0) {
		printf("+");
	    }
	    if (tmp > 0) {
		printf("-");
	    }
	    if (tmp < 0) {
		printf("0");
	    }
	}

	printf("\n");
	index = 4;

	printf("Typ%03d (%d)OID ", type, count);

	for (i = 0; i < count; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    int tmp = test_list_oid(file, pointer);
	    if (tmp == 0) {
		printf("+");
	    }
	    if (tmp > 0) {
		printf("-");
	    }
	    if (tmp < 0) {
		printf("0");
	    }
	}

	printf("\n");
	index = 4;

	printf("Typ%03d (%d)GID ", type, count);

	for (i = 0; i < count; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    int tmp = test_list_gid(file, pointer);
	    if (tmp == 0) {
		printf("+");
	    }
	    if (tmp > 0) {
		printf("-");
	    }
	    if (tmp < 0) {
		printf("0");
	    }
	}
	printf("\n");
	return;
    }

    uint16_t aa;
    fread(&aa, sizeof(aa), 1, file);

    uint16_t ignore1;
    fread(&ignore1, sizeof(ignore1), 1, file);

    uint16_t bb;
    fread(&bb, sizeof(bb), 1, file);

    int playscripts = 5;
    int ps2 = 10;
    if ((type == 7) || (type == 10) || (type == 6)) {
	ps2 = 11;
    }
    if ((type == 8) || (type == 16)) {
	ps2 = 14;
    }
    if (type == 9) {
	ps2 = 85;
    }
    printf("HT%02d C%03d I%02d C%03d\n", type, aa, ignore1, bb);
    if (type == 6) {
	index = 26;
	fseek(file, start + 26, SEEK_SET);
	playscripts = 7;
    } else {
	index = 18;
	fseek(file, start + 18 + playscripts * 4, SEEK_SET);
	uint32_t pointer;
	fread(&pointer, sizeof(pointer), 1, file);
	if (bb != 0) {
	    printf("Error4\n");
	}
    }
    int i = 0;
    for (i = 0; i < playscripts; i++) {
	uint32_t pointer;
	fseek(file, start + index + i * 4, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	if (test_list_32(file, pointer, start, end) > 0) {
	    printf("No Playlist pointer (%08X)\n", pointer);
	} else {
	    parse_playlistpointer(file, pointer, start, end);
	}
    }

    index += 4 * playscripts;

//  if (type != 6)
//    {
    int subgamestart = index;

    if (aa != 0) {
	printf("\n\tSubgames:\t[");
	for (i = 0; i < aa; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    printf("0x%X,", pointer);
	}
	printf("]\n\n");
    }
    index += aa * 4;
    if (type == 6) {
	if (bb != 0) {
	    printf("\n\tSubgames2:\t[");
	    for (i = 0; i < bb; i++) {
		uint32_t pointer;
		fseek(file, start + index + i * 4, SEEK_SET);
		fread(&pointer, sizeof(pointer), 1, file);
		printf("0x%X,", pointer);
	    }
	    printf("]\n\n");
	}
	index += bb * 4;
    }
    index += 20;

    for (i = 0; i < 10; i++) {
	uint32_t pointer;
	fseek(file, start + index + i * 4, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	if (test_list_32(file, pointer, start, end) > 0) {
	    printf("No Playlist pointer (%08X)\n", pointer);
	} else {
	    parse_playlistpointer(file, pointer, start, end);
	}
    }
    index += 10 * 4;

    if (type == 6) {
	uint32_t pointer;
	fseek(file, start + index, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	parse_playlist(file, pointer);
	index += 4;
    } else if (type == 7 || type == 10) {
	uint32_t pointer;
	fseek(file, start + index, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	parse_playlistpointer(file, pointer, start, end);
	index += 4;
    } else if (type == 8) {
	uint32_t pointer;
	fseek(file, start + index, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	parse_oidlist(file, pointer);

	index += 4;
	fseek(file, start + index, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	parse_gameidlist(file, pointer);

	index += 4;
	int i;
	for (i = 0; i < 2; i++) {
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    parse_playlistpointer(file, pointer, start, end);
	}
	index += 2 * 4;
    } else if (type == 9) {
	int i;
	for (i = 0; i < 75; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    parse_playlistpointer(file, pointer, start, end);
	}
	index += 75 * 4;
    } else if (type == 16) {
	uint32_t pointer;
	fseek(file, start + index, SEEK_SET);
	fread(&pointer, sizeof(pointer), 1, file);
	parse_oidlist(file, pointer);

	index += 4;
	int i;
	for (i = 0; i < 3; i++) {
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    parse_playlistpointer(file, pointer, start, end);
	}
	index += 3 * 4;
    }
    if (0) {
	printf("Typ%02d PLP ", type);

	for (i = 0; i < ps2; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    int tmp = test_list_32(file, pointer, start, end);
	    if (tmp == 0) {
		printf("+");
	    }
	    if (tmp > 0) {
		printf("-");
	    }
	    if (tmp < 0) {
		printf("0");
	    }

	    if (test_list_32(file, pointer, start, end)) {
//          printf("No Playlist pointer (%08X)\n", pointer);
//          parse_playlistpointer(file, pointer, start, end);
	    } else {
//          parse_playlistpointer(file, pointer, start, end);
	    }
	}
	printf("\n");

	printf("Typ%02d PLY ", type);
	for (i = 0; i < ps2; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    int tmp = test_list_media(file, pointer);
	    if (tmp == 0) {
		printf("+");
	    }
	    if (tmp > 0) {
		printf("-");
	    }
	    if (tmp < 0) {
		printf("0");
	    }
	}
	printf("\n");

	printf("Typ%02d OID ", type);
	for (i = 0; i < ps2; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    int tmp = test_list_oid(file, pointer);
	    if (tmp == 0) {
		printf("+");
	    }
	    if (tmp > 0) {
		printf("-");
	    }
	    if (tmp < 0) {
		printf("0");
	    }
	}
	printf("\n");

	printf("Typ%02d GID ", type);
	for (i = 0; i < ps2; i++) {
	    uint32_t pointer;
	    fseek(file, start + index + i * 4, SEEK_SET);
	    fread(&pointer, sizeof(pointer), 1, file);
	    int tmp = test_list_gid(file, pointer);
	    if (tmp == 0) {
		printf("+");
	    }
	    if (tmp > 0) {
		printf("-");
	    }
	    if (tmp < 0) {
		printf("0");
	    }
	}
	printf("\n");
    }

    uint32_t firstsub;
    if (type == 6) {
	fseek(file, start + subgamestart + 4, SEEK_SET);
    } else {
	if (aa != 0) {
	    fseek(file, start + subgamestart, SEEK_SET);
	} else {
	    fseek(file, start + 18, SEEK_SET);
	}
    }
    fread(&firstsub, sizeof(firstsub), 1, file);
    if (start + index != firstsub) {
	printf
	    ("start(0x%X) + index(%d) + ps2(%d) * 4 = 0x%X != firstsub(0x%X)\n",
	     start, index, ps2, start + index + ps2 * 4, firstsub);
	printf("Error7!\n");
    }


    for (i = 0; i < aa - 1; i++) {
	uint32_t pointer1, pointer2;
	fseek(file, start + subgamestart + i * 4, SEEK_SET);
	fread(&pointer1, sizeof(pointer1), 1, file);
	fread(&pointer2, sizeof(pointer2), 1, file);
	printf("SubGame(%2d, 0x%X)\n--------------------------\n", i,
	       pointer1);
	parse_subgame(file, pointer1, pointer2, type);
//          print_block(file, pointer1, pointer2, start, end);
    }
    if (type == 6) {
	int sbs2 = subgamestart + 4 * aa;
	for (i = 0; i < bb - 1; i++) {
	    uint32_t pointer1, pointer2;
	    fseek(file, start + sbs2 + i * 4, SEEK_SET);
	    fread(&pointer1, sizeof(pointer1), 1, file);
	    fread(&pointer2, sizeof(pointer2), 1, file);
	    printf("SubGame2(%2d, 0x%X)\n--------------------------\n", i,
		   pointer1);
	    parse_subgame(file, pointer1, pointer2, type);
//          print_block(file, pointer1, pointer2, start, end);
	}
    }
//    }

//    printf("\tType? = %d\n\n", type);

//    fread(&bb, sizeof(bb),1,file);

    if (DUMP_BLOCKS) {

//  if (type == 6)
//    {
	uint32_t test = 0;

	i = 0;
	int b = 0;
	do {
	    i++;
	    fseek(file, start + i, SEEK_SET);
	    b = 0;
	    int j = 0;
	    for (j = 0; j < aa + 5; j++) {
		fread(&test, sizeof(test), 1, file);
		if ((test < start) || (test > end)) {
		    b = 1;
		}
	    }
//      printf("\t%X = %X\n", i, test);

	}
	while ((b == 1) && (i < (end - start - ((aa + 5) * 4))));

	printf("\tType? = %d\t%d\n\n", type, i);

//      fseek(file, start + 18 , SEEK_SET);
//      fread(&test, sizeof(test),1,file);
/*    if ((test < start) || (test > end )) {
//
	printf("%s_game%02d", gme, id);
	printf("\tType? = %d\t%d\n\n", type,i);
    }
*/
/*    if ((aa == 0) || (bb == 0 )) {
//
	printf("%s_game%02d", gme, id);
	printf("\taa = %d\tbb = %d\n\n", aa,bb);
	printf("\tType? = %d\t%d\n\n", type,i);
    }
*/

	uint32_t blocks[5001];
	blocks[0] = start;
	int bi = 1;
	i = 16;
	do {
	    i++;
	    fseek(file, start + i, SEEK_SET);
	    uint32_t testp;
	    fread(&testp, sizeof(testp), 1, file);
	    if ((testp >= start) && (testp < end)) {
		blocks[bi++] = testp;
	    }
	}
	while ((bi < 5000) && (i < (end - start - 3)));
	if (bi < 5000) {
	    blocks[bi++] = end;
	    // sortieren
	    int z = 0;
	    for (i = 0; i < bi; i++) {
		int j;
		for (j = i + 1; j < bi; j++) {
		    if (blocks[i] > blocks[j]) {
			uint32_t tmp = blocks[i];
			blocks[i] = blocks[j];
			blocks[j] = tmp;
		    }
		    if (blocks[i] == blocks[j]
			&& (blocks[i] != 0xffffffff)) {
			blocks[j] = 0xffffffff;
			z++;
		    }
		}
	    }
	    bi -= z;
	    // ausgeben
	    for (i = 0; i < (bi - 1); i++) {
		printf("0x%X B%02d %06d\n\t", blocks[i], i,
		       blocks[i + 1] - blocks[i]);
		uint32_t j;
		int p = 0;
		for (j = blocks[i]; j < blocks[i + 1]; j++) {
		    fseek(file, j, SEEK_SET);
		    uint8_t val;
		    fread(&val, sizeof(val), 1, file);
		    printf("%02X ", val);
		    if (p == 7) {
			printf(" ");
		    }
		    if (p++ == 15) {
			p = 0;
			printf("\n\t");
		    }
		}
		printf("\n\t\t");
		int coun = 0;
		uint32_t last = 0;
		int k = 0;
		for (j = blocks[i]; j < blocks[i + 1]; j++) {
		    fseek(file, j, SEEK_SET);
		    uint32_t point;
		    fread(&point, sizeof(point), 1, file);
		    if ((point >= start) && (point < end)) {
			j += 3;
			if (last < point) {
			    coun++;
			    last = point;
			} else {
			    printf("B%02d TP%02d I%02d L%02d \n\t\t", i,
				   type, k++, coun);
			    if ((i == 0) && (k == 2) && (coun != aa)
				&& (aa != 0))
				printf("Error!\n");
			    coun = 1;
			    last = 0;
			}
		    } else {
			if (coun > 0) {
			    if ((coun > 1) || (k > 0)) {
				printf("B%02d TP%02d I%02d L%02d \n\t\t",
				       i, type, k++, coun);
				if ((i == 0) && (k == 2) && (coun != aa)
				    && (aa != 0))
				    printf("Error!\n");
			    }
			    coun = 0;
			    last = 0;
			}
		    }
		}
		if (coun > 0) {
		    printf("B%02d TP%02d I%02d L%02d \n\t\t", i, type, k++,
			   coun);
		    if ((i == 0) && (k == 2) && (coun != aa) && (aa != 0))
			printf("Error!\n");
		    coun = 0;
		    last = 0;
		}
		printf("\n");
	    }
	}
    }
}

void parse_games(FILE * file, uint32_t start)
{

    uint32_t count = 0;
    fseek(file, start, SEEK_SET);
    fread(&count, sizeof(count), 1, file);

    printf("\tCount = %d\n\n", count);

    count_games = count;

    int i;
    for (i = 0; i < (count); i++) {
	uint32_t start_script;
	uint32_t next_script;
	fseek(file, (start + 4) + 4 * i, SEEK_SET);
	fread(&start_script, sizeof(start_script), 1, file);
	if (i < (count - 1)) {
	    fread(&next_script, sizeof(next_script), 1, file);
	} else {
	    next_script = end_game;
	}
	char name[2024];
	snprintf(name, 2020, "game%02d", i);
	save_block(name, start_script, next_script - start_script);

	printf("Game Header (%2d, 0x%X)\n--------------------------\n", i,
	       start_script);
	parse_game(file, i, start_script, next_script);
    }
}

int main(int argc, char *argv[])
{

    gme = argv[1];

    FILE *file = fopen(gme, "rb");

    prepare_tests(file);

    uint32_t start_game = 0;
    fseek(file, 0x10, SEEK_SET);
    fread(&start_game, sizeof(start_game), 1, file);

//  parse_list_16(file, p_unknown_table);
//  printf ("Scripts:\n");
//  print_block (file, 0x200, start_game, 0, file_size);
//  parse_list_16(file, p_unknown_table);
//    printf("Unknown (0x%X - 0x%X) = (%d)\n", unknown_table, media_table , media_table - unknown_table);
//  print_block (file, unknown_table, media_table, 0, file_size);

    printf("Game (%s)\n", gme);
    printf("Games (0x%X)\n--------------------------\n", start_game);
    parse_games(file, start_game);

    fclose(file);
}