/* 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 2
 * 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, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

#include "common/system.h"
#include "common/endian.h"
#include "common/file.h"
#include "common/textconsole.h"
#include "hopkins/talk.h"
#include "hopkins/files.h"
#include "hopkins/globals.h"
#include "hopkins/graphics.h"
#include "hopkins/hopkins.h"
#include "hopkins/objects.h"

namespace Hopkins {

void TalkManager::setParent(HopkinsEngine *vm) {
	_vm = vm;
}

void TalkManager::PARLER_PERSO2(const Common::String &filename) {
	int v1;
	int v2; 
	uint v3;
	int v4;
	int v5;
	byte v7;
	int v8;
	int v9;

	v9 = 0;
	_vm->_objectsManager.DESACTIVE_CURSOR = 1;
	STATI = 1;
	v7 = _vm->_objectsManager.DESACTIVE_INVENT;
	_vm->_objectsManager.DESACTIVE_INVENT = 1;
	BUFFERPERSO = FileManager::RECHERCHE_CAT(filename, 5);
	TAILLEPERSO = _vm->_globals.CAT_TAILLE;
	if (BUFFERPERSO == PTRNUL) {
		FileManager::CONSTRUIT_FICHIER(_vm->_globals.HOPANIM, filename);
		BUFFERPERSO = FileManager::CHARGE_FICHIER(_vm->_globals.NFICHIER);
		TAILLEPERSO = FileManager::FLONG(_vm->_globals.NFICHIER);
	}

	_vm->_globals.SAUVEGARDE->field4 = 0;
	RENVOIE_FICHIER(0, FQUEST, (const char *)BUFFERPERSO);
	RENVOIE_FICHIER(20, FREPON, (const char *)BUFFERPERSO);

	switch (_vm->_globals.FR) {
	case 0:
		FQUEST = "RUEAN.TXT";
		FREPON = "RUEAN.TXT";
		break;
	case 1:
		FQUEST = "RUE.TXT";
		FREPON = "RUE.TXT";
		break;
	case 2:
		FQUEST = "RUEES.TXT";
		FREPON = "RUEES.TXT";
		break;
	}

	v1 = READ_LE_UINT16((uint16 *)BUFFERPERSO + 40);
	PCHERCHE = 20 * READ_LE_UINT16((uint16 *)BUFFERPERSO + 42) + 110;
	CHERCHE_PAL(PCHERCHE, 0);
	PLIGNE1 = v1;
	PLIGNE2 = v1 + 1;
	PLIGNE3 = v1 + 2;
	PLIGNE4 = v1 + 3;
	v8 = _vm->_eventsManager.btsouris;
	_vm->_eventsManager.btsouris = 4;
	_vm->_eventsManager.CHANGE_MOUSE(0);
  
	if (!_vm->_globals.NOPARLE) {
		v2 = v1 + 3;
		do {
			v3 = DIALOGUE();
			if ((signed __int16)v3 != v2)
				v9 = DIALOGUE_REP(v3);
			
			if (v9 == -1)
				v3 = v1 + 3;
		} while ((signed __int16)v3 != v2);
	}

	if (_vm->_globals.NOPARLE) {
		v4 = 1;
	    do
			v5 = DIALOGUE_REP(v4++);
		while (v5 != -1);
	}

	BUFFERPERSO = _vm->_globals.LIBERE_FICHIER(BUFFERPERSO);
	_vm->_eventsManager.btsouris = v8;

	_vm->_eventsManager.CHANGE_MOUSE(v8);
	_vm->_graphicsManager.INIT_TABLE(145, 150, _vm->_graphicsManager.Palette);
	_vm->_graphicsManager.setpal_vga256(_vm->_graphicsManager.Palette);
	_vm->_objectsManager.DESACTIVE_CURSOR = 0;
	_vm->_objectsManager.DESACTIVE_INVENT = v7;
	STATI = 0;
}

void TalkManager::RENVOIE_FICHIER(int srcStart, Common::String &dest, const char *srcData) {
	dest = Common::String(srcData + srcStart);
}

int TalkManager::DIALOGUE() {
	byte *v0; 
	int v1;
	int v2;
	int v3;
	int v4;
	int v5;
	int v6;
	int v7;
	int v8;
	int v9;
	int v10;
	byte *v11; 
	int v12;
	int v13;
	int v14;
	int v15;
	int v16;
	int v18; 
	int v19;
	int v20;
	int v21;

	if (STATI) {
		v0 = BUFFERPERSO;
		v1 = READ_LE_UINT16((uint16 *)BUFFERPERSO + 48);
		if (v1)
			_vm->_animationManager.BOBANIM_ON(v1);
		if (READ_LE_UINT16((uint16 *)v0 + 48) != 1)
			_vm->_animationManager.BOBANIM_ON(READ_LE_UINT16((uint16 *)v0 + 49));
		if (READ_LE_UINT16((uint16 *)v0 + 48) != 2)
			_vm->_animationManager.BOBANIM_ON(READ_LE_UINT16((uint16 *)v0 + 50));
		if ( READ_LE_UINT16((uint16 *)v0 + 48) != 3)
			_vm->_animationManager.BOBANIM_ON(READ_LE_UINT16((uint16 *)v0 + 51));
		if (READ_LE_UINT16((uint16 *)v0 + 48) != 4)
			_vm->_animationManager.BOBANIM_ON(READ_LE_UINT16((uint16 *)v0 + 52));
	} else {
		VISU_WAIT();
	}
	
	v19 = VERIF_BOITE(PLIGNE1, FQUEST, 65);
	v2 = VERIF_BOITE(PLIGNE2, FQUEST, 65);
	v3 = VERIF_BOITE(PLIGNE3, FQUEST, 65);
	v20 = 420 - 20 * VERIF_BOITE(PLIGNE4, FQUEST, 65);
	v21 = v20 - 20 * v3;
	v18 = v20 - 20 * v3 - 1;
	v4 = v20 - 20 * v3 - 20 * v2;
	_vm->_fontManager.DOS_TEXT(5, PLIGNE1, FQUEST, 5, v4 - 20 * v19, 0, 0, 0, 65, 255);
	_vm->_fontManager.DOS_TEXT(6, PLIGNE2, FQUEST, 5, v4, 0, 0, 0, 65, 255);
	_vm->_fontManager.DOS_TEXT(7, PLIGNE3, FQUEST, 5, v21, 0, 0, 0, 65, 255);
	_vm->_fontManager.DOS_TEXT(8, PLIGNE4, FQUEST, 5, v20, 0, 0, 0, 65, 255);
	_vm->_fontManager.TEXTE_ON(5);
	_vm->_fontManager.TEXTE_ON(6);
	_vm->_fontManager.TEXTE_ON(7);
	_vm->_fontManager.TEXTE_ON(8);

	v5 = -1;
	v6 = 0;
  	do {
		v7 = _vm->_eventsManager.YMOUSE();
		if ((signed __int16)(v4 - 20 * v19) < v7 && (signed __int16)(v4 - 1) > v7) {
			v8 = v7;
			_vm->_fontManager.OPTI_COUL_TXT(6, 7, 8, 5);
			v5 = PLIGNE1;
			v7 = v8;
		}
		if (v7 > v4 && v18 > v7) {
			v9 = v7;
			_vm->_fontManager.OPTI_COUL_TXT(5, 7, 8, 6);
			v5 = PLIGNE2;
			v7 = v9;
		}
		if (v21 < v7 && (signed __int16)(v20 - 1) > v7) {
			v10 = v7;
			_vm->_fontManager.OPTI_COUL_TXT(5, 6, 8, 7);
			v5 = PLIGNE3;
			v7 = v10;
		}
		if (v20 < v7 && v7 < 419) {
			_vm->_fontManager.OPTI_COUL_TXT(5, 6, 7, 8);
			v5 = PLIGNE4;
		}
    
		_vm->_eventsManager.VBL();
		if (_vm->_eventsManager.BMOUSE())
			v6 = 1;
		if (v5 == -1)
			v6 = 0;
	} while (v6 != 1);
  
	_vm->_soundManager.VOICE_MIX(v5, 1);
	_vm->_fontManager.TEXTE_OFF(5);
	_vm->_fontManager.TEXTE_OFF(6);
	_vm->_fontManager.TEXTE_OFF(7);
	_vm->_fontManager.TEXTE_OFF(8);
  
	if (STATI) {
		v11 = BUFFERPERSO;
		v12 = READ_LE_UINT16((uint16 *)BUFFERPERSO + 48);
		if (v12)
			_vm->_animationManager.BOBANIM_OFF(v12);
		v13 = READ_LE_UINT16((uint16 *)v11 + 49);
		if (v13 != 1)
			_vm->_animationManager.BOBANIM_OFF(v13);
		v14 = READ_LE_UINT16((uint16 *)v11 + 50);
		if (v14 != 2)
			_vm->_animationManager.BOBANIM_OFF(v14);
		v15 = READ_LE_UINT16((uint16 *)v11 + 51);
		if (v15 != 3)
			_vm->_animationManager.BOBANIM_OFF(v15);
		v16 = READ_LE_UINT16((uint16 *)v11 + 52);
		if (v16 != 4)
			_vm->_animationManager.BOBANIM_OFF(v16);
	} else {
		FIN_VISU_WAIT();
	}
  
	_vm->_eventsManager.VBL();
  return v5;
}

int TalkManager::DIALOGUE_REP(int idx) {
	int v1;
	int v2;
	byte *v3;
	int i; 
	int v6;
	int v7;
	byte *v8;
	int v9; 
	int v10;
	int v11;
	int v12;
	int v13;
	int v14;
	void *v15;
	int v16; 
	int v17; 
	int v18; 
	int v19; 
	int v20; 
	int v21; 
	int v22; 
	int v23; 
	int v24; 
	int v25; 
	
	v1 = 0;
	v2 = 0;
	v3 = BUFFERPERSO + 110;
	for (i = idx; READ_LE_UINT16(v3) != idx; v3 = BUFFERPERSO + 20 * v1 + 110) {
		++v1;
		if (READ_LE_UINT16((uint16 *)BUFFERPERSO + 42) < v1)
			v2 = 1;
		if (v2 == 1)
			return -1;
//		HIWORD(i) = HIWORD(BUFFERPERSO);
	}
	if (v2 == 1)
		return -1;

	v22 = READ_LE_UINT16((uint16 *)v3 + 1);
	v25 = READ_LE_UINT16((uint16 *)v3 + 2);
	v24 = READ_LE_UINT16((uint16 *)v3 + 3);
	i = READ_LE_UINT16((uint16 *)v3 + 4);
	v23 = READ_LE_UINT16((uint16 *)v3 + 4);
	PLIGNE1 = READ_LE_UINT16((uint16 *)v3 + 5);
	PLIGNE2 = READ_LE_UINT16((uint16 *)v3 + 6);
	PLIGNE3 = READ_LE_UINT16((uint16 *)v3 + 7);
	v6 = READ_LE_UINT16((uint16 *)v3 + 8);
	v7 = READ_LE_UINT16((uint16 *)v3 + 9);
  
	if (v7)
		_vm->_globals.SAUVEGARDE->field4 = v7;

	if (!v6)
		v6 = 10;
	if (STATI) {
		v8 = BUFFERPERSO;
		v9 = READ_LE_UINT16((uint16 *)BUFFERPERSO + 43);
		if (v9)
			_vm->_animationManager.BOBANIM_ON(v9);
		v10 = READ_LE_UINT16((uint16 *)v8 + 44);
		if (v10)
			_vm->_animationManager.BOBANIM_ON(v10);
		v11 = READ_LE_UINT16((uint16 *)v8 + 45);
		if (v11)
			_vm->_animationManager.BOBANIM_ON(v11);
		v12 = READ_LE_UINT16((uint16 *)v8 + 46);
		if (v12)
			_vm->_animationManager.BOBANIM_ON(v12);
		v13 = READ_LE_UINT16((uint16 *)v8 + 47);
		if (v13)
			_vm->_animationManager.BOBANIM_ON(v13);
	} else {
		VISU_PARLE();
	}

	if (!_vm->_soundManager.TEXTOFF) {
		_vm->_fontManager.DOS_TEXT(9, v22, FREPON, v25, v24, 20, 25, 5, v23, 252);
		_vm->_fontManager.TEXTE_ON(9);
	}
	if (!_vm->_soundManager.VOICE_MIX(v22, 1)) {
		v14 = 0;
		_vm->_eventsManager.souris_bb = false;
		_vm->_eventsManager.souris_b = false;

		do {
			_vm->_eventsManager.VBL();
			++v14;
		} while (v14 != v6);
	}

	if (!_vm->_soundManager.TEXTOFF)
		_vm->_fontManager.TEXTE_OFF(9);
	if (STATI) {
		v15 = BUFFERPERSO;
		v16 = READ_LE_UINT16((uint16 *)BUFFERPERSO + 43);
		if (v16)
			_vm->_animationManager.BOBANIM_OFF(v16);
		v17 = READ_LE_UINT16((uint16 *)v15 + 44);
		if (v17)
			_vm->_animationManager.BOBANIM_OFF(v17);
		v18 = READ_LE_UINT16((uint16 *)v15 + 45);
		if (v18)
			_vm->_animationManager.BOBANIM_OFF(v18);
		v19 = READ_LE_UINT16((uint16 *)v15 + 46);
		if (v19)
			_vm->_animationManager.BOBANIM_OFF(v19);
		v20 = READ_LE_UINT16((uint16 *)v15 + 47);
		if (v20)
			_vm->_animationManager.BOBANIM_OFF(v20);
	} else {
		FIN_VISU_PARLE(i);
	}
	v21 = 0;
	if (!PLIGNE1)
		v21 = -1;

	return v21;
}

void TalkManager::CHERCHE_PAL(int a1, int a2) {
	__int16 v2;
	size_t v4; 
	unsigned __int16 v5;
	byte *palette; 
	signed __int16 v8; 

	v2 = 0;
	v8 = 0;
	v4 = a1;
	for (;;) {
		if ( *(BUFFERPERSO + v4) == 'P' 
				&& *(BUFFERPERSO + v4 + 1) == 'A'
				&& *(BUFFERPERSO + v4 + 2) == 'L') {
			v8 = 1;
			v2 = v4;
		}
		++v4;
		if (v8 == 1)
			break;
		if (TAILLEPERSO == v4)
			return;
	}
  
	v5 = v2 + 5;
	palette = BUFFERPERSO + v5;
	PALPERSO = BUFFERPERSO + v5;
	if (a2 == 0) {
		*(palette + 762) = 0;
		*(palette + 763) = 0;
		*(palette + 764) = 0;
		*(palette + 765) = 0xe0;
		*(palette + 766) = 0xe0;
		*(palette + 767) = 0xff;
		*(palette + 759) = 0xff;
		*(palette + 760) = 0xff;
		*(palette + 761) = 86;
		*palette = 0;
		*(palette + 1) = 0;
		*(palette + 2) = 0;
	}
	if (a2 == 1) {
		*(palette + 765) = 0xe0;
		*(palette + 766) = 0xe0;
		*(palette + 767) = 0xff;
		*(palette + 759) = 0xff;
		*(palette + 760) = 0xff;
		*(palette + 761) = 0xff;
		*palette = 0;
		*(palette + 1) = 0;
		*(palette + 2) = 0;
		*(palette + 762) = 0;
		*(palette + 763) = 0;
		*(palette + 764) = 0;
	}
  
	_vm->_graphicsManager.setpal_vga256(palette);
	_vm->_graphicsManager.INIT_TABLE(145, 150, palette);
}

void TalkManager::VISU_WAIT() {
	for (int idx = 26; idx <= 30; ++idx) {
		if (_vm->_globals.Bqe_Anim[idx].field4 == 1)
			BOB_VISU_PARLE(idx);
	}
}

void TalkManager::FIN_VISU_WAIT() {
	for (int idx = 26; idx <= 30; ++idx) {
		if (_vm->_globals.Bqe_Anim[idx].field4 == 1)
			_vm->_objectsManager.BOB_OFF(idx);
	}

	for (int idx = 26; idx <= 30; ++idx) {
		if (_vm->_globals.Bqe_Anim[idx].field4 == 1)
			_vm->_objectsManager.BOB_ZERO(idx);
	}
}

void TalkManager::FIN_VISU_PARLE(int a1) {
	for (int idx = 21; idx <= 25; ++idx) {
		if (_vm->_globals.Bqe_Anim[idx].field4 == 1)
			_vm->_objectsManager.BOB_OFF(idx);
	}
  
	_vm->_eventsManager.VBL();
	_vm->_eventsManager.VBL();
	
	for (int idx = 21; idx <= 25; ++idx) {
		if (_vm->_globals.Bqe_Anim[idx].field4 == 1)
			_vm->_objectsManager.BOB_ZERO(idx);
	}
}

int TalkManager::VERIF_BOITE(__int16 idx, const Common::String &file, __int16 a3) {
	int v6;
	int v7;
	char v8; 
	int v9;
	int v10;
	char v11; 
	char v13; 
	char v14; 
	signed int v15;
	byte *ptr; 
	int v17;
	int v18;
	byte *v19; 
	byte indexData[16188];
	Common::String filename;
	Common::String dest;
	Common::File f;
	int filesize;

	v18 = 0;
	_vm->_globals.police_l = 11;
	FileManager::CONSTRUIT_FICHIER(_vm->_globals.HOPLINK, file);
	filename = dest = _vm->_globals.NFICHIER;
	filename += "IND";

	if (!f.open(filename))
		error("Could not open file - %s", filename.c_str());
	filesize = f.size();
	assert(filesize < 16188);	

	f.read(indexData, filesize);
	f.close();

	if (!f.open(dest))
		error("Error opening file - %s", dest.c_str());

	f.seek(READ_LE_UINT32(&indexData[idx * 4]));
	ptr = _vm->_globals.dos_malloc2(2058);
	if (ptr == PTRNUL)
		error("temporary TEXT");
	f.read(ptr, 2048);
	f.close();

	v19 = ptr;
	v6 = 0;
	do {
		v13 = *v19;
		if ((unsigned __int8)(*v19 + 46) > 0x1Bu) {
			if ((unsigned __int8)(v13 + 80) > 0x1Bu) {
				if ((unsigned __int8)(v13 - 65) <= 0x19u || (unsigned __int8)(v13 - 97) <= 0x19u)
					v13 = 32;
			} else {
				v13 -= 79;
			}
		} else {
			v13 = *v19 + 111;
		}
		*v19 = v13;
		v19 = v19 + 1;
		++v6;
	} while ( (unsigned int)v6 < 0x800 );
  
	v7 = 0;
	do {
		v8 = *(ptr + v7);
		if ( v8 == 10 || v8 == 13 )
			*(ptr + v7) = 0;
		++v7;
	} while ((unsigned int)v7 < 0x800);

	v9 = 0;
	v15 = (signed __int16)(11 * a3) - 4;
	do {
		v10 = 0;
		for (;;) {
			v17 = v10;
			do {
				v11 = *(ptr + v9 + v10);
				v14 = v11;
				++v10;
			} while (v11 != 32 && v11 != 37);
			if (v10 >= v15 / _vm->_globals.police_l)
				break;
			if (v11 == 37) {
				if (v10 < v15 / _vm->_globals.police_l)
					goto LABEL_31;
				break;
			}
		}
		if (v11 != 37)
			goto LABEL_33;
		v14 = 32;
LABEL_31:
		if (v14 == 37)
			v17 = v10;
LABEL_33:
		++v18;
		v9 += v17;
	} while (v14 != 37);
	free(ptr);
	return v18;
}

void TalkManager::VISU_PARLE() {
	for (int idx = 21; idx <= 25; ++idx) {
		if (_vm->_globals.Bqe_Anim[idx].field4 == 1)
			BOB_VISU_PARLE(idx);
	}
}

void TalkManager::BOB_VISU_PARLE(int idx) {
	int v4;
	byte *v5;

	_vm->_objectsManager.PRIORITY = 1;
	if (!_vm->_globals.Bob[idx].field0) {
		_vm->_objectsManager.BOB_ZERO(idx);
		v5 = _vm->_globals.Bqe_Anim[idx].data;
		v4 = READ_LE_UINT16(v5 + 2);
		if (!v4)
			v4 = 1;
		if (READ_LE_UINT16(v5 + 24)) {
			_vm->_globals.Bob[idx].field3A = 1;
			_vm->_globals.Bob[idx].field36 = 0;
			_vm->_globals.Bob[idx].field38 = 0;
			_vm->_globals.Bob[idx].field18 = _vm->_globals.Bqe_Anim[idx].data;
			_vm->_globals.Bob[idx].field0 = 10;
			v5 = PERSOSPR;
			_vm->_globals.Bob[idx].field4 = PERSOSPR;
			_vm->_globals.Bob[idx].field1E = v4;
			_vm->_globals.Bob[idx].field20 = -1;
			_vm->_globals.Bob[idx].field22 = 0;
			_vm->_globals.Bob[idx].field24 = 0;
		}
	}
}

} // End of namespace Hopkins