scummvm/engines/tony/custom.cpp

/* 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.
 *
 *
 */

/*
 * This code is based on original Tony Tough source code
 *
 * Copyright (c) 1997-2003 Nayma Software
 */

#include "common/system.h"
#include "common/savefile.h"
#include "tony/mpal/mpal.h"
#include "tony/mpal/memory.h"
#include "tony/adv.h"
#include "tony/custom.h"
#include "tony/font.h"
#include "tony/game.h"
#include "tony/gfxcore.h"
#include "tony/tony.h"
#include "tony/tonychar.h"
#include "tony/utils.h"

namespace Tony {

const char *tappetiFile[] =  {
	"None",
	"1.ADP",	// Grilli.WAV
	"2.ADP",	// Grilli-Ovattati.WAV
	"3.ADP",	// Grilli-Vento.WAV
	"3.ADP",	// Grilli-Vento1.WAV
	"5.ADP",	// Vento1.WAV
	"4.ADP",	// Mare1.WAV
	"6.ADP"		// Mare1.WAV met<65> volume
};

struct MusicFileEntry {
	const char *name;
	int sync;
};
const MusicFileEntry musicFiles[] =  { 
/*
	{ "PREGAME1.ADP", 0 }, { "SONO1.ADP", 0 },
	{ "SONO2.ADP", 0 }, { "SONO3.ADP", 0 },
	{ "CADUTA.ADP",0 }, { "RISVEGLIO.ADP", 0 },
	{ "BACKGROUND.ADP", 0 }, { "PREGAME3.ADP", 0 },
	{ "BARBUTA1.ADP", 2450 }, { "BARBUTA2.ADP", 0 },
*/
	{ "00.ADP", 0 }, { "01.ADP", 0 },
	{ "02.ADP", 0 }, { "03.ADP", 0 },
	{ "04.ADP",0 }, { "05.ADP", 0 },
	{ "06.ADP", 0 }, { "07.ADP", 0 },
	{ "08.ADP", 2450 }, { "09.ADP", 0 },

/*
	{ "BARBUTA3.ADP", 0 }, { "15-RUFUS.ADP", 0 },
	{ "20-MAMMA.ADP", 0 }, { "32-MAMMARADIO.ADP", 0 },
	{ "24-TUNNELOV-MIDI.ADP", 0 }, { "34-RAZZO.ADP", 0 },
	{ "27-ZUCC1.ADP", 0 }, { "BEAST.ADP", 0 },
	{ "22-MORTIMER.ADP", 0 }, { "25-PUB-OVATTATO.ADP", 0 },
*/
	{ "10.ADP", 0 }, { "11.ADP", 0 },
	{ "12.ADP", 0 }, { "13.ADP", 0 },
	{ "14.ADP", 0 }, { "15.ADP", 0 },
	{ "16.ADP", 0 }, { "17.ADP", 0 },
	{ "18.ADP", 0 }, { "19.ADP", 0 },
/*
	{ "25-PUB.ADP", 0 }, { "ALBERGO.ADP", 0 },
	{ "37.ADP", 0 }, { "26-PIRAT.ADP", 0 },
	{ "LORENZBACK.ADP", 0 }, { "LORENZ3.ADP", 0 },
	{ "CASTLE.ADP", 0 }, { "53-BACKR.ADP", 0 },
	{ "16-SMIL1.ADP", 1670 }, { "16-SMIL2.ADP", 0 },
*/
	{ "20.ADP", 0 }, { "21.ADP", 0 },
	{ "22.ADP", 0 }, { "23.ADP", 0 },
	{ "24.ADP", 0 }, { "25.ADP", 0 },
	{ "26.ADP", 0 }, { "27.ADP", 0 },
	{ "28.ADP", 1670 }, { "29.ADP", 0 },
/*	
	{ "16-SMILE.ADP", 0 }, { "16-DIALOG2.ADP", 0 },
	{ "07-SHAKE1.ADP", 2900 }, { "07-SHAKE2.ADP", 0 },
	{ "07-SHAKE3.ADP", 0 }, { "46-BEEE.ADP", 0 },
	{ "434748.ADP", 0 }, { "TORRE.ADP", 0 },
	{ "50-DRAGO.ADP", 0 }, { "56-OPERA.ADP", 0 },
*/
	{ "30.ADP", 0 }, { "31.ADP", 0 },
	{ "32.ADP", 2900 }, { "33.ADP", 0 },
	{ "34.ADP", 0 }, { "35.ADP", 0 },
	{ "36.ADP", 0 }, { "37.ADP", 0 },
	{ "38.ADP", 0 }, { "39.ADP", 0 },
/*
	{ "FLAUTARP.ADP", 0 }, { "01-2001.ADP", 1920 },
	{ "02-INTROPANORAMICA.ADP", 1560 }, { "03-PANORAMICA.ADP", 1920 },
	{ "04-INTERNI.ADP", 1920 }, { "05-CADEPIUMA.ADP", 1920 },
	{ "06-SCENDESCALE.ADP", 1920 }, { "07-THRILL.ADP", 1920 },
	{ "08-CADUTAZUCCA.ADP", 1920 }, { "09-PIUMAALEGGIA.ADP", 1920 },
*/
	{ "40.ADP", 0 }, { "41.ADP", 1920 },
	{ "42.ADP", 1560 }, { "43.ADP", 1920 },
	{ "44.ADP", 1920 }, { "45.ADP", 1920 },
	{ "46.ADP", 1920 }, { "47.ADP", 1920 },
	{ "48.ADP", 1920 }, { "49.ADP", 1920 },

/*
	{ "10-JACKZUCCONA.ADP", 1920 }, { "11-JACKIMPRECAALLAGRANDELUNA.ADP", 1920 },
	{ "12-GRANDELUNALOGO.ADP", 1920 }, { "60-BACKGROUND.ADP", 0 },
	{ "TONYSTAR.ADP", 0 }, { "FUNNY.ADP", 0 },
	{ "60-INIZIODIALOGO.ADP", 0 }, { "60-DIALOGO.ADP", 0 },
	{ "60-JACKFELICE.ADP", 0 }, { "24-TONYVIOLENTATO.ADP", 0 }
*/

	{ "50.ADP", 1920 }, { "51.ADP", 1920 },
	{ "52.ADP", 1920 }, { "53.ADP", 0 },
	{ "54.ADP", 0 }, { "55.ADP", 0 },
	{ "56.ADP", 0 }, { "57.ADP", 0 },
	{ "58.ADP", 0 }, { "59.ADP", 0 }

};


const char *staccFileNames[] = { 
/*
	"05-MUCCA.ADP", "06-HALOW.ADP", 
	"LETTERAINIZIO.ADP", "LETTERAPAURA.ADP", 
	"LETTERAFINE.ADP", "PREGAME2.ADP",
	"07-TIMOT.ADP", "15-SHOTRUFUS.ADP",
	"15-SHOTTONY.ADP", "27-ZUCC2.ADP",
*/
	"S00.ADP", "S01.ADP", 
	"S02.ADP", "S03.ADP", 
	"S04.ADP", "S05.ADP",
	"S06.ADP", "S07.ADP",
	"S08.ADP", "S09.ADP",

/*
	"53-DLOGO.ADP", "16-DIALOG1.ADP",
	"TORRE1.ADP", "GARG1.ADP",
	"LORENZ1.ADP", "24-FIGHT.ADP",
	"08-MACBETH-PREPARA.ADP", "08-MACBETH-RECITA.ADP",
	"GATTO1.ADP"
*/
	"S10.ADP", "S11.ADP",
	"S12.ADP", "S13.ADP",
	"S14.ADP", "S15.ADP",
	"S16.ADP", "S17.ADP",
	"S18.ADP"
};


void ReapplyChangedHotspot(void) {
	int i;
	for (i = 0; i < GLOBALS.curChangedHotspot; i++)
		GLOBALS.Loc->GetItemFromCode(GLOBALS.ChangedHotspot[i].dwCode)->ChangeHotspot(RMPoint(GLOBALS.ChangedHotspot[i].nX, GLOBALS.ChangedHotspot[i].nY));	
}

void SaveChangedHotspot(Common::OutSaveFile *f) {
	f->writeByte(GLOBALS.curChangedHotspot);
	if (GLOBALS.curChangedHotspot > 0) {
		for (int i = 0; i < GLOBALS.curChangedHotspot; ++i)
			GLOBALS.ChangedHotspot[i].Save(f);
	}
}

void LoadChangedHotspot(Common::InSaveFile *f) {
	GLOBALS.curChangedHotspot = f->readByte();
	
	if (GLOBALS.curChangedHotspot > 0) {
		for (int i = 0; i < GLOBALS.curChangedHotspot; ++i)
			GLOBALS.ChangedHotspot[i].Load(f);
	}
}


/*
	Classi richieste per le funzioni custom!

	Tony (per muoverlo)		-> si puo' fare tramite MPAL l'animazione? Penso proprio di s<EFBFBD>

	SendMessage -> Direi che basta theEngine.SendMessage()
	ChangeLocation -> theEngine.ChangeLocation()
	AddInventory -> theEngine.AddInventory()
*/

void MCharResetCodes(void) {
	for (int i = 0; i < 10; i++)
		GLOBALS.MCharacter[i].item = GLOBALS.Loc->GetItemFromCode(GLOBALS.MCharacter[i].code);
	for (int i = 0; i < 10; i++)
		GLOBALS.Character[i].item = GLOBALS.Loc->GetItemFromCode(GLOBALS.Character[i].code);
}

void CharsSaveAll(Common::OutSaveFile *f) {
	for (int i = 0; i < 10; i++) {
		f->writeByte(GLOBALS.IsMChar[i]);
		if (GLOBALS.IsMChar[i]) {
			GLOBALS.MCharacter[i].Save(f);
		} else {
			GLOBALS.Character[i].Save(f);
		}
	}
}

void CharsLoadAll(Common::InSaveFile *f) {
	for (int i = 0; i < 10; i++) {
		GLOBALS.IsMChar[i] = f->readByte();
		if (GLOBALS.IsMChar[i])
			GLOBALS.MCharacter[i].Load(f);
		else
			GLOBALS.Character[i].Load(f);
	}
}

DECLARE_CUSTOM_FUNCTION(FaceToMe)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_STANDDOWN);
}

DECLARE_CUSTOM_FUNCTION(BackToMe)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_STANDUP);
}

DECLARE_CUSTOM_FUNCTION(LeftToMe)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_STANDLEFT);
}

DECLARE_CUSTOM_FUNCTION(RightToMe)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_STANDRIGHT);
}


DECLARE_CUSTOM_FUNCTION(TonySetPalesati)(CORO_PARAM, uint32 bStatus, uint32, uint32, uint32) {
	GLOBALS.SetPalesati(bStatus);	
}

