race.cpp

#include <cstring>

#include "engine/api.hpp"
#include "engine/save.hpp"
#include "graphics/color.hpp"
#include "types/mat4.hpp"

#include "race.hpp"

#include "assets.hpp"
#include "fonts.hpp"
#include "game.hpp"
#include "kart-info.hpp"
#include "main-menu.hpp"
#include "save.hpp"
#include "track.hpp"

using namespace blit;

#if PICO_BUILD
#define LORES_RACE
#endif

extern const TrackInfo track_info[];
extern const int num_tracks;

#ifdef LORES_RACE
static auto &number_font = medium_number_font;
static auto &main_font = eight_font;
const int item_container_size = 24;
const float item_preview_scale = 1.0f;
#else
static auto &number_font = big_number_font;
static auto &main_font = tall_font;
const int item_container_size = 48;
const float item_preview_scale = 2.0f;
#endif

// big text helper
static void stretch_text(std::string_view text, const Font &font, const Point &pos, float scale, TextAlign align) {
    auto bounds = screen.measure_text(text, font);

    auto buf = new uint8_t[bounds.area()]();
    Pen palette[] {
        {0, 0, 0, 0},
        screen.pen
    };

    Surface surf(buf, PixelFormat::P, bounds);
    surf.palette = palette;
    surf.pen = {1};

    Rect surf_rect({0, 0}, bounds);

    surf.text(text, font, surf_rect, true, align);

    Rect dest(pos, bounds * scale);

    // (re-)align
    if(align & TextAlign::center_h)
        dest.x -= bounds.w * scale / 2;
    //...right

    if(align & TextAlign::center_v)
        dest.y -= bounds.h * scale / 2;
    //...bottom

    screen.stretch_blit(&surf, surf_rect, dest);

    delete[] buf;
}

Race::Race(Game *game, int player_kart, int track_index, RaceMode mode) : game(game), player_kart(player_kart), track_index(track_index), mode(mode),
    pause_menu("Paused", {{Menu_Continue, "Continue"}, {Menu_Restart, "Restart"}, {Menu_Quit, "Quit"}}, main_font),
    end_menu("", {{Menu_Restart, "Restart"}, {Menu_Quit, "Quit"}}, main_font) {

    state.track = new Track(track_info[track_index]);


#ifdef LORES_RACE
    set_screen_mode(ScreenMode::lores);
    cam.focal_distance = 140.0f;
    state.track->set_fog(80.0f);

    const int end_menu_margin = 4;
#else
    const int end_menu_margin = 16;
#endif

#ifndef PICO_BUILD
    minimap.set_track(state.track);
#endif

    setup_race();

    Size menu_size(90, 90);
    pause_menu.set_display_rect({{(screen.bounds.w - menu_size.w) / 2, (screen.bounds.h - menu_size.h) / 2}, menu_size});
    pause_menu.set_on_item_activated(std::bind(&Race::on_menu_activated, this, std::placeholders::_1));

    menu_size.h = (main_font.char_h + 10) * 2;
    end_menu.set_display_rect({{(screen.bounds.w - menu_size.w) / 2, (screen.bounds.h - (menu_size.h + end_menu_margin))}, menu_size});
    end_menu.set_on_item_activated(std::bind(&Race::on_menu_activated, this, std::placeholders::_1));

    kart_icons = blit::Surface::load(asset_kart_icons);
}

Race::~Race() {
    delete state.track;

    delete time_trial_data;

    for(auto &kart : state.karts)
        delete kart.sprite.spritesheet;
}

