kartiny.h

/* 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 3 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, see <http://www.gnu.org/licenses/>.
 *
 */

#ifndef QDENGINE_MINIGAMES_KARTINY_H
#define QDENGINE_MINIGAMES_KARTINY_H

#include "common/debug.h"

#include "qdengine/qd_fwd.h"
#include "qdengine/qdcore/qd_minigame_interface.h"

namespace QDEngine {

class qdKartinyMiniGame : public qdMiniGameInterface {
public:
    qdKartinyMiniGame() {}
    ~qdKartinyMiniGame() {}

    bool init(const qdEngineInterface *engine_interface) {
        debugC(1, kDebugMinigames, "Kartiny::init()");

        _engine = engine_interface;
        _scene = engine_interface->current_scene_interface();
        if (!_scene)
            return 0;

        _bg_clickObj = _scene->object_interface(_scene->minigame_parameter("zad_click_flag_name"));
        _bg1_l2Obj   = _scene->object_interface(_scene->minigame_parameter("zad1_l2_object_name"));
        _bg2_l2Obj   = _scene->object_interface(_scene->minigame_parameter("zad2_l2_object_name"));
        _bg3_l2Obj   = _scene->object_interface(_scene->minigame_parameter("zad3_l2_object_name"));
        _bg4_l2Obj   = _scene->object_interface(_scene->minigame_parameter("zad4_l2_object_name"));
        _doneObj     = _scene->object_interface(_scene->minigame_parameter("done"));
        _startObj    = _scene->object_interface(_scene->minigame_parameter("start"));
        _activateObj = _scene->object_interface(_scene->minigame_parameter("activate"));
        _zFlagObj    = _scene->object_interface(_scene->minigame_parameter("z_flag"));
        _startObj2   = _scene->object_interface(_scene->minigame_parameter("start"));

        _wasInited = 0;
        _artDepth = -1.0;
        return true;
    }

