X-Git-Url: https://mop.ddnsfree.com/gitweb/?a=blobdiff_plain;f=web%2Fbriskin5%2FObj%2Frules_old_rules.phh;fp=web%2Fbriskin5%2FObj%2Frules_old_rules.phh;h=a44cf3f07d35d7c61ae2cb7e3aa274fb31fed3cd;hb=a222ac87c9aa8297cc7dd4ede7c9b92089d52238;hp=0000000000000000000000000000000000000000;hpb=649907a529ae4bee21990c05f196a144dab8624b;p=brisk.git

diff --git a/web/briskin5/Obj/rules_old_rules.phh b/web/briskin5/Obj/rules_old_rules.phh
new file mode 100644
index 0000000..a44cf3f
--- /dev/null
+++ b/web/briskin5/Obj/rules_old_rules.phh
@@ -0,0 +1,359 @@
+<?php
+/*
+ *  brisk - rules_old_rules.phh
+ *
+ *  Copyright (C) 2017 Matteo Nastasi
+ *                          mailto: nastasi@alternativeoutput.it
+ *                                  matteo.nastasi@milug.org
+ *                          web: http://www.alternativeoutput.it
+ *
+ * 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 2 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
+ * MERCHANTABLILITY 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, write to the Free Software Foundation, Inc, 59 Temple Place -
+ * Suite 330, Boston, MA 02111-1307, USA.
+ *
+ */
+
+require_once("briskin5.phh");
+require_once("rules_base.phh");
+
+class Rules_old_rules extends Rules {
+    function __construct($table)
+    {
+        parent::__construct($table);
+    }
+
+    static function asta2mult($asta_pnt)
+    {
+        if ($asta_pnt > 110)
+            return (6);
+        else if ($asta_pnt > 100)
+            return (5);
+        else if ($asta_pnt > 90)
+            return (4);
+        else if ($asta_pnt > 80)
+            return (3);
+        else if ($asta_pnt > 70)
+            return (2);
+        else
+            return (1);
+    }
+    static function s_multer($mult, $pnt)
+    {
+        return (pow(2, $mult) * static::asta2mult($pnt));
+    }
+
+    static function s_point_calc($pnt_done, $mult, $pnt_req, $is_allpoints)
+    {
+        return ($pnt_done * static::s_multer($mult, $pnt_req) * ($is_allpoints ? 2 : 1));
+    }
+
+    function multer($is_new)
+    {
+        if ($is_new) {
+            return (static::s_multer($this->table->mult, $this->table->asta_pnt));
+        }
+        else {
+            return (static::s_multer($this->table->old_mult, $this->table->old_asta_pnt));
+        }
+    }
+
+    static function game_result($asta_pnt, $pnt)
+    {
+        $sixty = (BIN5_PLAYERS_N == 3 ? 30 : 60);
+        if ($asta_pnt == 61) {
+            if ($pnt > $sixty)
+                return (1);
+            else if ($pnt == $sixty)
+                return (0);
+            else
+                return (-1);
+        }
+        else {
+            if ($pnt >= $asta_pnt)
+                return (1);
+            else
+                return (-1);
+        }
+    }
+
+    function engine(&$bri, $curtime, $action, $user)
+    {
+        GLOBAL $G_all_points, $G_dbasetype;
+
+        $table = $this->table;
+        $pnts_sav = array();
+
+        if ($action == BIN5_RULES_ALLPASS) { // return TRUE if all correct
+            $table->old_act = $action;
+            $table->old_asta_win = -1;
+            $table->old_pnt = 0;
+            $table->mult_inc(1);
+            for ($i = 0 ; $i < PLAYERS_N ; $i++) {
+                $pnts_sav[$i] = 0;
+            }
+
+            $game_delta = 1;
+            // $table->game_next(1);
+            $table->game_init(&$bri->user);
+        }
+        else if ($action == BIN5_RULES_ABANDON) { // return TRUE if all correct
+            if (!($user->handpt <= 2)) {
+                return (FALSE);
+            }
+            $table->old_act = $action;
+            log_wr(sprintf("GIOCO FINITO !!!"));
+            $table->old_asta_win = $user->table_pos;
+            $table->old_pnt = 0;
+            $table->mult_inc(1);
+
+            for ($i = 0 ; $i < PLAYERS_N ; $i++) {
+                $pnts_sav[$i] = 0;
+            }
+
+            // Non si cambia mazzo se si abbandona la partita
+            $game_delta = 0;
+            // $table->game_next(0);
+            $table->game_init(&$bri->user);
+        }
+        else if ($action == BIN5_RULES_FINISH) { // return TRUE if all correct
+            $table->old_act = $action;
+            do {
+                $pro = 0;
+
+                if ($table->asta_pnt == 60)
+                    $table->asta_pnt = 61;
+
+                $table->old_reason = "";
+
+                // count points for the temporary 2 teams
+                for ($i = 0 ; $i < (BIN5_CARD_HAND * BIN5_PLAYERS_N) ; $i++) {
+                    $ctt = $table->card[$i]->value % 10;
+                    $own = $table->card[$i]->owner;
+                    if ($own == $table->asta_win || $own == $table->friend)
+                        $pro += $G_all_points[$ctt];
+                }
+
+                log_wr(sprintf("PRO: [%d]", $pro));
+
+                // PATTA case !
+                if (static::game_result($table->asta_pnt, $pro) == 0) {
+                    $table->points[$table->points_n % MAX_POINTS] = array();
+                    for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
+                        $table->points[$table->points_n % MAX_POINTS][$i] = 0;
+                        $pnts_sav[$i] = 0;
+                    }
+                    $table->points_n++;
+                    $table->old_pnt = $pro;
+                    $table->old_asta_win = $table->asta_win;
+                    $table->mult_inc(1);
+
+                    break;
+                    }
+
+                if (static::game_result($table->asta_pnt, $pro) == 1)
+                    $sig = 1;
+                else
+                    $sig = -1;
+
+                // TAG: POINTS_MANAGEMENT
+                $table->points[$table->points_n % MAX_POINTS] = array();
+                for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
+                    if ($i == $table->asta_win)
+                        $pnt = ($i == $table->friend ? 4 : 2);
+                    else if ($i == $table->friend)
+                        $pnt = 1;
+                    else
+                        $pnt = -1;
+
+                    log_wr(sprintf("PRO: pt[%d][%d] = %d", $table->points_n % MAX_POINTS, $i, $pnt));
+
+                    $pnt_sav = static::s_point_calc($pnt * $sig,           0, $table->asta_pnt, ($pro == 120));
+                    $pnt_tab = static::s_point_calc($pnt * $sig, $table->mult, $table->asta_pnt, ($pro == 120));
+
+                    $table->points[$table->points_n % MAX_POINTS][$i] = $pnt_tab;
+                    $table->total[$i] += $pnt_tab;
+                    $pnts_sav[$i] = $pnt_sav;
+                }
+                $table->points_n++;
+                $table->old_pnt = $pro;
+                $table->old_asta_win = $table->asta_win;
+                $table->mult_set(0);
+            } while (0);
+            $game_delta = 1;
+        }
+        else {
+            return (FALSE);
+        }
+        $table->game_next($game_delta);
+
+        $plist = "$table->table_token|$user->table_orig|$table->player_n";
+        $ucodes = array();
+        $codes = "";
+        for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
+            $user_cur = &$bri->user[$table->player[$i]];
+
+            /* pro db */
+            $ucodes[$i] = $user_cur->code_get();
+
+            /* pro log */
+            $plist .= '|'.xcapelt($user_cur->name).'|'.$pnts_sav[$i];
+            $codes .= '|'.xcapelt($user_cur->code_get());
+        }
+        $plist .= $codes;
+        log_legal($curtime, $user->ip, $user, "STAT:BRISKIN5:FINISH_GAME", $plist);
+
+        $table->old_asta_pnt = $table->asta_pnt;
+        // $table->old_mazzo is managed by ->game_next();
+        // $table->old_mult, $table->old_pnt, $table->old_reason and $table->old_asta_win are specific
+
+        $table->old_friend = $table->friend;
+        $table->old_tourn_pts = $table->tourn_pts;
+
+        $table->old_reason = static::game_description($action, 'html', $table->old_mult,
+                                             $table->old_asta_win,
+                                             ($table->old_asta_win != -1 ?
+                                              $bri->user[$table->player[$table->old_asta_win]]->name : ""),
+                                             $table->old_friend,
+                                             ($table->old_friend != -1 ?
+                                              $bri->user[$table->player[$table->old_friend]]->name : ""),
+                                             $table->old_pnt, $table->old_asta_pnt, $table->old_tourn_pts);
+
+
+        if ($user->table_orig < TABLES_AUTH_N) {
+            require_once("../Obj/dbase_".$G_dbasetype.".phh");
+
+            if (($bdb = BriskDB::create()) != FALSE) {
+                $bdb->bin5_points_save($curtime, $table, $user->table_orig, $action, $ucodes, $pnts_sav);
+                unset($bdb);
+            }
+            else {
+                log_points($user->ip, $curtime, $user, "STAT:BRISKIN5:FINISH_GAME", "DATABASE CONNECTION FAILED");
+            }
+            log_points($user->ip, $curtime, $user, "STAT:BRISKIN5:FINISH_GAME", $plist);
+        }
+
+        $table->game_init(&$bri->user);
+
+        return (TRUE);
+    }
+
+    static function game_description($act, $form, $old_mult, $win = -1, $win_name = "?1?", $fri = -1, $fri_name = "?2?",
+                              $old_pnt = -1, $old_asta_pnt = -1, $old_tourn_pts = -1)
+    {
+        GLOBAL $G_lang, $mlang_bin5_bin5;
+
+        if ($form == 'html') {
+            $tg_br = "<br>";
+            $tg_hr = "<hr>";
+            $tg_bo = "<b>";
+            $tg_bc = "</b>";
+            $win_name = xcape($win_name);
+            $fri_name = xcape($fri_name);
+        }
+        else {
+            $tg_br = " ";
+            $tg_hr = " ";
+            $tg_bo = "";
+            $tg_bc = "";
+        }
+
+        if ($act == BIN5_RULES_OLDSCHEMA) {
+            return ("");
+        }
+        else if ($act == BIN5_RULES_ALLPASS) {
+            return (sprintf($mlang_bin5_bin5['info_alpa'][$G_lang],
+                            $tg_br, $tg_hr, $tg_bo, $tg_bc));
+        }
+        else if ($act == BIN5_RULES_ABANDON) {
+            return (sprintf($mlang_bin5_bin5['info_aban'][$G_lang],
+                            $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                            $win_name));
+        }
+        else {
+            $wol = static::game_result($old_asta_pnt, $old_pnt);
+
+            $noty = "";
+
+            if ($win != $fri) { // not alone case
+                /* MLANG: "<hr>Nell'ultima mano ha chiamato <b>%s</b>, il socio era <b>%s</b>,<br>", "hanno fatto <b>cappotto</b> EBBRAVI!.<hr>", "dovevano fare <b>%s</b> punti e ne hanno fatti <b>%d</b>: hanno <b>%s</b>.<hr>", "<hr>Nell'ultima mano <b>%s</b> si &egrave; chiamato in mano,<br>", "ha fatto <b>cappotto</b> EBBRAVO!.<hr>", "doveva fare <b>%s</b> punti e ne ha fatti <b>%d</b>: ha <b>%s</b>.<hr>", ($table->old_asta_pnt > 61 ? "almeno ".$table->old_asta_pnt : 'pi&ugrave; di 60'), $table->old_pnt, ($wol == 1 ? "vinto" : ($wol == 0 ? "pareggiato" : "perso" */
+
+                $noty .= sprintf($mlang_bin5_bin5['info_part'][$G_lang],
+                                 $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                                 $win_name,
+                                 $fri_name,
+                                 $old_tourn_pts);
+                if ($old_pnt == 120) {
+                    $noty .= sprintf($mlang_bin5_bin5['info_capp'][$G_lang],
+                                     $tg_br, $tg_hr, $tg_bo, $tg_bc );
+                }
+                else {
+                    if ($old_asta_pnt > 61) {
+                        $noty .= sprintf($mlang_bin5_bin5['info_alea'][$G_lang],
+                                         $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                                         $old_asta_pnt, $old_pnt,
+                                         ($wol == 1 ? $mlang_bin5_bin5['info_win'][$G_lang] :
+                                          ($wol == 0 ? $mlang_bin5_bin5['info_peer'][$G_lang] :
+                                           $mlang_bin5_bin5['info_lost'][$G_lang])));
+                    }
+                    else {
+                        $noty .= sprintf($mlang_bin5_bin5['info_more'][$G_lang],
+                                         $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                                         $old_pnt,
+                                         ($wol == 1 ? $mlang_bin5_bin5['info_win'][$G_lang] :
+                                          ($wol == 0 ? $mlang_bin5_bin5['info_peer'][$G_lang] :
+                                           $mlang_bin5_bin5['info_lost'][$G_lang])));
+                    } // else of if ($old_asta_pnt > 61) {
+                } // else of if ($old_pnt == 120) {
+            } // if ($win != $fri) { // not alone case
+            else {
+                $noty .= sprintf($mlang_bin5_bin5['info_alon'][$G_lang],
+                                 $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                                 $win_name,
+                                 $old_tourn_pts);
+                if ($old_pnt == 120) {
+                    $noty .= sprintf($mlang_bin5_bin5['info_acap'][$G_lang],
+                                     $tg_br, $tg_hr, $tg_bo, $tg_bc);
+                }
+                else {
+                    if ($old_asta_pnt > 61) {
+                        $noty .= sprintf($mlang_bin5_bin5['info_aleaa'][$G_lang],
+                                         $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                                         $old_asta_pnt, $old_pnt,
+                                         ($wol == 1 ? $mlang_bin5_bin5['info_win'][$G_lang] :
+                                          ($wol == 0 ? $mlang_bin5_bin5['info_peer'][$G_lang] :
+                                           $mlang_bin5_bin5['info_lost'][$G_lang])));
+                    }
+                    else {
+                        $noty .= sprintf($mlang_bin5_bin5['info_morea'][$G_lang],
+                                         $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                                         $old_pnt,
+                                         ($wol == 1 ? $mlang_bin5_bin5['info_win'][$G_lang] :
+                                          ($wol == 0 ? $mlang_bin5_bin5['info_peer'][$G_lang] :
+                                           $mlang_bin5_bin5['info_lost'][$G_lang])));
+                    }
+                }
+            }
+        }
+
+        $old_multer = static::s_multer($old_mult, $old_asta_pnt);
+        if ($old_multer > 1) {
+            $noty .= sprintf($mlang_bin5_bin5['info_omul'][$G_lang],
+                             $tg_br, $tg_hr, $tg_bo, $tg_bc,
+                             multoval($old_multer));
+        }
+        $noty .= sprintf('%2$s', $tg_br, $tg_hr);
+
+        return ($noty);
+    }
+} // class Rules_old_rules
+
+?>
\ No newline at end of file