#include <Common.h>
#include <Logging/Logger.h>
#include <Network/PacketContainer.h>
#include <Service.h>

#include "Network/GameConnection.h"
#include "Network/PacketWrappers/ActorControlPacket.h"
#include "Network/PacketWrappers/PlayerSetupPacket.h"
#include "Network/PacketWrappers/ServerNoticePacket.h"
#include "Network/PacketWrappers/EventStartPacket.h"
#include "Network/PacketWrappers/EventPlayPacket.h"
#include "Network/PacketWrappers/EventFinishPacket.h"
#include "Network/PacketWrappers/DirectorPlayScenePacket.h"

#include "Inventory/Item.h"
#include "Territory/Territory.h"
#include "ServerMgr.h"

#include "Action/EventAction.h"

using namespace Sapphire::Common;
using namespace Sapphire::Network::Packets;
using namespace Sapphire::Network::Packets::Server;

void Sapphire::Entity::Player::addEvent( Event::EventHandlerPtr pEvent )
{
  m_eventHandlerMap[ pEvent->getId() ] = pEvent;
}

std::map< uint32_t, Sapphire::Event::EventHandlerPtr >& Sapphire::Entity::Player::eventList()
{
  return m_eventHandlerMap;
}

Sapphire::Event::EventHandlerPtr Sapphire::Entity::Player::getEvent( uint32_t eventId )
{
  auto it = m_eventHandlerMap.find( eventId );
  if( it != m_eventHandlerMap.end() )
    return it->second;

  return Event::EventHandlerPtr( nullptr );
}

size_t Sapphire::Entity::Player::getEventCount()
{
  return m_eventHandlerMap.size();
}

void Sapphire::Entity::Player::removeEvent( uint32_t eventId )
{
  auto it = m_eventHandlerMap.find( eventId );
  if( it != m_eventHandlerMap.end() )
  {
    auto tmpEvent = it->second;
    m_eventHandlerMap.erase( it );
  }
}

void Sapphire::Entity::Player::checkEvent( uint32_t eventId )
{
  auto pEvent = getEvent( eventId );

  if( pEvent && !pEvent->hasPlayedScene() )
    eventFinish( eventId, 1 );
}


void Sapphire::Entity::Player::directorPlayScene( uint32_t eventId, uint32_t scene, uint32_t flags, uint32_t eventParam3,
                                                  uint32_t eventParam4, uint32_t eventParam5 )
{
  if( flags & 0x02 )
    setStateFlag( PlayerStateFlag::WatchingCutscene );

  auto pEvent = getEvent( eventId );
  if( !pEvent )
  {
    Logger::error( "Could not find event #{0}, event has not been started!", eventId );
    return;
  }

  pEvent->setPlayedScene( true );
  pEvent->setEventReturnCallback( nullptr );
  auto eventPlay = std::make_shared< DirectorPlayScenePacket >( getId(), getId(), pEvent->getId(),
                                                                scene, flags, eventParam3, eventParam4, eventParam5 );

  queuePacket( eventPlay );
}

void Sapphire::Entity::Player::eventStart( uint64_t actorId, uint32_t eventId,
                                           Event::EventHandler::EventType eventType, uint8_t eventParam1,
                                           uint32_t eventParam2, Event::EventHandler::EventFinishCallback callback )
{

  auto newEvent = Event::make_EventHandler( actorId, eventId, eventType, eventParam2 );

  newEvent->setEventFinishCallback( callback );

  addEvent( newEvent );

  setStateFlag( PlayerStateFlag::InNpcEvent );

  auto eventStart = std::make_shared< EventStartPacket >( getId(), actorId, eventId,
                                                          eventType, eventParam1, eventParam2 );

  queuePacket( eventStart );

}

void Sapphire::Entity::Player::playScene( uint32_t eventId, uint32_t scene,
                                          uint32_t flags, uint32_t eventParam2,
                                          uint32_t eventParam3 )
{
  playScene( eventId, scene, flags, eventParam2, eventParam3, nullptr );
}

void Sapphire::Entity::Player::playScene( uint32_t eventId, uint32_t scene,
                                          uint32_t flags, Event::EventHandler::SceneReturnCallback eventCallback )
{
  playScene( eventId, scene, flags, 0, 0, eventCallback );
}

