<?php

namespace App\Sapiens;

/**
 * SAPREL.C: the relational module (1986): dialogues and relations with the tribes, the clock of the
 * day (chrono), the encounters by position (zonevt / zoninf), sleep, the observation views, the
 * speech bubbles and the messages of the scenario.
 *
 * scenar: 1 meat for the tribe, 2 potion of life (#42) of the Yeux-Malins, 3 ivory axe (#43) of the
 * chief of the Bras-de-Roc, 4 sacred stick (#44) of the Hyenes-Folles, 5 last fight, 6 won, 7 lost.
 */
trait RelTrait
{
    public int $LastObsv = 0;
    /** @var array{0:int,1:int,2:int,3:int} static Rect rBulleJoueur */
    private array $relBulleJoueur = [0, 0, 0, 0];
    /** @var array{0:int,1:int,2:int,3:int} static Rect rBulleAdversaire */
    private array $relBulleAdversaire = [0, 0, 0, 0];

    /** MOTLST: a string on the message line */
    private function motlst(string $debut): void
    {
        $n = strlen($debut);
        for ($i = 0; $i < $n; $i++) {
            $this->affcarmess(ord($debut[$i]));
        }
        $this->TfrBadAss();
    }

    /**
     * TailleChaine (static of SAPREL.C): width in pixels (font 10) and number of line breaks.
     * @return array{0:int,1:int} [tx, ty]
     */
    private function relTailleChaine(string $debut): array
    {
        $x = 0;
        $taillex = 0;
        $y = 0;
        $ty = 0;
        $n = strlen($debut);
        $i = 0;
        while ($i < $n) {
            $car = ord($debut[$i]);
            if ($car === 13) {
                $ty++;
                $x = 0;
                $i++;
            } else {
                // TailleCarMess
                $i++;
                if ($car > 128) {
                    [$tx2, $ty2] = $this->relTailleChaine($this->GetStrBkMot($car));
                    $x += $tx2;
                    $y += $ty2;
                } else {
                    $x += $this->TailleCar($car, 10);
                }
                if ($x > $taillex) {
                    $taillex = $x;
                }
                $ty += $y;
            }
        }
        return [$taillex, $ty];
    }

    /** Sappause: a pause, ended by the mouse (moved or clicked) */
    private function Sappause(int $duree): \Generator
    {
        while ($this->bouton) {
            yield;
            $this->vq_mouse($this->bouton, $this->sposx, $this->sposy);
        }
        $this->dsposx = $this->sposx;
        $this->dsposy = $this->sposy;
        while ($duree && !$this->bouton && $this->sposx === $this->dsposx && $this->sposy === $this->dsposy) {
            yield from $this->delai(1);
            $duree--;
            $this->vq_mouse($this->bouton, $this->sposx, $this->sposy);
        }
    }

    public function efbadi(): void
    {
        $this->Gotoxy(3, 15);
        $this->efbadass();
    }

    public function scrollbadi(): void
    {
        $this->Gotoxy(3, 15);
        $this->scrollbadass();
    }

    /** CLRBADI: clears the message line if it is used */
    public function clrbadi(): void
    {
        if ($this->flagbadi) {
            $this->efbadi();
            $this->flagbadi = 0;
        }
    }

    /** SCEVEU: the message of a phase of the scenario, in the 3D area (6: won -> Final) */
    public function sceveu(int $quoi): \Generator
    {
        $scenme = $this->GetScenme();
        $this->dervue = self::VUE_AUCUNE;
        $this->effvirt(0x007);
        $this->Gotoxy(12, 1);
        $p = (string)($scenme[$quoi - 1] ?? '');
        $n = strlen($p);
        $k = 0;
        $car = $k < $n ? ord($p[$k++]) : 0;
        while ($car) {
            $this->car2($car);
            do {
                $car = $k < $n ? ord($p[$k++]) : 0;
                if ($car === 13) {
                    $this->Gotoxy(12, $this->linaff + 1);
                }
            } while ($car === 13);
        }
        if ($quoi === 6) {
            for ($i = 0; $i < 3; $i++) {
                $this->bruit(6);
                // bruit(6) waited 30 ticks in SAPWMUS.C
                yield from $this->delai(30);
            }
        }
        $this->TfrEcr(null);
        if ($quoi === 6) {
            // you won
            $this->CopyOffscreen($this->debecr, $this->Ecran1, [32 * 2, 1 * 2, (32 + 255) * 2, (1 + 100) * 2], [0, 0, 255 * 2, 100 * 2]);
            yield from $this->delai(15 * 60);
            yield from $this->Final();
        }
    }

    /** SceveuBulle: a message of the scenario in a bubble (index 0-based) */
    public function SceveuBulle(int $quoi): void
    {
        $scenme = $this->GetScenme();
        $this->effaceBulles();
        $this->bulle((string)($scenme[$quoi] ?? ''), 1);
    }

    /** GAINSBOUR: physical decay */
    public function gainsbour(): void
    {
        $this->bless = ($this->bless - (6 - intdiv(6 * $this->resistance, 256))) & 0xFF;
        if ($this->bless > 251) {
            if ($this->mort) {
                $this->mort--;
                $this->bless = 20;
            } else {
                $this->presence = 0;
                $this->fdialo = 0;
            }
        }
    }

