#include "pch.h"
#include "teleport.h"
#include "menu.h"
#include "widget.h"
#include "util.h"

#ifdef GTASA
// FlA
tRadarTrace* CRadar::ms_RadarTrace = reinterpret_cast<tRadarTrace*>(patch::GetPointer(0x5838B0 + 2));

void Teleport::FetchRadarSpriteData()
{
    static int maxSprites = *(uint*)0x5D5870;
    uint timer = CTimer::m_snTimeInMilliseconds;
    static uint lastUpdated = timer;

    // Update the radar list each 5 seconds
    if (timer - lastUpdated < 5000)
    {
        return;
    }

    m_locData.m_pData->RemoveTable("Radar");
    for (int i = 0; i != maxSprites; ++i)
    {
        CVector pos = CRadar::ms_RadarTrace[i].m_vecPos;
        std::string sprite = std::to_string(CRadar::ms_RadarTrace[i].m_nRadarSprite);
        std::string keyName = m_SpriteData.Get<std::string>(sprite.c_str(), "Unknown");
        keyName += ", " + Util::GetLocationName(&pos);
        std::string key = "Radar." + keyName;
        m_locData.m_pData->Set(key.c_str(), std::format("0, {}, {}, {}", pos.x, pos.y, pos.z));
    }
    lastUpdated = timer;
}
#endif

void Teleport::Init()
{
    m_bTeleportMarker = gConfig.Get("Features.TeleportMarker", false);
    m_bQuickTeleport = gConfig.Get("Features.QuickTeleport", false);

    Events::processScriptsEvent += []
    {
        if ((TPMarker::m_bEnabled == true) && ((CTimer::m_snTimeInMilliseconds - TPMarker::m_nTimer) > 50))
        {
            CPlayerPed* player = FindPlayerPed();

#ifdef GTASA
            CEntity* player_entity = FindPlayerEntity(-1);
            TPMarker::m_fPos.z = CWorld::FindGroundZFor3DCoord(TPMarker::m_fPos.x, TPMarker::m_fPos.y,
                    TPMarker::m_fPos.z + 100.0f, nullptr, &player_entity) + 1.0f;
#else
            TPMarker::m_fPos.z = CWorld::FindGroundZFor3DCoord(TPMarker::m_fPos.x, TPMarker::m_fPos.y,
                    TPMarker::m_fPos.z + 100.0f, nullptr) + 1.0f;
#endif
            CVehicle* pVeh = player->m_pVehicle;

            if (pVeh && BY_GAME(player->m_nPedFlags.bInVehicle, player->m_pVehicle, player->m_pVehicle))
            {
                BY_GAME(pVeh->Teleport(TPMarker::m_fPos, false), pVeh->Teleport(TPMarker::m_fPos), player->Teleport(TPMarker::m_fPos));
            }
            else
            {
                BY_GAME(player->Teleport(TPMarker::m_fPos, false), player->Teleport(TPMarker::m_fPos), player->Teleport(TPMarker::m_fPos));
            }
#ifdef GTASA
            if (TPMarker::m_bJetpack)
            {
                Command<Commands::TASK_JETPACK>(CPools::GetPedRef(player));
            }
#endif

            TPMarker::m_bEnabled = false;
            Command<Commands::FREEZE_CHAR_POSITION_AND_DONT_LOAD_COLLISION>(CPools::GetPedRef(player), false);
            Command<Commands::RESTORE_CAMERA_JUMPCUT>();
            TheCamera.Fade(0, 1);
        }

        if (m_bTeleportMarker && teleportMarker.Pressed())
        {
            WarpPlayer<eTeleportType::Marker>();
        }
    };

#ifdef GTASA
    Events::drawingEvent += []
    {
        if (m_bQuickTeleport && quickTeleport.PressedRealtime())
        {
            static CSprite2d map; 
            if (!map.m_pTexture)
            {
                map.m_pTexture = gTextureList.FindTextureByName("map");
            }
            float height = screen::GetScreenHeight();
            float width = screen::GetScreenWidth();
            float size = width * height / width; // keep aspect ratio
            float left = (width-size) / 2;
            float right = left+size;
            map.Draw(CRect(left, 0.0f, right, height), CRGBA(255, 255, 255, 200));
            
            if (ImGui::IsMouseClicked(0))
            {
                // Convert screen space to image space
                ImVec2 pos = ImGui::GetMousePos();
                if (pos.x > left && pos.x < right)
                {
                    pos.x -= left;
                    pos.x -= size/2;
                    pos.y -= size/2;
                    
                    // Convert image space to map space
                    pos.x = pos.x / size * 6000;
                    pos.y = pos.y / size * 6000;
                    pos.y *= -1;
                    
                    WarpPlayer<eTeleportType::MapPosition>(CVector(pos.x, pos.y, 0.0f));
                }
            }
        }
    };
#endif
}