void Sapphire::Entity::Player::playScene( uint32_t eventId, uint32_t scene, uint32_t flags )
{
  playScene( eventId, scene, flags, 0, 0, nullptr );
}

void Sapphire::Entity::Player::playScene( uint32_t eventId, uint32_t scene,
                                          uint32_t flags, uint32_t eventParam2,
                                          uint32_t eventParam3, Event::EventHandler::SceneReturnCallback eventCallback )
{
  playScene( eventId, scene, flags, eventParam2, eventParam3, 0, eventCallback );
}

void Sapphire::Entity::Player::playGilShop( uint32_t eventId, uint32_t flags, uint32_t param1,
                                            Event::EventHandler::SceneReturnCallback eventCallback )
{
  auto pEvent = bootstrapSceneEvent( eventId, flags );
  if( !pEvent )
    return;

  pEvent->setPlayedScene( true );
  pEvent->setEventReturnCallback( eventCallback );
  pEvent->setSceneChainCallback( nullptr );

  auto openGilShopPacket = makeZonePacket< Server::FFXIVIpcEventPlay255 >( getId() );
  openGilShopPacket->data().eventId = eventId;
  openGilShopPacket->data().sceneFlags = flags;
  openGilShopPacket->data().actorId = getId();
  switch( param1 )
  {
    case 0:
    {
      openGilShopPacket->data().paramSize = 0xA1;
      break;
    }
    case 1:
    {
      openGilShopPacket->data().paramSize = 0x02;
      openGilShopPacket->data().params[ 0 ] = 1;
      openGilShopPacket->data().params[ 1 ] = 0x64;
      break;
    }
    case 2:
    {
      openGilShopPacket->data().paramSize = 0xA2;
      openGilShopPacket->data().params[ 0 ] = 2;
      break;
    }
    case 3:
    {
      openGilShopPacket->data().paramSize = 0xA2;
      openGilShopPacket->data().params[ 0 ] = 3;
      openGilShopPacket->data().params[ 1 ] = 0x64;
      break;
    }
  }

  auto& buyBackList = getBuyBackListForShop( eventId );
  int index = param1 == 0 ? 1 : 2;
  for( auto& entry : buyBackList )
  {
    if( index >= openGilShopPacket->data().paramSize )
      break;
    openGilShopPacket->data().params[ index++ ] = entry.item->getId();
    openGilShopPacket->data().params[ index++ ] = entry.amount;
    openGilShopPacket->data().params[ index++ ] = entry.pricePerItem;
    index += 2;
    openGilShopPacket->data().params[ index++ ] = eventId;
    index += 2;
    openGilShopPacket->data().params[ index++ ] = ( ( entry.item->getDurability() << 16 ) + static_cast< uint16_t >( entry.item->isHq() ? 1 : 0 ) );
    openGilShopPacket->data().params[ index++ ] = ( ( entry.item->getStain() << 16 ) + entry.item->getSpiritbond() );
    openGilShopPacket->data().params[ index++ ] = 0; // glamour
    index += 5;
  }

  openGilShopPacket->data().scene = 10;

  queuePacket( openGilShopPacket );
}

Sapphire::Event::EventHandlerPtr Sapphire::Entity::Player::bootstrapSceneEvent( uint32_t eventId, uint32_t flags )
{

  auto pEvent = getEvent( eventId );
  if( !pEvent )
  {
    Logger::error( "Could not find event #{0}, event has not been started!", eventId );
    return nullptr;
  }

  if( flags & 0x02 )
    setStateFlag( PlayerStateFlag::WatchingCutscene );

  return pEvent;
}

void Sapphire::Entity::Player::playScene( uint32_t eventId, uint32_t scene,
                                          uint32_t flags, uint32_t eventParam2,
                                          uint32_t eventParam3, uint32_t eventParam4,
                                          Event::EventHandler::SceneReturnCallback eventCallback )
{
  auto pEvent = bootstrapSceneEvent( eventId, flags );
  if( !pEvent )
    return;

  pEvent->setPlayedScene( true );
  pEvent->setEventReturnCallback( eventCallback );
  pEvent->setSceneChainCallback( nullptr );
  auto eventPlay = std::make_shared< EventPlayPacket >( getId(), pEvent->getActorId(), pEvent->getId(),
                                                        scene, flags, eventParam2, eventParam3, eventParam4 );

  queuePacket( eventPlay );
}