DECLARE_CUSTOM_FUNCTION(MySleep)(CORO_PARAM, uint32 dwTime, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		int i;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_1(CoroScheduler.sleep, dwTime);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(SetAlwaysDisplay)(CORO_PARAM, uint32 val, uint32, uint32, uint32) {
	GLOBALS.bAlwaysDisplay = (val != 0);
}


DECLARE_CUSTOM_FUNCTION(SetPointer)(CORO_PARAM, uint32 dwPointer, uint32, uint32, uint32) {
	switch (dwPointer) {
		case 1:
			GLOBALS.Pointer->SetSpecialPointer(GLOBALS.Pointer->PTR_FRECCIASU);
			break;
		case 2:
			GLOBALS.Pointer->SetSpecialPointer(GLOBALS.Pointer->PTR_FRECCIAGIU);
			break;
		case 3:
			GLOBALS.Pointer->SetSpecialPointer(GLOBALS.Pointer->PTR_FRECCIASINISTRA);
			break;
		case 4:
			GLOBALS.Pointer->SetSpecialPointer(GLOBALS.Pointer->PTR_FRECCIADESTRA);
			break;
		case 5:
			GLOBALS.Pointer->SetSpecialPointer(GLOBALS.Pointer->PTR_FRECCIAMAPPA);
			break;

		default:
			GLOBALS.Pointer->SetSpecialPointer(GLOBALS.Pointer->PTR_NONE);
			break;
	}
}

VoiceHeader *SearchVoiceHeader(uint32 codehi, uint32 codelo) {
	uint i;
	int code;

	code = (codehi << 16) | codelo;
	
	if (_vm->_voices.size() == 0)
		return NULL;

	for (i = 0; i < _vm->_voices.size(); i++)
		if (_vm->_voices[i].code == code)
			return &_vm->_voices[i];

	return NULL;
}


DECLARE_CUSTOM_FUNCTION(SendTonyMessage)(CORO_PARAM, uint32 dwMessage, uint32 nX, uint32 nY, uint32) {
	CORO_BEGIN_CONTEXT;
		RMMessage msg;
		int i;
		int curOffset;
		VoiceHeader *curVoc;
		FPSFX *voice;
		RMTextDialog text;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->curOffset = 0;

	if (GLOBALS.bSkipIdle) return;

	_ctx->msg.Load(dwMessage);
	if (!_ctx->msg.IsValid()) {
		return;
	}

	_ctx->curVoc = SearchVoiceHeader(0, dwMessage);
	_ctx->voice = NULL;
	if (_ctx->curVoc) {
		// Si posiziona all'interno del database delle voci all'inizio della prima
		_ctx->curOffset = _ctx->curVoc->offset;

		// PRIMA VOLTA PREALLOCA
		g_system->lockMutex(GLOBALS.vdb);
		//fseek(_vm->m_vdbFP, _ctx->curOffset, SEEK_SET);
		_vm->_vdbFP.seek(_ctx->curOffset);
		_vm->_theSound.CreateSfx(&_ctx->voice);
		_ctx->voice->LoadVoiceFromVDB(_vm->_vdbFP);
//		_ctx->curOffset = ftell(_vm->m_vdbFP);
		_ctx->curOffset = _vm->_vdbFP.pos();

		_ctx->voice->SetLoop(false);
		g_system->unlockMutex(GLOBALS.vdb);
	}

	if (GLOBALS.nTonyNextTalkType != GLOBALS.Tony->TALK_NORMAL) {
		CORO_INVOKE_1(GLOBALS.Tony->StartTalk, GLOBALS.nTonyNextTalkType);

		if (!GLOBALS.bStaticTalk)
			GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;
	} else {
		if (_ctx->msg.NumPeriods() > 1)
			CORO_INVOKE_1(GLOBALS.Tony->StartTalk, GLOBALS.Tony->TALK_FIANCHI);
		else
			CORO_INVOKE_1(GLOBALS.Tony->StartTalk, GLOBALS.Tony->TALK_NORMAL);
	}

	if (GLOBALS.curBackText)
		CORO_INVOKE_0(GLOBALS.curBackText->Hide);

	GLOBALS.bTonyIsSpeaking = true;

	for (_ctx->i = 0; _ctx->i < _ctx->msg.NumPeriods() && !GLOBALS.bSkipIdle; _ctx->i++) {
		_ctx->text.SetInput(GLOBALS.Input);
	
		// Allineamento
		_ctx->text.SetAlignType(RMText::HCENTER, RMText::VBOTTOM);
		
		// Colore
		_ctx->text.SetColor(0,255,0);

		// Scrive il testo
		_ctx->text.WriteText(_ctx->msg[_ctx->i], 0);

		// Setta la posizione
		if (nX == 0 && nY == 0)
			_ctx->text.SetPosition(GLOBALS.Tony->Position() - RMPoint(0, 130) - GLOBALS.Loc->ScrollPosition());
		else
			_ctx->text.SetPosition(RMPoint(nX, nY) - GLOBALS.Loc->ScrollPosition());

		// Setta l'always display
		if (GLOBALS.bAlwaysDisplay) { _ctx->text.SetAlwaysDisplay(); _ctx->text.ForceTime(); }

		// Registra il testo
		GLOBALS.LinkGraphicTask(&_ctx->text);

		if (_ctx->curVoc) {
			if (_ctx->i == 0) {
				_ctx->voice->Play();
				_ctx->text.SetCustomSkipHandle2(_ctx->voice->hEndOfBuffer);
			} else {
				g_system->lockMutex(GLOBALS.vdb);
		//		fseek(_vm->m_vdbFP, _ctx->curOffset, SEEK_SET);
				_vm->_vdbFP.seek(_ctx->curOffset);
				_vm->_theSound.CreateSfx(&_ctx->voice);
				_ctx->voice->LoadVoiceFromVDB(_vm->_vdbFP);
		//		_ctx->curOffset = ftell(_vm->m_vdbFP);
				_ctx->curOffset = _vm->_vdbFP.pos();
				_ctx->voice->SetLoop(false);
				_ctx->voice->Play();
				_ctx->text.SetCustomSkipHandle2(_ctx->voice->hEndOfBuffer);
				g_system->unlockMutex(GLOBALS.vdb);
			}
		}

		// Aspetta la fine della visualizzazione	
		_ctx->text.SetCustomSkipHandle(GLOBALS.hSkipIdle);
		CORO_INVOKE_0(_ctx->text.WaitForEndDisplay);

		if (_ctx->curVoc) {
			_ctx->voice->Stop();
			_ctx->voice->Release();
			_ctx->voice=NULL;
		}
	}

	GLOBALS.bTonyIsSpeaking = false;
	if (GLOBALS.curBackText)
		GLOBALS.curBackText->Show();

	CORO_INVOKE_0(GLOBALS.Tony->EndTalk);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(ChangeBoxStatus)(CORO_PARAM, uint32 nLoc, uint32 nBox, uint32 nStatus, uint32) {
	GLOBALS.Boxes->ChangeBoxStatus(nLoc, nBox, nStatus);
}


DECLARE_CUSTOM_FUNCTION(CustLoadLocation)(CORO_PARAM, uint32 nLoc, uint32 tX, uint32 tY, uint32 bUseStartPos) {
	CORO_BEGIN_CONTEXT;
		uint32 h;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Freeze();

	GLOBALS.curChangedHotspot = 0;
	if (bUseStartPos != 0)
		GLOBALS.LoadLocation(nLoc, RMPoint(tX, tY), GLOBALS.StartLocPos[nLoc]);
	else
		GLOBALS.LoadLocation(nLoc, RMPoint(tX, tY), RMPoint(-1, -1));

	GLOBALS.Unfreeze();
	_ctx->h = mpalQueryDoAction(0, nLoc, 0);

	// On Enter?
	if (_ctx->h != CORO_INVALID_PID_VALUE)
		CORO_INVOKE_2(CoroScheduler.waitForSingleObject, _ctx->h, CORO_INFINITE);

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(SendFullscreenMsgStart)(CORO_PARAM, uint32 nMsg, uint32 nFont, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		RMMessage *msg;
		RMGfxClearTask clear;
		int i;
		RMTextDialog text;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->msg = new RMMessage(nMsg);
		
	GLOBALS.SFM_nLoc = GLOBALS.Loc->TEMPGetNumLoc();
	GLOBALS.SFM_pt = GLOBALS.Tony->Position();
	
	if (GLOBALS.bSkipIdle) 
		return;

	CORO_INVOKE_2(GLOBALS.UnloadLocation, false, NULL);
	GLOBALS.Tony->Hide();
	GLOBALS.Unfreeze();

	for (_ctx->i = 0; _ctx->i < _ctx->msg->NumPeriods() && !GLOBALS.bSkipIdle; _ctx->i++) {
		_ctx->text.SetInput(GLOBALS.Input);

		// Allineamento
		_ctx->text.SetAlignType(RMText::HCENTER,RMText::VCENTER);
		
		// Forza il testo a scomparire a tempo		
		_ctx->text.ForceTime();

		// Colore
		_ctx->text.SetColor(255,255,255);

		// Scrive il testo
		if (nFont == 0)
			_ctx->text.WriteText((*_ctx->msg)[_ctx->i], 1);
		else if (nFont == 1)
			_ctx->text.WriteText((*_ctx->msg)[_ctx->i], 0);

		// Setta la posizione
		_ctx->text.SetPosition(RMPoint(320, 240));

		_ctx->text.SetAlwaysDisplay();
		_ctx->text.ForceTime();

		// Registra il testo
		GLOBALS.LinkGraphicTask(&_ctx->clear);
		GLOBALS.LinkGraphicTask(&_ctx->text);

		// Aspetta la fine della visualizzazione	
		_ctx->text.SetCustomSkipHandle(GLOBALS.hSkipIdle);
		CORO_INVOKE_0(_ctx->text.WaitForEndDisplay);
	}

	delete _ctx->msg;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(ClearScreen)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		char buf[256];
		RMGfxClearTask clear;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.LinkGraphicTask(&_ctx->clear);
	
	CORO_INVOKE_0(GLOBALS.WaitFrame);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(SendFullscreenMsgEnd)(CORO_PARAM, uint32 bNotEnableTony, uint32, uint32, uint32) {
	GLOBALS.Freeze();
	GLOBALS.LoadLocation(GLOBALS.SFM_nLoc,RMPoint(GLOBALS.SFM_pt.x,GLOBALS.SFM_pt.y),RMPoint(-1,-1));
	if (!bNotEnableTony)
		GLOBALS.Tony->Show();
	GLOBALS.Unfreeze();

	MCharResetCodes();
	ReapplyChangedHotspot();
}


DECLARE_CUSTOM_FUNCTION(SendFullscreenMessage)(CORO_PARAM, uint32 nMsg, uint32 nFont, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_4(SendFullscreenMsgStart, nMsg, nFont, 0, 0);
	CORO_INVOKE_4(SendFullscreenMsgEnd, 0, 0, 0, 0);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(NoOcchioDiBue)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.bNoOcchioDiBue = true;
}

DECLARE_CUSTOM_FUNCTION(CloseLocation)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (!GLOBALS.bNoOcchioDiBue) {
	  GLOBALS.InitWipe(1);
	  CORO_INVOKE_0(GLOBALS.WaitWipeEnd);
	}

	_vm->StopMusic(4);

	// On Exit e lascia freezzato
	CORO_INVOKE_2(GLOBALS.UnloadLocation, true, NULL);
	GLOBALS.Unfreeze();

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(ChangeLocation)(CORO_PARAM, uint32 nLoc, uint32 tX, uint32 tY, uint32 bUseStartPos) {
	CORO_BEGIN_CONTEXT;
		uint32 h;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (!GLOBALS.bNoOcchioDiBue) {
		GLOBALS.InitWipe(1);
		CORO_INVOKE_0(GLOBALS.WaitWipeEnd);
	}

	if (GLOBALS.lastTappeto != GLOBALS.tappeti[nLoc]) {
		_vm->StopMusic(4);
	}
		
	// On Exit e lascia freezzato
	CORO_INVOKE_2(GLOBALS.UnloadLocation, true, NULL);

	GLOBALS.curChangedHotspot = 0;
	if (bUseStartPos != 0)
		GLOBALS.LoadLocation(nLoc, RMPoint(tX, tY), GLOBALS.StartLocPos[nLoc]);
	else
		GLOBALS.LoadLocation(nLoc, RMPoint(tX, tY), RMPoint(-1, -1));

	if (GLOBALS.lastTappeto != GLOBALS.tappeti[nLoc]) {
		GLOBALS.lastTappeto = GLOBALS.tappeti[nLoc];
		if (GLOBALS.lastTappeto != 0)
			_vm->PlayMusic(4, tappetiFile[GLOBALS.lastTappeto], 0, true, 2000);
	}

	if (!GLOBALS.bNoOcchioDiBue) {
  		GLOBALS.InitWipe(2);
	}
	
	GLOBALS.Unfreeze();


	_ctx->h = mpalQueryDoAction(0, nLoc, 0);

	if (!GLOBALS.bNoOcchioDiBue) {
  		CORO_INVOKE_0(GLOBALS.WaitWipeEnd);
		GLOBALS.CloseWipe();
	}

	GLOBALS.bNoOcchioDiBue = false;

	// On Enter?
	if (_ctx->h != CORO_INVALID_PID_VALUE)
		CORO_INVOKE_2(CoroScheduler.waitForSingleObject, _ctx->h, CORO_INFINITE);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(SetLocStartPosition)(CORO_PARAM, uint32 nLoc, uint32 lX, uint32 lY, uint32) {
	GLOBALS.StartLocPos[nLoc].Set(lX,lY);	
}

DECLARE_CUSTOM_FUNCTION(SaveTonyPosition)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.saveTonyPos = GLOBALS.Tony->Position();
	GLOBALS.saveTonyLoc = GLOBALS.Loc->TEMPGetNumLoc();
}

DECLARE_CUSTOM_FUNCTION(RestoreTonyPosition)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_4(ChangeLocation, GLOBALS.saveTonyLoc, GLOBALS.saveTonyPos.x, GLOBALS.saveTonyPos.y, 0);
	
	MCharResetCodes();

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(DisableInput)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	MainDisableInput();
}


DECLARE_CUSTOM_FUNCTION(EnableInput)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	MainEnableInput();
}

DECLARE_CUSTOM_FUNCTION(StopTony)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.Tony->StopNoAction(coroParam);
}


DECLARE_CUSTOM_FUNCTION(CustEnableGUI)(CORO_PARAM, uint32, uint32, uint32, uint32) {
  GLOBALS.EnableGUI();
}

DECLARE_CUSTOM_FUNCTION(CustDisableGUI)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.DisableGUI();
}