    bool quant(float dt) {
        debugC(3, kDebugMinigames, "Kartiny::quant(%f)", dt);

        mgVect3f newPiecePos;
        mgVect2i piecePos;

        float depth1 = _scene->screen_depth(_bg1_l2Obj->R());
        float depth2 = _scene->screen_depth(_bg2_l2Obj->R());
        float depth3 = _scene->screen_depth(_bg3_l2Obj->R());
        float depth4 = _scene->screen_depth(_bg4_l2Obj->R());

        if (depth4 >= depth3 || depth3 >= depth2 || depth2 >= depth1)
            _zFlagObj->set_state("\xed\xe5\xf2");   // "нет"
        else
            _zFlagObj->set_state("\xe4\xe0");       // "да"

        if (!_wasInited) {
            if (_startObj->is_state_active("\xe7\xe0\xe4\xed\xe8\xea\xe8 \xee\xef\xf3\xf9\xe5\xed\xfb"))    // "задники опущены"
                _wasInited = 1;

            if (!_wasInited) {
                if (_startObj->is_state_active("\xed\xe5\xf2")) { // "нет"
                    _bg1_l2Obj->set_R(_scene->screen2world_coords(mgVect2i(400, -300), 600.0));
                    _bg2_l2Obj->set_R(_scene->screen2world_coords(mgVect2i(200, -300), 400.0));
                    _bg3_l2Obj->set_R(_scene->screen2world_coords(mgVect2i(400, -300), 200.0));
                    _bg4_l2Obj->set_R(_scene->screen2world_coords(mgVect2i(600, -300), 0.0));

                    _stage = 4;
                    _artDepth = -50.0;

                    _activateObj->set_state("\xe7\xe0\xe4\xed\xe8\xea\x34"); // "задник4"
                    _startObj->set_state("\xe4\xe0");   // "да"
                } else {
                    if (_startObj->is_state_active("\xe4\xe0")) { // "да"
                        if (_bg1_l2Obj->screen_R().y < 100) {
                            piecePos.x = 400;
                            piecePos.y = _bg1_l2Obj->screen_R().y + 3;
                            _bg1_l2Obj->set_R(_scene->screen2world_coords(piecePos, 600.0));
                        }

                        if (_bg2_l2Obj->screen_R().y < 50) {
                            piecePos.x = 200;
                            piecePos.y = _bg2_l2Obj->screen_R().y + 2;
                            _bg2_l2Obj->set_R(_scene->screen2world_coords(piecePos, 400.0));
                        }

                        if (_bg3_l2Obj->screen_R().y < 85) {
                            piecePos.x = 400;
                            piecePos.y = _bg3_l2Obj->screen_R().y + 2;
                            _bg3_l2Obj->set_R(_scene->screen2world_coords(piecePos, 200.0));
                        }

                        if (_bg4_l2Obj->screen_R().y < 0) {
                            piecePos.x = 600;
                            piecePos.y = _bg4_l2Obj->screen_R().y + 2;
                            _bg4_l2Obj->set_R(_scene->screen2world_coords(piecePos, 0.0));
                        }

                        if (_bg1_l2Obj->screen_R().y >= 100
                                && _bg2_l2Obj->screen_R().y >= 50
                                && _bg3_l2Obj->screen_R().y >= 85
                                && _bg4_l2Obj->screen_R().y >= 0) {
                            _wasInited = 1;
                            _startObj->set_state("\xe7\xe0\xe4\xed\xe8\xea\xe8 \xee\xef\xf3\xf9\xe5\xed\xfb");  // "задники опущены"
                        }
                    }

                    if (_startObj->is_state_active("\xe7\xe0\xe4\xed\xe8\xea\xe8 \xee\xef\xf3\xf9\xe5\xed\xfb") // "задники опущены"
                            && _artDepth == -1.0) {
                        _artState[0].depth = _scene->screen_depth(_bg1_l2Obj->R());
                        _artState[0].num = 1;
                        _artState[1].depth = _scene->screen_depth(_bg2_l2Obj->R());
                        _artState[1].num = 2;
                        _artState[2].depth = _scene->screen_depth(_bg3_l2Obj->R());
                        _artState[2].num = 3;
                        _artState[3].depth = _scene->screen_depth(_bg4_l2Obj->R());
                        _artState[3].num = 4;

                        // Sort
                        for (int i = 0; i < 3; i++) {
                            while (_artState[i + 1].depth < _artState[i].depth) {
                                int num = _artState[i].num;
                                float depth = _artState[i].depth;

                                _artState[i].depth = _artState[i + 1].depth;
                                _artState[i].num = _artState[i + 1].num;
                                _artState[i + 1].depth = depth;
                                _artState[i + 1].num = num;

                                i = 0;
                            }
                        }

                        _wasInited = 1;

                        _stage = _artState[0].num;
                        _artDepth = _artState[0].depth;
                    }
                }
            }
        }

        if (!checkSolution() && _wasInited) {
            _doneObj->set_state("false");

            if (_engine->is_key_pressed(VK_LEFT)
                    || _engine->is_key_pressed(VK_RIGHT)
                    || _engine->is_key_pressed(VK_UP)
                    || _engine->is_key_pressed(VK_DOWN)) {
                ++_keyDownCounter;
            } else {
                _keyDownCounter = 0;
            }

            if (_engine->is_key_pressed(VK_LEFT)) {
                switch (_stage) {
                case 1:
                    moveLeft(_bg1_l2Obj);
                    break;
                case 2:
                    moveLeft(_bg2_l2Obj);
                    break;
                case 3:
                    moveLeft(_bg3_l2Obj);
                    break;
                case 4:
                    moveLeft(_bg4_l2Obj);
                    break;
                default:
                    break;
                }
            }

            if (_engine->is_key_pressed(VK_RIGHT)) {
                switch (_stage) {
                case 1:
                    moveRight(_bg1_l2Obj);
                    break;
                case 2:
                    moveRight(_bg2_l2Obj);
                    break;
                case 3:
                    moveRight(_bg3_l2Obj);
                    break;
                case 4:
                    moveRight(_bg4_l2Obj);
                    break;
                default:
                    break;
                }
            }

            if (_engine->is_key_pressed(VK_UP)) {
                switch (_stage) {
                case 1:
                    moveUp(_bg1_l2Obj);
                    break;
                case 2:
                    moveUp(_bg2_l2Obj);
                    break;
                case 3:
                    moveUp(_bg3_l2Obj);
                    break;
                case 4:
                    moveUp(_bg4_l2Obj);
                    break;
                default:
                    break;
                }
            }

            if (_engine->is_key_pressed(VK_DOWN)) {
                switch (_stage) {
                case 1:
                    moveDown(_bg1_l2Obj);
                    break;
                case 2:
                    moveDown(_bg2_l2Obj);
                    break;
                case 3:
                    moveDown(_bg3_l2Obj);
                    break;
                case 4:
                    moveDown(_bg4_l2Obj);
                    break;
                default:
                    break;
                }
            }

            if ((_bg_clickObj->is_state_active("zad1_level2")
                    || _activateObj->is_state_active("\xe7\xe0\xe4\xed\xe8\xea\x31")) && _stage != 1) { // "задник1"
                _stage = 1;
                _activateObj->set_state("\xe7\xe0\xe4\xed\xe8\xea\x31"); // "задник1"
                _artDepth -= 200.0;
                _bg1_l2Obj->set_R(_scene->screen2world_coords(_bg1_l2Obj->screen_R(), _artDepth));

                snapPieces();
            }

            if ((_bg_clickObj->is_state_active("zad2_level2")
                    || _activateObj->is_state_active("\xe7\xe0\xe4\xed\xe8\xea\x32")) && _stage != 2) { // "задник2"
                _stage = 2;
                _activateObj->set_state("\xe7\xe0\xe4\xed\xe8\xea\x32"); // "задник2"
                _artDepth -= 200.0;
                _bg2_l2Obj->set_R(_scene->screen2world_coords(_bg2_l2Obj->screen_R(), _artDepth));

                snapPieces();
            }

            if ((_bg_clickObj->is_state_active("zad3_level2")
                    || _activateObj->is_state_active("\xe7\xe0\xe4\xed\xe8\xea\x33")) && _stage != 3) { // "задник3"
                _stage = 3;
                _activateObj->set_state("\xe7\xe0\xe4\xed\xe8\xea\x33"); // "задник3"
                _artDepth -= 200.0;
                _bg3_l2Obj->set_R(_scene->screen2world_coords(_bg3_l2Obj->screen_R(), _artDepth));

                snapPieces();
            }

            if ((_bg_clickObj->is_state_active("zad4_level2")
                    || _activateObj->is_state_active("\xe7\xe0\xe4\xed\xe8\xea\x34")) && _stage != 4) { // "задник4"
                _stage = 4;
                _activateObj->set_state("\xe7\xe0\xe4\xed\xe8\xea\x34"); // "задник4"
                _artDepth -= 200.0;
                _bg4_l2Obj->set_R(_scene->screen2world_coords(_bg4_l2Obj->screen_R(), _artDepth));

                snapPieces();
            }
        }

        return true;
    }