    /** PASTMP: time passes (the meat rots) */
    public function pastmp(): void
    {
        $i = $this->liste1->taille;
        while ($i) {
            $i--;
            if ($this->liste1->elements[$i] >= 37 && $this->liste1->elements[$i] < 41) {
                $this->liste1->elements[$i]++;
            }
        }
    }

    /** TFRENE: keeps the anger of the tribe against you */
    public function tfrene(): void
    {
        if ($this->presence < 5 && $this->presence) {
            if ($this->fpress) {
                $this->enetoi[$this->tribu - 1] = $this->enerv;
                if ($this->chef || $this->tribu !== 1) {
                    $this->tagress[$this->tribu - 1] = $this->agress;
                }
            }
        }
    }

    /** COMMENT: a comment (mescon, 1-based) on the message line */
    public function comment(int $rang): void
    {
        $mescon = $this->GetMesCon();
        if (!$this->flefba) {
            $this->flefba++;
            $this->scrollbadi();
        }
        $this->flagbadi = 1;
        $p = (string)($mescon[$rang - 1] ?? '');
        $n = strlen($p);
        for ($i = 0; $i < $n; $i++) {
            $this->affcarmess(ord($p[$i]));
        }
        $this->TfrBadAss();
    }

    public function effaceBulles(): void
    {
        $this->tfrvirt();
        if (!self::EmptyRect($this->relBulleJoueur)) {
            $this->CopyOffscreen($this->debecr, $this->mainWindow, $this->relBulleJoueur, $this->relBulleJoueur);
        }
        $this->relBulleJoueur = [0, 0, 0, 0];
        if (!self::EmptyRect($this->relBulleAdversaire)) {
            $this->CopyOffscreen($this->debecr, $this->mainWindow, $this->relBulleAdversaire, $this->relBulleAdversaire);
        }
        $this->relBulleAdversaire = [0, 0, 0, 0];
    }

    /** BULLE: a speech bubble with a text; $qui 0 = the player, 1 = the opponent */
    public function bulle(string $debut, int $qui): void
    {
        $xDroite = 640 - 64 - 16;
        $xGauche = 80;
        $yBulle = 58;
        $queue = 20;
        $gbak = $this->curPort;
        $this->curPort = $this->debecr;
        [$tx, $ty] = $this->relTailleChaine($debut);
        if ($tx < 64) {
            $tx = 64;
        }
        $gauche = ($qui ^ $this->sap1->sens) !== 0;
        if ($gauche) {
            $r = [$xGauche, $yBulle - ($ty + 2) * 12, $xGauche + $tx + 16, $yBulle];
        } else {
            $r = [$xDroite - $tx - 16, $yBulle - ($ty + 2) * 12, $xDroite, $yBulle];
        }
        $r[3] += $queue;
        $rbase = $r;
        if ($qui === 0) {
            $this->effaceBulles();
            $this->relBulleJoueur = $r;
        } else {
            if (!self::EmptyRect($this->relBulleAdversaire)) {
                $b = $this->relBulleAdversaire;
                $r = self::OffsetRect($r, 0, $b[3] - $b[1] - $queue - 4);
                $this->relBulleAdversaire = [min($b[0], $r[0]), min($b[1], $r[1]), max($b[2], $r[2]), max($b[3], $r[3])];
                $rbase = $this->relBulleAdversaire;
            } else {
                $this->relBulleAdversaire = $r;
            }
        }
        $r[3] -= $queue;
        // the region: a round rectangle (16x16 corners) and its tail
        $x = $gauche ? $r[0] + 48 : $r[2] - 48;
        $y = $r[3];
        $tail = $gauche ? [[$x, $y], [$x - $queue, $y + $queue], [$x - 8, $y]] : [[$x, $y], [$x + $queue, $y + $queue], [$x + 8, $y]];
        $this->relPaintBubble($this->debecr, $r, $tail);
        $this->qdClip = $r;
        $x = $r[0] + 8;
        $y = $r[1] + 6;
        $this->GotoxyPixel($x, $y);
        $n = strlen($debut);
        $k = 0;
        while ($k < $n && $debut[$k] === ' ') {
            $k++;
        }
        while ($k < $n) {
            if ($debut[$k] === "\r") {
                $y += 14;
                $this->GotoxyPixel($x, $y);
                do {
                    $k++;
                } while ($k < $n && $debut[$k] === ' ');
            } else {
                $this->affcar10(ord($debut[$k++]));
            }
        }
        $this->qdClip = null;
        $this->curPort = $gbak;
        $this->TfrEcr($rbase);
        $this->DoPenSize(1, 1);
    }