void Sapphire::Entity::Player::playSceneChain( uint32_t eventId, uint32_t scene, uint32_t flags,
                                               uint32_t eventParam2, uint32_t eventParam3, uint32_t eventParam4,
                                               Sapphire::Event::EventHandler::SceneChainCallback sceneChainCallback )
{
  auto pEvent = bootstrapSceneEvent( eventId, flags );
  if( !pEvent )
    return;

  pEvent->setPlayedScene( true );
  pEvent->setSceneChainCallback( sceneChainCallback );
  pEvent->setEventReturnCallback( nullptr );
  auto eventPlay = std::make_shared< EventPlayPacket >( getId(), pEvent->getActorId(), pEvent->getId(),
                                                        scene, flags, eventParam2, eventParam3, eventParam4 );

  queuePacket( eventPlay );
}

void Sapphire::Entity::Player::playSceneChain( uint32_t eventId, uint32_t scene, uint32_t flags,
                                               uint32_t eventParam2, uint32_t eventParam3,
                                               Sapphire::Event::EventHandler::SceneChainCallback sceneChainCallback )
{
  playSceneChain( eventId, scene, flags, eventParam2, eventParam3, 0, sceneChainCallback );
}

void Sapphire::Entity::Player::playSceneChain( uint32_t eventId, uint32_t scene, uint32_t flags,
                                               Sapphire::Event::EventHandler::SceneChainCallback sceneChainCallback )
{
  playSceneChain( eventId, scene, flags, 0, 0, 0, sceneChainCallback );
}

void Sapphire::Entity::Player::eventFinish( uint32_t eventId, uint32_t freePlayer )
{
  auto pEvent = getEvent( eventId );

  if( !pEvent )
  {
    Logger::error( "Could not find event #{0}, event has not been started!", eventId );
    return;
  }

  if( getEventCount() > 1 && pEvent->getEventType() != Event::EventHandler::Nest )
  {
    // this is the parent of a nested event, we can't finish it until the parent finishes
    return;
  }

  switch( pEvent->getEventType() )
  {
    case Event::EventHandler::Nest:
    {
      queuePacket( std::make_shared< EventFinishPacket >( getId(), pEvent->getId(),
                                                          pEvent->getEventType(), pEvent->getEventParam() ) );
      removeEvent( pEvent->getId() );

      auto callback = pEvent->getEventFinishCallback();

      if( callback )
        callback( *this, pEvent->getActorId() );
      else
      {
        auto events = eventList();
        for( auto it : events )
        {
          if( !it.second->hasPlayedScene() )
          {
            queuePacket( std::make_shared< EventFinishPacket >( getId(), it.second->getId(),
                                                                it.second->getEventType(),
                                                                it.second->getEventParam() ) );
            removeEvent( it.second->getId() );
          }
        }
      }
      break;
    }
    default:
    {
      queuePacket( std::make_shared< EventFinishPacket >( getId(), pEvent->getId(),
                                                          pEvent->getEventType(), pEvent->getEventParam() ) );
      break;
    }
  }

  if( hasStateFlag( PlayerStateFlag::WatchingCutscene ) )
    unsetStateFlag( PlayerStateFlag::WatchingCutscene );

  removeEvent( pEvent->getId() );

  if( freePlayer == 1 )
    unsetStateFlag( PlayerStateFlag::InNpcEvent );
}

