#include "stdafx.h"
#include "constants.h"
#include "BattleArena.h"
#include "start_position.h"
#include "char_manager.h"
#include "char.h"
#include "sectree_manager.h"
#include "regen.h"
#include "questmanager.h"

extern int passes_per_sec;
extern int test_server;

CBattleArena::CBattleArena()
	: m_pEvent(NULL),
	m_status(STATUS_CLOSE),
	m_nMapIndex(0),
	m_nEmpire(0),
	m_bForceEnd(false)
{
}

bool CBattleArena::IsRunning()
{
	return m_status == STATUS_CLOSE ? false : true;
}

bool CBattleArena::IsBattleArenaMap(int nMapIndex)
{
	if ( nMapIndex == nBATTLE_ARENA_MAP[1] ||
		nMapIndex == nBATTLE_ARENA_MAP[2] ||
		nMapIndex == nBATTLE_ARENA_MAP[3] )
	{
		return true;
	}

	return false;
}

struct FWarpToHome
{
	void operator() (LPENTITY ent)
	{
		if ( ent->IsType(ENTITY_CHARACTER) == true )
		{
			LPCHARACTER lpChar = (LPCHARACTER)ent;

			if ( lpChar->IsPC() == true )
			{
				if ( !test_server ) 
				{
					if ( lpChar->GetGMLevel() != GM_PLAYER ) return;
				}

				int nEmpire, nMapIndex, x, y;

				nEmpire = lpChar->GetEmpire();
				nMapIndex = EMPIRE_START_MAP(nEmpire);
				x = EMPIRE_START_X(nEmpire);
				y = EMPIRE_START_Y(nEmpire);

				lpChar->WarpSet(x, y, nMapIndex);
			}
		}
	}
};

void CBattleArena::SetStatus(BATTLEARENA_STATUS status)
{
	m_status = status;
}

EVENTINFO(SBattleArenaInfo)
{
	int nEmpire;
	int nMapIndex;
	int state;
	int wait_count;

	SBattleArenaInfo()
	: nEmpire( 0 )
	, nMapIndex( 0 )
	, state( 0 )
	, wait_count( 0 )
	{
	}
};

