/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 * This is a utility for storing all the hardcoded data of Drascula in a separate
 * data file, used by the game engine
 */

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

#include "create_drascula.h"
#include "staticdata.h"

#define DRASCULA_DAT_VER 6	// 1 byte

static void writeByte(FILE *fp, uint8 b) {
	fwrite(&b, 1, 1, fp);
}

static void writeUint16BE(FILE *fp, uint16 value) {
	writeByte(fp, (uint8)(value >> 8));
	writeByte(fp, (uint8)(value & 0xFF));
}

void writeSint16BE(FILE *fp, int16 value) {
	writeUint16BE(fp, (uint16)value);
}

int main(int argc, char *argv[]) {
	FILE* outFile;
	int i, lang;
	int len, len1, pad;
	uint8 padBuf[DATAALIGNMENT];

	for (i = 0; i < DATAALIGNMENT; i++)
		padBuf[i] = 0;

	outFile = fopen("drascula.dat", "wb");

	// Write header
	fwrite("DRASCULA", 8, 1, outFile);

	writeByte(outFile, DRASCULA_DAT_VER);

	// Write charmap
	writeUint16BE(outFile, ARRAYSIZE(charMap));
	for (i = 0; i < ARRAYSIZE(charMap); i++) {
		writeByte(outFile, charMap[i].inChar);
		writeSint16BE(outFile, charMap[i].mappedChar);
		writeByte(outFile, charMap[i].charType);
	}

	// Write item locations
	writeUint16BE(outFile, ARRAYSIZE(itemLocations));
	for (i = 0; i < ARRAYSIZE(itemLocations); i++) {
		writeSint16BE(outFile, itemLocations[i].x);
		writeSint16BE(outFile, itemLocations[i].y);
	}

	// Write x_pol and y_pol
	writeUint16BE(outFile, ARRAYSIZE(x_pol));
	for (i = 0; i < ARRAYSIZE(x_pol); i++) {
		writeSint16BE(outFile, x_pol[i]);
		writeSint16BE(outFile, y_pol[i]);
	}

	// Write verbBarX
	writeUint16BE(outFile, ARRAYSIZE(verbBarX));
	for (i = 0; i < ARRAYSIZE(verbBarX); i++) {
		writeSint16BE(outFile, verbBarX[i]);
	}

	// Write x1d_menu and y1d_menu
	writeUint16BE(outFile, ARRAYSIZE(x1d_menu));
	for (i = 0; i < ARRAYSIZE(x1d_menu); i++) {
		writeSint16BE(outFile, x1d_menu[i]);
		writeSint16BE(outFile, y1d_menu[i]);
	}

	// Write frameX
	writeUint16BE(outFile, ARRAYSIZE(frameX));
	for (i = 0; i < ARRAYSIZE(frameX); i++) {
		writeSint16BE(outFile, frameX[i]);
	}

	// Write candleX and candleY
	writeUint16BE(outFile, ARRAYSIZE(candleX));
	for (i = 0; i < ARRAYSIZE(candleX); i++) {
		writeSint16BE(outFile, candleX[i]);
		writeSint16BE(outFile, candleY[i]);
	}

	// Write pianistX
	writeUint16BE(outFile, ARRAYSIZE(pianistX));
	for (i = 0; i < ARRAYSIZE(pianistX); i++) {
		writeSint16BE(outFile, pianistX[i]);
	}

	// Write drunkX
	writeUint16BE(outFile, ARRAYSIZE(drunkX));
	for (i = 0; i < ARRAYSIZE(drunkX); i++) {
		writeSint16BE(outFile, drunkX[i]);
	}

	// Write preupdates
	writeUint16BE(outFile, ARRAYSIZE(roomPreUpdates));

	for (i = 0; i < ARRAYSIZE(roomPreUpdates); i++) {
		writeSint16BE(outFile, roomPreUpdates[i].roomNum);
		writeSint16BE(outFile, roomPreUpdates[i].flag);
		writeSint16BE(outFile, roomPreUpdates[i].flagValue);
		writeSint16BE(outFile, roomPreUpdates[i].sourceX);
		writeSint16BE(outFile, roomPreUpdates[i].sourceY);
		writeSint16BE(outFile, roomPreUpdates[i].destX);
		writeSint16BE(outFile, roomPreUpdates[i].destY);
		writeSint16BE(outFile, roomPreUpdates[i].width);
		writeSint16BE(outFile, roomPreUpdates[i].height);
		writeSint16BE(outFile, roomPreUpdates[i].type);
	}

	// Write updates
	writeUint16BE(outFile, ARRAYSIZE(roomUpdates));

	for (i = 0; i < ARRAYSIZE(roomUpdates); i++) {
		writeSint16BE(outFile, roomUpdates[i].roomNum);
		writeSint16BE(outFile, roomUpdates[i].flag);
		writeSint16BE(outFile, roomUpdates[i].flagValue);
		writeSint16BE(outFile, roomUpdates[i].sourceX);
		writeSint16BE(outFile, roomUpdates[i].sourceY);
		writeSint16BE(outFile, roomUpdates[i].destX);
		writeSint16BE(outFile, roomUpdates[i].destY);
		writeSint16BE(outFile, roomUpdates[i].width);
		writeSint16BE(outFile, roomUpdates[i].height);
		writeSint16BE(outFile, roomUpdates[i].type);
	}

	// Write room actions
	writeUint16BE(outFile, ARRAYSIZE(roomActions));

	for (i = 0; i < ARRAYSIZE(roomActions); i++) {
		writeSint16BE(outFile, roomActions[i].room);
		writeSint16BE(outFile, roomActions[i].chapter);
		writeSint16BE(outFile, roomActions[i].action);
		writeSint16BE(outFile, roomActions[i].objectID);
		writeSint16BE(outFile, roomActions[i].speechID);
	}

	// Write talk sequences
	writeUint16BE(outFile, ARRAYSIZE(talkSequences));

	for (i = 0; i < ARRAYSIZE(talkSequences); i++) {
		writeSint16BE(outFile, talkSequences[i].chapter);
		writeSint16BE(outFile, talkSequences[i].sequence);
		writeSint16BE(outFile, talkSequences[i].commandType);
		writeSint16BE(outFile, talkSequences[i].action);
	}

	// langs
	writeUint16BE(outFile, NUM_LANGS);

	// Write _text
	writeUint16BE(outFile, NUM_TEXT);

	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXT; i++) {
			len1 = strlen(_text[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;

			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXT; i++) {
			len = strlen(_text[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_text[lang][i], len, 1, outFile);
			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textd
	writeUint16BE(outFile, NUM_TEXTD);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTD; i++) {
			len1 = strlen(_textd[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTD; i++) {
			len = strlen(_textd[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textd[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textb
	writeUint16BE(outFile, NUM_TEXTB);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTB; i++) {
			len1 = strlen(_textb[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTB; i++) {
			len = strlen(_textb[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textb[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textbj
	writeUint16BE(outFile, NUM_TEXTBJ);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTBJ; i++) {
			len1 = strlen(_textbj[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTBJ; i++) {
			len = strlen(_textbj[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textbj[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _texte
	writeUint16BE(outFile, NUM_TEXTE);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTE; i++) {
			len1 = strlen(_texte[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTE; i++) {
			len = strlen(_texte[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_texte[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _texti
	writeUint16BE(outFile, NUM_TEXTI);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTI; i++) {
			len1 = strlen(_texti[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTI; i++) {
			len = strlen(_texti[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_texti[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textl
	writeUint16BE(outFile, NUM_TEXTL);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTL; i++) {
			len1 = strlen(_textl[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTL; i++) {
			len = strlen(_textl[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textl[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textp
	writeUint16BE(outFile, NUM_TEXTP);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTP; i++) {
			len1 = strlen(_textp[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTP; i++) {
			len = strlen(_textp[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textp[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textt
	writeUint16BE(outFile, NUM_TEXTT);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTT; i++) {
			len1 = strlen(_textt[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTT; i++) {
			len = strlen(_textt[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textt[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textvb
	writeUint16BE(outFile, NUM_TEXTVB);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTVB; i++) {
			len1 = strlen(_textvb[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTVB; i++) {
			len = strlen(_textvb[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textvb[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textsys
	writeUint16BE(outFile, NUM_TEXTSYS);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTSYS; i++) {
			len1 = strlen(_textsys[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTSYS; i++) {
			len = strlen(_textsys[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textsys[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _texthis
	writeUint16BE(outFile, NUM_TEXTHIS);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTHIS; i++) {
			len1 = strlen(_texthis[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTHIS; i++) {
			len = strlen(_texthis[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_texthis[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textverbs
	writeUint16BE(outFile, NUM_TEXTVERBS);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTVERBS; i++) {
			len1 = strlen(_textverbs[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTVERBS; i++) {
			len = strlen(_textverbs[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textverbs[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textmisc
	writeUint16BE(outFile, NUM_TEXTMISC);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTMISC; i++) {
			len1 = strlen(_textmisc[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTMISC; i++) {
			len = strlen(_textmisc[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textmisc[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	// Write _textd1
	writeUint16BE(outFile, NUM_TEXTD1);
	for (lang = 0; lang < NUM_LANGS; lang++) {
		len = DATAALIGNMENT - 2;
		for (i = 0; i < NUM_TEXTD1; i++) {
			len1 = strlen(_textd1[lang][i]) + 1;
			pad = DATAALIGNMENT - (len1 + 2) % DATAALIGNMENT;
			len += 2 + len1 + pad;
		}
		writeUint16BE(outFile, len);

		fwrite(padBuf, DATAALIGNMENT - 2, 1, outFile); // padding
		for (i = 0; i < NUM_TEXTD1; i++) {
			len = strlen(_textd1[lang][i]) + 1;
			pad = DATAALIGNMENT - (len + 2) % DATAALIGNMENT;

			writeUint16BE(outFile, len + pad + 2);
			fwrite(_textd1[lang][i], len, 1, outFile);

			fwrite(padBuf, pad, 1, outFile);
		}
	}

	fclose(outFile);

	return 0;
}