void TonyGenericTake1(CORO_PARAM, uint32 nDirection) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Freeze();
	GLOBALS.Tony->Take(nDirection, 0);
	GLOBALS.Unfreeze();
	
	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);

	CORO_END_CODE;
}

void TonyGenericTake2(CORO_PARAM, uint32 nDirection) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Freeze();
	GLOBALS.Tony->Take(nDirection, 1);
	GLOBALS.Unfreeze();

	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);

	GLOBALS.Freeze();
	GLOBALS.Tony->Take(nDirection,2);
	GLOBALS.Unfreeze();

	CORO_END_CODE;
}

void TonyGenericPut1(CORO_PARAM, uint32 nDirection) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Freeze();
	GLOBALS.Tony->Put(nDirection, 0);
	GLOBALS.Unfreeze();
	
	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);

	CORO_END_CODE;
}

void TonyGenericPut2(CORO_PARAM, uint32 nDirection) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Freeze();
	GLOBALS.Tony->Put(nDirection,1);
	GLOBALS.Unfreeze();

	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);

	GLOBALS.Freeze();
	GLOBALS.Tony->Put(nDirection,2);
	GLOBALS.Unfreeze();

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(TonyTakeUp1)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericTake1(coroParam, 0);
}


DECLARE_CUSTOM_FUNCTION(TonyTakeMid1)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericTake1(coroParam, 1);
}

DECLARE_CUSTOM_FUNCTION(TonyTakeDown1)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericTake1(coroParam, 2);
}



DECLARE_CUSTOM_FUNCTION(TonyTakeUp2)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericTake2(coroParam, 0);
}


DECLARE_CUSTOM_FUNCTION(TonyTakeMid2)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericTake2(coroParam, 1);
}

DECLARE_CUSTOM_FUNCTION(TonyTakeDown2)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericTake2(coroParam, 2);
}



DECLARE_CUSTOM_FUNCTION(TonyPutUp1)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericPut1(coroParam, 0);
}


DECLARE_CUSTOM_FUNCTION(TonyPutMid1)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericPut1(coroParam, 1);
}

DECLARE_CUSTOM_FUNCTION(TonyPutDown1)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericPut1(coroParam, 2);
}

DECLARE_CUSTOM_FUNCTION(TonyPutUp2)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericPut2(coroParam, 0);
}


DECLARE_CUSTOM_FUNCTION(TonyPutMid2)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericPut2(coroParam, 1);
}

DECLARE_CUSTOM_FUNCTION(TonyPutDown2)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	TonyGenericPut2(coroParam, 2);
}


DECLARE_CUSTOM_FUNCTION(TonyPerTerra)(CORO_PARAM, uint32 dwParte, uint32, uint32, uint32) {
	if (dwParte == 0)
		GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_PERTERRALEFT);
	else
		GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_PERTERRARIGHT);
}

DECLARE_CUSTOM_FUNCTION(TonySiRialza)(CORO_PARAM, uint32 dwParte, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	if (dwParte == 0)
		GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_SIRIALZALEFT);
	else
		GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_SIRIALZARIGHT);
	
	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyPastorella)(CORO_PARAM, uint32 bIsPast, uint32, uint32, uint32) {
  GLOBALS.Tony->SetPastorella(bIsPast);
}

DECLARE_CUSTOM_FUNCTION(TonyFischietto)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_FISCHIETTORIGHT);
	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);

	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_STANDRIGHT);

	CORO_END_CODE;
}


void TonySetNumTexts(uint32 dwText) {
	GLOBALS.dwTonyNumTexts = dwText;
	GLOBALS.bTonyInTexts = false;
}

DECLARE_CUSTOM_FUNCTION(TonyRide)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_RIDE;
}

DECLARE_CUSTOM_FUNCTION(TonyRidacchia)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_RIDE2;
}

DECLARE_CUSTOM_FUNCTION(TonyFianchi)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_FIANCHI;
}

DECLARE_CUSTOM_FUNCTION(TonyCanta)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CANTA;
}

DECLARE_CUSTOM_FUNCTION(TonySiIndica)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_SIINDICA;
}

DECLARE_CUSTOM_FUNCTION(TonySpaventatoConMani)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_SPAVENTATO;
}

DECLARE_CUSTOM_FUNCTION(TonySpaventatoSenzaMani)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_SPAVENTATO2;
}

DECLARE_CUSTOM_FUNCTION(TonyConMartello)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONMARTELLO;
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_CONMARTELLO);
}

DECLARE_CUSTOM_FUNCTION(TonyConBicchiere)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONBICCHIERE;
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_CONBICCHIERE);
}

DECLARE_CUSTOM_FUNCTION(TonyConVerme)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONVERME;
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_CONVERME);
}

DECLARE_CUSTOM_FUNCTION(TonyConCorda)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONCORDA;
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_CONCORDA);
}

DECLARE_CUSTOM_FUNCTION(TonyConSegretaria)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONSEGRETARIA;
	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_CONSEGRETARIA);
}

DECLARE_CUSTOM_FUNCTION(TonyConConiglioANIM)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONCONIGLIO;
}

DECLARE_CUSTOM_FUNCTION(TonyConRicettaANIM)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONRICETTA;
}

DECLARE_CUSTOM_FUNCTION(TonyConCarteANIM)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONCARTE;
}

DECLARE_CUSTOM_FUNCTION(TonyConPupazzoANIM)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONPUPAZZO;
}

DECLARE_CUSTOM_FUNCTION(TonyConPupazzoStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONPUPAZZOSTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_CONPUPAZZOSTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConPupazzoEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_CONPUPAZZOSTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConConiglioStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONCONIGLIOSTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_CONCONIGLIOSTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConConiglioEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_CONCONIGLIOSTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConRicettaStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONRICETTASTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_CONRICETTASTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConRicettaEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_CONRICETTASTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConCarteStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONCARTESTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_CONCARTESTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConCarteEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_CONCARTESTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConTaccuinoStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONTACCUINOSTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_CONTACCUINOSTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConTaccuinoEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_CONTACCUINOSTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConMegafonoStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONMEGAFONOSTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_CONMEGAFONOSTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConMegafonoEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_CONMEGAFONOSTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConBarbaStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_CONBARBASTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_CONBARBASTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyConBarbaEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_CONBARBASTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonySpaventatoStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_SPAVENTATOSTATIC;
	GLOBALS.bStaticTalk = true;
	CORO_INVOKE_1(GLOBALS.Tony->StartStatic, GLOBALS.Tony->TALK_SPAVENTATOSTATIC);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonySpaventatoEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->EndStatic, GLOBALS.Tony->TALK_SPAVENTATOSTATIC);
	GLOBALS.bStaticTalk = false;
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(TonySchifato)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
	TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_SCHIFATO;
}

DECLARE_CUSTOM_FUNCTION(TonySniffaLeft)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_SNIFFA_LEFT);
	CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);
	CORO_INVOKE_4(LeftToMe, 0, 0, 0, 0);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonySniffaRight)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Tony->SetPattern(GLOBALS.Tony->PAT_SNIFFA_RIGHT);
	CORO_INVOKE_0(GLOBALS.Tony->WaitForEndPattern);
	CORO_INVOKE_4(RightToMe, 0, 0, 0, 0);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(TonyNaah)(CORO_PARAM, uint32 dwText, uint32, uint32, uint32) {
  TonySetNumTexts(dwText);
	GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NAAH;
}

DECLARE_CUSTOM_FUNCTION(TonyMacbeth)(CORO_PARAM, uint32 nPos, uint32, uint32, uint32) {
	switch (nPos) {
	case 1:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH1;
		break;
	case 2:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH2;
		break;
	case 3:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH3;
		break;
	case 4:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH4;
		break;
	case 5:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH5;
		break;
	case 6:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH6;
		break;
	case 7:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH7;
		break;
	case 8:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH8;
		break;
	case 9:
		GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_MACBETH9;
		break;
	}
}


DECLARE_CUSTOM_FUNCTION(EnableTony)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.Tony->Show();
}

DECLARE_CUSTOM_FUNCTION(DisableTony)(CORO_PARAM, uint32 bShowOmbra, uint32, uint32, uint32) {
	GLOBALS.Tony->Hide(bShowOmbra);
}