    bool finit() {
        debugC(1, kDebugMinigames, "Kartiny::finit()");

        if (_scene)  {
            _engine->release_scene_interface(_scene);
            _scene = 0;
        }

        return true;
    }

    bool new_game(const qdEngineInterface *engine_interface) {
        return true;
    }

    int save_game(const qdEngineInterface *engine_interface, const qdMinigameSceneInterface *scene_interface, char *buffer, int buffer_size) {
        return 0;
    }

    int load_game(const qdEngineInterface *engine_interface, const qdMinigameSceneInterface *scene_interface, const char *buffer, int buffer_size) {
        return 0;
    }

    enum { INTERFACE_VERSION = 99 };
    int version() const {
        return INTERFACE_VERSION;
    }

private:
    void snapPieces() {
        mgVect2i piecePos;
        mgVect3f newPiecePos;
        float depth;

        piecePos = _bg1_l2Obj->screen_R();
        depth = _scene->screen_depth(_bg1_l2Obj->R());

        if (ABS(399 - ABS(piecePos.x)) <= 10 && ABS(278 - ABS(piecePos.y)) <= 10) {
            piecePos.x = 399;
            piecePos.y = 278;

            newPiecePos = _scene->screen2world_coords(piecePos, depth);
            _bg1_l2Obj->set_R(newPiecePos);
        }

        piecePos = _bg2_l2Obj->screen_R();
        depth = _scene->screen_depth(_bg2_l2Obj->R());

        if (piecePos.x >= 387 && piecePos.x <= 440 && ABS(267 - ABS(piecePos.y)) <= 20) {
            piecePos.x = 408;
            piecePos.y = 267;

            newPiecePos = _scene->screen2world_coords(piecePos, depth);
            _bg2_l2Obj->set_R(newPiecePos);
        }

        piecePos = _bg3_l2Obj->screen_R();
        depth = _scene->screen_depth(_bg3_l2Obj->R());

        if (ABS(ABS(piecePos.x) - 413) < 25 && ABS(ABS(piecePos.y) - 43) < 40) {
            piecePos.x = 406;
            piecePos.y = -43;

            newPiecePos = _scene->screen2world_coords(piecePos, depth);
            _bg3_l2Obj->set_R(newPiecePos);
        }
    }

