web/briskin5/Obj/rules_old_rules.phh

   1 <?php
   2 /*
   3  *  brisk - rules_old_rules.phh
   4  *
   5  *  Copyright (C) 2017 Matteo Nastasi
   6  *                          mailto: nastasi@alternativeoutput.it
   7  *                                  matteo.nastasi@milug.org
   8  *                          web: http://www.alternativeoutput.it
   9  *
  10  * This program is free software; you can redistribute it and/or modify
  11  * it under the terms of the GNU General Public License as published by
  12  * the Free Software Foundation; either version 2 of the License, or
  13  * (at your option) any later version.
  14  *
  15  * This program is distributed in the hope that it will be useful, but
  16  * WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABLILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  18  * General Public License for more details. You should have received a
  19  * copy of the GNU General Public License along with this program; if
  20  * not, write to the Free Software Foundation, Inc, 59 Temple Place -
  21  * Suite 330, Boston, MA 02111-1307, USA.
  22  *
  23  */
  24
  25 require_once("briskin5.phh");
  26 require_once("rules_base.phh");
  27
  28 class Rules_old_rules extends Rules {
  29     function __construct($table)
  30     {
  31         parent::__construct($table);
  32         $this->id = 1;
  33     }
  34
  35     static function asta2mult($asta_pnt)
  36     {
  37         if ($asta_pnt > 110)
  38             return (6);
  39         else if ($asta_pnt > 100)
  40             return (5);
  41         else if ($asta_pnt > 90)
  42             return (4);
  43         else if ($asta_pnt > 80)
  44             return (3);
  45         else if ($asta_pnt > 70)
  46             return (2);
  47         else
  48             return (1);
  49     }
  50     static function s_multer($mult, $pnt)
  51     {
  52         return (pow(2, $mult) * static::asta2mult($pnt));
  53     }
  54
  55     static function s_point_calc($pnt_done, $mult, $pnt_req, $is_allpoints)
  56     {
  57         return ($pnt_done * static::s_multer($mult, $pnt_req) * ($is_allpoints ? 2 : 1));
  58     }
  59
  60     function multer($is_new)
  61     {
  62         if ($is_new) {
  63             return (static::s_multer($this->table->mult, $this->table->asta_pnt));
  64         }
  65         else {
  66             return (static::s_multer($this->table->old_mult, $this->table->old_asta_pnt));
  67         }
  68     }
  69
  70     static function game_result($asta_pnt, $pnt)
  71     {
  72         $sixty = (BIN5_PLAYERS_N == 3 ? 30 : 60);
  73         if ($asta_pnt == 61) {
  74             if ($pnt > $sixty)
  75                 return (1);
  76             else if ($pnt == $sixty)
  77                 return (0);
  78             else
  79                 return (-1);
  80         }
  81         else {
  82             if ($pnt >= $asta_pnt)
  83                 return (1);
  84             else
  85                 return (-1);
  86         }
  87     }
  88
  89     function rules_asta(&$bri, $curtime, $action, $user, &$ret_s, $a_card, $a_pnt)
  90     {
  91         $index_cur = $this->table->gstart % BIN5_PLAYERS_N;
  92
  93         // Abbandono dell'asta
  94         if ($a_card <= -1) {
  95             log_wr("Abbandona l'asta.");
  96             $this->table->asta_pla[$index_cur] = FALSE;
  97             $user->asta_card  = -1;
  98             $this->table->asta_pla_n--;
  99
 100             return TRUE;
 101         }
 102         else if ($a_card <= 9) {
 103             $ret_s = "";
 104
 105             do {
 106                 if ($a_card >= 0 && $a_card < 9 && $a_card > $this->table->asta_card)
 107                     ;
 108                 else if ($a_card == 9 && $a_pnt > ($this->table->asta_pnt >= 61 ? $this->table->asta_pnt : 60)
 109                          && $a_pnt <= 120)
 110                     ;
 111                 else
 112                     break;
 113
 114                 $user->asta_card  = $a_card;
 115                 $this->table->asta_card = $a_card;
 116                 if ($a_card == 9) {
 117                     $user->asta_pnt   = $a_pnt;
 118                     $this->table->asta_pnt  = $a_pnt;
 119                 }
 120
 121                 return TRUE;
 122             } while (0);
 123         }
 124
 125         return FALSE;
 126     }
 127
 128     function rules_nextauct(&$bri, $curtime, $action, $user, $maxcard)
 129     {
 130         if (($this->table->asta_pla_n > ($maxcard > -1 ? 1 : 0)) &&
 131             !($this->table->asta_card == 9 && $this->table->asta_pnt == 120)) {
 132             return TRUE;
 133         }
 134         else {
 135             return FALSE;
 136         }
 137
 138     }
 139
 140     function engine(&$bri, $curtime, $action, $user, &$opt1 = NULL, &$opt2 = NULL, &$opt3 = NULL)
 141     {
 142         GLOBAL $G_all_points, $G_dbasetype;
 143
 144         $table = $this->table;
 145         $pnts_sav = array();
 146
 147         if ($action == BIN5_RULES_ASTA) {
 148             return ($this->rules_asta($bri, $curtime, $action, $user, &$opt1, $opt2, $opt3));
 149         }
 150         else if ($action == BIN5_RULES_NEXTAUCT) {
 151             return ($this->rules_nextauct($bri, $curtime, $action, $user, $opt1));
 152         }
 153         else if ($action == BIN5_RULES_ALLPASS) { // return TRUE if all correct
 154             $table->old_act = $action;
 155             $table->old_asta_win = -1;
 156             $table->old_pnt = 0;
 157             $table->mult_inc(1);
 158             for ($i = 0 ; $i < PLAYERS_N ; $i++) {
 159                 $pnts_sav[$i] = 0;
 160             }
 161
 162             $game_delta = 1;
 163             // $table->game_next(1);
 164             $table->game_init(&$bri->user);
 165         }
 166         else if ($action == BIN5_RULES_ABANDON) { // return TRUE if all correct
 167             if (!($user->handpt <= 2)) {
 168                 return (FALSE);
 169             }
 170             $table->old_act = $action;
 171             log_wr(sprintf("GIOCO FINITO !!!"));
 172             $table->old_asta_win = $user->table_pos;
 173             $table->old_pnt = 0;
 174             $table->mult_inc(1);
 175
 176             for ($i = 0 ; $i < PLAYERS_N ; $i++) {
 177                 $pnts_sav[$i] = 0;
 178             }
 179
 180             // Non si cambia mazzo se si abbandona la partita
 181             $game_delta = 0;
 182             // $table->game_next(0);
 183             $table->game_init(&$bri->user);
 184         }
 185         else if ($action == BIN5_RULES_FINISH) { // return TRUE if all correct
 186             $table->old_act = $action;
 187             do {
 188                 $pro = 0;
 189
 190                 if ($table->asta_pnt == 60)
 191                     $table->asta_pnt = 61;
 192
 193                 $table->old_reason = "";
 194
 195                 // count points for the temporary 2 teams
 196                 for ($i = 0 ; $i < (BIN5_CARD_HAND * BIN5_PLAYERS_N) ; $i++) {
 197                     $ctt = $table->card[$i]->value % 10;
 198                     $own = $table->card[$i]->owner;
 199                     if ($own == $table->asta_win || $own == $table->friend)
 200                         $pro += $G_all_points[$ctt];
 201                 }
 202
 203                 log_wr(sprintf("PRO: [%d]", $pro));
 204
 205                 // PATTA case !
 206                 if (static::game_result($table->asta_pnt, $pro) == 0) {
 207                     $table->points[$table->points_n % MAX_POINTS] = array();
 208                     for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
 209                         $table->points[$table->points_n % MAX_POINTS][$i] = 0;
 210                         $pnts_sav[$i] = 0;
 211                     }
 212                     $table->points_n++;
 213                     $table->old_pnt = $pro;
 214                     $table->old_asta_win = $table->asta_win;
 215                     $table->mult_inc(1);
 216
 217                     break;
 218                     }
 219
 220                 if (static::game_result($table->asta_pnt, $pro) == 1)
 221                     $sig = 1;
 222                 else
 223                     $sig = -1;
 224
 225                 // TAG: POINTS_MANAGEMENT
 226                 $table->points[$table->points_n % MAX_POINTS] = array();
 227                 for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
 228                     if ($i == $table->asta_win)
 229                         $pnt = ($i == $table->friend ? 4 : 2);
 230                     else if ($i == $table->friend)
 231                         $pnt = 1;
 232                     else
 233                         $pnt = -1;
 234
 235                     log_wr(sprintf("PRO: pt[%d][%d] = %d", $table->points_n % MAX_POINTS, $i, $pnt));
 236
 237                     $pnt_sav = static::s_point_calc($pnt * $sig,           0, $table->asta_pnt, ($pro == 120));
 238                     $pnt_tab = static::s_point_calc($pnt * $sig, $table->mult, $table->asta_pnt, ($pro == 120));
 239
 240                     $table->points[$table->points_n % MAX_POINTS][$i] = $pnt_tab;
 241                     $table->total[$i] += $pnt_tab;
 242                     $pnts_sav[$i] = $pnt_sav;
 243                 }
 244                 $table->points_n++;
 245                 $table->old_pnt = $pro;
 246                 $table->old_asta_win = $table->asta_win;
 247                 $table->mult_set(0);
 248             } while (0);
 249             $game_delta = 1;
 250         }
 251         else {
 252             return (FALSE);
 253         }
 254         $table->game_next($game_delta);
 255
 256         $plist = "$table->table_token|$user->table_orig|$table->player_n";
 257         $ucodes = array();
 258         $codes = "";
 259         for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
 260             $user_cur = &$bri->user[$table->player[$i]];
 261
 262             /* pro db */
 263             $ucodes[$i] = $user_cur->code_get();
 264
 265             /* pro log */
 266             $plist .= '|'.xcapelt($user_cur->name).'|'.$pnts_sav[$i];
 267             $codes .= '|'.xcapelt($user_cur->code_get());
 268         }
 269         $plist .= $codes;
 270         log_legal($curtime, $user->ip, $user, "STAT:BRISKIN5:FINISH_GAME", $plist);
 271
 272         $table->old_asta_pnt = $table->asta_pnt;
 273         // $table->old_mazzo is managed by ->game_next();
 274         // $table->old_mult, $table->old_pnt, $table->old_reason and $table->old_asta_win are specific
 275
 276         $table->old_friend = $table->friend;
 277         $table->old_tourn_pts = $table->tourn_pts;
 278
 279         $table->old_reason = static::game_description($action, 'html', $table->old_mult,
 280                                              $table->old_asta_win,
 281                                              ($table->old_asta_win != -1 ?
 282                                               $bri->user[$table->player[$table->old_asta_win]]->name : ""),
 283                                              $table->old_friend,
 284                                              ($table->old_friend != -1 ?
 285                                               $bri->user[$table->player[$table->old_friend]]->name : ""),
 286                                              $table->old_pnt, $table->old_asta_pnt, $table->old_tourn_pts);
 287
 288
 289         if ($user->table_orig < TABLES_AUTH_N) {
 290             require_once("../Obj/dbase_".$G_dbasetype.".phh");
 291
 292             if (($bdb = BriskDB::create()) != FALSE) {
 293                 $bdb->bin5_points_save($curtime, $table, $user->table_orig, $action, $ucodes, $pnts_sav);
 294                 unset($bdb);
 295             }
 296             else {
 297                 log_points($user->ip, $curtime, $user, "STAT:BRISKIN5:FINISH_GAME", "DATABASE CONNECTION FAILED");
 298             }
 299             log_points($user->ip, $curtime, $user, "STAT:BRISKIN5:FINISH_GAME", $plist);
 300         }
 301
 302         $table->game_init(&$bri->user);
 303
 304         return (TRUE);
 305     }
 306
 307     static function game_description($act, $form, $old_mult, $win = -1, $win_name = "?1?", $fri = -1, $fri_name = "?2?",
 308                               $old_pnt = -1, $old_asta_pnt = -1, $old_tourn_pts = -1)
 309     {
 310         GLOBAL $G_lang, $mlang_bin5_rules;
 311
 312         if ($form == 'html') {
 313             $tg_br = "<br>";
 314             $tg_hr = "<hr>";
 315             $tg_bo = "<b>";
 316             $tg_bc = "</b>";
 317             $win_name = xcape($win_name);
 318             $fri_name = xcape($fri_name);
 319         }
 320         else {
 321             $tg_br = " ";
 322             $tg_hr = " ";
 323             $tg_bo = "";
 324             $tg_bc = "";
 325         }
 326
 327         if ($act == BIN5_RULES_OLDSCHEMA) {
 328             return ("");
 329         }
 330         else if ($act == BIN5_RULES_ALLPASS) {
 331             return (sprintf($mlang_bin5_rules['info_alpa'][$G_lang],
 332                             $tg_br, $tg_hr, $tg_bo, $tg_bc));
 333         }
 334         else if ($act == BIN5_RULES_ABANDON) {
 335             return (sprintf($mlang_bin5_rules['info_aban'][$G_lang],
 336                             $tg_br, $tg_hr, $tg_bo, $tg_bc,
 337                             $win_name));
 338         }
 339         else {
 340             $wol = static::game_result($old_asta_pnt, $old_pnt);
 341
 342             $noty = "";
 343
 344             if ($win != $fri) { // not alone case
 345                 /* 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" */
 346
 347                 $noty .= sprintf($mlang_bin5_rules['info_part'][$G_lang],
 348                                  $tg_br, $tg_hr, $tg_bo, $tg_bc,
 349                                  $win_name,
 350                                  $fri_name,
 351                                  $old_tourn_pts);
 352                 if ($old_pnt == 120) {
 353                     $noty .= sprintf($mlang_bin5_rules['info_capp'][$G_lang],
 354                                      $tg_br, $tg_hr, $tg_bo, $tg_bc );
 355                 }
 356                 else {
 357                     if ($old_asta_pnt > 61) {
 358                         $noty .= sprintf($mlang_bin5_rules['info_alea'][$G_lang],
 359                                          $tg_br, $tg_hr, $tg_bo, $tg_bc,
 360                                          $old_asta_pnt, $old_pnt,
 361                                          ($wol == 1 ? $mlang_bin5_rules['info_win'][$G_lang] :
 362                                           ($wol == 0 ? $mlang_bin5_rules['info_peer'][$G_lang] :
 363                                            $mlang_bin5_rules['info_lost'][$G_lang])));
 364                     }
 365                     else {
 366                         $noty .= sprintf($mlang_bin5_rules['info_more'][$G_lang],
 367                                          $tg_br, $tg_hr, $tg_bo, $tg_bc,
 368                                          $old_pnt,
 369                                          ($wol == 1 ? $mlang_bin5_rules['info_win'][$G_lang] :
 370                                           ($wol == 0 ? $mlang_bin5_rules['info_peer'][$G_lang] :
 371                                            $mlang_bin5_rules['info_lost'][$G_lang])));
 372                     } // else of if ($old_asta_pnt > 61) {
 373                 } // else of if ($old_pnt == 120) {
 374             } // if ($win != $fri) { // not alone case
 375             else {
 376                 $noty .= sprintf($mlang_bin5_rules['info_alon'][$G_lang],
 377                                  $tg_br, $tg_hr, $tg_bo, $tg_bc,
 378                                  $win_name,
 379                                  $old_tourn_pts);
 380                 if ($old_pnt == 120) {
 381                     $noty .= sprintf($mlang_bin5_rules['info_acap'][$G_lang],
 382                                      $tg_br, $tg_hr, $tg_bo, $tg_bc);
 383                 }
 384                 else {
 385                     if ($old_asta_pnt > 61) {
 386                         $noty .= sprintf($mlang_bin5_rules['info_aleaa'][$G_lang],
 387                                          $tg_br, $tg_hr, $tg_bo, $tg_bc,
 388                                          $old_asta_pnt, $old_pnt,
 389                                          ($wol == 1 ? $mlang_bin5_rules['info_win'][$G_lang] :
 390                                           ($wol == 0 ? $mlang_bin5_rules['info_peer'][$G_lang] :
 391                                            $mlang_bin5_rules['info_lost'][$G_lang])));
 392                     }
 393                     else {
 394                         $noty .= sprintf($mlang_bin5_rules['info_morea'][$G_lang],
 395                                          $tg_br, $tg_hr, $tg_bo, $tg_bc,
 396                                          $old_pnt,
 397                                          ($wol == 1 ? $mlang_bin5_rules['info_win'][$G_lang] :
 398                                           ($wol == 0 ? $mlang_bin5_rules['info_peer'][$G_lang] :
 399                                            $mlang_bin5_rules['info_lost'][$G_lang])));
 400                     }
 401                 }
 402             }
 403         }
 404
 405         $old_multer = static::s_multer($old_mult, $old_asta_pnt);
 406         if ($old_multer > 1) {
 407             $noty .= sprintf($mlang_bin5_rules['info_omul'][$G_lang],
 408                              $tg_br, $tg_hr, $tg_bo, $tg_bc,
 409                              multoval($old_multer));
 410         }
 411         $noty .= sprintf('%2$s', $tg_br, $tg_hr);
 412
 413         return ($noty);
 414     }
 415 } // class Rules_old_rules
 416
 417 ?>