DECLARE_CUSTOM_FUNCTION(WaitForPatternEnd)(CORO_PARAM, uint32 nItem, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		RMItem *item;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->item = GLOBALS.Loc->GetItemFromCode(nItem);
	
	if (!GLOBALS.bSkipIdle && _ctx->item != NULL)
		CORO_INVOKE_1(_ctx->item->WaitForEndPattern, GLOBALS.hSkipIdle);	

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(SetTonyPosition)(CORO_PARAM, uint32 nX, uint32 nY, uint32 nLoc, uint32) {
	GLOBALS.Tony->SetPosition(RMPoint(nX, nY), nLoc);
}

DECLARE_CUSTOM_FUNCTION(MoveTonyAndWait)(CORO_PARAM, uint32 nX, uint32 nY, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_1(GLOBALS.Tony->Move, RMPoint(nX, nY));
	
	if (!GLOBALS.bSkipIdle)
		CORO_INVOKE_0(GLOBALS.Tony->WaitForEndMovement);

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(MoveTony)(CORO_PARAM, uint32 nX, uint32 nY, uint32, uint32) {
	GLOBALS.Tony->Move(coroParam, RMPoint(nX, nY));
}

DECLARE_CUSTOM_FUNCTION(ScrollLocation)(CORO_PARAM, uint32 nX, uint32 nY, uint32 sX, uint32 sY) {
	CORO_BEGIN_CONTEXT;
		int lx, ly;
		RMPoint pt;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	// Prende le coordinate di quanto scrollare
	_ctx->lx = (int32)nX;
	_ctx->ly = (int32)nY;

	_ctx->pt = GLOBALS.Loc->ScrollPosition();
	
	while ((_ctx->lx != 0 || _ctx->ly != 0) && !GLOBALS.bSkipIdle) {
		if (_ctx->lx > 0) {
			_ctx->lx -= (int32)sX; if (_ctx->lx < 0) _ctx->lx = 0;
			_ctx->pt.Offset((int32)sX, 0);
		} else if (_ctx->lx < 0) {
			_ctx->lx += (int32)sX; if (_ctx->lx > 0) _ctx->lx = 0;
			_ctx->pt.Offset(-(int32)sX, 0);
		}

		if (_ctx->ly > 0) {
			_ctx->ly -= sY; if (_ctx->ly < 0) _ctx->ly = 0;
			_ctx->pt.Offset(0, sY);
		} else if (_ctx->ly < 0) {
			_ctx->ly += sY; if (_ctx->ly > 0) _ctx->ly = 0;
			_ctx->pt.Offset(0, -(int32)sY);
		}

		CORO_INVOKE_0(GLOBALS.WaitFrame);

		GLOBALS.Freeze();
		GLOBALS.Loc->SetScrollPosition(_ctx->pt);
		GLOBALS.Tony->SetScrollPosition(_ctx->pt);
		GLOBALS.Unfreeze();
	}

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(SyncScrollLocation)(CORO_PARAM, uint32 nX, uint32 nY, uint32 sX, uint32 sY) {
	CORO_BEGIN_CONTEXT;
		int lx, ly;
		RMPoint pt, startpt;
		uint32 dwStartTime, dwCurTime, dwTotalTime;
		uint32 stepX, stepY;
		int dimx, dimy;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	// Prende le coordinate di quanto scrollare
	_ctx->lx=*((int*)&nX);
	_ctx->ly=*((int*)&nY);
	_ctx->dimx = _ctx->lx;
	_ctx->dimy = _ctx->ly;
	if (_ctx->lx < 0) _ctx->dimx = -_ctx->lx;
	if (_ctx->ly < 0) _ctx->dimy = -_ctx->ly;

	_ctx->stepX = sX;
	_ctx->stepY = sY;

	_ctx->startpt = GLOBALS.Loc->ScrollPosition();
	
	_ctx->dwStartTime = _vm->GetTime();
	
	if (sX)
		_ctx->dwTotalTime = _ctx->dimx * (1000 / 35) / sX;
	else
		_ctx->dwTotalTime = _ctx->dimy * (1000 / 35) / sY;

	while ((_ctx->lx != 0 || _ctx->ly != 0) && !GLOBALS.bSkipIdle) {
		_ctx->dwCurTime = _vm->GetTime() - _ctx->dwStartTime;
		if (_ctx->dwCurTime > _ctx->dwTotalTime)
			break;

		_ctx->pt = _ctx->startpt;
		
		if (sX) {
			if (_ctx->lx > 0)
				_ctx->pt.x += (_ctx->dimx * _ctx->dwCurTime) / _ctx->dwTotalTime;
			else
				_ctx->pt.x -= (_ctx->dimx * _ctx->dwCurTime) / _ctx->dwTotalTime;
		} else {
			if (_ctx->ly > 0)
				_ctx->pt.y += (_ctx->dimy*_ctx->dwCurTime) / _ctx->dwTotalTime;
			else
				_ctx->pt.y -= (_ctx->dimy*_ctx->dwCurTime) / _ctx->dwTotalTime;

		}

/*		
		sX = _ctx->stepX * (_ctx->dwCurTime-dwLastTime) / (1000 / 35);
		sY = _ctx->stepY * (_ctx->dwCurTime-dwLastTime) / (1000 / 35);

		if (_ctx->lx > 0) {
			_ctx->lx-=sX; if (_ctx->lx < 0) _ctx->lx = 0;
			_ctx->pt.Offset(sX,0);
		} else if (_ctx->lx < 0) {
			_ctx->lx+=sX; if (_ctx->lx > 0) _ctx->lx = 0;
			_ctx->pt.Offset(-sX,0);
		}

		if (_ctx->ly > 0) {
			_ctx->ly-=sY; if (_ctx->ly<0) _ctx->ly = 0;
			_ctx->pt.Offset(0,sY);
		} else if (_ctx->ly<0) {
			_ctx->ly+=sY; if (_ctx->ly > 0) _ctx->ly = 0;
			_ctx->pt.Offset(0,-sY);
		}
*/
		CORO_INVOKE_0(GLOBALS.WaitFrame);

		GLOBALS.Freeze();
		GLOBALS.Loc->SetScrollPosition(_ctx->pt);
		GLOBALS.Tony->SetScrollPosition(_ctx->pt);
		GLOBALS.Unfreeze();

	}


	// Setta la posizione finale
	if (sX) {
		if (_ctx->lx > 0)
			_ctx->pt.x = _ctx->startpt.x + _ctx->dimx;
		else
			_ctx->pt.x = _ctx->startpt.x - _ctx->dimx;
	} else {
		if (_ctx->ly > 0)
			_ctx->pt.y = _ctx->startpt.y + _ctx->dimy;
		else
			_ctx->pt.y = _ctx->startpt.y - _ctx->dimy;
	}

	GLOBALS.Freeze();
	GLOBALS.Loc->SetScrollPosition(_ctx->pt);
	GLOBALS.Tony->SetScrollPosition(_ctx->pt);
	GLOBALS.Unfreeze();

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(ChangeHotspot)(CORO_PARAM, uint32 dwCode, uint32 nX, uint32 nY, uint32) {
	int i;

	for (i = 0; i < GLOBALS.curChangedHotspot; i++)
		if (GLOBALS.ChangedHotspot[i].dwCode == dwCode) {
			GLOBALS.ChangedHotspot[i].nX=nX;
			GLOBALS.ChangedHotspot[i].nY=nY;
			break;
		}

	if (i == GLOBALS.curChangedHotspot) {
		GLOBALS.ChangedHotspot[i].dwCode=dwCode;
		GLOBALS.ChangedHotspot[i].nX=nX;
		GLOBALS.ChangedHotspot[i].nY=nY;
		GLOBALS.curChangedHotspot++;
	}

	GLOBALS.Loc->GetItemFromCode(dwCode)->ChangeHotspot(RMPoint(nX, nY));
}


DECLARE_CUSTOM_FUNCTION(AutoSave)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	_vm->AutoSave(coroParam);
}

DECLARE_CUSTOM_FUNCTION(Abort)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	_vm->Abort();
}

DECLARE_CUSTOM_FUNCTION(TremaSchermo)(CORO_PARAM, uint32 nScosse, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		uint32 i;
		uint32 curTime;
		int dirx,diry;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->curTime = _vm->GetTime();
	
	_ctx->dirx = 1;
	_ctx->diry = 1;

	while (_vm->GetTime() < _ctx->curTime + nScosse) {
		CORO_INVOKE_0(GLOBALS.WaitFrame);

		GLOBALS.Freeze();
		GLOBALS.Loc->SetFixedScroll(RMPoint(1 * _ctx->dirx, 1 * _ctx->diry));
		GLOBALS.Tony->SetFixedScroll(RMPoint(1 * _ctx->dirx, 1 * _ctx->diry));
		GLOBALS.Unfreeze();

		_ctx->i = _vm->_randomSource.getRandomNumber(2);

		if (_ctx->i == 0 || _ctx->i == 2)
			_ctx->dirx = -_ctx->dirx;
		else if (_ctx->i == 1 || _ctx->i == 2)
			_ctx->diry = -_ctx->diry;
	}

	GLOBALS.Freeze();
	GLOBALS.Loc->SetFixedScroll(RMPoint(0, 0));
	GLOBALS.Tony->SetFixedScroll(RMPoint(0, 0));
	GLOBALS.Unfreeze();
	
	CORO_END_CODE;
}



/*
 *	Personaggi
 */

DECLARE_CUSTOM_FUNCTION(CharSetCode)(CORO_PARAM, uint32 nChar, uint32 nCode, uint32, uint32) {
	assert(nChar < 16);
	GLOBALS.Character[nChar].code = nCode;
	GLOBALS.Character[nChar].item = GLOBALS.Loc->GetItemFromCode(nCode);
	GLOBALS.Character[nChar].r = 255;
	GLOBALS.Character[nChar].g = 255;
 	GLOBALS.Character[nChar].b = 255;
	GLOBALS.Character[nChar].talkpattern = 0;
	GLOBALS.Character[nChar].starttalkpattern = 0;
	GLOBALS.Character[nChar].endtalkpattern = 0;
	GLOBALS.Character[nChar].standpattern = 0;

	GLOBALS.IsMChar[nChar] = false;
}

DECLARE_CUSTOM_FUNCTION(CharSetColor)(CORO_PARAM, uint32 nChar, uint32 r, uint32 g, uint32 b) {
	assert(nChar<16);
	GLOBALS.Character[nChar].r = r;
	GLOBALS.Character[nChar].g = g;
	GLOBALS.Character[nChar].b = b;
}

DECLARE_CUSTOM_FUNCTION(CharSetTalkPattern)(CORO_PARAM, uint32 nChar, uint32 tp, uint32 sp, uint32) {
	assert(nChar<16);
	GLOBALS.Character[nChar].talkpattern = tp;
	GLOBALS.Character[nChar].standpattern = sp;
}

DECLARE_CUSTOM_FUNCTION(CharSetStartEndTalkPattern)(CORO_PARAM, uint32 nChar, uint32 sp, uint32 ep, uint32) {
	assert(nChar<16);
	GLOBALS.Character[nChar].starttalkpattern=sp;
	GLOBALS.Character[nChar].endtalkpattern=ep;
}

DECLARE_CUSTOM_FUNCTION(CharSendMessage)(CORO_PARAM, uint32 nChar, uint32 dwMessage, uint32 bIsBack, uint32) {
	CORO_BEGIN_CONTEXT;
		RMMessage *msg;
		int i;
		RMPoint pt;
		RMTextDialog *text;
		int curOffset;
		VoiceHeader *curVoc;
		FPSFX *voice;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->msg = new RMMessage(dwMessage);
	_ctx->curOffset = 0;

	assert(nChar < 16);
	_ctx->pt = GLOBALS.Character[nChar].item->CalculatePos() - RMPoint(-60, 20) - GLOBALS.Loc->ScrollPosition();
	
	if (GLOBALS.Character[nChar].starttalkpattern != 0) {
		GLOBALS.Freeze();
		GLOBALS.Character[nChar].item->SetPattern(GLOBALS.Character[nChar].starttalkpattern);
		GLOBALS.Unfreeze();
		
		CORO_INVOKE_0(GLOBALS.Character[nChar].item->WaitForEndPattern);
	}

 	GLOBALS.Freeze();
	GLOBALS.Character[nChar].item->SetPattern(GLOBALS.Character[nChar].talkpattern);
	GLOBALS.Unfreeze();

	_ctx->curVoc = SearchVoiceHeader(0, dwMessage);
	_ctx->voice = NULL;
	if (_ctx->curVoc) {
		// Si posiziona all'interno del database delle voci all'inizio della prima
//		fseek(_vm->m_vdbFP, _ctx->curVoc->offset, SEEK_SET);
		g_system->lockMutex(GLOBALS.vdb);
		_vm->_vdbFP.seek(_ctx->curVoc->offset);
		_ctx->curOffset = _ctx->curVoc->offset;
		g_system->unlockMutex(GLOBALS.vdb);
	}

	for (_ctx->i = 0; _ctx->i<_ctx->msg->NumPeriods() && !GLOBALS.bSkipIdle; _ctx->i++) {
		if (bIsBack) {
			GLOBALS.curBackText = _ctx->text = new RMTextDialogScrolling(GLOBALS.Loc);
			if (GLOBALS.bTonyIsSpeaking)
				CORO_INVOKE_0(GLOBALS.curBackText->Hide);
		} else
			_ctx->text = new RMTextDialog;

		_ctx->text->SetInput(GLOBALS.Input);

		// Skipping
		_ctx->text->SetSkipStatus(!bIsBack);
	
		// Allineamento
		_ctx->text->SetAlignType(RMText::HCENTER,RMText::VBOTTOM);
		
		// Colore
		_ctx->text->SetColor(GLOBALS.Character[nChar].r,GLOBALS.Character[nChar].g,GLOBALS.Character[nChar].b);

		// Scrive il testo
		_ctx->text->WriteText((*_ctx->msg)[_ctx->i],0);

		// Setta la posizione
		_ctx->text->SetPosition(_ctx->pt);

		// Setta l'always display
		if (GLOBALS.bAlwaysDisplay) { _ctx->text->SetAlwaysDisplay(); _ctx->text->ForceTime(); }

		// Registra il testo
		GLOBALS.LinkGraphicTask(_ctx->text);

		if (_ctx->curVoc) {
			g_system->lockMutex(GLOBALS.vdb);
			_vm->_theSound.CreateSfx(&_ctx->voice);
			_vm->_vdbFP.seek(_ctx->curOffset);
			_ctx->voice->LoadVoiceFromVDB(_vm->_vdbFP);
			_ctx->voice->SetLoop(false);
			if (bIsBack) _ctx->voice->SetVolume(55);
			_ctx->voice->Play();
			_ctx->text->SetCustomSkipHandle2(_ctx->voice->hEndOfBuffer);
			_ctx->curOffset = _vm->_vdbFP.pos();
			g_system->unlockMutex(GLOBALS.vdb);
		}

		// Aspetta la fine della visualizzazione	
		_ctx->text->SetCustomSkipHandle(GLOBALS.hSkipIdle);
		CORO_INVOKE_0(_ctx->text->WaitForEndDisplay);

		if (_ctx->curVoc) {
			_ctx->voice->Stop();
			_ctx->voice->Release();
			_ctx->voice=NULL;
		}


		GLOBALS.curBackText = NULL;
		delete _ctx->text;
	}

	if (GLOBALS.Character[nChar].endtalkpattern != 0) {
		GLOBALS.Freeze();
		GLOBALS.Character[nChar].item->SetPattern(GLOBALS.Character[nChar].endtalkpattern);
		GLOBALS.Unfreeze();
		CORO_INVOKE_0(GLOBALS.Character[nChar].item->WaitForEndPattern);
	}	

	GLOBALS.Freeze();
	GLOBALS.Character[nChar].item->SetPattern(GLOBALS.Character[nChar].standpattern);
	GLOBALS.Unfreeze();
	delete _ctx->msg;

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(AddInventory)(CORO_PARAM, uint32 dwCode, uint32, uint32, uint32) {
	GLOBALS.Inventory->AddItem(dwCode);	
}

DECLARE_CUSTOM_FUNCTION(RemoveInventory)(CORO_PARAM, uint32 dwCode, uint32, uint32, uint32) {
	GLOBALS.Inventory->RemoveItem(dwCode);
}

DECLARE_CUSTOM_FUNCTION(ChangeInventoryStatus)(CORO_PARAM, uint32 dwCode, uint32 dwStatus, uint32, uint32) {
  GLOBALS.Inventory->ChangeItemStatus(dwCode,dwStatus);
}


/*
 *	Mastri Personaggi
 */

DECLARE_CUSTOM_FUNCTION(MCharSetCode)(CORO_PARAM, uint32 nChar, uint32 nCode, uint32, uint32) {
	assert(nChar < 10);
	GLOBALS.MCharacter[nChar].code=nCode;
	if (nCode== 0)
		GLOBALS.MCharacter[nChar].item=NULL;
	else
		GLOBALS.MCharacter[nChar].item=GLOBALS.Loc->GetItemFromCode(nCode);
	GLOBALS.MCharacter[nChar].r=255;
	GLOBALS.MCharacter[nChar].g=255;
	GLOBALS.MCharacter[nChar].b=255;
	GLOBALS.MCharacter[nChar].x=-1;
	GLOBALS.MCharacter[nChar].y=-1;
	GLOBALS.MCharacter[nChar].bAlwaysBack = 0;

	for (int i = 0; i < 10; i++)
		GLOBALS.MCharacter[nChar].numtalks[i] = 1;

	GLOBALS.MCharacter[nChar].curgroup = 0;
	
	GLOBALS.IsMChar[nChar] = true;
}

DECLARE_CUSTOM_FUNCTION(MCharResetCode)(CORO_PARAM, uint32 nChar, uint32, uint32, uint32) {
	GLOBALS.MCharacter[nChar].item=GLOBALS.Loc->GetItemFromCode(GLOBALS.MCharacter[nChar].code);
}


DECLARE_CUSTOM_FUNCTION(MCharSetPosition)(CORO_PARAM, uint32 nChar, uint32 nX, uint32 nY, uint32) {
	assert(nChar < 10);
	GLOBALS.MCharacter[nChar].x=nX;
	GLOBALS.MCharacter[nChar].y=nY;
}


DECLARE_CUSTOM_FUNCTION(MCharSetColor)(CORO_PARAM, uint32 nChar, uint32 r, uint32 g, uint32 b) {
	assert(nChar < 10);
	GLOBALS.MCharacter[nChar].r=r;
	GLOBALS.MCharacter[nChar].g=g;
	GLOBALS.MCharacter[nChar].b=b;
}


DECLARE_CUSTOM_FUNCTION(MCharSetNumTalksInGroup)(CORO_PARAM, uint32 nChar, uint32 nGroup, uint32 nTalks, uint32) {
  assert(nChar < 10);
	assert(nGroup < 10);

	GLOBALS.MCharacter[nChar].numtalks[nGroup]=nTalks;
}


DECLARE_CUSTOM_FUNCTION(MCharSetCurrentGroup)(CORO_PARAM, uint32 nChar, uint32 nGroup, uint32, uint32)
{
  assert(nChar < 10);
	assert(nGroup < 10);

	GLOBALS.MCharacter[nChar].curgroup = nGroup;
}

DECLARE_CUSTOM_FUNCTION(MCharSetNumTexts)(CORO_PARAM, uint32 nChar, uint32 nTexts, uint32, uint32) {
	assert(nChar < 10);

	GLOBALS.MCharacter[nChar].numtexts=nTexts-1;
	GLOBALS.MCharacter[nChar].bInTexts = false;
}

DECLARE_CUSTOM_FUNCTION(MCharSetAlwaysBack)(CORO_PARAM, uint32 nChar, uint32 bAlwaysBack, uint32, uint32) {
	assert(nChar < 10);

	GLOBALS.MCharacter[nChar].bAlwaysBack=bAlwaysBack;
}


DECLARE_CUSTOM_FUNCTION(MCharSendMessage)(CORO_PARAM, uint32 nChar, uint32 dwMessage, uint32 bIsBack, uint32 nFont) {
	CORO_BEGIN_CONTEXT;
		RMMessage *msg;
		int i;
		int parm;
		RMPoint pt;
		uint32 h;
		RMTextDialog *text;
		int curOffset;
		VoiceHeader *curVoc;
		FPSFX *voice;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->msg = new RMMessage(dwMessage);
	_ctx->curOffset = 0;

	assert(nChar < 10);

	bIsBack |= GLOBALS.MCharacter[nChar].bAlwaysBack ? 1 : 0;

	// Calcola la posizione del testo in base al frame corrente
	if (GLOBALS.MCharacter[nChar].x==-1)
		_ctx->pt=GLOBALS.MCharacter[nChar].item->CalculatePos()-RMPoint(-60,20)-GLOBALS.Loc->ScrollPosition();
	else
		_ctx->pt=RMPoint(GLOBALS.MCharacter[nChar].x,GLOBALS.MCharacter[nChar].y);
	
	// Parametro per le azioni speciali: random tra le parlate
	_ctx->parm = (GLOBALS.MCharacter[nChar].curgroup * 10) + _vm->_randomSource.getRandomNumber(
			GLOBALS.MCharacter[nChar].numtalks[GLOBALS.MCharacter[nChar].curgroup] - 1) + 1;

	// Cerca di eseguire la funzione custom per inizializzare la parlata
	if (GLOBALS.MCharacter[nChar].item) {
		_ctx->h = mpalQueryDoAction(30, GLOBALS.MCharacter[nChar].item->MpalCode(), _ctx->parm);
		if (_ctx->h != CORO_INVALID_PID_VALUE) {
			CORO_INVOKE_2(CoroScheduler.waitForSingleObject, _ctx->h, CORO_INFINITE);
		}
	}

	_ctx->curVoc = SearchVoiceHeader(0, dwMessage);
	_ctx->voice = NULL;
	if (_ctx->curVoc) {
		// Si posiziona all'interno del database delle voci all'inizio della prima
		g_system->lockMutex(GLOBALS.vdb);
	//		fseek(_vm->m_vdbFP, curVoc->offset, SEEK_SET);
		_vm->_vdbFP.seek(_ctx->curVoc->offset);
		_ctx->curOffset = _ctx->curVoc->offset;
		g_system->unlockMutex(GLOBALS.vdb);
	}

	for (_ctx->i = 0; _ctx->i < _ctx->msg->NumPeriods() && !GLOBALS.bSkipIdle; _ctx->i++) {
		// Crea l'oggetto diverso se <20> back o no
		if (bIsBack) {
			GLOBALS.curBackText = _ctx->text = new RMTextDialogScrolling(GLOBALS.Loc);
			if (GLOBALS.bTonyIsSpeaking)
				CORO_INVOKE_0(GLOBALS.curBackText->Hide);
		}
		else
			_ctx->text = new RMTextDialog;

		_ctx->text->SetInput(GLOBALS.Input);

		// Skipping
		_ctx->text->SetSkipStatus(!bIsBack);
	
		// Allineamento
		_ctx->text->SetAlignType(RMText::HCENTER,RMText::VBOTTOM);
		
		// Colore
		_ctx->text->SetColor(GLOBALS.MCharacter[nChar].r,GLOBALS.MCharacter[nChar].g,GLOBALS.MCharacter[nChar].b);

		// Scrive il testo
		_ctx->text->WriteText((*_ctx->msg)[_ctx->i], nFont);

		// Setta la posizione
		_ctx->text->SetPosition(_ctx->pt);

		// Setta l'always display
		if (GLOBALS.bAlwaysDisplay) { _ctx->text->SetAlwaysDisplay(); _ctx->text->ForceTime(); }

		// Registra il testo
		GLOBALS.LinkGraphicTask(_ctx->text);

		if (_ctx->curVoc) {
			g_system->lockMutex(GLOBALS.vdb);
			_vm->_theSound.CreateSfx(&_ctx->voice);
			_vm->_vdbFP.seek(_ctx->curOffset);
			_ctx->voice->LoadVoiceFromVDB(_vm->_vdbFP);
			_ctx->voice->SetLoop(false);
			if (bIsBack) _ctx->voice->SetVolume(55);
			_ctx->voice->Play();
			_ctx->text->SetCustomSkipHandle2(_ctx->voice->hEndOfBuffer);
			_ctx->curOffset = _vm->_vdbFP.pos();
			g_system->unlockMutex(GLOBALS.vdb);
		}

		// Aspetta la fine della visualizzazione	
		_ctx->text->SetCustomSkipHandle(GLOBALS.hSkipIdle);
		CORO_INVOKE_0(_ctx->text->WaitForEndDisplay);

		if (_ctx->curVoc) {
			_ctx->voice->Stop();
			_ctx->voice->Release();
			_ctx->voice = NULL;
		}

	 	GLOBALS.curBackText = NULL;
		delete _ctx->text;
		delete _ctx->msg;
	}


	// Cerca di eseguire la funzione custom per chiudere la parlata
	if (GLOBALS.MCharacter[nChar].item) {
		_ctx->h = mpalQueryDoAction(31, GLOBALS.MCharacter[nChar].item->MpalCode(), _ctx->parm);
		if (_ctx->h != CORO_INVALID_PID_VALUE)
			CORO_INVOKE_2(CoroScheduler.waitForSingleObject, _ctx->h, CORO_INFINITE);
	}

	CORO_END_CODE;
}






/*
 *	Dialoghi
 */

int curDialog;

DECLARE_CUSTOM_FUNCTION(SendDialogMessage)(CORO_PARAM, uint32 nPers, uint32 nMsg, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		LPSTR string;
		RMTextDialog *text;
		int parm;
		uint32 h;
		bool bIsBack;
		VoiceHeader *curVoc;
		FPSFX *voice;
		RMPoint pt;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->bIsBack = false;

	// La SendDialogMessage pu<70> andare in background se <20> un personaggio in MCHAR settato
	// con la SetAlwaysBack
	if (nPers != 0 && GLOBALS.IsMChar[nPers] && GLOBALS.MCharacter[nPers].bAlwaysBack)	
		_ctx->bIsBack = true;

	_ctx->curVoc = SearchVoiceHeader(curDialog, nMsg);
	_ctx->voice = NULL;

	if (_ctx->curVoc) {
		// Si posiziona all'interno del database delle voci all'inizio della prima
		g_system->lockMutex(GLOBALS.vdb);
//		fseek(_vm->m_vdbFP, _ctx->curVoc->offset, SEEK_SET);
		_vm->_vdbFP.seek(_ctx->curVoc->offset);
		_vm->_theSound.CreateSfx(&_ctx->voice);
		_ctx->voice->LoadVoiceFromVDB(_vm->_vdbFP);
		_ctx->voice->SetLoop(false);
		if (_ctx->bIsBack) _ctx->voice->SetVolume(55);
		g_system->unlockMutex(GLOBALS.vdb);
	}

	_ctx->string = mpalQueryDialogPeriod(nMsg);

	if (nPers == 0) {
		_ctx->text = new RMTextDialog;
		_ctx->text->SetColor(0,255,0);			
		_ctx->text->SetPosition(GLOBALS.Tony->Position()-RMPoint(0,130)-GLOBALS.Loc->ScrollPosition());
		_ctx->text->WriteText(_ctx->string,0);

		if (GLOBALS.dwTonyNumTexts > 0) {
		  if (!GLOBALS.bTonyInTexts) {
				if (GLOBALS.nTonyNextTalkType != GLOBALS.Tony->TALK_NORMAL) {
					CORO_INVOKE_1(GLOBALS.Tony->StartTalk, GLOBALS.nTonyNextTalkType);
					if (!GLOBALS.bStaticTalk)
						GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;
				} else
					CORO_INVOKE_1(GLOBALS.Tony->StartTalk, GLOBALS.Tony->TALK_NORMAL);

				GLOBALS.bTonyInTexts = true;
			}
			GLOBALS.dwTonyNumTexts--;
		} else {
			CORO_INVOKE_1(GLOBALS.Tony->StartTalk, GLOBALS.nTonyNextTalkType);
			if (!GLOBALS.bStaticTalk)
				GLOBALS.nTonyNextTalkType = GLOBALS.Tony->TALK_NORMAL;
		}
	} else if (!GLOBALS.IsMChar[nPers]) {
		_ctx->text = new RMTextDialog;

		_ctx->pt = GLOBALS.Character[nPers].item->CalculatePos() - RMPoint(-60, 20) - GLOBALS.Loc->ScrollPosition();

		if (GLOBALS.Character[nPers].starttalkpattern != 0) {
		  	GLOBALS.Freeze();
  			GLOBALS.Character[nPers].item->SetPattern(GLOBALS.Character[nPers].starttalkpattern);
	  		GLOBALS.Unfreeze();
			CORO_INVOKE_0(GLOBALS.Character[nPers].item->WaitForEndPattern);
		}	

		GLOBALS.Character[nPers].item->SetPattern(GLOBALS.Character[nPers].talkpattern);

		_ctx->text->SetColor(GLOBALS.Character[nPers].r, GLOBALS.Character[nPers].g,GLOBALS.Character[nPers].b);
		_ctx->text->WriteText(_ctx->string, 0);
		_ctx->text->SetPosition(_ctx->pt);
	} else {
		if (GLOBALS.MCharacter[nPers].x == -1)
			_ctx->pt = GLOBALS.MCharacter[nPers].item->CalculatePos() - RMPoint(-60, 20) - GLOBALS.Loc->ScrollPosition();
		else
			_ctx->pt = RMPoint(GLOBALS.MCharacter[nPers].x, GLOBALS.MCharacter[nPers].y);

		// Parametro per le azioni speciali: random tra le parlate
		_ctx->parm = (GLOBALS.MCharacter[nPers].curgroup * 10) + _vm->_randomSource.getRandomNumber(
			GLOBALS.MCharacter[nPers].numtalks[GLOBALS.MCharacter[nPers].curgroup] - 1) + 1;

		if (GLOBALS.MCharacter[nPers].numtexts != 0 && GLOBALS.MCharacter[nPers].bInTexts) {
			GLOBALS.MCharacter[nPers].numtexts--;
		} else {
			// Cerca di eseguire la funzione custom per inizializzare la parlata
			_ctx->h = mpalQueryDoAction(30, GLOBALS.MCharacter[nPers].item->MpalCode(), _ctx->parm);
			if (_ctx->h != CORO_INVALID_PID_VALUE)
				CORO_INVOKE_2(CoroScheduler.waitForSingleObject, _ctx->h, CORO_INFINITE);

			GLOBALS.MCharacter[nPers].curTalk = _ctx->parm;
				
			if (GLOBALS.MCharacter[nPers].numtexts != 0) {
				GLOBALS.MCharacter[nPers].bInTexts = true;
				GLOBALS.MCharacter[nPers].numtexts--;
			}
		}

		if (GLOBALS.MCharacter[nPers].bAlwaysBack) {
			_ctx->text = GLOBALS.curBackText = new RMTextDialogScrolling(GLOBALS.Loc);
			if (GLOBALS.bTonyIsSpeaking)
				CORO_INVOKE_0(GLOBALS.curBackText->Hide);

			_ctx->bIsBack = true;
		} else
			_ctx->text = new RMTextDialog;

		_ctx->text->SetSkipStatus(!GLOBALS.MCharacter[nPers].bAlwaysBack);
		_ctx->text->SetColor(GLOBALS.MCharacter[nPers].r,GLOBALS.MCharacter[nPers].g,GLOBALS.MCharacter[nPers].b);
		_ctx->text->WriteText(_ctx->string,0);
		_ctx->text->SetPosition(_ctx->pt);
	}

	if (!GLOBALS.bSkipIdle) {
		_ctx->text->SetInput(GLOBALS.Input);
		if (GLOBALS.bAlwaysDisplay) { _ctx->text->SetAlwaysDisplay(); _ctx->text->ForceTime(); }
		_ctx->text->SetAlignType(RMText::HCENTER,RMText::VBOTTOM);
		GLOBALS.LinkGraphicTask(_ctx->text);

		if (_ctx->curVoc) {
			_ctx->voice->Play();
			_ctx->text->SetCustomSkipHandle2(_ctx->voice->hEndOfBuffer);
		}

		// Aspetta la fine della visualizzazione	
		_ctx->text->SetCustomSkipHandle(GLOBALS.hSkipIdle);
		CORO_INVOKE_0(_ctx->text->WaitForEndDisplay);
	}

	if (_ctx->curVoc) {
		_ctx->voice->Stop();
		_ctx->voice->Release();
		_ctx->voice=NULL;
	}

	if (nPers != 0) {
		if (!GLOBALS.IsMChar[nPers]) {
	 		if (GLOBALS.Character[nPers].endtalkpattern != 0) {
				GLOBALS.Freeze();
				GLOBALS.Character[nPers].item->SetPattern(GLOBALS.Character[nPers].endtalkpattern);
				GLOBALS.Unfreeze();
				CORO_INVOKE_0(GLOBALS.Character[nPers].item->WaitForEndPattern);
			}	
			
			GLOBALS.Character[nPers].item->SetPattern(GLOBALS.Character[nPers].standpattern);
			delete _ctx->text;
		} else {
			if ((GLOBALS.MCharacter[nPers].bInTexts && GLOBALS.MCharacter[nPers].numtexts== 0) || !GLOBALS.MCharacter[nPers].bInTexts) {
				// Cerca di eseguire la funzione custom per chiudere la parlata
				GLOBALS.MCharacter[nPers].curTalk = (GLOBALS.MCharacter[nPers].curTalk%10) + GLOBALS.MCharacter[nPers].curgroup*10;
				_ctx->h = mpalQueryDoAction(31,GLOBALS.MCharacter[nPers].item->MpalCode(),GLOBALS.MCharacter[nPers].curTalk);
				if (_ctx->h != CORO_INVALID_PID_VALUE)
					CORO_INVOKE_2(CoroScheduler.waitForSingleObject, _ctx->h, CORO_INFINITE);

				GLOBALS.MCharacter[nPers].bInTexts = false;
				GLOBALS.MCharacter[nPers].numtexts = 0;
			}

			GLOBALS.curBackText = NULL;
			delete _ctx->text;
		}
	} else {
		if ((GLOBALS.dwTonyNumTexts== 0 && GLOBALS.bTonyInTexts) || !GLOBALS.bTonyInTexts) {	
			CORO_INVOKE_0(GLOBALS.Tony->EndTalk);
			GLOBALS.dwTonyNumTexts = 0;
			GLOBALS.bTonyInTexts = false;
		}

		delete _ctx->text;
	}

	GlobalFree(_ctx->string);

	CORO_END_CODE;
}


// @@@@ This cannot be skipped!!!!!!!!!!!!!!!!!!!

DECLARE_CUSTOM_FUNCTION(StartDialog)(CORO_PARAM, uint32 nDialog, uint32 nStartGroup, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		uint32 nChoice;
		uint32 *sl;
		uint32 i, num;
		char *string;
		RMDialogChoice dc;
		int sel;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	curDialog = nDialog;
	
	// Call MPAL to start the dialog
	mpalQueryDoDialog(nDialog, nStartGroup);

	// Wait until a choice is selected
	mpalQueryDialogWaitForChoice(&_ctx->nChoice);
	while (_ctx->nChoice != (uint32)-1) {
		// Si fa dare la lista di opzioni e le conta
		_ctx->sl = mpalQueryDialogSelectList(_ctx->nChoice);
		for (_ctx->num = 0; _ctx->sl[_ctx->num] != 0; _ctx->num++)
			;

		// Se c'e' una sola opzione, la fa automaticamente, e aspetta la prossima scelta
		if (_ctx->num == 1) {
			mpalQueryDialogSelectionDWORD(_ctx->nChoice, _ctx->sl[0]);
			GlobalFree(_ctx->sl);

			// Wait for the next choice to be made
			mpalQueryDialogWaitForChoice(&_ctx->nChoice);
			continue;
		}
		
		// Crea una scelta per il dialogo
		_ctx->dc.Init();
		_ctx->dc.SetNumChoices(_ctx->num);

		// Scrive tutte le possibili opzioni
		for (_ctx->i = 0; _ctx->i < _ctx->num; _ctx->i++) {
			_ctx->string = mpalQueryDialogPeriod(_ctx->sl[_ctx->i]);
			assert(_ctx->string != NULL);
			_ctx->dc.AddChoice(_ctx->string);
			GlobalFree(_ctx->string);
		}

		// Attiva l'oggetto
		GLOBALS.LinkGraphicTask(&_ctx->dc);
		CORO_INVOKE_0(_ctx->dc.Show);

		// Disegna il puntatore
		GLOBALS.Pointer->SetSpecialPointer(GLOBALS.Pointer->PTR_NONE);
		MainShowMouse();
			
		while (!(GLOBALS.Input->MouseLeftClicked() && ((_ctx->sel = _ctx->dc.GetSelection()) != -1))) {
			CORO_INVOKE_0(GLOBALS.WaitFrame);
			GLOBALS.Freeze();
			CORO_INVOKE_1(_ctx->dc.DoFrame, GLOBALS.Input->MousePos());
			GLOBALS.Unfreeze();
		}	

		// Nascondi il puntatore
		MainHideMouse();
		
		CORO_INVOKE_0(_ctx->dc.Hide);
		mpalQueryDialogSelectionDWORD(_ctx->nChoice, _ctx->sl[_ctx->sel]);

		// Chiude la scelta
		_ctx->dc.Close();

		GlobalFree(_ctx->sl);

		// Wait for the next choice to be made
		mpalQueryDialogWaitForChoice(&_ctx->nChoice);
	}

	CORO_END_CODE;
}


/*
 *	Sync tra idle e mpal
 */

DECLARE_CUSTOM_FUNCTION(TakeOwnership)(CORO_PARAM, uint32 num, uint32, uint32, uint32) {
//	EnterCriticalSection(&cs[num]);
//	WaitForSingleObject(mut[num],CORO_INFINITE);
	warning("TODO: TakeOwnership");
}

DECLARE_CUSTOM_FUNCTION(ReleaseOwnership)(CORO_PARAM, uint32 num, uint32, uint32, uint32) {
//	LeaveCriticalSection(&cs[num]);
//	g_system->unlockMutex(mut[num]);
	warning("TODO: ReleaseOwnership");
}











/*
 *	Musica
 *  ------
 *
 * Effetti di fade supportati:
 *
 *   nFX = 0   - La nuova musica si sostituisce a quella vecchia
 *   nFX=1   - La nuova musica si interfade con quella vecchia
 *   nFX=2	 - La nuova musica subentra a tempo con quella vecchia
 *
 */

void ThreadFadeInMusic(CORO_PARAM, const void *nMusic) {
	CORO_BEGIN_CONTEXT;
		int i;
	CORO_END_CONTEXT(_ctx);

	int nChannel = *(const int *)nMusic;

	CORO_BEGIN_CODE(_ctx);

	debug("Start FadeIn Music");

	for (_ctx->i = 0; _ctx->i < 16; _ctx->i++) {
		_vm->SetMusicVolume(nChannel, _ctx->i * 4);

		CORO_INVOKE_1(CoroScheduler.sleep, 100);
	}
	_vm->SetMusicVolume(nChannel, 64);

	debug("End FadeIn Music");
	
	CORO_KILL_SELF();

	CORO_END_CODE;
}

void ThreadFadeOutMusic(CORO_PARAM, const void *nMusic) {
	CORO_BEGIN_CONTEXT;
		int i;
		int startVolume;
	CORO_END_CONTEXT(_ctx);

	int nChannel = *(const int *)nMusic;

	CORO_BEGIN_CODE(_ctx);

	_ctx->startVolume = _vm->GetMusicVolume(nChannel);

	debug("Start FadeOut Music");

	for (_ctx->i = 16; _ctx->i > 0 && !GLOBALS.bFadeOutStop; _ctx->i--) {
		if (_ctx->i * 4 < _ctx->startVolume)
			_vm->SetMusicVolume(nChannel, _ctx->i * 4);

		CORO_INVOKE_1(CoroScheduler.sleep, 100);
	}
	
	if (!GLOBALS.bFadeOutStop)
		_vm->SetMusicVolume(nChannel, 0);

	// Se <20> uno stacchetto ferma tutto
	if (nChannel == 2)
		_vm->StopMusic(2);

	debug("End FadeOut Music");

	CORO_KILL_SELF();

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(FadeInSonoriz)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CoroScheduler.createProcess(ThreadFadeInMusic, &GLOBALS.curSonoriz, sizeof(int));
}

DECLARE_CUSTOM_FUNCTION(FadeOutSonoriz)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.bFadeOutStop = false;
	CoroScheduler.createProcess(ThreadFadeOutMusic, &GLOBALS.curSonoriz, sizeof(int));
}

DECLARE_CUSTOM_FUNCTION(FadeOutStacchetto)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.bFadeOutStop = false;
	int channel = 2;
	CoroScheduler.createProcess(ThreadFadeOutMusic, &channel, sizeof(int));
}

DECLARE_CUSTOM_FUNCTION(FadeInStacchetto)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	int channel = 2;
	CoroScheduler.createProcess(ThreadFadeInMusic, &channel, sizeof(int));
}

