web/briskin5/Obj/rules_together17.phh

   1 <?php
   2 /*
   3  *  brisk - rules_together17.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_together17 extends Rules_no_draw {
  29     function __construct($table)
  30     {
  31         parent::__construct($table);
  32         $this->id = 4;
  33     }
  34
  35     function tourn_points(&$user, $user_pos)
  36     {
  37         $card = $this->table->card;
  38         unset($user->asta_tourn_pts);
  39         $user->asta_tourn_pts = array(0, 0, 0, 0);
  40         $tourn_values = array(11, 10, 4,3,2, 1,1,1,1,1);
  41
  42         for ($i = 0 ; $i < BIN5_PLAYERS_N * BIN5_CARD_HAND ; $i++) {
  43
  44             if ($card[$i]->owner == $user_pos) {
  45                 $user->asta_tourn_pts[(int)($i / 10)] += $tourn_values[$i % 10];
  46             }
  47         }
  48     }
  49
  50     function tourn_points_max($user)
  51     {
  52         $mx = 0;
  53         for ($i = 0 ; $i < 4 ; $i++) {
  54             error_log("tourn_pts_max ");
  55             error_log(print_r($user->asta_tourn_pts, TRUE));
  56             if ($user->asta_tourn_pts[$i] > $mx) {
  57                 $mx = $user->asta_tourn_pts[$i];
  58             }
  59         }
  60
  61         return $mx;
  62     }
  63
  64     function rules_asta(&$bri, $curtime, $action, $user, &$ret_s, $a_card, $a_pnt) {
  65         /*
  66 Per le chiamate da 62 a 70 bisognerà avere 13 punti ( esempi.: asso e fante oppure tre
  67 e cavallo oppure re, cavallo, fante, sette, sei, cinque, quattro) ;
  68 Per chiamate da 71 ad 80 bisognerà avere 19 punti ( esempi.: asso, re, cavallo e 6
  69 oppure tre, re, fante, 7, 6 e 5 );
  70 Per chiamate da 81 a 90 bisognerà avere 23 punti ( esempi.: asso, tre e fante oppure
  71 asso, re, cavallo, fante, 6, 5 e 4);
  72 Per chiamate da 91 a 100 bisognerà avere 25 punti ( esempi.: asso, tre, re e 7 oppure
  73 asso, tre, cavallo e fante );
  74 Per chiamate da 101 a 120 bisognerà avere 28 punti ( esempi.:asso, tre, re e cavallo
  75 oppure asso, tre, cavallo, 7, 6, 5 e 4 ).
  76         */
  77
  78         $index_cur = $this->table->gstart % BIN5_PLAYERS_N;
  79
  80         // Abbandono dell'asta
  81         if ($a_card <= -1) {
  82             log_wr("Abbandona l'asta.");
  83             $this->table->asta_pla[$index_cur] = FALSE;
  84             $user->asta_card  = -1;
  85             $this->table->asta_pla_n--;
  86
  87             return TRUE;
  88         }
  89         else if ($a_card <= 9) {
  90             $ret_s = "";
  91
  92             do {
  93                 if ($a_card >= 0 && $a_card < 9 && $a_card > $this->table->asta_card) {
  94                     return TRUE;
  95                 }
  96                 else if ($a_card == 9 &&
  97                          $a_pnt > ($this->table->asta_pnt >= 61 ? $this->table->asta_pnt : 60)
  98                          && $a_pnt <= 120) {
  99                     if ($a_pnt < 71)
 100                         $min_pts = 13;
 101                     else if ($a_pnt < 80)
 102                         $min_pts = 19;
 103                     else if ($a_pnt < 90)
 104                         $min_pts = 23;
 105                     else if ($a_pnt < 100)
 106                         $min_pts = 25;
 107                     else
 108                         $min_pts = 28;
 109
 110                     $max_hand_pts = $this->tourn_points_max($user);
 111                     if ($max_hand_pts < $min_pts) {
 112                         // FIXME_LANG
 113                         $ret_s = sprintf("Hai chiamato un due a %d ma in mano hai al massimo %d punti-torneo, non puoi.",
 114                                          $a_pnt, $max_hand_pts);
 115                         break;
 116                     }
 117                 }
 118                 else {
 119                     break;
 120                 }
 121
 122                 $user->asta_card  = $a_card;
 123                 $this->table->asta_card = $a_card;
 124                 if ($a_card == 9) {
 125                     $user->asta_pnt   = $a_pnt;
 126                     $this->table->asta_pnt  = $a_pnt;
 127                 }
 128
 129                 return TRUE;
 130             } while (0);
 131         }
 132
 133         return FALSE;
 134     }
 135
 136 } // class Rules_no_draw
 137
 138 ?>