<?php

namespace App\Sapiens;

/**
 * SAPWCART.C: the map (bottom right of the screen): the objects of the world seen from above around
 * the player, sorted by their bottom edge, and the arrow of the direction.
 *
 * The objects: $this->aigoual (World3dTrait, struct Mont) = arrays ['posx', 'posy', 'ign', 'forme']
 * where 'forme' is an index in $this->formes (struct Forme as arrays: 'rayon', 'num_mob', 'numMob3d'...).
 */
trait MapTrait
{
    private ?Port $EcrCarte = null;
    /** @var array<int, array{aire: array{0:int,1:int,2:int,3:int}, mob: int}> TabEltCar */
    private array $TabEltCar = [];
    /** @var array{0:int,1:int,2:int,3:int} */
    private array $AireCarte = [0, 0, 144 * 2, 80 * 2];

    private const TAILLE_X_CARTE = 144;
    private const TAILLE_Y_CARTE = 80;
    private const NB_OBJETS_MAX = 200;

    /** tfrcar: the map to debecr and to the window */
    private function tfrcar(): void
    {
        $rdest = [160 * 2, 117 * 2, (160 + self::TAILLE_X_CARTE) * 2, (117 + self::TAILLE_Y_CARTE) * 2];
        $this->CopyOffscreen($this->EcrCarte, $this->debecr, $this->AireCarte, $rdest);
        $this->CopyOffscreen($this->EcrCarte, $this->mainWindow, $this->AireCarte, $rdest);
    }

    /**
     * calc_cart: the rectangle of an object on the map.
     * @return array{aire: array{0:int,1:int,2:int,3:int}, mob: int}|null null if not on the map
     */
    private function calc_cart(array $mont): ?array
    {
        $forme = $this->formes[$mont['forme']];
        $x = intdiv($this->yj - $mont['posy'], $this->zoom) + self::TAILLE_X_CARTE;
        $y = intdiv($this->xj - $mont['posx'], $this->zoom) + self::TAILLE_Y_CARTE;
        $r = intdiv($forme['rayon'], intdiv($this->zoom, 2));
        if ($forme['num_mob'] === 8) {
            // smoke
            $aire = [$x - 8, $y - 32, $x + 8, $y + 32];
        } elseif ($r < 16) {
            $aire = [$x - 8, $y - 8, $x + 8, $y + 8];
        } else {
            $aire = [$x - intdiv($r, 2), $y - intdiv($r, 8), $x + intdiv($r, 2), $y + intdiv($r, 8)];
        }
        if (self::SectRect($aire, $this->AireCarte) !== null) {
            return ['aire' => $aire, 'mob' => $this->mob3D + $forme['numMob3d']];
        }
        return null;
    }

    /** aff_mont: the objects of the map, from the top to the bottom (sorted on their bottom edge) */
    private function aff_mont(int $nb): \Generator
    {
        yield from [];
        for (;;) {
            $minyc = 32767;
            $jmin = 0;
            for ($j = 0; $j < $nb; $j++) {
                if ($this->TabEltCar[$j]['aire'][3] < $minyc) {
                    $jmin = $j;
                    $minyc = $this->TabEltCar[$j]['aire'][3];
                }
            }
            if ($minyc === 32767) {
                return;
            }
            $this->Affmob3d($this->TabEltCar[$jmin]['mob'], $this->TabEltCar[$jmin]['aire'], null);
            $this->TabEltCar[$jmin]['aire'][3] = 32767;
        }
    }

    /** EffCarte: the background of the map */
    private function EffCarte(): void
    {
        $this->BoxFill($this->EcrCarte, [0, 0, self::TAILLE_X_CARTE * 2, self::TAILLE_Y_CARTE * 2], 0x050);
    }

    /** CARTE: draws the map (generator for the callers; it does not wait) */
    public function carte(): \Generator
    {
        if ($this->EcrCarte === null) {
            $this->EcrCarte = new Port(self::TAILLE_X_CARTE * 2, self::TAILLE_Y_CARTE * 2);
            $this->AireCarte = [0, 0, self::TAILLE_X_CARTE * 2, self::TAILLE_Y_CARTE * 2];
        }
        $gbak = $this->curPort;
        $this->curPort = $this->EcrCarte;
        $this->smenu[1] = 111;
        $this->EffCarte();
        $this->TabEltCar = [];
        $j = 0;
        $i = $this->nbreobj;
        $k = 0;
        while ($i-- > 0 && $j < self::NB_OBJETS_MAX) {
            $mont = $this->aigoual[$k++];
            if ($this->formes[$mont['forme']]['num_mob'] >= 0) {
                $elt = $this->calc_cart($mont);
                if ($elt !== null) {
                    $this->TabEltCar[$j++] = $elt;
                }
            }
        }
        yield from $this->aff_mont($j);
        $angle = intdiv($this->dzeta + 32, 64) & 15;
        $this->Affmobbrtomb($this->DEBFLECH() + $angle, intdiv(self::TAILLE_X_CARTE, 2) - 8, intdiv(self::TAILLE_Y_CARTE, 2) - 8, 5, 5);
        $this->tfrcar();
        $this->curPort = $gbak;
    }

    /** ChangeZoomCarte (generator for the callers; it does not wait) */
    public function ChangeZoomCarte(int $delta): \Generator
    {
        $this->zoom = ($this->zoom + $delta) & 0xFF;
        if ($this->zoom > 160) {
            $this->zoom = 160;
        }
        if ($this->zoom < 16) {
            $this->zoom = 16;
        }
        yield from $this->carte();
    }

    /** ZOOCAR: the map alone; up / down (or the mouse) zoom, escape or a click leaves */
    public function zoocar(): \Generator
    {
        $gbak = $this->curPort;
        $this->CarboniseSetPortWindow();
        do {
            $this->vq_mouse($this->bouton, $this->sposx, $this->sposy);
            if ($this->bouton) {
                yield;
            }
        } while ($this->bouton);
        $r = self::InsetRect([160 * 2, 117 * 2, (160 + self::TAILLE_X_CARTE) * 2, (117 + self::TAILLE_Y_CARTE) * 2], -1, -1);
        $this->qdFore = Mac::WHITE;
        $this->DoFrameRect($r);
        $this->qdFore = Mac::BLACK;
        yield from $this->carte();
        do {
            yield;
            $this->GereInterface();
            $bitmap = 0;
            if ($this->GetKeyMap($bitmap)) {
                if ($bitmap & 1) {
                    yield from $this->ChangeZoomCarte(-2);
                }
                if ($bitmap & 2) {
                    yield from $this->ChangeZoomCarte(2);
                }
                if ($bitmap & 64) {
                    $this->bouton = 1;
                }
            } else {
                $this->vq_mouse($this->bouton, $this->sposx, $this->sposy);
                if ($this->sposy !== $this->dsposy) {
                    $this->zoom = intdiv($this->sposy, 2) + 30;
                    if ($this->zoom < 16) {
                        $this->zoom = 16;
                    }
                    if ($this->zoom > 160) {
                        $this->zoom = 160;
                    }
                    $this->dsposy = $this->sposy;
                    yield from $this->carte();
                }
            }
        } while (!$this->bouton);
        // the original draws the frame again in black (the pen colour was set back to black)
        $this->DoFrameRect($r);
        $this->curPort = $gbak;
    }
}