void Race::render() {
    screen.pen = state.track->get_info().background_col;
    screen.clear();

    for(auto &sprite : display_sprites_below)
        sprite->render(cam);

    state.track->render(cam);

    for(auto &sprite : display_sprites)
        sprite->render(cam);

    screen.pen = Pen(255, 255, 255);

    if(state.countdown) {
        int num = std::ceil(state.countdown / 1000.0f);

        float scale = 1.0f + (1.0f - (state.countdown % 1000) / 1000.0f);
        stretch_text(std::to_string(num), number_font, Point(screen.bounds.w / 2, screen.bounds.h / 4), scale, center_center);
    }

    char buf[20];

    // place
    int place = state.karts[0].current_place;
    const char *digits = "012345678";
    const char *suffix[]{"", "st", "nd", "rd", "th"};

    // printf/to_string seems overkill for a single digit...
    std::string_view place_char(digits + place, 1);
    auto bounds = screen.measure_text(place_char, number_font);

    auto col = hsv_to_rgba((place - 1) / 8.0f, 1.0f, 0.7f);

    // "shadow"
    screen.pen = {col.r / 2, col.g / 2, col.b / 2};
    screen.text(place_char, number_font, Point(9, 9));
    screen.text(suffix[std::min(place, 4)], main_font, Point(bounds.w + 11, bounds.h + 5), true, TextAlign::bottom_left);

    screen.pen = col;
    screen.text(place_char, number_font, Point(8, 8));
    screen.text(suffix[std::min(place, 4)], main_font, Point(bounds.w + 10, bounds.h + 4), true, TextAlign::bottom_left);

    // lap count
    // uint8 to silence truncation wawning
    uint8_t lap = std::max(0, state.karts[0].get_current_lap()) + 1;

    screen.pen = {255, 255, 255};

    if(lap < 4) {
        snprintf(buf, 20, "Lap %u/3", lap);
        screen.text(buf, main_font, Point(8, bounds.h + 8));
    }

    // current/best time
    if(mode == RaceMode::TimeTrial) {
        auto cur_lap_time = state.karts[0].get_lap_time(state.karts[0].get_current_lap());

        snprintf(buf, 20, "Time: %02i:%02i.%02i", cur_lap_time / 60000, (cur_lap_time / 1000) % 60, (cur_lap_time % 1000) / 10);
        screen.text(buf, main_font, Point(8, bounds.h + 20));

        if(best_lap_time != ~0u) {
            snprintf(buf, 20, "Best: %02i:%02i.%02i", best_lap_time / 6000, (best_lap_time / 100) % 60, (best_lap_time % 100));
            screen.text(buf, main_font, Point(8, bounds.h + 32));
        }
    }

    // item
    screen.pen = {0xFF, 0xFF, 0xFF};

    Point item_container_pos(screen.bounds.w - item_container_size - 8, 8);
    screen.h_span(item_container_pos, item_container_size);
    screen.h_span(item_container_pos + Point(0, item_container_size - 1), item_container_size);
    screen.v_span(item_container_pos, item_container_size);
    screen.v_span(item_container_pos + Point(item_container_size - 1, 0), item_container_size);

    auto item = state.karts[0].get_current_item();
    if(item != ItemType::None) {
        auto &sprite = item_sprites[static_cast<int>(item)];
        auto center = item_container_pos + Point(item_container_size / 2, item_container_size / 2);

        screen.sprites = state.track->get_tiles();
        screen.sprite(sprite, center, Point(sprite.w * 4, sprite.h * 4), item_preview_scale);
    }

#ifndef PICO_BUILD
    // minimap
    minimap.render();

    // kart locations on minimap
    auto viewport = minimap.get_viewport();
    Point minimap_pos(screen.bounds.w - viewport.w, screen.bounds.h  - viewport.h);
    auto old_clip = screen.clip;

    screen.clip = Rect(minimap_pos, viewport.size());

    auto off = minimap_pos - viewport.tl();

    screen.sprites = kart_icons;

    int i = 0;
    for(auto &kart : state.karts) {
        if(i == num_karts) break;

        Point icon_pos = off + kart.get_tile_pos() - Point(4, 4);

        // this will probably be a sprite eventually
        screen.pen = hsv_to_rgba(i++ / 8.0f, 1.0f, 1.0f);
        screen.rectangle(Rect(icon_pos, Size(8, 8)));

        screen.sprite(kart.kart_index, icon_pos);
    }

    screen.clip = old_clip;
#endif

    // we've finished - display the result
    if(state.karts[0].has_finished())
        render_result();
    else if(paused) {
        screen.pen = Pen(0, 0, 0, 150);
        screen.clear();
        pause_menu.render();
        return;
    }
}