void Sapphire::Entity::Player::playScene16( uint32_t eventId, uint32_t scene, uint32_t flags, uint32_t param3, std::vector< uint32_t > paramList, Event::EventHandler::SceneReturnCallback eventReturnCallback )
{
  auto pEvent = bootstrapSceneEvent( eventId, flags );
  if( !pEvent )
    return;

  pEvent->setPlayedScene( true );
  pEvent->setEventReturnCallback( eventReturnCallback );
  pEvent->setSceneChainCallback( nullptr );
  auto eventPlay16 = makeZonePacket< FFXIVIpcEventPlay16 >( getId() );
  eventPlay16->data().actorId = pEvent->getActorId();
  eventPlay16->data().eventId = pEvent->getId();
  eventPlay16->data().scene = scene;
  eventPlay16->data().flags = flags;
  eventPlay16->data().param3 = param3;
  eventPlay16->data().paramSize = paramList.size();
  int i = 0;
  for( auto p : paramList )
  {
    assert( i < 16 );
    eventPlay16->data().param[ i ] = paramList.at( i );
    i++;
  }

  queuePacket( eventPlay16 );
}

void Sapphire::Entity::Player::eventActionStart( uint32_t eventId,
                                                 uint32_t action,
                                                 World::Action::ActionCallback finishCallback,
                                                 World::Action::ActionCallback interruptCallback,
                                                 uint64_t additional )
{
  auto pEventAction = World::Action::make_EventAction( getAsChara(), eventId, action,
                                                finishCallback, interruptCallback, additional );

  auto pEvent = getEvent( eventId );

  if( !pEvent && getEventCount() )
  {
    // We're trying to play a nested event, need to start it first.
    eventStart( getId(), eventId, Event::EventHandler::Nest, 0, 0 );
    pEvent = getEvent( eventId );
  }
  else if( !pEvent )
  {
    Logger::error( "Could not find event #{0}, event has not been started!", eventId );
    return;
  }

  if( pEvent )
    pEvent->setPlayedScene( true );

  setCurrentAction( pEventAction );
  pEventAction->start();
}


void Sapphire::Entity::Player::eventItemActionStart( uint32_t eventId,
                                                     uint32_t action,
                                                     World::Action::ActionCallback finishCallback,
                                                     World::Action::ActionCallback interruptCallback,
                                                     uint64_t additional )
{
//  Action::ActionPtr pEventItemAction = Action::make_EventItemAction( getAsChara(), eventId, action,
//                                                                     finishCallback, interruptCallback, additional );
//
//  setCurrentAction( pEventItemAction );
//
//  pEventItemAction->onStart();
}

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

void Sapphire::Entity::Player::onLogin()
{
  auto& serverMgr = Common::Service< World::ServerMgr >::ref();

  auto motd = serverMgr.getConfig().motd;

  std::istringstream ss( motd );
  std::string msg;
  while( std::getline( ss, msg, ';' ) )
  {
    sendNotice( msg );
  }
}

void Sapphire::Entity::Player::onZoneStart()
{

}

void Sapphire::Entity::Player::onZoneDone()
{

}

void Sapphire::Entity::Player::onDeath()
{

}

// TODO: slightly ugly here and way too static. Needs too be done properly
void Sapphire::Entity::Player::onTick()
{
  Chara::onTick();
  // add 3 seconds to total play time
  m_playTime += 3;

  bool sendUpdate = false;

  if( !isAlive() || !isLoadingComplete() )
    return;

  uint32_t addHp = static_cast< uint32_t >( getMaxHp() * 0.1f + 1 );
  uint32_t addMp = static_cast< uint32_t >( getMaxMp() * 0.06f + 1 );
  uint32_t addTp = 100;

  if( !m_actorIdTohateSlotMap.empty() )
  {
    addHp = static_cast< uint32_t >( getMaxHp() * 0.01f + 1 );
    addMp = static_cast< uint32_t >( getMaxMp() * 0.02f + 1 );
    addTp = 60;
  }

  if( m_hp < getMaxHp() )
  {

    if( m_hp + addHp < getMaxHp() )
      m_hp += addHp;
    else
      m_hp = getMaxHp();

    sendUpdate = true;
  }

  if( m_mp < getMaxMp() )
  {

    if( m_mp + addMp < getMaxMp() )
      m_mp += addMp;
    else
      m_mp = getMaxMp();

    sendUpdate = true;
  }

  if( m_tp < 1000 )
  {
    if( m_tp + addTp < 1000 )
      m_tp += addTp;
    else
      m_tp = 1000;

    sendUpdate = true;
  }

  if( sendUpdate )
    sendStatusUpdate();
}