    /**
     * EraseRgn + FrameRgn of the bubble: white inside, a black outline of one pixel.
     * @param array<int, array{0:int,1:int}> $tail triangle
     */
    private function relPaintBubble(Port $port, array $r, array $tail): void
    {
        $l = min($r[0], $tail[0][0], $tail[1][0], $tail[2][0]);
        $rr = max($r[2], $tail[0][0], $tail[1][0], $tail[2][0]) + 1;
        $t = $r[1];
        $b = max($r[3], $tail[1][1]) + 1;
        $inside = function (int $px, int $py) use ($r, $tail): bool {
            if ($px >= $r[0] && $px < $r[2] && $py >= $r[1] && $py < $r[3]) {
                // corners: ovals of 16x16
                $cx = $px < $r[0] + 8 ? $r[0] + 8 : ($px >= $r[2] - 8 ? $r[2] - 8 : $px);
                $cy = $py < $r[1] + 8 ? $r[1] + 8 : ($py >= $r[3] - 8 ? $r[3] - 8 : $py);
                $dx = $px + 0.5 - $cx;
                $dy = $py + 0.5 - $cy;
                if (($px < $r[0] + 8 || $px >= $r[2] - 8) && ($py < $r[1] + 8 || $py >= $r[3] - 8)) {
                    return $dx * $dx + $dy * $dy <= 64;
                }
                return true;
            }
            // the tail (triangle)
            [$a, $bb, $c] = $tail;
            $s1 = ($bb[0] - $a[0]) * ($py - $a[1]) - ($bb[1] - $a[1]) * ($px - $a[0]);
            $s2 = ($c[0] - $bb[0]) * ($py - $bb[1]) - ($c[1] - $bb[1]) * ($px - $bb[0]);
            $s3 = ($a[0] - $c[0]) * ($py - $c[1]) - ($a[1] - $c[1]) * ($px - $c[0]);
            return ($s1 >= 0 && $s2 >= 0 && $s3 >= 0) || ($s1 <= 0 && $s2 <= 0 && $s3 <= 0);
        };
        $in = [];
        for ($py = $t - 1; $py <= $b; $py++) {
            for ($px = $l - 1; $px <= $rr; $px++) {
                $in[$py][$px] = $inside($px, $py);
            }
        }
        $white = chr(Mac::WHITE);
        $black = chr(Mac::BLACK);
        for ($py = max(0, $t); $py < min($port->h, $b); $py++) {
            for ($px = max(0, $l); $px < min($port->w, $rr); $px++) {
                if (!$in[$py][$px]) {
                    continue;
                }
                $edge = !$in[$py - 1][$px] || !$in[$py + 1][$px] || !$in[$py][$px - 1] || !$in[$py][$px + 1];
                $port->rows[$py][$px] = $edge ? $black : $white;
            }
        }
        $port->dirty = true;
    }

    /**
     * CHRONO: the clock. heure 0..1023 (morning 0-90, afternoon 426-512, night 512-602, end of
     * night 938-1023). quoi 0: normal, 1: no decrease nor message, 2: decrease but no message.
     */
    public function chrono(int $quoi): void
    {
        if ($this->minute) {
            $this->minute--;
            return;
        }
        $this->minute = 5;
        $this->heure = ($this->heure + 1) & 0xFFFF;
        if (($this->heure & 255) === 90) {
            $this->heure += 336;
        }
        $this->heure &= 0x03FF;
        if (!($this->heure & 0xFF)) {
            $this->pastmp();
        }
        while ($this->heure >= $this->tabheur[$this->pos_evt]['h']) {
            if ($this->tabheur[$this->pos_evt]['q']) {
                // the gradient of the sky with its 8 ST colours
                $this->ciel_degr = $this->tabheur[$this->pos_evt]['pal'];
                $this->FixeDegradesFonctionHeure($this->tabheur[$this->pos_evt]);
            } else {
                $this->palhaute = $this->tabheur[$this->pos_evt]['pal'];
            }
            if (++$this->pos_evt >= self::NBREVTHEURE) {
                $this->pos_evt = 0;
                $this->heure = 0;
            }
        }
        if ($this->heure === 0) {
            $this->flefba = 0;
            $this->comment(114);
            $this->jour_act = ($this->jour_act + 1) & 0xFFFF;
        }
        // position of the sun / moon
        if ($this->heure & 0x100) {
            $this->metpos = (($this->heure & 0xFF) - 180) & 0xFFFF;
            $this->angsol = 256;
        } else {
            $this->metpos = (75 - ($this->heure & 0xFF)) & 0xFFFF;
            $this->angsol = 768;
        }
        if ($quoi === 1) {
            return;
        }
        $this->finjou = 1;
        $this->faim = ($this->faim - 2) & 0xFF;
        $avemess = 0;
        if ($this->faim > 253) {
            $this->faim = 5;
            $this->gainsbour();
            $avemess = 93;
        }
        $this->soif = ($this->soif - 4) & 0xFF;
        if ($this->soif > 251) {
            $this->soif = 5;
            $this->gainsbour();
            $avemess = 94;
        }
        $this->fatig = ($this->fatig - 2) & 0xFF;
        if ($this->fatig > 253) {
            $this->fatig = 5;
            $this->gainsbour();
            $avemess = 95;
        }
        if ($avemess && !$quoi) {
            $this->efbadi();
            $this->comment($avemess);
        }
    }

    /** CAUSE: one of the 4 sentences of a context (1..), in a bubble, if one is talking */
    private function cause(int $context, ?string $messAdd): void
    {
        $mescon = $this->GetMesCon();
        if ($this->fdialo) {
            $rang = ($context - 1) * 4 + ($this->Rnd() & 3);
            $chaine = (string)($mescon[$rang] ?? '');
            if ($messAdd !== null) {
                $chaine .= $messAdd;
            }
            $this->bulle($chaine, 1);
        }
    }

    /** FUITE: he runs away */
    public function fuite(): \Generator
    {
        $this->flefba = 0;
        if ($this->agress < 245) {
            $this->agress += 10;
        }
        $this->comment(80);
        yield from $this->quitte();
    }