void Race::update(uint32_t time) {
    // toggle pause menu, but not after the race ends
    if((buttons.pressed & Button::MENU) && !state.karts[0].has_finished())
        paused = !paused;

    if(paused) {
        pause_menu.update(time);
        return;
    }

    if(state.countdown) {
        state.countdown -= 10;

        if(!state.countdown)
            start_time = now();
    }

    // kart index, "progress"
    std::tuple<int, float> kart_progress[8];
    // TODO: don't bother with the last one
    int new_num_finished = 0;

    int i = 0;
    for(auto &kart : state.karts) {
        if(i == num_karts) break;

        kart.update();

        if(kart.has_finished())
            new_num_finished++;

        // appox progress through race
        float progress = static_cast<int>(kart.get_current_lap() * state.track->get_info().route_len)
                       + kart.get_route_estimate();

        kart_progress[i] = std::make_tuple(i, progress);
        i++;
    }

    // objects
    for(auto &obj : state.track->get_objects())
        obj.update();

    // sort by progress
    std::sort(kart_progress, kart_progress + num_karts, [](const std::tuple<int, float> &a, const std::tuple<int, float> &b) {
        return std::get<1>(a) > std::get<1>(b);
    });

    for(int i = 0; i < num_karts; i++)
        state.karts[std::get<0>(kart_progress[i])].current_place = i + 1;

    // update the results when someone finishes
    if(new_num_finished != num_finished) {
        int i = 0;
        for(auto &kart : state.karts) {
            if(!kart.has_finished())
                kart_finish_times[i] = std::make_tuple(i, ~0u);
            else
                kart_finish_times[i] = std::make_tuple(i, kart.get_finish_time());

            i++;
        }

        std::sort(std::begin(kart_finish_times), std::end(kart_finish_times), [](const std::tuple<int, uint32_t> &a, const std::tuple<int, uint32_t> &b) {
            return std::get<1>(a) < std::get<1>(b);
        });
    }

    num_finished = new_num_finished;

    // end of race restart/quit menu
    if(show_end_menu)
        end_menu.update(time);

    // don't show the menu if A is still held to avoid accidentally restarting
    if(num_finished == num_karts && !(buttons & Button::A))
        show_end_menu = true;

    // update camera
    Vec3 cam_look_at_target = state.karts[0].get_pos();
    Vec3 cam_pos_target = cam_look_at_target - state.karts[0].sprite.look_dir * 64.0f + Vec3(0, 16.0f, 0);

    cam.look_at += (cam_look_at_target - cam.look_at) * 0.1f;

    if(state.karts[0].has_finished()) {
        // spin camera around after race finished
        cam.pos += (cam_look_at_target - cam.look_at) * 0.1f; // follow

        cam.pos -= cam.look_at;
        cam.pos.transform(Mat4::rotation(0.2f, Vec3(0.0f, 1.0f, 0.0f)));
        cam.pos += cam.look_at;
    } else
        cam.pos += (cam_pos_target - cam.pos) * 0.03f;

    cam.pos.y = std::max(1.0f, cam.pos.y); // prevent the camera going below the track
    cam.update();

    // cull/sort
    auto check_sprite = [this](Sprite3D &sprite) {
        if(sprite.z >= cam.near && sprite.z <= cam.far) {
            if(sprite.world_pos.y < 0.0f)
                display_sprites_below.push_front(&sprite);
            else
                display_sprites.push_front(&sprite);
        }
    };

    display_sprites.clear();
    display_sprites_below.clear();

    for(int i = 0; i < num_karts; i++) {
        state.karts[i].sprite.update(cam);
        check_sprite(state.karts[i].sprite);
    }

    for(auto &obj : state.track->get_objects()) {
        if(!obj.is_active())
            continue;

        obj.sprite.update(cam);
        check_sprite(obj.sprite);
    }

    auto sort_func = [](Sprite3D *a, Sprite3D *b) {return a->z > b->z;};
    display_sprites.sort(sort_func);
    display_sprites_below.sort(sort_func);

#ifndef PICO_BUILD
    // minimap
    // TODO: maybe don't constantly recreate this
    minimap.update(state.karts[0].get_tile_pos());
#endif
}