template<eTeleportType Type>
void Teleport::WarpPlayer(CVector pos, int interiorID)
{
    CPlayerPed* pPlayer = FindPlayerPed();
    CVehicle* pVeh = pPlayer->m_pVehicle;
    int hplayer = CPools::GetPedRef(pPlayer);

#ifdef GTASA
    TPMarker::m_bJetpack = Command<Commands::IS_PLAYER_USING_JETPACK>(0);
    if (Type == eTeleportType::Marker || Type == eTeleportType::MapPosition)
    {   
        if (Type == eTeleportType::Marker)
        {
            tRadarTrace targetBlip = CRadar::ms_RadarTrace[LOWORD(FrontEndMenuManager.m_nTargetBlipIndex)];
            if (targetBlip.m_nRadarSprite != RADAR_SPRITE_WAYPOINT)
            {
                Util::SetMessage(TEXT("Teleport.TargetBlipText"));
                return;
            }
            pos = targetBlip.m_vecPos;
        } 
        
        CEntity* pPlayerEntity = FindPlayerEntity(-1);
        pos.z = CWorld::FindGroundZFor3DCoord(pos.x, pos.y, 1000, nullptr, &pPlayerEntity) + 500.f;

        TPMarker::m_fPos = pos;
        TPMarker::m_nTimer = CTimer::m_snTimeInMilliseconds;
        TPMarker::m_bEnabled = true;
        TheCamera.Fade(0, 0);
        Command<Commands::FREEZE_CHAR_POSITION_AND_DONT_LOAD_COLLISION>(CPools::GetPedRef(pPlayer), true);
    }
#endif

#ifdef GTA3
    CStreaming::LoadScene(pos);
#else
    CStreaming::LoadScene(&pos);
    CStreaming::LoadSceneCollision(&pos);
#endif
    CStreaming::LoadAllRequestedModels(false);

#ifdef GTASA

    if (pVeh && pPlayer->m_nPedFlags.bInVehicle)
    {

        if (CModelInfo::IsTrainModel(pVeh->m_nModelIndex))
        {
            CVector vehPos = pVeh->GetPosition();
            Command<Commands::WARP_CHAR_FROM_CAR_TO_COORD>(CPools::GetPedRef(pPlayer), vehPos.x, vehPos.y, vehPos.z + 2.0f);

            if (DistanceBetweenPoints(pos, vehPos) > 100.0f)
            {
                Command<Commands::DELETE_ALL_TRAINS>();
            }

            pPlayer->Teleport(pos, false);
        }  
        else
        {
            pVeh->Teleport(pos, false);

            if (pVeh->m_nVehicleClass == VEHICLE_BIKE)
            {
                reinterpret_cast<CBike*>(pVeh)->PlaceOnRoadProperly();
            }
            else if (pVeh->m_nVehicleClass != VEHICLE_BOAT)
            {
                reinterpret_cast<CAutomobile*>(pVeh)->PlaceOnRoadProperly();
            }

            pVeh->m_nAreaCode = interiorID;
        }
    }
    else
    {
        pPlayer->Teleport(pos, false);
    }

    if (TPMarker::m_bJetpack)
    {
        Command<Commands::TASK_JETPACK>(hplayer);
    }
#else
    if (pVeh && pPlayer->m_pVehicle)
    {
#ifdef GTAVC
        pPlayer->m_nAreaCode = interiorID;
#endif
        pVeh->Teleport(pos);
    }
    else
    {
        pPlayer->Teleport(pos);
    }
#endif

#if defined GTASA || defined GTAVC
    pPlayer->m_nAreaCode = interiorID;
    Command<Commands::SET_AREA_VISIBLE>(interiorID);
#endif
}

void Teleport::TeleportToLocation(std::string& rootkey, std::string& bLocName, std::string& loc)
{
    try
    {
        int dimension = 0;
        CVector pos;
        sscanf(loc.c_str(), "%d,%f,%f,%f", &dimension, &pos.x, &pos.y, &pos.z);
        WarpPlayer<eTeleportType::Coordinate>(pos, dimension);
    }
    catch (...)
    {
        Util::SetMessage(TEXT("Teleport.InvalidLocation"));
    }
}

void Teleport::RemoveTeleportEntry(std::string& category, std::string& key, std::string& val)
{
    if (category == "Custom")
    {
        m_locData.m_pData->RemoveKey("Custom", key.c_str());
        Util::SetMessage(TEXT("Teleport.LocationRemoved"));
        m_locData.m_pData->Save();
    }
    else
    {
        Util::SetMessage(TEXT("Teleport.CustomLocationRemoveOnly"));
    }
}