    /** INTRSQ: value of an object (doubled if it is the favourite one) */
    public function intrsq(int $objet): int
    {
        $refer1 = $this->refer[self::REFER1];
        $valeur = ($refer1[$objet - 1][1] ?? 0) & 0xF;
        if ($objet === $this->predil) {
            $valeur = ($valeur * 2) & 0xFF;
        }
        return $valeur;
    }

    /** RAPIAS: the most interesting object you carry */
    public function rapias(): int
    {
        $max = 0;
        $objet = 0;
        for ($i = 0; $i < $this->liste1->taille; $i++) {
            $valeur = $this->intrsq($this->liste1->elements[$i]);
            if ($valeur > $max) {
                $max = $valeur;
                $objet = $this->liste1->elements[$i];
            }
        }
        return $objet;
    }

    /** EXCITE: the anger increases */
    public function excite(int $valeur): void
    {
        $valeur &= 0xFFFF;
        $tfr = ($this->enerv + $valeur) & 0xFFFF;
        if ($this->enerv <= $tfr) {
            $this->enerv = $tfr;
        } else {
            $this->enerv = 65535;
        }
        if ($this->enerv < 51 * 256) {
            if ($this->fpress) {
                $this->cause(7, null);
            } else {
                $this->cause(2, null);
            }
            return;
        }
        if ($this->enerv < 102 * 256) {
            $this->cause(8, null);
            return;
        }
        if ($this->Rnd() < intdiv($this->enerv, 512)) {
            $this->inimen(0);
            $this->flcomb = 1;
            return;
        }
        if ($this->enerv < 153 * 256) {
            $this->cause(9, null);
            return;
        }
        if ($this->enerv < 204 * 256) {
            $this->cause(10, null);
            return;
        }
        $this->cause(11, null);
    }

    /** MODREL: another action than SAY / GIVE while someone is there: he gets angry */
    public function modrel(): void
    {
        if ($this->tlpos[0] === 5 || $this->tlpos[0] === 6 || !$this->fdialo) {
            return;
        }
        $tfr = ($this->enerv + 100) & 0xFFFF;
        if ($this->enerv < $tfr) {
            $this->enerv = $tfr;
        }
        if ($this->enerv < 51 * 256) {
            if ($this->fpress) {
                $this->cause(7, null);
            } else {
                $this->cause(2, null);
            }
            return;
        }
        if ($this->enerv < 102 * 256) {
            $this->cause(8, null);
        }
        if ($this->Rnd() > intdiv($this->enerv, 512)) {
            if ($this->enerv < 153 * 256) {
                $this->cause(9, null);
            } elseif ($this->enerv < 204 * 256) {
                $this->cause(10, null);
            } else {
                $this->cause(11, null);
            }
        }
    }

    /** PRENDS: he takes the object rega of your list */
    public function prends(): void
    {
        $erreur = $this->enlevl($this->liste1, $this->list10, $this->rega);
        if ($erreur === 1 && $this->lpos > 1) {
            $this->lpos--;
        }
        $this->inimen($this->s_menu);
    }

    /** TRDONN: give the object $rangb */
    public function trdonn(int $rangb): \Generator
    {
        $mescon = $this->GetMesCon();
        if (!$this->fdialo) {
            return;
        }
        $objet = $this->liste1->elements[$rangb];
        $this->flefba = 0;
        if ($this->chef && $this->tribu === 1) {
            // to your chief
            if ($this->scenar !== 1) {
                if ($objet !== $this->scenar + 40) {
                    $this->SceveuBulle($this->scenar - 1);
                    return;
                }
            } else {
                // meat
                if ($objet < 35 || $objet > 39) {
                    $this->SceveuBulle($this->scenar - 1);
                    return;
                }
                $this->scenpr = self::sc($this->scenpr - (40 - $objet));
                if ($this->scenpr > 0) {
                    $this->prends();
                    $this->list10->taille = 0;
                    $this->effaceBulles();
                    $this->cause(6, null);
                    return;
                }
            }
            // (IsEnreg() is always true: the game is free)
            $this->prends();
            $this->effaceBulles();
            switch ($this->scenar) {
                case 1:
                    $this->bulle((string)$mescon[82 - 1], 1);
                    break;
                case 2:
                    $this->bulle((string)$mescon[83 - 1], 1);
                    break;
                case 3:
                case 4:
                    $this->bulle((string)$mescon[84 - 1], 1);
                    break;
            }
            $this->scenar = ($this->scenar + 1) & 0xFF;
            if ($this->scenar === 5) {
                // the last fight
                $this->flcomb = 1;
                $this->SceveuBulle($this->scenar - 1);
                yield from $this->delai(5 * 60);
                return;
            }
            if ($this->scenar === 3) {
                // the Bras-de-Roc are very angry: you must steal the axe
                $this->enetoi[2] = 60000;
            }
            return;
        }
        // a gift out of the scenario
        $this->effaceBulles();
        $valeur = ($this->enerv - 512 * $this->intrsq($this->liste1->elements[$this->rega])) & 0xFFFF;
        if ($valeur > $this->enerv) {
            $valeur = 0;
        }
        if (!$this->fpress) {
            // not introduced: a present
            if ($this->list10->taille <= $this->list10->maxtaille) {
                $this->prends();
                if ($this->enerv < 102 * 256) {
                    $this->cause(1, null);
                    $this->cause(12, null);
                }
                if ($this->agress > 0) {
                    $this->agress--;
                }
                $this->enerv = $valeur;
                $this->excite(0);
            }
            return;
        }
        // exchange
        if ($this->enerv < 102 * 256) {
            $valeur = $this->intrsq($this->liste1->elements[$this->rega]);
            if ($this->chef && $this->scenar === $this->tribu) {
                $valeur = $this->liste1->elements[$this->rega] !== $this->predil ? 0 : 200;
            }
            if ($valeur > $this->vlchan) {
                $this->vlchan = $valeur & 0xFF;
                $this->cause(4, null);
                if ($this->echan === 1) {
                    // protection
                    $this->enetoi[$this->tribu - 1] = 0;
                    $this->echan = 25;
                } else {
                    $tfr = $this->liste1->elements[$rangb];
                    $this->liste1->elements[$rangb] = $this->echan;
                    $this->echan = $tfr;
                    $this->inimen($this->s_menu);
                }
            } else {
                $this->cause(3, null);
                $this->excite(50);
            }
        } else {
            if ($this->list10->taille < $this->list10->maxtaille) {
                $this->prends();
                $this->enerv = $valeur;
                $this->cause(5, null);
            }
        }
    }