DECLARE_CUSTOM_FUNCTION(StopSonoriz)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	_vm->StopMusic(GLOBALS.curSonoriz);
}

DECLARE_CUSTOM_FUNCTION(StopStacchetto)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	_vm->StopMusic(2);
}

DECLARE_CUSTOM_FUNCTION(MuteSonoriz)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	_vm->SetMusicVolume(GLOBALS.curSonoriz, 0);
}

DECLARE_CUSTOM_FUNCTION(DemuteSonoriz)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.bFadeOutStop = true;
	_vm->SetMusicVolume(GLOBALS.curSonoriz, 64);
}

DECLARE_CUSTOM_FUNCTION(MuteStacchetto)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	_vm->SetMusicVolume(2, 0);
}

DECLARE_CUSTOM_FUNCTION(DemuteStacchetto)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	_vm->SetMusicVolume(2, 64);
}





void CustPlayMusic(uint32 nChannel, const char *mFN, uint32 nFX, bool bLoop, int nSync = 0) {
	if (nSync == 0)
		nSync = 2000;
	debug("Start CustPlayMusic");
	GLOBALS.PlayMusic(nChannel, mFN, nFX, bLoop, nSync);
	debug("End CustPlayMusic");
}

DECLARE_CUSTOM_FUNCTION(PlaySonoriz)(CORO_PARAM, uint32 nMusic, uint32 nFX, uint32 bNoLoop, uint32) {
	if (nFX == 0 || nFX == 1 || nFX==2) {
		debug("PlaySonoriz stop fadeout");
		GLOBALS.bFadeOutStop = true;
	}
	
	GLOBALS.lastMusic = nMusic;
	CustPlayMusic(GLOBALS.curSonoriz, musicFiles[nMusic].name, nFX, bNoLoop ? false : true, musicFiles[nMusic].sync);
}