EVENTFUNC(battle_arena_event)
{
	SBattleArenaInfo * pInfo = dynamic_cast<SBattleArenaInfo *>(event->info );

	if ( pInfo == NULL )
	{
		return 0;  // cancel immediately
	}

	if (pInfo != NULL)
	{
		switch (pInfo->state)
		{
			case 0:
				{
					++pInfo->state;
					BroadcastNotice(LC_TEXT("¸ó½ºÅ͵éÀÇ °ø°Ý±îÁö 5ºÐ ³²¾Ò½À´Ï´Ù!!!"));
				}
				return test_server ? PASSES_PER_SEC(60) : PASSES_PER_SEC(60*4);

			case 1:
				{
					++pInfo->state;
					BroadcastNotice(LC_TEXT("¸ó½ºÅ͵éÀÇ °ø°Ý±îÁö 1ºÐ ³²¾Ò½À´Ï´Ù!!!"));
				}
				return test_server ? PASSES_PER_SEC(10) : PASSES_PER_SEC(60);

			case 2:
				{
					++pInfo->state;
					pInfo->wait_count = 0;

					quest::CQuestManager::instance().RequestSetEventFlag("battle_arena", 0);
					BroadcastNotice(LC_TEXT("¸ó½ºÅ͵éÀÌ ¼ºÀ» °ø°ÝÇϱ⠽ÃÀÛÇß½À´Ï´Ù."));

					LPSECTREE_MAP sectree = SECTREE_MANAGER::instance().GetMap(pInfo->nMapIndex);

					if ( sectree != NULL )
					{
						std::string strMap = LocaleService_GetMapPath();
						if ( pInfo->nEmpire > 0 )
						{
							strMap += strRegen[pInfo->nEmpire];

							regen_do(strMap.c_str(), pInfo->nMapIndex, sectree->m_setting.iBaseX, sectree->m_setting.iBaseY, NULL, false);
						}
					}
				}
				return test_server ? PASSES_PER_SEC(60*1) : PASSES_PER_SEC(60*5);

			case 3 :
				{
					if ( SECTREE_MANAGER::instance().GetMonsterCountInMap(pInfo->nMapIndex) <= 0 )
					{
						pInfo->state = 6;
						SendNoticeMap(LC_TEXT("Áß¾Ó Á¦´Ü¿¡ ¾ÇÀÇ ±â¿îÀÌ ¸ð¿©µì´Ï´Ù."), pInfo->nMapIndex, false);
					}
					else
					{
						pInfo->wait_count++;

						if ( pInfo->wait_count >= 5 )
						{
							pInfo->state++;
							SendNoticeMap(LC_TEXT("¸ó½ºÅ͵éÀÌ ¹°·¯°¥ Á¶ÁüÀ» º¸ÀÔ´Ï´Ù."), pInfo->nMapIndex, false);
						}
						else
						{
							CBattleArena::instance().SpawnRandomStone();
						}
					}
				}
				return test_server ? PASSES_PER_SEC(60) : PASSES_PER_SEC(60*5); 
				
			case 4 :
				{
					pInfo->state++;
					SendNoticeMap(LC_TEXT("¸ó½ºÅ͵éÀÌ ¹°·¯°¡±â ½ÃÀÛÇß½À´Ï´Ù."), pInfo->nMapIndex, false);
					SendNoticeMap(LC_TEXT("Àá½Ã ÈÄ ¸¶À»·Î µ¹¾Æ°©´Ï´Ù."), pInfo->nMapIndex, false);

					SECTREE_MANAGER::instance().PurgeMonstersInMap(pInfo->nMapIndex);
				}
				return PASSES_PER_SEC(30);

			case 5 :
				{
					LPSECTREE_MAP sectree = SECTREE_MANAGER::instance().GetMap(pInfo->nMapIndex);

					if ( sectree != NULL )
					{
						struct FWarpToHome f;
						sectree->for_each( f );
					}

					CBattleArena::instance().End();
				}
				return 0;

			case 6 :
				{
					pInfo->state++;
					pInfo->wait_count = 0;

					SendNoticeMap(LC_TEXT("¸ó½ºÅ͵éÀÇ ´ëÀåÀÌ ³ªÅ¸³µ½À´Ï´Ù."), pInfo->nMapIndex, false);
					SendNoticeMap(LC_TEXT("30ºÐ ³»·Î ±Í¸ñ·ÉÁÖ¸¦ ¹°¸®ÃÄÁÖ¼¼¿ä."), pInfo->nMapIndex, false);

					CBattleArena::instance().SpawnLastBoss();
				}
				return test_server ? PASSES_PER_SEC(60) : PASSES_PER_SEC(60*5);

			case 7 :
				{
					if ( SECTREE_MANAGER::instance().GetMonsterCountInMap(pInfo->nMapIndex) <= 0 )
					{
						SendNoticeMap(LC_TEXT("±Í¸ñ·ÉÁÖ¿Í ±×ÀÇ ºÎÇϵéÀ» ¸ðµÎ ¹°¸®ÃƽÀ´Ï´Ù."), pInfo->nMapIndex, false);
						SendNoticeMap(LC_TEXT("Àá½Ã ÈÄ ¸¶À»·Î µ¹¾Æ°©´Ï´Ù."), pInfo->nMapIndex, false);

						pInfo->state = 5;

						return PASSES_PER_SEC(60);
					}

					pInfo->wait_count++;

					if ( pInfo->wait_count >= 6 )
					{
						SendNoticeMap(LC_TEXT("±Í¸ñ·ÉÁÖ°¡ Åð°¢ÇÏ¿´½À´Ï´Ù."), pInfo->nMapIndex, false);
						SendNoticeMap(LC_TEXT("Àá½Ã ÈÄ ¸¶À»·Î µ¹¾Æ°©´Ï´Ù."), pInfo->nMapIndex, false);

						SECTREE_MANAGER::instance().PurgeMonstersInMap(pInfo->nMapIndex);
						SECTREE_MANAGER::instance().PurgeStonesInMap(pInfo->nMapIndex);

						pInfo->state = 5;

						return PASSES_PER_SEC(60);
					}
					else
					{
						CBattleArena::instance().SpawnRandomStone();
					}
				}
				return test_server ? PASSES_PER_SEC(60) : PASSES_PER_SEC(60*5);
		}
	}
	
	return 0;
}