    /** IDIALO: the opponent, from the presence */
    public function idialo(): void
    {
        $this->fdialo = $this->flcomb = $this->fpress = $this->flgcharism = $this->dquest = 0;
        if ($this->presence === 0) {
            return;
        }
        if ($this->presence > 4) {
            // an animal
            $this->echan = 0;
            $this->flcomb++;
            return;
        }
        $this->fdialo++;
        $t = $this->tribu - 1;
        $this->enerv = $this->tenerv[$t];
        $this->agress = $this->tagress[$t];
        $this->predil = $this->tabprf[$t];
        $this->echan = $this->tobje[$t][$this->Rnd() & 3];
        for ($i = 0; $i < 2; $i++) {
            $this->list10->elements[$i] = $this->tobje[$t][$this->Rnd() & 3];
        }
        $this->list10->taille = 2;
        $tribuCar = chr(($this->tribu + 0x85) & 0xFF);
        if ($this->chef) {
            $this->nomtribu = chr(0x85) . $tribuCar;
            $this->nomadversaire = chr(($this->tribu + 0x89) & 0xFF);
            if ($this->tribu === 1) {
                $this->fpress = 1;
                $this->enerv = $this->enetoi[$t];
            }
            if ($this->scenar === $this->tribu && $this->tribu !== 4) {
                $this->echan = $this->tribu + 40;
            } else {
                $this->echan = 1;
            }
        } else {
            $this->nomtribu = ' ' . $tribuCar;
            $this->nomadversaire = $this->relNom();
        }
        $this->nomsecondaire = $this->relNom();
        $this->vlchan = $this->intrsq($this->echan);
        $this->smenu[1] = 111;
        $this->inimen(0);
    }

    /** A name of 3 syllables of 3 letters (maced) */
    private function relNom(): string
    {
        $nom = '';
        for ($i = 0; $i < 6;) {
            $pos = intdiv(48 * $this->Rnd(), 256);
            $nom .= substr($this->maced, $pos, 3);
            $i += 3;
        }
        return $nom;
    }

    /** QUITTE: he is frightened: he runs away */
    public function quitte(): \Generator
    {
        $this->tfrene();
        $this->flcomb = 0;
        $this->presence = 0;
        $this->idialo();
        $this->present[1] = 0;
        $this->present[3] = 0;
        $this->prm($this->sap2, 0);
        $this->prm($this->sap4, 0);
        $this->dsposx = $this->sposx;
        $this->dsposy = $this->sposy;
        $this->reset_mouse();
        if ($this->dervue === self::VUE_LATERALE) {
            yield from $this->laterb(false);
        } else {
            yield from $this->latera();
        }
        $this->generique(true);
        $this->inimen(0);
    }

    /** CREECOP: makes a friend (sap2 becomes sap3) */
    public function creecop(int $qui): \Generator
    {
        $this->sap3->cross = $this->sap2->cross;
        if ($this->presence < 5) {
            $this->nomcopain = $this->nomadversaire;
        } else {
            // your friend
            $this->nomcopain = chr(128 + 45);
        }
        $this->prm($this->sap3, $qui);
        $this->sap3->colonne = $this->sap2->colonne;
        $this->sap3->sens = $this->sap2->sens;
        $this->sap3->coeur = $this->sap2->coeur;
        $this->sap3->cptrsouffle = 1;
        $this->prm($this->sap2, 0);
        if ($this->dervue !== self::VUE_PAYSAGE) {
            $this->presence = 0;
            yield from $this->trobsv(1);
        }
        $this->echan = 0;
        $this->peuple[2]->possession->taille = 0;
        $this->generique(true);
    }

    /** BONNECHASS: "good hunting" */
    public function bonnechass(): \Generator
    {
        $mescon = $this->GetMesCon();
        if ($this->enerv > 102 * 256) {
            $this->excite(300);
        } else {
            if (!$this->fpress) {
                $this->cause(2, null);
            } else {
                $this->bulle((string)$mescon[73 - 1], 1);
                yield from $this->quitte();
                $this->inimen(0);
                $this->effaceBulles();
            }
        }
    }