DECLARE_CUSTOM_FUNCTION(PlayStacchetto)(CORO_PARAM, uint32 nMusic, uint32 nFX, uint32 bLoop, uint32) {
	CustPlayMusic(2,staccFileNames[nMusic],nFX,bLoop);
}

DECLARE_CUSTOM_FUNCTION(PlayItemSfx)(CORO_PARAM, uint32 nItem, uint32 nSFX, uint32, uint32) {
	if (nItem== 0) {
		GLOBALS.Tony->PlaySfx(nSFX);
	} else {
		RMItem *item = GLOBALS.Loc->GetItemFromCode(nItem);
		if (item)
			item->PlaySfx(nSFX);
	}
}


void RestoreMusic(CORO_PARAM) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_4(PlaySonoriz, GLOBALS.lastMusic, 0, 0, 0);

	if (GLOBALS.lastTappeto != 0)
		CustPlayMusic(4, tappetiFile[GLOBALS.lastTappeto], 0, true);

	CORO_END_CODE;
}

void SaveMusic(Common::OutSaveFile *f) {
	f->writeByte(GLOBALS.lastMusic);
	f->writeByte(GLOBALS.lastTappeto);
}

void LoadMusic(Common::InSaveFile *f) {
	GLOBALS.lastMusic = f->readByte();
	GLOBALS.lastTappeto = f->readByte();
}