bool CBattleArena::Start(int nEmpire)
{
	if ( m_status != STATUS_CLOSE ) return false;
	if ( nEmpire < 1 || nEmpire > 3 ) return false;

	m_nMapIndex = nBATTLE_ARENA_MAP[nEmpire];
	m_nEmpire = nEmpire;

	char szBuf[1024];
	snprintf(szBuf, sizeof(szBuf), LC_TEXT("%sÀÇ ¼ºÀ¸·Î ¸ó½ºÅ͵éÀÌ Áø±ºÇÏ°í ÀÖ½À´Ï´Ù."), EMPIRE_NAME(m_nEmpire));
	BroadcastNotice(szBuf);
	BroadcastNotice(LC_TEXT("10ºÐ µÚ ¼ºÀ» °ø°ÝÇÒ ¿¹Á¤ÀÔ´Ï´Ù."));

	if (m_pEvent != NULL) {
		event_cancel(&m_pEvent);
	}

	SBattleArenaInfo* info = AllocEventInfo<SBattleArenaInfo>();

	info->nMapIndex = m_nMapIndex;
	info->nEmpire = m_nEmpire;
	info->state = 0;
	info->wait_count = 0;

	m_pEvent = event_create(battle_arena_event, info, test_server ? PASSES_PER_SEC(60) : PASSES_PER_SEC(5*60));

	SetStatus(STATUS_BATTLE);

	quest::CQuestManager::instance().RequestSetEventFlag("battle_arena", m_nMapIndex);

	return true;
}

void CBattleArena::End()
{
	if (m_pEvent != NULL) {
		event_cancel(&m_pEvent);
	}
	m_bForceEnd = false;
	m_nMapIndex = 0;
	m_nEmpire = 0;
	m_status = STATUS_CLOSE;

	quest::CQuestManager::instance().RequestSetEventFlag("battle_arena", 0);
}

void CBattleArena::ForceEnd()
{
	if ( m_bForceEnd == true ) return;

	m_bForceEnd = true;

	if (m_pEvent != NULL) {
		event_cancel(&m_pEvent);
	}

	SBattleArenaInfo* info = AllocEventInfo<SBattleArenaInfo>();

	info->nMapIndex = m_nMapIndex;
	info->nEmpire = m_nEmpire;
	info->state = 3;

	event_create(battle_arena_event, info, PASSES_PER_SEC(5));
}

void CBattleArena::SpawnRandomStone()
{
	static const DWORD vnum[7] = { 8012, 8013, 8014, 8024, 8025, 8026, 8027 };

	static const int region_info[3][4] = {
	   	{688900, 247600, 692700, 250000},
	   	{740200, 251000, 744200, 247700},
	   	{791400, 250900, 795900, 250400} };

	int idx = m_nMapIndex - 190;
	if ( idx < 0 || idx >= 3 ) return;

	CHARACTER_MANAGER::instance().SpawnMobRange(
		   	vnum[number(0, 6)],
		   	m_nMapIndex,
			region_info[idx][0], region_info[idx][1], region_info[idx][2], region_info[idx][3],
			false, true);
}

void CBattleArena::SpawnLastBoss()
{
	static const DWORD vnum = 8616;

	static const int position[3][2] = {
		{ 691000, 248900 },
		{ 742300, 249000 },
		{ 793600, 249300 } };

	int idx = m_nMapIndex - 190;
	if ( idx < 0 || idx >= 3 ) return;

	CHARACTER_MANAGER::instance().SpawnMob(vnum, m_nMapIndex, position[idx][0], position[idx][1], 0);
}