    /** VIENSAVEC: "come with me" */
    public function viensavec(): \Generator
    {
        $mescon = $this->GetMesCon();
        if ($this->fpress && $this->presence && $this->presence < 5
            && $this->present[2] === 0 && $this->present[3] === 0 && !$this->chef && !$this->flgcharism) {
            if (($this->charisme * $this->Rnd() > $this->enerv) && $this->Rnd() < 70) {
                yield from $this->creecop(1);
                $this->viecopain = 3;
                $this->sap3->vie = 200;
                $this->bulle((string)$mescon[100 - 1], 1);
                $this->flagbadi = 0;
            } else {
                $this->excite(1500);
            }
        } else {
            $this->bulle((string)$mescon[99 - 1], 1);
            $this->excite(2000);
        }
        $this->flgcharism = 1;
    }

    /** TUVEUQUOI: "what do you want?" */
    public function tuveuquoi(): void
    {
        $refer1 = $this->refer[self::REFER1];
        $mescon = $this->GetMesCon();
        $scenme = $this->GetScenme();
        if ($this->enerv > 102 * 256) {
            $this->cause(13, null);
            return;
        }
        if ($this->chef && $this->tribu === 1) {
            $this->dquest = 0;
            $this->bulle((string)($scenme[$this->scenar - 1] ?? ''), 1);
            return;
        }
        if ($this->tribu === $this->scenar && $this->chef) {
            $this->cause(14, $refer1[$this->predil - 1][0] ?? '');
            return;
        }
        $valeur = $this->intrsq($this->rapias());
        if ($valeur > $this->vlchan) {
            $this->cause(14, $refer1[$this->rapias() - 1][0] ?? '');
        } elseif ($this->chef) {
            $this->cause(14, $refer1[$this->predil - 1][0] ?? '');
        } else {
            $this->bulle((string)$mescon[66 - 1], 1);
            $this->excite(0);
        }
    }

    /** TRDIRE: say the sentence $diquoi of the list of sentences */
    public function trdire(int $diquoi): \Generator
    {
        $refer1 = $this->refer[self::REFER1];
        $mescon = $this->GetMesCon();
        if (!$this->fdialo) {
            return;
        }
        $this->flefba = 1;
        if ($diquoi === $this->dquest) {
            $this->excite(1000);
            return;
        }
        $this->dquest = $diquoi;
        if ($diquoi === 5) {
            // I am ...
            if (!$this->fpress) {
                $this->fpress++;
                $tfr = self::ss($this->enerv - $this->tenerv[$this->tribu - 1]);
                $this->enerv = $this->enetoi[$this->tribu - 1];
                $enerv2 = ($this->enerv + $tfr) & 0xFFFF;
                if ($tfr > 0 && $enerv2 < $this->enerv) {
                    $enerv2 = 65535;
                }
                if ($tfr < 0 && $enerv2 > $this->enerv) {
                    $enerv2 = 0;
                }
                $this->enerv = $enerv2;
                if ($this->enerv > 0x3400) {
                    // so it is you
                    $this->bulle((string)$mescon[72 - 1], 1);
                    $this->excite(0);
                } else {
                    $this->bulle((string)$mescon[71 - 1], 1);
                }
            } else {
                $this->excite(600);
            }
            return;
        }
        if ($diquoi === 6) {
            yield from $this->bonnechass();
            return;
        }
        if ($diquoi === 7 || $diquoi === 8) {
            yield from $this->viensavec();
            return;
        }
        if ($this->stock1 === 0) {
            if ($diquoi === 1) {
                // who are you?
                if ($this->enerv > 102 * 256) {
                    $this->excite(100);
                } else {
                    $this->cause(12, $this->GetStrBkMot(129 + 3));
                    if (!$this->fpress && !$this->chef) {
                        $this->bulle((string)$mescon[65 - 1], 1);
                        $this->excite(200);
                    }
                }
                return;
            }
            if ($diquoi === 2) {
                $this->tuveuquoi();
                return;
            }
            if ($diquoi === 3) {
                // what do you offer?
                if ($this->enerv > 256 * 102) {
                    $this->bulle((string)$mescon[66 - 1], 1);
                    $tfr = self::ss($this->enerv + 200);
                    if ($this->enerv < $tfr) {
                        $this->enerv = $tfr & 0xFFFF;
                    }
                } else {
                    if (!$this->fpress) {
                        $this->cause(2, null);
                    } else {
                        $this->cause(15, $refer1[$this->echan - 1][0] ?? '');
                    }
                }
                return;
            }
            // where is your chief?
            if ($this->chef) {
                $this->excite(32700);
            } else {
                if ($this->enerv > 51 * 256) {
                    $this->cause(16, null);
                    $tfr = self::ss($this->enerv + 256);
                    if ($this->enerv < $tfr) {
                        $this->enerv = $tfr & 0xFFFF;
                    }
                } else {
                    if (!$this->fpress) {
                        $this->cause(2, null);
                    } else {
                        $p = $this->poschef;
                        $p[0] = ' ';
                        $p[2] = ' ';
                        $d = $this->destine[$this->tribu - 1];
                        if (intdiv($this->xj, 256) < $d[1]) {
                            $p[0] = chr(128 + 31);
                        }
                        if (intdiv($this->xj, 256) > $d[1]) {
                            $p[0] = chr(128 + 32);
                        }
                        if (intdiv($this->yj, 256) > $d[2]) {
                            $p[2] = chr(128 + 33);
                        }
                        if (intdiv($this->yj, 256) < $d[2]) {
                            $p[2] = chr(128 + 34);
                        }
                        $this->poschef = $p;
                        $this->bulle($p, 1);
                    }
                }
            }
        } else {
            // flattery or insult
            switch ($this->stock1) {
                case 1:
                    // insult
                    $this->excite(200 * $this->stock2);
                    break;
                case 2:
                    // flattery
                    if ($this->agress < 200) {
                        $this->agress++;
                        $tfr = self::ss($this->enerv - $this->stock2 * 100);
                        if ($tfr < $this->enerv) {
                            $this->enerv = $tfr & 0xFFFF;
                        }
                        $this->excite(0);
                        break;
                    }
                    // no break (as in the C code)
                default:
                    // boasting
                    if ($this->agress < 200 && !$this->chef) {
                        $this->agress++;
                        if ($this->Rnd() > intdiv($this->enerv, 200)) {
                            yield from $this->fuite();
                        } else {
                            $tfr = self::ss($this->enerv - $this->stock2 * 100);
                            if ($tfr < $this->enerv) {
                                $this->enerv = $tfr & 0xFFFF;
                            }
                            $this->excite(0);
                        }
                    } else {
                        // he takes it as an insult
                        $this->excite(200 * $this->stock2);
                    }
                    break;
            }
        }
    }