DECLARE_CUSTOM_FUNCTION(StacchettoFadeStart)(CORO_PARAM, uint32 nStacc, uint32 bLoop, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_4(FadeOutSonoriz, 0, 0, 0, 0);
	CORO_INVOKE_4(MuteStacchetto, 0, 0, 0, 0);
	CORO_INVOKE_4(PlayStacchetto, nStacc, 0, bLoop, 0);
	CORO_INVOKE_4(FadeInStacchetto, 0, 0, 0, 0);	

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(StacchettoFadeEnd)(CORO_PARAM, uint32 nStacc, uint32 bLoop, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	CORO_INVOKE_4(FadeOutStacchetto, 0, 0, 0, 0);
	CORO_INVOKE_4(FadeInSonoriz, 0, 0, 0, 0);

	CORO_END_CODE;
}




DECLARE_CUSTOM_FUNCTION(MustSkipIdleStart)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.bSkipIdle = true;
	CoroScheduler.setEvent(GLOBALS.hSkipIdle);
}

DECLARE_CUSTOM_FUNCTION(MustSkipIdleEnd)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	GLOBALS.bSkipIdle = false;
	CoroScheduler.resetEvent(GLOBALS.hSkipIdle);
}

DECLARE_CUSTOM_FUNCTION(PatIrqFreeze)(CORO_PARAM, uint32 bStatus, uint32, uint32, uint32) {
	GLOBALS.bPatIrqFreeze = bStatus;
}

DECLARE_CUSTOM_FUNCTION(OpenInitLoadMenu)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Freeze();
	CORO_INVOKE_0(_vm->OpenInitLoadMenu);
	GLOBALS.Unfreeze();

	CORO_END_CODE;
}

DECLARE_CUSTOM_FUNCTION(OpenInitOptions)(CORO_PARAM, uint32, uint32, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	GLOBALS.Freeze();
	CORO_INVOKE_0(_vm->OpenInitOptions);
	GLOBALS.Unfreeze();

	CORO_END_CODE;
}


DECLARE_CUSTOM_FUNCTION(DoCredits)(CORO_PARAM, uint32 nMsg, uint32 dwTime, uint32, uint32) {
	CORO_BEGIN_CONTEXT;
		RMMessage *msg;
		RMTextDialog *text;
		uint32 hDisable;
		int i;
		uint32 startTime;
	CORO_END_CONTEXT(_ctx);

	CORO_BEGIN_CODE(_ctx);

	_ctx->msg = new RMMessage(nMsg);
	_ctx->hDisable = CoroScheduler.createEvent(true, false);
	
	_ctx->text = new RMTextDialog[_ctx->msg->NumPeriods()];

	for (_ctx->i = 0; _ctx->i < _ctx->msg->NumPeriods(); _ctx->i++) 	{
		_ctx->text[_ctx->i].SetInput(GLOBALS.Input);

		// Alignment
		if ((*_ctx->msg)[_ctx->i][0] == '@') {
			_ctx->text[_ctx->i].SetAlignType(RMText::HCENTER, RMText::VTOP);
			_ctx->text[_ctx->i].WriteText(&(*_ctx->msg)[_ctx->i][1], 3);
			_ctx->text[_ctx->i].SetPosition(RMPoint(414, 70 + _ctx->i * 26));  // 70
		} else {
			_ctx->text[_ctx->i].SetAlignType(RMText::HLEFT,RMText::VTOP);
			_ctx->text[_ctx->i].WriteText((*_ctx->msg)[_ctx->i], 3);
			_ctx->text[_ctx->i].SetPosition(RMPoint(260, 70 + _ctx->i * 26));
		}
		
	
		// Setta la posizione
		_ctx->text[_ctx->i].SetAlwaysDisplay();
		_ctx->text[_ctx->i].SetForcedTime(dwTime * 1000);
		_ctx->text[_ctx->i].SetNoTab();

		// Aspetta la fine della visualizzazione	
		_ctx->text[_ctx->i].SetCustomSkipHandle(_ctx->hDisable);

		// Registra il testo
		GLOBALS.LinkGraphicTask(&_ctx->text[_ctx->i]);
	}
	
	_ctx->startTime = _vm->GetTime();

	while (_ctx->startTime + dwTime * 1000 > _vm->GetTime()) {
		CORO_INVOKE_0(GLOBALS.WaitFrame);
		if (GLOBALS.Input->MouseLeftClicked() || GLOBALS.Input->MouseRightClicked())
			break;
		if (_vm->GetEngine()->GetInput().GetAsyncKeyState(Common::KEYCODE_TAB))
			break;
	}

	CoroScheduler.setEvent(_ctx->hDisable);

	CORO_INVOKE_0(GLOBALS.WaitFrame);
	CORO_INVOKE_0(GLOBALS.WaitFrame);

	delete[] _ctx->text;
	delete _ctx->msg;

	CORO_END_CODE;
}