void Race::setup_race() {
    // max two karts for time trial
    if(mode == RaceMode::TimeTrial)
        num_karts = 2;

    state.countdown = 3000;

    // setup karts
    auto &info = state.track->get_info();

    auto track_start_dir = state.track->get_starting_dir();

    Vec2 finish_line(info.finish_line[1] - info.finish_line[0]);
    float w = finish_line.length();
    finish_line /= w;

    Vec2 start_pos = Vec2(info.finish_line[0]) + finish_line * w * (3.0f / 20.0f);

    float inc = (w / 5.0f) * 3.0f / 3.0f;

    int i = 0;
    for(auto &kart : state.karts) {
        if(i == num_karts)
            break;

        delete kart.sprite.spritesheet;

        kart = Kart();
        kart.set_race_state(&state);
        kart.sprite.scale = 0.75f;

        int kart_index;

        if(i == 0)
            kart_index = player_kart;
        else
            kart_index = blit::random() % std::size(kart_info); // random kart info

        auto &info = kart_info[kart_index];
        kart.sprite.spritesheet = load_kart_sprite(info);
        kart.kart_index = kart_index;

        kart.sprite.look_dir = Vec3(track_start_dir.x, 0.0f, track_start_dir.y);
        kart.sprite.world_pos = Vec3(
            start_pos.x,
            0.0f,
            start_pos.y
        ) - kart.sprite.look_dir * 48.0f;

        i++;
        if(i == 4) {
            start_pos -= finish_line * inc * 2.5f;
        } else
            start_pos += finish_line * inc;

        start_pos -= track_start_dir * 8.0f;
    }

    // player kart
    state.karts[0].is_player = true;
    cam.look_at = state.karts[0].get_pos();
    cam.pos = cam.look_at - state.karts[0].sprite.look_dir * 64.0f + Vec3(0, 16.0f, 0);
    cam.viewport = {{0, 0}, screen.bounds};
    cam.update();

    // reset track objects
    state.track->reset_objects();

    // time trial setup
    if(mode == RaceMode::TimeTrial) {
        delete time_trial_data;
        time_trial_data = new TimeTrialSaveData; // shared between ghost and recording

        unsigned int best_time = ~0, worst_time = 0;
        int best_slot = 0, worst_slot = 0;

        for(int i = 0; i < 10; i++) {

            TimeTrialSaveData &save = *time_trial_data;
            unsigned int this_time = ~0;
            if(read_save(save, get_save_slot(SaveType::TimeTrial, track_index, i)) && save.save_version == 1) {
                this_time = std::min(std::min(save.lap_time[0], save.lap_time[1]), save.lap_time[2]); // best lap
            }

            if(this_time < best_time) {
                best_time = this_time;
                best_slot = i;
            } else if(this_time > worst_time) {
                worst_time = this_time;
                worst_slot = i;
            }
        }

        // this is where we'll save to
        worst_time_trial_slot = worst_slot;
        worst_time_trial_time = worst_time;

        state.karts[0].set_time_trial_data(time_trial_data);

        // attempt to load the "best" result as a ghost
        if(read_save(*time_trial_data, get_save_slot(SaveType::TimeTrial, track_index, best_slot))) {
            // move any existing data to the end of the buffer
            // (the new data will be recorded at the start)
            int offset = std::size(time_trial_data->ghost_data) - time_trial_data->ghost_data_used;
            memmove(time_trial_data->ghost_data + offset, time_trial_data->ghost_data, time_trial_data->ghost_data_used * sizeof(time_trial_data->ghost_data[0]));

            state.karts[1].set_time_trial_data(time_trial_data, offset, time_trial_data->ghost_data_used);
            state.karts[1].sprite.alpha = 0.5f;
            state.karts[1].sprite.spritesheet = load_kart_sprite(kart_info[time_trial_data->kart]);
            state.karts[1].kart_index = time_trial_data->kart;

            num_karts = 2;
            best_lap_time = best_time;
        } else
            num_karts = 1;

        // reset data used/version
        time_trial_data->save_version = 1;
        time_trial_data->ghost_data_used = 0;

        // disable items
        for(auto &obj : state.track->get_objects()) {
            if(obj.type == ObjectType::Item)
                obj.type = ObjectType::Removed;
        }
    }
}