    /** VOLE: you lost: he takes everything */
    public function vole(): void
    {
        $this->liste4->taille = 0;
        $i = $this->liste1->taille;
        while ($i) {
            $i--;
            if ($this->intrsq($this->liste1->elements[$i]) > 5 && $this->liste1->elements[$i] < 40 && $this->Rnd() > 128) {
                $this->enlevl($this->liste1, $this->listbidon, $i);
            }
        }
        $this->tlpos[1] = 1;
        $this->tlpos[4] = 1;
    }

    /** OUTARM: the weapons after a fight */
    public function outarm(): void
    {
        $this->tlpos[1] = 1;
        $this->tlpos[4] = 1;
        $i = $this->liste1->taille;
        // the spears thrown are lost
        while ($i) {
            $i--;
            if ($this->liste1->elements[$i] === 23) {
                if ($this->sap1->nbresag) {
                    $this->sap1->nbresag--;
                } else {
                    $this->enlevl($this->liste1, $this->listbidon, $i);
                }
            }
        }
        if ($this->sap1->forcehache === 0) {
            // no more axe
            $i = $this->liste1->taille;
            while ($i) {
                $i--;
                if ($this->liste1->elements[$i] === 21 || $this->liste1->elements[$i] === 22) {
                    $this->enlevl($this->liste1, $this->listbidon, $i);
                    $i = 0;
                }
            }
        }
        if ($this->sap1->vie !== $this->entvie) {
            $tfr = ($this->fatig - intdiv($this->entvie - $this->sap1->vie, 2)) & 0xFF;
            if ($tfr < $this->fatig) {
                $this->fatig = $tfr;
            } else {
                $this->fatig = 0;
            }
        }
    }

    /** TRDORS: sleep */
    public function trdors(): \Generator
    {
        if ($this->fatig > 192) {
            $this->flefba = 0;
            $this->comment(108);
            return;
        }
        $this->liste4->taille = 0;
        $this->tlpos[4] = 1;
        $tfr = ($this->fatig + $this->stock2) & 0xFF;
        if ($tfr < $this->fatig) {
            $tfr = 255;
        }
        $this->fatig = 255;
        $this->dervue = self::VUE_PAYSAGE;
        $this->stock2 = intdiv($this->stock2, 7);
        while ($this->stock2) {
            $this->GereInterface();
            for ($i = 0; $i < 9; $i++) {
                $this->minute = 0;
                $this->chrono(1);
            }
            $t = $this->TickCount();
            while ($this->TickCount() < $t + 10) {
                yield;
            }
            $this->affich($this->dzeta);
            $this->tfrima();
            $this->minute = 0;
            $this->chrono(2);
            $this->stock2--;
        }
        $this->fatig = $tfr;
        $this->chrono(0);
        $this->afstat();
        $this->inimen(0);
    }

    private function InitVueLaterale(): \Generator
    {
        if ($this->dervue !== self::VUE_LATERALE) {
            $this->ldzeta = $this->dzeta;
        }
        $this->prm($this->sap2, $this->present[1]);
        $this->prm($this->sap4, $this->present[3]);
        $this->flcomb = 1;
        if ($this->presence) {
            if ($this->presence < 5) {
                $this->flcomb = 0;
            }
            // bit 7: friendly animal
            $this->presence &= 127;
            $this->prm($this->sap1, $this->present[0]);
            $this->prm($this->sap3, $this->present[2]);
            if ($this->dervue !== self::VUE_LATERALE) {
                yield from $this->latera();
            }
            $this->dervue = self::VUE_LATERALE;
        }
        $this->pos0_mouse();
    }

