define('BIN5_SHM_DLT', 32768);
define('BIN5_PROXY_PATH', PROXY_PATH."/bin5");
-define('BIN5_RULES_OLDSCHEMA', -1);
-define('BIN5_RULES_FINISH', 0);
-define('BIN5_RULES_ABANDON', 1);
-define('BIN5_RULES_ALLPASS', 2);
+require_once('rules.phh');
+
+define('BIN5_TOURNAMENT_CURRENT', BIN5_TOURNAMENT_NO_DRAW);
$mlang_bin5_bin5 = array(
// br, hr, b, /b, win, fri
'en' => '%3$slast hand%4$s'),
'info_curr' => array( 'it' => '%3$smano corrente%4$s',
'en' => '%3$scurrent hand%4$s'),
- // br, hr, b, /b, win, fri
- 'info_part' => array( 'it' => 'Ha chiamato %3$s%5$s%4$s, il socio era %3$s%6$s%4$s,%1$s',
- 'en' => 'The declarer was %3$s%5$s%4$s, the partner was %3$s%6$s%4$s,%1$s'),
- // br, hr, b, /b
- 'info_capp' => array( 'it' => 'hanno fatto %3$scappotto%4$s EBBRAVI!.%1$s',
- 'en' => 'and they made %3Dscapot%4$s WELL DONE!.%1$s'),
-
- // br, hr, b, /b, old_asta_pnt, old_pnt, winornot
- 'info_alea' => array( 'it' => 'dovevano fare %3$salmeno %5$d%4$s punti e ne hanno fatti %3$s%6$d%4$s: hanno %7$s.%1$s',
- 'en' => 'they had to do %3$sat least %5$d%4$s points and they had made %3$s%6$d%4$s: they have %7$s.%1$s'),
- // br, hr, b, /b, old_pnt, winornot
- 'info_more' => array( 'it' => 'dovevano fare %3$spiù di 60%4$s punti e ne hanno fatti %3$s%5$d%4$s: hanno %6$s.%1$s',
- 'en' => 'they had to do %3$sover 60%4$s points and they had made %3$s%5$d%4$s: they have %3$s%6$s%4$s.%1$s'),
- 'info_win' => array( 'it' => 'vinto',
- 'en' => 'win'),
- 'info_peer' => array( 'it' => 'pareggiato',
- 'en' => 'drew'),
- 'info_lost' => array( 'it' => 'perso',
- 'en' => 'lost'),
-
- // br, hr, b, /b, win_name
- 'info_alon' => array( 'it' => '%3$s%5$s%4$s si è chiamato in mano,%1$s',
- 'en' => '%3$s%5$s%4$s play alone against each other,%1$s'),
- // br, hr, b, /b, old_asta_pnt, old_pnt, winornot
- 'info_aleaa' => array( 'it' => 'doveva fare %3$salmeno %5$d%4$s punti e ne ha fatti %3$s%6$d%4$s: ha %3$s%7$s%4$s.%1$s',
- 'en' => 'he/she had to do %3$sat least %5$d%4$s points and they had made %3$s%6$d%4$s: he/she had %3$s%7$s%4$s.%1$s'),
- // br, hr, b, /b, old_pnt, winornot
- 'info_morea' => array( 'it' => 'doveva fare %3$spiù di 60%4$s punti e ne ha fatti %3$s%5$d%4$s: ha %3$s%6$s%4$s.%1$s',
- 'en' => 'he/she had to do %3$smore than 60%4$s points and they had made %3$s%5$d%4$s: he/she had %3$s%6$s%4$s.%1$s'),
- // br, hr, b, /b
- 'info_acap' => array( 'it' => 'ha fatto %3$scappotto%4$s EBBRAVO!.%1$s',
- 'en' => 'and he/she made %3$scapot%4$s WELL DONE!.%1$s'),
-
- // br, hr, b, /b
- 'info_omul' => array( 'it' => '%1$sLa partita valeva %3$s%5$s%4$s.%1$s',
- 'en' => '%1$sEN: The game was worth %3$s%5$s%4$s.%1$s' ),
-
- // br, hr, b, /b
- 'info_alpa' => array( 'it' => '%1$sHanno passato %3$stutti%4$s.%1$s',
- 'en' => '%1$sEN: Hanno passato %3$stutti%4$s.%1$s' ),
-
- // br, hr, b, /b, aband-name
- 'info_aban' => array( 'it' => ' Ha lasciato %3$s%5$s%4$s perché aveva al massimo %3$s2 punti%4$s.',
- 'en' => ' EN: Ha lasciato %3$s%5$s%4$s perché aveva al massimo %3$s2 punti%4$s.'),
-
+ 'info_yshuf'=> array( 'it' => 'Fai <b>tu</b> il mazzo, ',
+ 'en' => 'It\'s <b>your</b> shuffled the cards, '),
'info_shuf' => array( 'it' => 'Il mazzo a <b>%s</b>, ',
'en' => '<b>%s</b> shuffled the cards, '),
'info_yturn'=> array( 'it' => ' tocca a <b>te</b> giocare.',
'en' => 'it\'s the <b>%s</b>\'s turn.'),
'info_mult' => array( 'it' => ' La partita vale <b>%s</b>.',
'en' => ' The game worth <b>%s</b>.' ),
- 'info_yshuf'=> array( 'it' => 'Fai <b>tu</b> il mazzo, ',
- 'en' => 'It\'s <b>your</b> shuffled the cards, '),
'info_match'=> array( 'it' => 'Il codice della partita è <b>%d</b>.',
'en' => 'Match code is <b>%d</b>.'),
+
'btn_bkgame'=> array( 'it' => 'torna alla partita',
'en' => 'back to the game'),
'call_wptn' => array( 'it' => '<br>con %d punti',
return (sprintf(($G_lang == 'en' ? "%d-ple" : "%d-plo"), $mult));
}
+function dom_select_rules()
+{
+ GLOBAL $G_lang;
+
+ $ret = "<select id='select_rules'>\n";
+ foreach (rules_keys() as $key) {
+ $value = rules_id2descr($key, $G_lang);
+ $ret .= sprintf("<option value='%d'>%s</option>\n", $key, $value);
+ }
+ $ret .= "</select>\n";
+
+ echo "$ret";
+}
class Card {
var $value; /* 0 - 39 card value */
} // end class Card
class Bin5_table extends Table {
- var $card; // il mazzo di carte
- var $mazzo; // chi e' di mazzo
- var $gstart;
- var $turn;
+ var $card; // il mazzo di carte
+ var $mazzo; // chi e' di mazzo
+ var $gstart; // first player of the current game
+ var $turn; // turn in the game (absolute, not modularized)
- var $asta_pla;
- var $asta_pla_n;
- var $asta_card;
- var $asta_pnt;
+ var $asta_pla; // array(); TRUE: in auction, FALSE: out of the auction
+ var $asta_pla_n; // number of players in auction
+ var $asta_card; // current card for auction
+ var $asta_pnt; // current point for auction
var $mult;
- var $points; // points array
- var $points_n; // number of row of points
+ var $points; // points array
+ var $points_n; // number of row of points
var $total;
var $asta_win; // the caller idx position at table
var $briscola;
+ var $tourn_pts; // points in the caller hand
var $friend; // the callee idx position at table
var $match_id; // the id of the match on the database (-1 == just not saved)
var $old_asta_win; // the old caller idx position at table
var $old_friend; // the old callee idx position at table
+ var $old_tourn_pts; // the old tournment computed points in the hand of caller
+ var $rules;
+
function Bin5_table()
{
}
$thiz->total = array( 0, 0, 0, 0, 0);
$thiz->asta_win = -1;
$thiz->briscola = -1;
+ $thiz->tourn_pts = -1;
$thiz->friend = -1;
$thiz->turn = 0;
$thiz->asta_win = $from->asta_win;
$thiz->briscola = $from->briscola;
+ $thiz->tourn_pts = $from->tourn_pts;
$thiz->friend = $from->friend;
$thiz->match_id = $from->match_id;
function spawn(&$from)
{
+ GLOBAL $G_lang;
if (($thiz =& new Bin5_table()) == FALSE)
return (FALSE);
$thiz->card = array();
$thiz->bunch_create();
- $thiz->mazzo = rand(0,PLAYERS_N-1);
+ $thiz->mazzo = rand(0,PLAYERS_N-1);
$thiz->points = array();
$thiz->total = array();
$thiz->points_n = 0;
$thiz->old_asta_win = -1;
$thiz->old_reason = "";
+ $rules_name = rules_id2name(BIN5_TOURNAMENT_CURRENT);
+ $thiz->rules = new $rules_name($thiz);
// players are rearranged in an dedicated array
$thiz->player = array();
for ($i = 0 ; $i < $from->player_n ; $i++)
return ($thiz);
}
- 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);
- }
-
- function multer($is_new)
- {
- if ($is_new) {
- return (static::s_multer($this->mult, $this->asta_pnt));
- }
- else {
- return (static::s_multer($this->old_mult, $this->old_asta_pnt));
- }
- }
-
- 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 bunch_create_old() function AND
// {
$this->asta_pnt = 60;
$this->asta_win = -1;
$this->briscola = -1;
+ $this->tourn_pts = -1;
$this->friend = -1;
$this->turn = 0;
$user_cur->asta_card = -2;
$user_cur->asta_pnt = -1;
$user_cur->handpt = $this->hand_points($i);
+ $this->rules->tourn_points($user_cur, $i);
}
log_rd2("GEND 4");
}
return ($ct);
}
- function rules_engine(&$bri, $curtime, $action, $user)
- {
- GLOBAL $G_all_points, $G_dbasetype;
-
- $pnts_sav = array();
-
- if ($action == BIN5_RULES_ALLPASS) { // return TRUE if all correct
- $this->old_act = $action;
- $this->old_asta_win = -1;
- $this->old_pnt = 0;
- $this->mult_inc(1);
- for ($i = 0 ; $i < PLAYERS_N ; $i++) {
- $pnts_sav[$i] = 0;
- }
-
- $game_delta = 1;
- // $this->game_next(1);
- $this->game_init(&$bri->user);
- }
- else if ($action == BIN5_RULES_ABANDON) { // return TRUE if all correct
- if (!($user->handpt <= 2)) {
- return (FALSE);
- }
- $this->old_act = $action;
- log_wr(sprintf("GIOCO FINITO !!!"));
- $this->old_asta_win = $user->table_pos;
- $this->old_pnt = 0;
- $this->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;
- // $this->game_next(0);
- $this->game_init(&$bri->user);
- }
- else if ($action == BIN5_RULES_FINISH) { // return TRUE if all correct
- $this->old_act = $action;
- do {
- $pro = 0;
-
- if ($this->asta_pnt == 60)
- $this->asta_pnt = 61;
-
- $this->old_reason = "";
-
- // count points for the temporary 2 teams
- for ($i = 0 ; $i < (BIN5_CARD_HAND * BIN5_PLAYERS_N) ; $i++) {
- $ctt = $this->card[$i]->value % 10;
- $own = $this->card[$i]->owner;
- if ($own == $this->asta_win || $own == $this->friend)
- $pro += $G_all_points[$ctt];
- }
-
- log_wr(sprintf("PRO: [%d]", $pro));
-
- // PATTA case !
- if ($this->asta_pnt == 61 && $pro == 60) {
- $this->points[$this->points_n % MAX_POINTS] = array();
- for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
- $this->points[$this->points_n % MAX_POINTS][$i] = 0;
- $pnts_sav[$i] = 0;
- }
- $this->points_n++;
- $this->old_pnt = $pro;
- $this->mult_inc(1);
-
- break;
- }
-
- if ($pro >= $this->asta_pnt)
- $sig = 1;
- else
- $sig = -1;
-
- // TAG: POINTS_MANAGEMENT
- $this->points[$this->points_n % MAX_POINTS] = array();
- for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
- if ($i == $this->asta_win)
- $pnt = ($i == $this->friend ? 4 : 2);
- else if ($i == $this->friend)
- $pnt = 1;
- else
- $pnt = -1;
-
- log_wr(sprintf("PRO: pt[%d][%d] = %d", $this->points_n % MAX_POINTS, $i, $pnt));
-
- $pnt_sav = static::s_point_calc($pnt * $sig, 0, $this->asta_pnt, ($pro == 120));
- $pnt_tab = static::s_point_calc($pnt * $sig, $this->mult, $this->asta_pnt, ($pro == 120));
-
- $this->points[$this->points_n % MAX_POINTS][$i] = $pnt_tab;
- $this->total[$i] += $pnt_tab;
- $pnts_sav[$i] = $pnt_sav;
- }
- $this->points_n++;
- $this->old_pnt = $pro;
- $this->old_asta_win = $this->asta_win;
- $this->mult_set(0);
- } while (0);
- $game_delta = 1;
- }
- else {
- return (FALSE);
- }
- $this->game_next($game_delta);
-
- $plist = "$this->table_token|$user->table_orig|$this->player_n";
- $ucodes = array();
- $codes = "";
- for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
- $user_cur = &$bri->user[$this->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);
-
- $this->old_asta_pnt = $this->asta_pnt;
- // $this->old_mazzo is managed by ->game_next();
- // $this->old_mult, $this->old_pnt, $this->old_reason and $this->old_asta_win are specific
-
- $this->old_friend = $this->friend;
- $this->old_reason = game_description($action, 'html', $this->old_mult,
- $this->old_asta_win,
- ($this->old_asta_win != -1 ?
- $bri->user[$this->player[$this->old_asta_win]]->name : ""),
- $this->old_friend,
- ($this->old_friend != -1 ?
- $bri->user[$this->player[$this->old_friend]]->name : ""),
- $this->old_pnt, $this->old_asta_pnt);
-
-
- if ($user->table_orig < TABLES_AUTH_N) {
- require_once("../Obj/dbase_".$G_dbasetype.".phh");
-
- if (($bdb = BriskDB::create()) != FALSE) {
- $bdb->bin5_points_save($curtime, $this, $user->table_orig, $action, $ucodes, $pnts_sav);
- unset($bdb);
- }
- else {
- log_points($remote_addr, $curtime, $user, "STAT:BRISKIN5:FINISH_GAME", "DATABASE CONNECTION FAILED");
- }
- log_points($remote_addr, $curtime, $user, "STAT:BRISKIN5:FINISH_GAME", $plist);
- }
-
- $this->game_init(&$bri->user);
-
- return (TRUE);
- }
-
function match_continue(&$bri, $user, $match_id_s)
{
+ //
+ // Rules: update version following loaded tcode
+ //
$ret = FALSE;
$curtime = time();
do {
+ if ($this->match_id != -1) {
+ $msg = sprintf("Stai già giocando la partita con codice %d.", $this->match_id);
+ break;
+ }
+
/* - verify if match_id and user are both valid to accept
the match_continue request - */
$match_id = (int)$match_id_s;
break;
}
- if ($user->continue_get() == BIN5_USER_CONTINUE_ALREADY) {
- $msg = "Hai già richiesto di continuare una partita.";
- break;
- }
-
if ($user->continue_get() == $match_id) {
$msg = "Hai già richiesto di continuare questa partita.";
break;
/* - the user is in the list, add the match_id to his profile
and check if he is the N'th to require continue - */
- // set the match_id for the current user
- $user->continue_set($match_id);
-
+ $continue_tot = 0;
for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
$user_cur = &$bri->user[$this->player[$i]];
- if ($user_cur->continue_get() != $match_id) {
- break;
+
+ if ($user == $user_cur) {
+ $continue_tot += 1;
+ continue;
}
+
+ if ($user_cur->continue_get() == BIN5_USER_CONTINUE_INIT)
+ continue;
+
+ if ($user_cur->continue_get() != $match_id)
+ break;
+ $continue_tot += 1;
+ }
+ if ($i < BIN5_PLAYERS_N) {
+ $msg = sprintf("<b>L'utente <i>%s</i> voleva già continuare la partita n° %d.</b>",
+ xcape($user_cur->name), $user_cur->continue_get());
+ break;
}
+
+ // set the match_id for the current user
+ $user->continue_set($match_id);
+
$ret = TRUE;
// not all players set the continue match than we exit
- if ($i < BIN5_PLAYERS_N) {
+ if ($continue_tot < BIN5_PLAYERS_N) {
$msg = sprintf("<b>L'utente <i>%s</i> vorrebbe continuare la partita n° %d.</b>",
xcape($user->name), $match_id);
break;
unset($bdb);
}
+ /* update rules engine */
+ $rules_name = rules_id2name($match_data['tcode']);
+ $this->rules = new $rules_name($this);
+
/* bunch and multiplier status set */
$this->mazzo = $match_data['mazzo_next'];
$this->mult = $match_data['mult_next'];
$this->match_id = $match_id;
- $this->game_init(&$bri->user);
+ $this->game_init($bri->user);
/* reload of the page with the new layout */
for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
$user_cur = &$bri->user[$this->player[$i]];
- $user_cur->continue_set(BIN5_USER_CONTINUE_ALREADY);
$user_cur->trans_step = $user_cur->step + 1;
$user_cur->comm[$user_cur->step % COMM_N] = sprintf('gst.st_loc++; gst.st=%d; xstm.stop(); window.onunload = null ; window.onbeforeunload = null ; document.location.assign("index.php");|', $user_cur->step+1);
$user_cur->comm[$user_cur->step % COMM_N] = "";
$user_cur->step_inc();
- $user_cur->comm[$user_cur->step % COMM_N] = show_table(&$bri, &$user_cur, $user_cur->step+1, TRUE, FALSE);
+ $user_cur->comm[$user_cur->step % COMM_N] = show_table($bri, $user_cur, $user_cur->step+1, TRUE, FALSE);
$user_cur->step_inc();
}
return (TRUE);
continue;
$user_cur = &$bri->user[$this->player[$i]];
$user_cur->comm[$user_cur->step % COMM_N] = "gst.st = ".($user_cur->step+1)."; ";
- $user_cur->comm[$user_cur->step % COMM_N] .= sprintf('chatt_sub("%s", [2, "%s"],"%s");',
- $dt, NICKSERV, $msg);
+ $user_cur->comm[$user_cur->step % COMM_N] .= nickserv_msg($dt, $msg);
$user_cur->step_inc();
}
}
+ function rules_change(&$bri, $user, $rules_id_s)
+ {
+ GLOBAL $G_lang;
+
+ //
+ // Rules: update version following loaded tcode
+ //
+ $ret = FALSE;
+ $curtime = time();
+
+ do {
+ if ($this->match_id != -1) {
+ // FIXME_LANG
+ $msg = sprintf("Stai già giocando la partita con codice %d.", $this->match_id);
+ break;
+ }
+
+ if ($this->asta_card != -1 || $this->asta_pla_n < BIN5_PLAYERS_N) {
+ // FIXME_LANG
+ $msg = sprintf("La partita è già stata avviata.");
+ break;
+ }
+
+ $rules_id = (int)$rules_id_s;
+ if (! in_array($rules_id, rules_keys())) {
+ // FIXME_LANG
+ $msg = "queste regole non esistono o non sono attive";
+ break;
+ }
+
+ if ($user->rules_get() == $rules_id) {
+ // FIXME_LANG
+ $msg = "hai già richiesto di usare queste regole";
+ break;
+ }
+
+ /* - the user is in the list, add the match_id to his profile
+ and check if he is the N'th to require continue - */
+
+ $rules_tot = 0;
+ for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
+ $user_cur = &$bri->user[$this->player[$i]];
+
+ if ($user == $user_cur) {
+ $rules_tot += 1;
+ continue;
+ }
+
+ if ($user_cur->rules_get() == BIN5_USER_CONTINUE_INIT)
+ continue;
+
+ if ($user_cur->rules_get() != $rules_id)
+ break;
+ $rules_tot += 1;
+ }
+ if ($i < BIN5_PLAYERS_N) {
+ // FIXME_LANG
+ $msg = sprintf("<b>L'utente <i>%s</i> voleva già usare le %s.</b>",
+ xcape($user_cur->name), xcape(rules_id2descr($user_cur->rules_get(), $G_lang)));
+ break;
+ }
+
+ // set the match_id for the current user
+ $user->rules_set($rules_id);
+
+ $ret = TRUE;
+ // not all players set the continue match than we exit
+ if ($rules_tot < BIN5_PLAYERS_N) {
+ // FIXME_LANG
+ $msg = sprintf("<b>L'utente <i>%s</i> vorrebbe usare le %s.</b>",
+ xcape($user->name), xcape(rules_id2descr($rules_id, $G_lang)));
+ break;
+ }
+
+ /* - all users decide to continue the same match, update all infos and rearrange users
+ to the right positions on the table - */
+
+ /* update rules engine */
+ $rules_name = rules_id2name($rules_id);
+ $this->rules = new $rules_name($this);
+
+ // $this->game_init(&$bri->user);
+
+ /* reload of the page with the new layout */
+ for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
+ $user_cur = &$bri->user[$this->player[$i]];
+ $this->rules->tourn_points($user_cur, $i);
+
+ $user_cur->rules_set(BIN5_USER_CONTINUE_INIT);
+ $user_cur->trans_step = $user_cur->step + 1;
+ $user_cur->comm[$user_cur->step % COMM_N] = sprintf('gst.st_loc++; gst.st=%d; xstm.stop(); window.onunload = null ; window.onbeforeunload = null ; document.location.assign("index.php");|', $user_cur->step+1);
+ $user_cur->step_inc();
+
+ // a void command force xynt-streamer to flush all data to client
+ $user_cur->trans_step = $user_cur->step + 1;
+ $user_cur->comm[$user_cur->step % COMM_N] = "";
+ $user_cur->step_inc();
+
+ $user_cur->comm[$user_cur->step % COMM_N] = show_table(&$bri, &$user_cur, $user_cur->step+1, TRUE, FALSE);
+ $user_cur->step_inc();
+ }
+ return (TRUE);
+ } while (FALSE);
+
+ $dt = date("H:i ", $curtime);
+ if ($ret == TRUE) {
+ for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) {
+ $user_cur = &$bri->user[$this->player[$i]];
+ $user_cur->comm[$user_cur->step % COMM_N] = "gst.st = ".($user_cur->step+1)."; ";
+ $user_cur->comm[$user_cur->step % COMM_N] .= nickserv_msg($dt, $msg);
+ $user_cur->step_inc();
+ }
+ }
+ else {
+ $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
+ $user->comm[$user->step % COMM_N] = xcape(sprintf("rules_set(%d);",
+ $this->rules->id));
+ $user->comm[$user->step % COMM_N] .= nickserv_msg($dt, $msg);
+ $user->step_inc();
+ }
+ } // end function rules_change
} // end class Bin5_table
define('BIN5_USER_FLAG_RING_ENDAUCT', 0x01);
define('BIN5_USER_CONTINUE_INIT', -1);
-define('BIN5_USER_CONTINUE_ALREADY', -2);
+
+define('BIN5_USER_RULES_INIT', -1);
class Bin5_user extends User {
var $asta_card; //
var $asta_pnt; //
var $privflags; // Flags for briskin5 only
var $continue; // Id of the match that the user would continue
+ var $rules; // Id of rules required by user
+
+ var $asta_tourn_pts; // array with tournment points for each suit
const BASE = "../";
$thiz->exitislock = TRUE;
$thiz->privflags = 0;
$thiz->continue = BIN5_USER_CONTINUE_INIT;
+ $thiz->rules = BIN5_USER_RULES_INIT;
return ($thiz);
}
$this->exitislock = $from->exitislock;
$this->privflags = $from->privflags;
$this->continue = $from->continue;
+ $this->rules = $from->rules;
}
/* CLONE NOT USED
$thiz->handpt = -1;
$thiz->exitislock = TRUE;
$thiz->continue = BIN5_USER_CONTINUE_INIT;
+ $thiz->rules = BIN5_USER_RULES_INIT;
log_wr("Bin5 constructor");
log_load("RESYNC");
/* NOTE: $this->room is associated with the current $bri object */
printf("xXx CLASS NAME [%s]\n", get_class($this->room));
- $ret = show_table(&$this->room, $this, $this->step, FALSE, FALSE);
+ $ret = show_table($this->room, $this, $this->step, FALSE, FALSE);
}
log_rd2("NEWSTAT: ".$this->stat);
$this->rd_step = $this->step;
} /* if ($this->rd_step == -1) { */
else {
- /* $sem = Brisk::lock_data(FALSE); */
$S_load_stat['rU_heavy']++;
if ($this->rd_step < $this->step) {
if ($this->rd_step + COMM_N < $this->step) {
if ($this->rd_stat != $this->stat) {
$to_stat = $this->stat;
- /* Brisk::unlock_data($sem); */
log_load("RESYNC");
printf("xXx BIN5_USER::MAINCHECK\n");
return ($this->page_sync($this->sess, ($to_stat == "table" ? "index.php" : "../index.php"), $this->table, $this->table_token));
log_rd2($this->step, 'index_rd.php: after ret set');
- if ($this->the_end == TRUE) {
- log_rd2("LOGOUT BYE BYE!!");
- log_auth($this->sess, "Explicit logout.");
-
- if ($this->the_end == TRUE) {
- $this->reset();
-
- // FIXME !!!
- /* if ($this->subst == 'sitdown') { */
- /* log_load("ROOM WAKEUP"); */
- /* $this->room->room_wakeup($this); */
- /* } */
- /* else if ($this->subst == 'standup') */
- /* $this->room->room_outstandup($this); */
- /* else */
- /* log_rd2("LOGOUT FROM WHAT ???"); */
-
- } /* if ($this->the_end == TRUE) { ... */
- } /* if ($this->the_end == TRUE) { ... */
+ // if ($this->the_end == TRUE) { management is moved
+ // in the spush scope
} /* if ($this->rd_step < $this->step) { */
-
- /* Brisk::unlock_data($sem); */
} /* else of if ($this->rd_step == -1) { */
return ($this->continue);
}
+ function rules_set($rules_id)
+ {
+ $this->rules = $rules_id;
+ }
+
+ function rules_get() {
+ return ($this->rules);
+ }
+
} // end class Bin5_user
$user[$table->player[$i]]->table_token = $table_token;
$this->user[$i] = Bin5_user::spawn($user[$table->player[$i]], $this, $table_idx, $i, $get, $post, $cookie);
}
- $this->table[0] = Bin5_table::spawn(&$table);
+ $this->table[0] = Bin5_table::spawn($table);
log_main("TABLE_OLD_WIN - Bin5:".$this->table[0]->old_asta_win);
if (validate_sess($sess)) {
for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) {
+ if ($this->user[$i]->is_empty())
+ continue;
if (strcmp($sess, $this->user[$i]->sess) == 0) {
// find it
$idx = $i;
return (FALSE);
}
+ function banned_kickoff()
+ {
+ $is_ban = FALSE;
+
+ for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) {
+ $user_cur = $this->user[$i];
+
+ // check if the IP is blacklisted
+ if ($this->brisk->black_check($user_cur->ip)) {
+ $user_cur->lacc = 0;
+ $is_ban = TRUE;
+ continue;
+ }
+
+ // if authorized not check if banlisted
+ if ($user_cur->is_auth()) {
+ continue;
+ }
+ if ($this->brisk->ban_check($user_cur->ip)) {
+ $user_cur->lacc = 0;
+ $is_ban = TRUE;
+ }
+ }
+ return ($is_ban);
+ }
function garbage_manager($force)
{
if ($force || $this->garbage_timeout < $curtime) {
for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) {
$user_cur = $this->user[$i];
- if ($user_cur->sess == "" ||
+ if ($user_cur->is_active() == FALSE || // is not active user or
($user_cur->stat == 'table' && ($user_cur->subst == 'shutdowned' || $user_cur->subst == 'shutdowner')))
continue;
if ($user_cur->stat == 'table') {
log_auth($user_cur->sess," bin5 Autologout session.");
- /* SI DELEGA AL garbage_manager principale LA RIMOZIONE DELL'UTENTE
-
- $tmp_sess = $user_cur->sess;
- $user_cur->sess = "";
- Bin5_user::step_unproxy($tmp_sess);
- $user_cur->name = "";
- $user_cur->the_end = FALSE;
-
- */
+ /* main garbage_manager is delegate as autologout management */
+ $user_cur->the_end = TRUE;
/* se gli altri utenti non erano d'accordo questo utente viene bannato */
- $remcalc = $this->table[0]->exitlock_calc(&$this->user, $user_cur->table_pos);
+ $remcalc = $this->table[0]->exitlock_calc($this->user, $user_cur->table_pos);
if ($remcalc < 3) {
require_once("${G_base}Obj/hardban.phh");
- Hardbans::add(($user_cur->flags & USER_FLAG_AUTH ? $user_cur->name : FALSE),
+ Hardbans::add(($user_cur->is_auth() ? $user_cur->name : FALSE),
$user_cur->ip, $user_cur->sess, $user_cur->laccwr + BAN_TIME);
}
// $user->bantime = $user->laccwr + BAN_TIME;
}
- function chatt_send($user, $mesg)
+ function chatt_send($user, $mesg, $mlang_indwr = NULL)
{
GLOBAL $mlang_brisk, $G_lang;
$match_id = substr($user_mesg, 6);
$table->match_continue($this, $user, $match_id);
}
+ else if (strncmp($user_mesg, "/rules ", 7) == 0) {
+ log_main($user->sess." chatt_send BEGIN");
+
+ $rules_id = substr($user_mesg, 7);
+ $table->rules_change($this, $user, $rules_id);
+ }
else {
for ($i = 0 ; $i < ($user->stat == 'room' ? BIN5_MAX_PLAYERS : BIN5_PLAYERS_N) ; $i++) {
if ($user->stat == 'room') {
$user_cur = &$this->user[$i];
- if ($user_cur->sess == '' || $user_cur->stat != 'room')
+ if ($user_cur->is_active() == FALSE || $user_cur->stat != 'room') // is not active user or stat isn't 'room'
continue;
}
else {
static function request_mgr(&$s_a_p, $header, &$header_out, &$new_socket, $path, $addr, $get, $post, $cookie)
{
- GLOBAL $G_black_list;
+ GLOBAL $G_ban_list, $G_black_list;
printf("NEW_SOCKET (root): %d\n", intval($new_socket));
case "":
case "index.php":
ob_start();
- bin5_index_main($transp_type, $header_out, $addr, $get, $post, $cookie);
+ bin5_index_main($transp_type, $header, $header_out, $addr, $get, $post, $cookie);
$content = ob_get_contents();
ob_end_clean();
break;
case "index_rd.php":
+ case "index_rd_wss.php":
if (($transp = gpcs_var('transp', $get, $post, $cookie)) === FALSE)
$transp = "iframe";
- if ($transp == 'websocket')
+ if ($transp == 'websocket' || $transp == 'websocketsec')
$enc = 'plain';
do {
$table_pos = $user->table_pos;
$ret = "table_init();";
- $ret .= $table->exitlock_show(&$bri->user, $table_pos);
+ $ret .= $table->exitlock_show($bri->user, $table_pos);
if (!$is_again) {
/* GENERAL STATUS */
- $ret .= sprintf( 'gst.st = %d; stat = "%s"; subst = "%s"; table_pos = %d;',
- $sendstep, $user->stat, $user->subst, $table_pos);
+ $user_rules = $user->rules_get();
+ $ret .= sprintf('gst.st = %d; stat = "%s"; subst = "%s"; table_pos = %d; rules_set(%d);',
+ $sendstep, $user->stat, $user->subst, $table_pos,
+ ($user_rules == BIN5_USER_CONTINUE_INIT ? $table->rules->id_get() : $user_rules));
log_rd(sprintf( 'SHOW_TABLE: gst.st = %d; stat = "%s"; subst = "%s"; table_pos = %d;', $sendstep, $user->stat, $user->subst, $table_pos));
}
/* NOTIFY FOR THE CARD MAKER */
if ($is_transition) { // && $user->subst == "asta" superfluo
- $ret .= show_table_info(&$bri, &$table, $table_pos);
+ $ret .= show_table_info($bri, $table, $table_pos);
$ret .= "setTimeout(preload_images, 500, g_preload_img_arr, g_imgct);";
}
else {
if (!$is_again)
$ret .= table_welcome($user);
- if ($is_transition && !$is_again) { // appena seduti al tavolo, play della mucca
+ if ($is_transition && !$is_again) { // just sit, play cow
$ret .= playsound("cow.mp3");
}
$table->asta_card);
}
else {
+ // FIXME - RULES to be able to abandon table
/* show auction */
if ($table_pos == ($table->gstart % BIN5_PLAYERS_N) &&
$table->asta_win == -1)
// TAG: POINTS_MANAGEMENT
$pnt_min = $table->points_n - MAX_POINTS < 0 ? 0 : $table->points_n - MAX_POINTS;
- $noty = sprintf('<table class=\"points\"><tr><th></th>');
+ $noty = sprintf('<p>%s.</p>\n', xcape(ucfirst(rules_id2descr($table->rules->id_get(), $G_lang))));
+ $noty .= sprintf('<table class=\"points\"><tr><th></th>');
// Names.
for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++)
$noty .= sprintf($mlang_bin5_bin5['info_turn'][$G_lang], $unam);
}
- $multer = $table->multer(TRUE);
+ $multer = $table->rules->multer(TRUE);
if ($multer > 1) {
$noty .= sprintf($mlang_bin5_bin5['info_mult'][$G_lang], multoval($multer) );
}
return ($ret);
}
-
-function game_result($asta_pnt, $pnt)
-{
- if ($asta_pnt == 61) {
- if ($pnt > 60)
- return (1);
- else if ($pnt == 60)
- return (0);
- else
- return (-1);
- }
- else {
- if ($pnt >= $asta_pnt)
- return (1);
- else
- return (-1);
- }
-}
-
function log_points($remote_addr, $curtime, $user, $where, $mesg)
{
if (($fp = @fopen(LEGAL_PATH."/points.log", 'a')) != FALSE) {
/* Unix time | session | nickname | IP | where was | mesg */
fwrite($fp, sprintf("%ld|%s|%s|%s|%s|%s|%s|\n", $curtime, $user->sess,
- ($user->flags & USER_FLAG_AUTH ? 'A' : 'N'),
+ ($user->is_auth() ? 'A' : 'N'),
$user->name, $remote_addr, $where , $mesg));
fclose($fp);
}
}
-function game_description($act, $form, $old_mult, $win = -1, $win_name = "?1?", $fri = -1, $fri_name = "?2?",
- $old_pnt = -1, $old_asta_pnt = -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 = 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 è 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ù 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);
- 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);
- 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 = Bin5_table::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);
-}
?>