void Teleport::ShowPage()
{
    if (ImGui::BeginTabBar("Teleport", ImGuiTabBarFlags_NoTooltip + ImGuiTabBarFlags_FittingPolicyScroll))
    {
        ImGui::Spacing();
        if (ImGui::BeginTabItem(TEXT("Window.TeleportPage")))
        {
            ImGui::Spacing();
            if (ImGui::BeginChild("Teleport Child"))
            {
                ImGui::Columns(2, nullptr, false);
                ImGui::Checkbox(TEXT("Teleport.InsertCoord"), &m_bInsertCoord);
#ifdef GTASA
                if (Widget::Checkbox(TEXT("Teleport.QuickTeleport"), &m_bQuickTeleport,
                                        std::string(TEXT_S("Teleport.QuickTeleportHint") 
                                                    + quickTeleport.GetNameString()).c_str()))
                {
                    gConfig.Set("Features.QuickTeleport", m_bQuickTeleport);
                }
#endif
                ImGui::NextColumn();
#ifdef GTASA
                if (Widget::Checkbox(TEXT("Teleport.TeleportMarker"), &m_bTeleportMarker,
                                        std::string(TEXT_S("Teleport.TeleportMarkerHint") 
                                                    + teleportMarker.GetNameString()).c_str()))
                {
                    gConfig.Set("Features.TeleportMarker", m_bTeleportMarker);
                }
#endif
                ImGui::Columns(1);
                ImGui::Spacing();

                if (m_bInsertCoord)
                {
                    CVector pos = FindPlayerPed()->GetPosition();

                    strcpy(m_nInputBuffer,
                           (std::to_string(static_cast<int>(pos.x)) + ", " + std::to_string(static_cast<int>(pos.y)) +
                            ", " + std::to_string(static_cast<int>(pos.z))).c_str());
                }

                ImGui::InputTextWithHint(TEXT("Teleport.Coordinates"), "x, y, z", m_nInputBuffer, IM_ARRAYSIZE(m_nInputBuffer));

                ImGui::Spacing();

                if (ImGui::Button(TEXT("Teleport.TeleportToCoord"), Widget::CalcSize(2)))
                {
                    CVector pos{0, 0, 10};

                    try
                    {
                        sscanf(m_nInputBuffer,"%f,%f,%f", &pos.x, &pos.y, &pos.z);
                        pos.z += 1.0f;
                        WarpPlayer(pos);
                    }
                    catch (...)
                    {
                        Util::SetMessage(TEXT("Teleport.InvalidCoord"));
                    }
                }
                ImGui::SameLine();
#ifdef GTASA
                if (ImGui::Button((TEXT_S("Teleport.TeleportMarker") + "##Btn").c_str(), Widget::CalcSize(2)))
                {
                    WarpPlayer<eTeleportType::Marker>();
                }
#else
                if (ImGui::Button(TEXT("Teleport.TeleportCenter"), Widget::CalcSize(2)))
                {
                    WarpPlayer<eTeleportType::Coordinate>(CVector(0, 0, 23));
                }
#endif
                ImGui::EndChild();
            }
            ImGui::EndTabItem();
        }

        if (ImGui::BeginTabItem(TEXT("Window.LocationsTab")))
        {
#ifdef GTASA
            FetchRadarSpriteData();
#endif  
            ImGui::Spacing();
            if (ImGui::CollapsingHeader(TEXT("Window.AddNew")))
            {
                ImGui::Spacing();
                ImGui::InputTextWithHint(TEXT("Teleport.Location"), TEXT("Teleport.LocationHint"), m_nLocationBuffer, IM_ARRAYSIZE(m_nInputBuffer));
                ImGui::InputTextWithHint(TEXT("Teleport.Coordinates"), "x, y, z", m_nInputBuffer, IM_ARRAYSIZE(m_nInputBuffer));
                ImGui::Spacing();
                if (ImGui::Button(TEXT("Teleport.AddLocation"), Widget::CalcSize()))
                {
                    std::string key = std::string("Custom.") + m_nLocationBuffer;
                    m_locData.m_pData->Set(key.c_str(), ("0, " + std::string(m_nInputBuffer)));

    #ifdef GTASA
                    // Clear the Radar coordinates
                    m_locData.m_pData->RemoveTable("Radar");
    #endif

                    m_locData.m_pData->Save();
                }
            }

            ImGui::Spacing();
            Widget::DataList(m_locData, TeleportToLocation, RemoveTeleportEntry);
            ImGui::EndTabItem();
        }
        ImGui::EndTabBar();
    }
}