BEGIN_CUSTOM_FUNCTION_MAP()

	ASSIGN(  1,   CustLoadLocation)
	ASSIGN(  2,		MySleep)
	ASSIGN(  3,   SetPointer)
	ASSIGN(  5,   MoveTony)
	ASSIGN(  6,		FaceToMe)
	ASSIGN(  7,		BackToMe)
	ASSIGN(  8,		LeftToMe)
	ASSIGN(  9,		RightToMe)
	ASSIGN( 10,   SendTonyMessage)
	ASSIGN( 11,		ChangeBoxStatus)
	ASSIGN( 12,		ChangeLocation)
	ASSIGN( 13,		DisableTony)
	ASSIGN( 14,		EnableTony)
	ASSIGN( 15,		WaitForPatternEnd)
	ASSIGN( 16,   SetLocStartPosition)
	ASSIGN( 17,   ScrollLocation)
	ASSIGN( 18,   MoveTonyAndWait)
	ASSIGN( 19,		ChangeHotspot)
	ASSIGN( 20,   AddInventory)
	ASSIGN( 21,   RemoveInventory)
	ASSIGN( 22,		ChangeInventoryStatus)
	ASSIGN( 23,		SetTonyPosition)
	ASSIGN( 24,		SendFullscreenMessage)
	ASSIGN( 25,		SaveTonyPosition)
	ASSIGN( 26,		RestoreTonyPosition)
	ASSIGN( 27,		DisableInput)
	ASSIGN( 28,		EnableInput)
	ASSIGN( 29,		StopTony)

	ASSIGN( 30,		TonyTakeUp1)
	ASSIGN( 31,		TonyTakeMid1)
	ASSIGN( 32,		TonyTakeDown1)
	ASSIGN( 33,		TonyTakeUp2)
	ASSIGN( 34,		TonyTakeMid2)
	ASSIGN( 35,		TonyTakeDown2)

	ASSIGN( 72,		TonyPutUp1)
	ASSIGN( 73,		TonyPutMid1)
	ASSIGN( 74,		TonyPutDown1)
	ASSIGN( 75,		TonyPutUp2)
	ASSIGN( 76,		TonyPutMid2)
	ASSIGN( 77,		TonyPutDown2)

	ASSIGN( 36,   TonyPerTerra)
	ASSIGN( 37,   TonySiRialza)
	ASSIGN( 38,		TonyPastorella)
	ASSIGN( 39,		TonyFischietto)

	ASSIGN( 40,   TonyRide)
	ASSIGN( 41,   TonyFianchi)
	ASSIGN( 42,   TonyCanta)
	ASSIGN( 43,   TonySiIndica)
	ASSIGN( 44,		TonySpaventatoConMani)
	ASSIGN( 49,	  TonySpaventatoSenzaMani)
	ASSIGN( 45,		TonyConBicchiere)
	ASSIGN( 46,		TonyConVerme)
	ASSIGN( 47,		TonyConMartello)
	ASSIGN( 48,		TonyConCorda)
	ASSIGN( 90,		TonyConConiglioANIM)
	ASSIGN( 91,		TonyConRicettaANIM)
	ASSIGN( 92,		TonyConCarteANIM)
	ASSIGN( 93,		TonyConPupazzoANIM)
	ASSIGN( 94,		TonyConPupazzoStart)
	ASSIGN( 95,		TonyConPupazzoEnd)
	ASSIGN( 96,		TonyConConiglioStart)
	ASSIGN( 97,		TonyConConiglioEnd)
	ASSIGN( 98,		TonyConRicettaStart)
	ASSIGN( 99,		TonyConRicettaEnd)
	ASSIGN(100,		TonyConCarteStart)
	ASSIGN(101,		TonyConCarteEnd)
	ASSIGN(102,   TonyConTaccuinoStart)
	ASSIGN(103,   TonyConTaccuinoEnd)
	ASSIGN(104,   TonyConMegafonoStart)
	ASSIGN(105,   TonyConMegafonoEnd)
	ASSIGN(106,   TonyConBarbaStart)
	ASSIGN(107,   TonyConBarbaEnd)
	ASSIGN(108,   TonyRidacchia)
	ASSIGN(109,	  TonySchifato)
	ASSIGN(110,	  TonyNaah)
	ASSIGN(111,	  TonyMacbeth)
	ASSIGN(112,	  TonySniffaLeft)
	ASSIGN(113,	  TonySniffaRight)
	ASSIGN(114,	  TonySpaventatoStart)
	ASSIGN(115,	  TonySpaventatoEnd)
	ASSIGN(116,	  TonyConSegretaria)
	
	ASSIGN( 50,   CharSetCode)
	ASSIGN( 51,		CharSetColor)
	ASSIGN( 52,   CharSetTalkPattern)
	ASSIGN( 53,   CharSendMessage)
	ASSIGN( 54,   CharSetStartEndTalkPattern)

	ASSIGN( 60,   MCharSetCode)
	ASSIGN( 61,   MCharSetColor)
	ASSIGN( 62,	  MCharSetCurrentGroup)
	ASSIGN( 63,		MCharSetNumTalksInGroup)
	ASSIGN( 64,		MCharSetNumTexts)
	ASSIGN( 65,		MCharSendMessage)
	ASSIGN( 66,		MCharSetPosition)
	ASSIGN( 67,		MCharSetAlwaysBack)
	ASSIGN( 68,   MCharResetCode)

	ASSIGN( 70,		StartDialog)
	ASSIGN( 71,		SendDialogMessage)

	ASSIGN( 80,		TakeOwnership)
	ASSIGN( 81,		ReleaseOwnership)

	ASSIGN( 86,		PlaySonoriz)
	ASSIGN( 87,		PlayStacchetto)
	ASSIGN( 88,		FadeInSonoriz)
	ASSIGN( 89,		FadeOutSonoriz)
	ASSIGN(123,		FadeInStacchetto)
	ASSIGN(124,		FadeOutStacchetto)
	ASSIGN(125,		MuteSonoriz)
	ASSIGN(126,		DemuteSonoriz)
	ASSIGN(127,		MuteStacchetto)
	ASSIGN(128,		DemuteStacchetto)
	ASSIGN( 84,		StopSonoriz)
	ASSIGN( 85,		StopStacchetto)
	ASSIGN( 83,		PlayItemSfx)
	ASSIGN(129,		StacchettoFadeStart)
	ASSIGN(130,		StacchettoFadeEnd)

	ASSIGN(120,		TremaSchermo)
	ASSIGN(121,		AutoSave)
	ASSIGN(122,		Abort)
	ASSIGN(131,		NoOcchioDiBue)
	ASSIGN(132,		SendFullscreenMsgStart)
	ASSIGN(133,		SendFullscreenMsgEnd)
	ASSIGN(134,		CustEnableGUI)
	ASSIGN(135,		CustDisableGUI)
	ASSIGN(136,		ClearScreen)
	ASSIGN(137,		PatIrqFreeze)
	ASSIGN(138,		TonySetPalesati)
	ASSIGN(139,		OpenInitLoadMenu)
	ASSIGN(140,		OpenInitOptions)
	ASSIGN(141,		SyncScrollLocation)
	ASSIGN(142,		CloseLocation)
	ASSIGN(143,		SetAlwaysDisplay)
	ASSIGN(144,		DoCredits)

	ASSIGN( 200,	MustSkipIdleStart);
	ASSIGN( 201,	MustSkipIdleEnd);

END_CUSTOM_FUNCTION_MAP()

void SetupGlobalVars(RMTony *tony, RMPointer *ptr, RMGameBoxes *box, RMLocation *loc, RMInventory *inv, RMInput *input) {
	GLOBALS.Tony = tony;	
	GLOBALS.Pointer = ptr;
	GLOBALS.Boxes = box;
	GLOBALS.Loc = loc;
	GLOBALS.Inventory = inv;
	GLOBALS.Input = input;

	GLOBALS.LoadLocation = MainLoadLocation;
	GLOBALS.UnloadLocation = MainUnloadLocation;
	GLOBALS.LinkGraphicTask = MainLinkGraphicTask;
	GLOBALS.Freeze = MainFreeze;
	GLOBALS.Unfreeze = MainUnfreeze;
	GLOBALS.WaitFrame = MainWaitFrame;
	GLOBALS.PlayMusic = MainPlayMusic;
	GLOBALS.InitWipe = MainInitWipe;
	GLOBALS.CloseWipe = MainCloseWipe;
	GLOBALS.WaitWipeEnd = MainWaitWipeEnd;
	GLOBALS.DisableGUI = MainDisableGUI;
	GLOBALS.EnableGUI = MainEnableGUI;
	GLOBALS.SetPalesati = MainSetPalesati;

	GLOBALS.vdb = g_system->createMutex();

	GLOBALS.bAlwaysDisplay = false;
	int i;

/*	for (i = 0;i < 10; i++)
		cs[i] = g_system->createMutex();
	for (i = 0;i < 10; i++)
		mut[i] = CreateMutex(NULL, false, NULL);
*/
	for (i = 0; i < 200; i++)
		GLOBALS.tappeti[i] = 0;

	GLOBALS.tappeti[6] = T_GRILLI;
	GLOBALS.tappeti[7] = T_GRILLI;
	GLOBALS.tappeti[8] = T_GRILLIOV;
	GLOBALS.tappeti[10] = T_GRILLI;
	GLOBALS.tappeti[12] = T_GRILLI;
	GLOBALS.tappeti[13] = T_GRILLIOV;
	GLOBALS.tappeti[15] = T_GRILLI;
	GLOBALS.tappeti[16] = T_GRILLIVENTO;
	GLOBALS.tappeti[18] = T_GRILLI;
	GLOBALS.tappeti[19] = T_GRILLIVENTO;
	GLOBALS.tappeti[20] = T_GRILLI;
	GLOBALS.tappeti[23] = T_GRILLI;
	GLOBALS.tappeti[26] = T_MAREMETA;
	GLOBALS.tappeti[27] = T_GRILLI;
	GLOBALS.tappeti[28] = T_GRILLIVENTO;
	GLOBALS.tappeti[31] = T_GRILLI;
	GLOBALS.tappeti[33] = T_MARE;
	GLOBALS.tappeti[35] = T_MARE;
	GLOBALS.tappeti[36] = T_GRILLI;
	GLOBALS.tappeti[37] = T_GRILLI;
	GLOBALS.tappeti[40] = T_GRILLI;
	GLOBALS.tappeti[41] = T_GRILLI;
	GLOBALS.tappeti[42] = T_GRILLI;
	GLOBALS.tappeti[45] = T_GRILLI;
	GLOBALS.tappeti[51] = T_GRILLI;
	GLOBALS.tappeti[52] = T_GRILLIVENTO1;
	GLOBALS.tappeti[53] = T_GRILLI;
	GLOBALS.tappeti[54] = T_GRILLI;
	GLOBALS.tappeti[57] = T_VENTO;
	GLOBALS.tappeti[58] = T_VENTO;
	GLOBALS.tappeti[60] = T_VENTO;



	// Crea l'evento per skippare le idle
	GLOBALS.hSkipIdle = CoroScheduler.createEvent(true, false);
}

} // end of namespace Tony