    /** TROBSV: observe: 0 landscape (3D), 1 side view, 2 panorama, 3 map */
    public function trobsv(int $regb): \Generator
    {
        if ($this->presence) {
            return;
        }
        if ($regb === 0) {
            $this->LastObsv = 0;
            $this->dismin = 0;
            $this->lastmen = 255;
            $this->clrbadi();
            $this->dervue = self::VUE_PAYSAGE;
            $this->MenuFenetres(0);
            $this->AffichePictAide(1);
            yield from $this->clav3d();
            $this->MenuFenetres(1);
            $this->pos0_mouse();
            if ($this->presence) {
                $regb = 1;
            }
        }
        if ($regb === 1) {
            $this->LastObsv = 1;
            yield from $this->InitVueLaterale();
            return;
        }
        if ($regb === 2) {
            // panorama
            while ($this->getkey(0)) {
                yield;
            }
            $this->dervue = self::VUE_PAYSAGE;
            $dzetdep = $this->dzeta;
            do {
                $posTimer = $this->sapiensTimer;
                $this->affich($this->dzeta);
                $this->tfrima();
                $this->dzeta = ($this->dzeta + 16) & 0x3FF;
                do {
                    yield;
                } while ($posTimer > $this->sapiensTimer - 8);
            } while ($dzetdep !== $this->dzeta && !$this->getkey(0));
        }
        if ($regb === 3) {
            $this->dervue = self::VUE_PAYSAGE;
            yield from $this->zoocar();
            $this->lastmen = 255;
        }
        $this->inimen(0);
        $this->pos0_mouse();
        $this->efbadass();
        $this->TfrBadAss();
    }

    /** ZONEVT: an event from the position (0: none, else the presence 1..8) */
    public function zonevt(int $okmess): int
    {
        for ($i = 0; $i < self::NBREVTDESTINE; $i++) {
            $dieu = $this->destine[$i];
            $dist = $this->distance($dieu[1] * 256 - $this->xj, $dieu[2] * 256 - $this->yj);
            $dist = intdiv($dist, 256);
            if ($dist > $dieu[3]) {
                // out of the zone: it is valid again
                $this->destine[$i][0] &= 127;
            } else {
                if (!($dieu[0] & 128) && ($dist * 12 + 10) < $this->Rnd()) {
                    if ($this->Rnd() >= $dieu[4]) {
                        if ($this->Rnd() > 240) {
                            if ($okmess) {
                                $this->efbadi();
                                $this->comment($dieu[6]);
                                return 0;
                            }
                        }
                    } else {
                        if ($dieu[5] === 0) {
                            // water
                            $this->source = ($this->source + 1) & 0xFF;
                            $this->liste4->taille = $this->tlpos[4] = 1;
                            $this->liste4->elements[0] = 2;
                            $this->efbadi();
                            $this->comment(76);
                            return 0;
                        }
                        $this->chef = $dieu[5] > 127 ? 1 : 0;
                        $qui = $dieu[5] & 127;
                        // one shot
                        if ($dieu[0]) {
                            $this->destine[$i][0] |= 128;
                        }
                        $nuit = $this->heure > 512;
                        if ($this->chef
                            || ($nuit && $qui !== 5 && $this->Rnd() > 222)
                            || (!$nuit && $qui === 5 && $this->Rnd() > 222)
                            || ($nuit && $qui === 5)
                            || (!$nuit && $qui !== 5)) {
                            return $qui;
                        }
                    }
                }
            }
        }
        return 0;
    }

    /** ZONINF: the events of the position (sets the presences) */
    public function zoninf(): \Generator
    {
        if ($this->presence) {
            return;
        }
        if ($this->derxj === ($this->xj & 0xFFE0) && $this->deryj === ($this->yj & 0xFFE0)) {
            return;
        }
        $this->derxj = $this->xj & 0xFFE0;
        $this->deryj = $this->yj & 0xFFE0;
        $this->chef = 0;
        $this->flcomb = 0;
        $this->source = 0;
        $this->present[1] = $this->zonevt(1);
        if ($this->present[1]) {
            // a chief comes with another one
            if (!$this->chef) {
                $this->present[3] = $this->zonevt(0);
            } else {
                $this->present[3] = $this->present[1];
            }
            // a man first
            if ($this->present[1] > 4 && $this->present[3] < 5 && $this->present[3] !== 0) {
                $tfr = $this->present[1];
                $this->present[1] = $this->present[3];
                $this->present[3] = $tfr;
            }
            $this->presence = $this->present[1];
            $this->tribu = $this->presence;
            if ($this->dervue !== self::VUE_LATERALE) {
                $this->sap1->colonne = 3;
            }
            $this->prm($this->sap2, $this->present[1]);
            $this->prm($this->sap4, $this->present[3]);
            $this->idialo();
            // the charisma on an animal
            if ($this->presence > 4 && $this->charisme > $this->Rnd() && $this->Rnd() < 40 && !$this->present[2]) {
                $this->flefba = 0;
                $this->comment(97 + $this->presence);
                yield from $this->creecop($this->presence);
                $this->viecopain = 1;
                $this->flefba = 0;
                if ($this->dervue === self::VUE_LATERALE) {
                    $this->flagbadi = 0;
                }
                $this->presence = 128;
                return;
            }
        }
        if (!$this->source) {
            if ($this->scenar === 4 && !$this->scenpr) {
                // the sacred stick of the Hyenes-Folles, under the three totems
                if (abs($this->derxj - 0xABE0) < 500 && abs($this->deryj - 0xB2E0) < 500) {
                    $this->liste4->taille = $this->tlpos[4] = 1;
                    $this->liste4->elements[0] = 44;
                    return;
                }
            }
            $this->liste4->taille = $this->Rnd() & 7;
            $i = $this->liste4->taille;
            $this->tlpos[4] = 1;
            while ($i) {
                $this->liste4->elements[--$i] = 3 + intdiv(17 * $this->Rnd(), 256);
            }
        }
    }
}