    void moveDown(qdMinigameObjectInterface *obj) {
        int speed = MAX(10, _keyDownCounter / 10 + 1);
        int maxCoords;

        if (obj == _bg1_l2Obj)
            maxCoords = 279;
        else if (obj == _bg2_l2Obj)
            maxCoords = 267;
        // FIXME: Remove this as covered by the default case?
        //else if (obj == _bg3_l2Obj)
        //  maxCoords = 258;
        else
            maxCoords = 258;

        mgVect2i objPos = obj->screen_R();

        if (objPos.y + speed < maxCoords)
            objPos.y += speed;

        obj->set_R(_scene->screen2world_coords(objPos, _artDepth));
    }

    void moveUp(qdMinigameObjectInterface *obj) {
        int speed = MAX(10, _keyDownCounter / 10 + 1);
        mgVect2i objPos = obj->screen_R();

        if (objPos.y > -100)
            objPos.y -= speed;

        obj->set_R(_scene->screen2world_coords(objPos, _artDepth));
    }

    void moveRight(qdMinigameObjectInterface *obj) {
        int speed = MAX(10, _keyDownCounter / 10 + 1);
        mgVect2i objPos = obj->screen_R();

        if (objPos.x < 900)
            objPos.x += speed;

        obj->set_R(_scene->screen2world_coords(objPos, _artDepth));
    }

    void moveLeft(qdMinigameObjectInterface *obj) {
        int speed = MAX(10, _keyDownCounter / 10 + 1);
        mgVect2i objPos = obj->screen_R();

        if (objPos.x > -100)
            objPos.x -= speed;

        obj->set_R(_scene->screen2world_coords(objPos, _artDepth));
    }

    bool checkSolution() {
        if (_scene->screen_depth(_bg1_l2Obj->R()) < _scene->screen_depth(_bg2_l2Obj->R()))
            return false;

        if (_scene->screen_depth(_bg2_l2Obj->R()) < _scene->screen_depth(_bg3_l2Obj->R()))
            return false;

        if (_scene->screen_depth(_bg3_l2Obj->R()) < _scene->screen_depth(_bg4_l2Obj->R()))
            return false;

        if (ABS(_bg1_l2Obj->screen_R().x - 399) > 5
                || ABS(_bg1_l2Obj->screen_R().y - 278) > 5
                || (ABS(_bg2_l2Obj->screen_R().x - 407) > 10
                && ABS(_bg2_l2Obj->screen_R().x - 420) > 10)) // copy/paste error in the originaL?
            return false;

        if (ABS(_bg2_l2Obj->screen_R().y - 267) > 10)
            return false;

        if (_bg2_l2Obj->screen_R().x - _bg3_l2Obj->screen_R().x > 6)
            return false;

        if (_bg3_l2Obj->screen_R().x - _bg2_l2Obj->screen_R().x > 5)
            return false;

        if (ABS(_bg3_l2Obj->screen_R().y + 43) > 10)
            return false;

        if (_bg4_l2Obj->screen_R().x - _bg3_l2Obj->screen_R().x > 5)
            return false;

        if (_bg3_l2Obj->screen_R().x - _bg4_l2Obj->screen_R().x > 3)
            return false;

        if (ABS(_bg4_l2Obj->screen_R().y + 42) > 10)
            return false;

        if (ABS(_bg4_l2Obj->screen_R().y) - ABS(_bg3_l2Obj->screen_R().y) > 3)
            return false;


        _doneObj->set_state("true");

        return true;
    }

private:
    const qdEngineInterface *_engine = nullptr;
    qdMinigameSceneInterface *_scene = nullptr;

    qdMinigameObjectInterface *_bg_clickObj = nullptr;
    qdMinigameObjectInterface *_bg1_l2Obj = nullptr;
    qdMinigameObjectInterface *_bg2_l2Obj = nullptr;
    qdMinigameObjectInterface *_bg3_l2Obj = nullptr;
    qdMinigameObjectInterface *_bg4_l2Obj = nullptr;
    qdMinigameObjectInterface *_doneObj = nullptr;
    qdMinigameObjectInterface *_startObj = nullptr;
    qdMinigameObjectInterface *_activateObj = nullptr;
    qdMinigameObjectInterface *_zFlagObj = nullptr;
    qdMinigameObjectInterface *_startObj2 = nullptr;

    bool _wasInited = false;
    float _artDepth = -1.0;
    int _keyDownCounter = 0;

    int _stage = 0;

    struct {
        float depth = 0;
        int num = 0;
    } _artState[4];
};

} // namespace QDEngine

#endif // QDENGINE_MINIGAMES_KARTINY_H