void Race::render_result() {
    screen.pen = Pen(0, 0, 0, 150);
    screen.clear();

    screen.pen = Pen(255, 255, 255);

    const int item_height = main_font.char_h + 1;
    int leaderboard_height = 8 * item_height;

#ifdef LORES_RACE
    int y = 4;
#else
    int y = (screen.bounds.h - leaderboard_height) / 2;
#endif

    char buf[40];

    int i = 0;
    for(auto &ft : kart_finish_times) {
        // reached the non-finished players
        if(std::get<1>(ft) == ~0u || i == num_karts)
            break;

        int kart_idx = std::get<0>(ft);

        auto &kart = state.karts[kart_idx];

        int time_min, time_sec, time_frac;
        int time = kart.get_finish_time() - start_time;

        time_min = time / 60000;
        time_sec = (time / 1000) % 60;
        time_frac = (time % 1000) / 10;

        snprintf(buf, sizeof(buf), "%i - %s - %02i:%02i.%02i", i + 1, kart_idx == 0 ? "You" : "CPU", time_min, time_sec, time_frac);
        screen.text(buf, main_font, Point(screen.bounds.w / 2, y), true, TextAlign::top_center);

        y += item_height;
        i++;
    }

    if(show_end_menu)
        end_menu.render();
}

void Race::on_menu_activated(const ::Menu::Item &item) {
    switch(item.id) {
        case Menu_Continue:
            break; // do nothing

        case Menu_Restart:
            setup_race();
            show_end_menu = false;
            break;

        case Menu_Quit:
#ifdef LORES_RACE
            set_screen_mode(ScreenMode::hires);
#endif
            game->change_state<MainMenu>();
            break;
    }

    // write save on continue/exit
    if(num_finished == num_karts) {
        if(mode == RaceMode::Race) {
            RaceSaveData save;
            for(save.place = 0; save.place < 8; save.place++) {
                if(std::get<0>(kart_finish_times[save.place]) == 0)
                    break;
            }

            save.time = state.karts[0].get_race_time() / 10;

            RaceSaveData old_save;
            int slot = get_save_slot(SaveType::RaceResult, track_index);

            // overwrite if improved
            bool have_old_save = read_save(old_save, slot) && old_save.save_version == 1 && old_save.time > 0;
            if(!have_old_save || save.place < old_save.place || (save.place == old_save.place && save.time < old_save.time))
                write_save(save, slot);
        } else if(mode == RaceMode::TimeTrial) {
            int slot = get_save_slot(SaveType::TimeTrial, track_index, worst_time_trial_slot);

            auto &save = *time_trial_data;

            save.kart = player_kart;

            for(int i = 0; i < 3; i++)
                save.lap_time[i] = state.karts[0].get_lap_time(i) / 10;

            unsigned int best_lap = std::min(std::min(save.lap_time[0], save.lap_time[1]), save.lap_time[2]);

            // make sure this is actually an improvement
            if(best_lap < worst_time_trial_time)
                write_save(save, slot);
        }
    }

    paused = false;
}

Surface *Race::load_kart_sprite(const KartInfo &info) {
    // only load asset once
    auto it = kart_sprite_cache.find(info.sprite_asset);

    if(it == kart_sprite_cache.end()) {
        auto new_surf = Surface::load(info.sprite_asset);
        if(!new_surf)
            return nullptr;

        it = std::get<0>(kart_sprite_cache.emplace(info.sprite_asset, new_surf));
    }

    // create new Surface sharing the same data (but possibly unique palette)
    auto ret = new Surface(it->second->data, it->second->format, it->second->bounds);
    if(info.alt_palette)
        ret->palette = (Pen *)info.alt_palette;
    else
        ret->palette = it->second->palette;

    return ret;
}