X-Git-Url: https://mop.ddnsfree.com/gitweb/?a=blobdiff_plain;f=web%2Fbriskin5%2FObj%2Fbriskin5.phh;h=11c1d5b93a0166f66edef208a4b10f7d2f9d8ec6;hb=bd4ee6dd7696eeb5b0f8d7c7dc0cd9c840843146;hp=904e1bf39cedf16c22caec853aebd38c4815c736;hpb=a9c98a1177f7491f59765ce7a24583083a04c148;p=brisk.git diff --git a/web/briskin5/Obj/briskin5.phh b/web/briskin5/Obj/briskin5.phh index 904e1bf..11c1d5b 100644 --- a/web/briskin5/Obj/briskin5.phh +++ b/web/briskin5/Obj/briskin5.phh @@ -1,463 +1,1815 @@ array( 'it' => '
Nell\'ultima mano ha chiamato %s, il socio era %s,
', + 'en' => '
In the last hand the declarer was %s, the partner was %s,
'), + 'info_capp' => array( 'it' => 'hanno fatto cappotto EBBRAVI!.
', + 'en' => 'and they made capot WELL DONE!.
'), + 'info_pnt' => array( 'it' => 'dovevano fare %s punti e ne hanno fatti %d: hanno %s.
', + 'en' => 'they had to do %s points and they had made %d: they have %s.
'), + 'info_alea' => array( 'it' => 'almeno ', + 'en' => 'at least '), + 'info_more' => array( 'it' => 'più di 60', + 'en' => 'over 60'), + 'info_win' => array( 'it' => 'vinto', + 'en' => 'win'), + 'info_peer' => array( 'it' => 'pareggiato', + 'en' => 'drew'), + 'info_lost' => array( 'it' => 'perso', + 'en' => 'lost'), + + 'info_alon' => array( 'it' => '
Nell\'ultima partita %s si è chiamato in mano,
', + 'en' => '
In the last hand %s play alone against each other,
'), + 'info_apnt' => array( 'it' => 'doveva fare %s punti e ne ha fatti %d: ha %s.
', + 'en' => 'he/she had to do %s points and they had made %d: he/she had %s.
'), + 'info_acap' => array( 'it' => 'ha fatto cappotto EBBRAVO!.
', + 'en' => 'and he/she made capot WELL DONE!.
'), + + 'info_omul' => array( 'it' => ' La partita valeva %s.', + 'en' => ' EN: The game was worth %s.' ), + + 'info_yturn'=> array( 'it' => ' tocca a te giocare.', + 'en' => ' it\'s your turn.'), + 'info_turn' => array( 'it' => 'tocca a %s giocare.', + 'en' => 'it\'s the %s\'s turn.'), + 'info_mult' => array( 'it' => ' La partita vale %s.', + 'en' => ' The game worth %s.' ), + 'info_yshuf'=> array( 'it' => 'Fai tu il mazzo, ', + 'en' => 'It\'s your shuffled the cards, '), + 'info_shuf' => array( 'it' => 'Il mazzo a %s, ', + 'en' => '%s shuffled the cards, '), + 'btn_bkgame'=> array( 'it' => 'torna alla partita', + 'en' => 'back to the game'), + 'call_wptn' => array( 'it' => '
con %d punti', + 'en' => '
with %d points'), + 'call_ycall'=> array( 'it' => 'Chiami%s:', + 'en' => 'Call%s:'), + 'call_call' => array( 'it' => 'Chiama %s%s:', + 'en' => 'The declarer is %s%s:') + + + ); + +// MLANG +$table_wellarr = Array( 'it' => Array ( 'Benvenuto al tavolo. Se almeno tre giocatori non sbloccano l\'uscita cliccando il lucchetto, chi esce non può risedersi a un qualunque tavolo per '.floor(BAN_TIME/60).' minuti.'), + 'en' => Array ( 'EN Benvenuto al tavolo. Se almeno tre giocatori non sbloccano l\'uscita cliccando il lucchetto, chi esce non può risedersi a un qualunque tavolo per '.floor(BAN_TIME/60).' minuti.') ); + +function multoval($mult) +{ + GLOBAL $G_lang; + + if ($mult == 2) + return ($G_lang == 'en' ? 'double' : 'doppio'); + if ($mult == 3) + return ($G_lang == 'en' ? 'triple' : 'triplo'); + else if ($mult == 4) + return ($G_lang == 'en' ? 'quadruple' : 'quadruplo'); + else + return (sprintf(($G_lang == 'en' ? "%d-ple" : "%d-plo"), $mult)); +} - function Briskin5 (&$room, $table_idx, $table_token) { - $this->user = array(); - $this->table = array(); - $this->the_end = FALSE; - $this->shm_sz = BRISKIN5_SHM_MIN; - if (($this->tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) { - echo "FTOK FAILED"; - exit; +class Card { + var $value; /* 0 - 39 card value */ + var $stat; /* 'bunch', 'hand', 'table', 'take' */ + var $owner; /* (table position 0-4) */ + // var $pos; /* Pos in hand. */ + var $x; /* When played the X position on the table of the owner. */ + var $y; /* When played the Y position on the table of the owner. */ + + function Card($value, $stat, $owner) + { + $this->value = $value; + $this->stat = $stat; // Card stat + $this->owner = $owner; } - $user =& $room->user; - $table =& $room->table[$table_idx]; + function assign($stat,$owner) + { + $this->stat = $stat; // Card stat + $this->owner = $owner; + } - log_wr("Briskin5 constructor"); + function setpos($pos) + { + $this->pos = $pos; + } + + function play($x,$y) + { + $this->stat = 'table'; // Card stat + $this->x = $x; + $this->y = $y; + } - for ($i = 0 ; $i < $table->player_n ; $i++) { - $user[$table->player[$i]]->table_token = $table_token; - $this->user[$i] =& User::spawn(&$user[$table->player[$i]], 0, $i); + function take($newown) + { + $this->stat = 'take'; // Card stat + $this->owner = $newown; } - $this->table[0] =& Table::spawn(&$table); - $this->table_idx = $table_idx; - $this->table_token = $table_token; - $this->garbage_timeout = 0; +} // 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 $asta_pla; + var $asta_pla_n; + var $asta_card; + var $asta_pnt; + + var $mult; + var $points; // points array + var $points_n; // number of row of points + var $total; + + var $asta_win; + var $briscola; + var $friend; + + var $old_reason; + var $old_asta_pnt; + var $old_mult; + var $old_pnt; + var $old_win; + var $old_friend; + + function Bin5_table() + { + } + + + /* CREATE() NOT USED + function create($idx) + { + if (($thiz =& new Bin5_table()) == FALSE) + return (FALSE); + + $thiz->create($idx); + + $thiz->card = FALSE; + $thiz->asta_pla = array(); // TRUE: in auction, FALSE: out of the auction + $thiz->asta_pla_n= -1; + $thiz->asta_card = -1; + $thiz->asta_pnt = -1; + $thiz->mult = 0; - log_wr("Briskin5 constructor end"); - } + $thiz->points = array( ); + $thiz->points_n = 0; + $thiz->total = array( 0, 0, 0, 0, 0); + $thiz->asta_win = -1; + $thiz->briscola = -1; + $thiz->friend = -1; + $thiz->turn = 0; + + $thiz->old_reason = ""; + $thiz->old_asta_pnt = -1; + $thiz->old_mult = -1; + $thiz->old_pnt = -1; + $thiz->old_win = -1; + $thiz->old_friend = -1; + + return ($thiz); + } + */ + + /* CLONE() NOT USED + function myclone(&$from) + { + if (($thiz =& new Bin5_table()) == FALSE) + return (FALSE); + + parent::copy($from); + $thiz->card = $from->card; + $thiz->mazzo = $from->mazzo; // REVIEW + $thiz->gstart = $from->gstart; + $thiz->turn = $from->turn; - function &get_user($sess, &$idx) - { - GLOBAL $PHP_SELF, $G_false; + $thiz->asta_pla = $from->asta_pla; + $thiz->asta_pla_n = $from->asta_pla_n; + $thiz->asta_card = $from->asta_card; + $thiz->asta_pnt = $from->asta_pnt; + + $thiz->mult = $from->mult; + $thiz->points = $from->points; + $thiz->points_n = $from->points_n; + $thiz->total = $from->total; + + $thiz->asta_win = $from->asta_win; + $thiz->briscola = $from->briscola; + $thiz->friend = $from->friend; + + $thiz->old_reason = $from->old_reason; + $thiz->old_asta_pnt = $from->old_asta_pnt; + $thiz->old_mult = $from->mult; + $thiz->old_pnt = $from->old_pnt; + $thiz->old_win = $from->old_win; + $thiz->old_friend = $from->old_friend; + + return ($thiz); + } + */ + + function parentcopy(&$from) + { + parent::copy($from); + } - if (validate_sess($sess)) { - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { - if (strcmp($sess, $this->user[$i]->sess) == 0) { - // find it - $idx = $i; - $ret = &$this->user[$i]; - return ($ret); - } - } - log_main(sprintf("get_user: Wrong sess from page [%s]",$PHP_SELF)); - // for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) - // log_main(sprintf("get_user: Wrong sess compared with [%s]",$this->user[$i]->sess)); + function spawn(&$from) + { + if (($thiz =& new Bin5_table()) == FALSE) + return (FALSE); + + $thiz->parentcopy($from); + + log_main("PLAYER_N - spawn.".$thiz->player_n); + + $thiz->card = array(); + $thiz->bunch_create(); + $thiz->mazzo = rand(0,PLAYERS_N-1); + $thiz->points_n = 0; + $thiz->mult = 0; + $thiz->old_win = -1; + $thiz->old_reason = ""; + + // players are rearranged in an dedicated array + $thiz->player = array(); + for ($i = 0 ; $i < $from->player_n ; $i++) + $thiz->player[$i] = $i; + + log_main("TABLE_OLD_WIN - spawn:".$thiz->old_win); + + return ($thiz); } - else { - log_main(sprintf("get_user: Wrong strlen [%s]",$sess)); + + 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); } - return ($G_false); - } + function multer($is_new) + { + if ($is_new) { + return (pow(2, $this->mult) * $this->asta2mult($this->asta_pnt)); + } + else { + return (pow(2, $this->old_mult) * $this->asta2mult($this->old_asta_pnt)); + } + } - function garbage_manager($force) - { - - /* Garbage collector degli utenti in timeout */ - $ismod = FALSE; - $curtime = time(); - if ($force || $this->garbage_timeout < $curtime) { + // function bunch_create_old() function AND + // { + // $ret = array(); + // + // for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + // // for ($i = 0 ; $i < 40 ; $i++) { + // $ret[$i] =& new Card($i, 'bunch', 'no_owner'); + // } + // + // $oret = &$ret; + // return ($oret); + // } + + function bunch_create() + { + $ret = array(); - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { - $user_cur = &$this->user[$i]; - if ($user_cur->sess == "" || - ($user_cur->stat == 'table' && ($user_cur->subst == 'shutdowned' || $user_cur->subst == 'shutdowner'))) - continue; - - if ($user_cur->lacc + EXPIRE_TIME_RD < $curtime) { // Auto logout dell'utente - log_rd2($user_cur->sess." bin5 AUTO LOGOUT."); + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + $this->card[$i] = new Card($i, 'bunch', 'no_owner'); + } + } - if ($user_cur->stat == 'table') { - log_auth($user_cur->sess," bin5 Autologout session."); + function bunch_make() + { + log_main("bunch_make start"); + $ct = array(0,0,0,0,0); + + mt_srand(make_seed()); + + for ($i = (BIN5_PLAYERS_N == 5 ? 40 : 24) - 1 ; $i >= 0 ; $i--) + $rest[$i] = $i; - /* SI DELEGA AL garbage_manager principale LA RIMOZIONE DELL'UTENTE + for ($i = (BIN5_PLAYERS_N == 5 ? 40 : 24) - 1 ; $i >= 0 ; $i--) { + $rn = rand(0, $i); + + if ($rn == 0) + log_main("RND ZERO"); + + $id = $rest[$rn]; - $tmp_sess = $user_cur->sess; - $user_cur->sess = ""; - step_unproxy($tmp_sess); - $user_cur->name = ""; - $user_cur->the_end = FALSE; - - */ + $owner = $i % BIN5_PLAYERS_N; + $this->card[$id]->assign('hand', $owner); - $this->table_wakeup(&$user_cur); - } - } - } - log_rd2($user_cur->sess." GARBAGE UPDATED!"); - - $this->garbage_timeout = $curtime + GARBAGE_TIMEOUT; - $ismod = TRUE; + $rest[$rn] = $rest[$i]; + // $pubbpos[$rn2] = $pubbpos[$i]; + } + log_main("bunch_make end"); } - return ($ismod); - } + function init($userarr) + { + /* MOVED INTO SPAWN + $this->mazzo = rand(0,PLAYERS_N-1); + $this->points_n = 0; + $this->mult = 0; + $this->old_win = -1; + $this->old_reason = ""; + */ + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + $this->total[$i] = 0; + $user_cur = $userarr[$this->player[$i]]; + $user_cur->exitislock = TRUE; + } + + log_main("table::init: ci siamo"); + } + function game_init($userarr) + { + log_rd2("GSTART 4"); + $this->gstart = ($this->mazzo+1) % BIN5_PLAYERS_N; + $this->bunch_make(); + + + $this->asta_pla_n = BIN5_PLAYERS_N; + $this->asta_card = -1; + $this->asta_pnt = 60; + $this->asta_win = -1; + $this->briscola = -1; + $this->friend = -1; + $this->turn = 0; + + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + $this->asta_pla[$i] = TRUE; + $user_cur = $userarr[$this->player[$i]]; + $user_cur->subst = 'asta'; + $user_cur->asta_card = -2; + $user_cur->asta_pnt = -1; + $user_cur->handpt = $this->hand_points($i); + // SEE function calculate_points(&$table) + } + log_rd2("GEND 4"); + } + function game_next() + { + $this->mazzo = ($this->mazzo + 1) % BIN5_PLAYERS_N; + } - // - // static functions - // - function &load_data($table_idx, $table_token = "") - { - GLOBAL $G_false, $sess; - $doexit = FALSE; - $shm = FALSE; - log_wr("TABLE_IDX ".FTOK_PATH."/table".$table_idx); + function hand_points($idx) + { + GLOBAL $G_all_points; - do { - if (($tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) { - log_main("ftok failed"); - $doexit = TRUE; - break; - } + $tot = 0; + + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + // for ($i = 0 ; $i < 40 ; $i++) { + if ($this->card[$i]->owner != $idx) + continue; - if (($shm_sz = sharedmem_sz($tok)) == -1) { - log_main("shmop_open failed"); - break; - } - - if (($shm = shm_attach($tok, $shm_sz)) == FALSE) - break; + $ctt = $this->card[$i]->value % 10; + $tot += $G_all_points[$ctt]; + } - if (($bri = @shm_get_var($shm, $tok)) == FALSE) - break; + return ($tot); + } - if ($table_token != "" && $bri->table_token != $table_token) { - log_wr("bri->table_token: ".$bri->table_token."table_token: ".$table_token); - - break; - } - $bri->tok = $tok; - shm_detach($shm); - - $ret = &$bri; - return ($ret); - } while (FALSE); + function exitlock_show($userarr, $table_pos) + { + $ct = $this->exitlock_calc($userarr, $table_pos); - if ($shm != FALSE) - shm_detach($shm); + $ret = sprintf('exitlock_show(%d, %s);', $ct, + ($userarr[$this->player[$table_pos]]->exitislock ? 'true' : 'false')); + return ($ret); + } - log_wr("briskin5 load_data failed"); - if ($doexit) - exit(); - - return ($G_false); - } - + function exitlock_calc(&$userarr, $table_pos) + { + $ct = 0; + + for ($i = 0 , $ct = 0 ; $i < PLAYERS_N ; $i++) { + if ($userarr[$this->player[$i]]->exitislock == FALSE) + $ct++; + } + + return ($ct); + } +} // end class Bin5_table + + + + +define('BIN5_USER_FLAG_RING_ENDAUCT', 0x01); +class Bin5_user extends User { + var $asta_card; // + var $asta_pnt; // + var $handpt; // Total card points at the beginning of the current hand. + var $exitislock; // Player can exit from the table ? + var $privflags; // Flags for briskin5 only - function save_data(&$bri) - { - GLOBAL $sess; + const BASE = "../"; - $ret = FALSE; - $shm = FALSE; + function User() { + } - log_main("SAVE BRISKIN5 DATA"); + /* CREATE NOT USED + function create($name, $sess, $stat = "", $subst = "", $table = -1, $ip="0.0.0.0") { + if (($thiz =& new User()) == FALSE) + return (FALSE); + + $thiz->asta_card = -2; + $thiz->asta_pnt = -1; + $thiz->handpt = -1; + $thiz->exitislock = TRUE; + $thiz->privflags = 0; + + return ($thiz); + } + */ - if (!isset($bri->tok)) - return (FALSE); + function parentcopy(&$from) + { + parent::copy($from); + } - while ($bri->shm_sz < BRISKIN5_SHM_MAX) { - if (($shm = shm_attach($bri->tok, $bri->shm_sz)) == FALSE) - break; - - if (@shm_put_var($shm, $bri->tok, $bri) != FALSE) { - shm_detach($shm); - return (TRUE); - } - if (shm_remove($shm) === FALSE) { - log_only("REMOVE FALLITA"); - break; - } - shm_detach($shm); - $bri->shm_sz += BRISKIN5_SHM_DLT; - } - - log_crit("save data failed!"); - - if ($shm) - shm_detach($shm); + function copy(&$from) + { + $this->parentcopy($from); + + $this->asta_card = $from->asta_card; + $this->asta_pnt = $from->asta_pnt; + $this->handpt = $from->handpt; + $this->exitislock = $from->exitislock; + $this->privflags = $from->privflags; + } - return ($ret); - } + /* CLONE NOT USED + function myclone(&$from) + { + if (($thiz =& new User()) == FALSE) + return (FALSE); + + $thiz->copy($from); + + return ($thiz); + } + */ + + function spawn($from, &$bri, $table, $table_pos, $get, $post, $cookie) + { + if (($thiz = new Bin5_user()) == FALSE) + return (FALSE); + + if (($CO_bin5_pref_ring_endauct = gpcs_var("CO_bin5_pref_ring_endauct", $get, $post, $cookie)) === FALSE) { + $CO_bin5_pref_ring_endauct = ""; + } + + $thiz->parentcopy($from); + + /* NOTE: at this moment idx and table_pos fields have the same value + but diffentent functions, we keep them separated for a while */ + $thiz->room = $bri; + $thiz->idx = $table_pos; + $thiz->asta_card = -2; + $thiz->asta_pnt = -1; + $thiz->handpt = -1; + $thiz->exitislock = TRUE; + + log_wr("Bin5 constructor"); + + $this->privflags = ($CO_bin5_pref_ring_endauct == "true" ? BIN5_USER_FLAG_RING_ENDAUCT : 0) | 0; + + $thiz->table_orig = $table; + $thiz->table = 0; + $thiz->table_pos = $table_pos; + + $thiz->step_inc(); + + return ($thiz); + } + function step_set($step) + { + $this->step = $step & 0x7fffffff; + + return TRUE; + } + + function step_inc($delta = 1) { + $this->step += $delta; + /* modularization because unpack() not manage unsigned 32bit int correctly */ + $this->step &= 0x7fffffff; + + return (TRUE); + } + static function load_step($tab_id, $sess) + { + $fp = FALSE; + do { + if (validate_sess($sess) == FALSE) + break; + + if (file_exists(BIN5_PROXY_PATH."/table".$tab_id) == FALSE) + mkdir(BIN5_PROXY_PATH."/table".$tab_id, 0775, TRUE); + if (($fp = @fopen(BIN5_PROXY_PATH."/table".$tab_id."/".$sess.".step", 'rb')) == FALSE) + break; + if (($s = fread($fp, 8)) == FALSE) + break; + if (mb_strlen($s, "ASCII") != 8) + break; + $arr = unpack('Ls/Li', $s); + fclose($fp); + + // log_rd2("A0: ".$arr[0]." A1: ".$arr[1]); + return ($arr); + } while (0); + + if ($fp != FALSE) + fclose($fp); + + log_rd2("STEP_GET [".$sess."]: return false "); + + return (FALSE); + } - function destroy_data($table_idx) - { - GLOBAL $sess; + function save_step() + { + do { + if (validate_sess($this->sess) == FALSE) + break; + if (file_exists(BIN5_PROXY_PATH."/table".$this->table_orig) == FALSE) + mkdir(BIN5_PROXY_PATH."/table".$this->table_orig, 0775, TRUE); + if (($fp = @fopen(BIN5_PROXY_PATH."/table".$this->table_orig."/".$this->sess.".step", 'w')) == FALSE) + break; + fwrite($fp, pack("LL",$this->step, $this->idx)); + fclose($fp); + + log_main("step_set [".$this->sess. "] [".$this->step."]"); + + return (TRUE); + } while (0); + + return (FALSE); + } + + static function unproxy_step($tab_id, $sess) + { + log_rd2("UNPROXY: ".BIN5_PROXY_PATH."/table".$tab_id."/".$sess.".step"); + if (file_exists(BIN5_PROXY_PATH."/table".$tab_id) == FALSE) + return; - $ret = FALSE; - $shm = FALSE; - log_main("DESTROY BRISKIN5 DATA"); + @unlink(BIN5_PROXY_PATH."/table".$tab_id."/".$sess.".step"); + } - do { - log_main("DESTROY2 BRISKIN5 DATA"); + function destroy_data($tab_id) + { + do { + if (($tok = @ftok(FTOK_PATH."/bin5/table".$tab_id."/user".$this->table_pos, "B")) == -1) { + log_crit("BIN5 USER DATA REMOVE FAILED 1 [".FTOK_PATH."/bin5/table".$tab_id."/user".$this->table_pos."]"); + break; + } + + if (($shm = @shmop_open($tok, 'a', 0, 0)) == FALSE) { + log_crit("BIN5 USER DATA REMOVE FAILED 2"); + break; + } + if (shmop_delete($shm) == 0) { + log_crit("BIN5 USER DATA REMOVE FAILED 3"); + break; + } + $shm = FALSE; + + log_main("BIN5 USER DATA DESTROY SUCCESS"); + + // log_main("QUI CI ARRIVA [".$bri->user[0]->name."]"); + $ret = TRUE; + } while (0); + + if ($shm) + shm_detach($shm); + + return ($ret); + } - if (($tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) - break; + static function blocking_error($is_unrecoverable) + { + log_crit("BLOCKING_ERROR UNREC: ".($is_unrecoverable ? "TRUE" : "FALSE")); + return (sprintf(($is_unrecoverable ? 'xstm.stop(); ' : '').'window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");')); + } + + protected function page_sync($sess, $page) + { + log_rd2("PAGE_SYNC"); + printf("xXx BIN5_USER::PAGE_SYNC\n"); + return (sprintf('xstm.stop(); window.onbeforeunload = null; window.onunload = null; document.location.assign("%s");', $page)); + } - if (($shm = @shmop_open($tok, 'a', 0, 0)) == FALSE) - break; + protected function maincheck($cur_stat, $cur_subst, $cur_step, &$new_stat, &$new_subst, &$new_step, $splashdate, $table_idx, $table_token) + { + GLOBAL $G_lang, $mlang_indrd; + GLOBAL $G_with_splash, $G_splash_content, $G_splash_interval, $G_splash_idx; + GLOBAL $G_splash_w, $G_splash_h, $G_splash_timeout; + $CO_splashdate = "CO_splashdate".$G_splash_idx; + $$CO_splashdate = $splashdate; + + GLOBAL $S_load_stat; + + log_rd("maincheck begin"); + + $ret = FALSE; + $curtime = time(); + + /* Nothing changed, return. */ + if ($cur_step == $this->step) + return (FALSE); - if (shmop_delete($shm) == 0) { - log_only("REMOVE FALLITA "); - break; + log_rd2("do other cur_stat[".$cur_stat."] user->stat[".$this->stat."] cur_step[".$cur_step."] user_step[".$this->step."]"); + + if ($cur_step == -1) { + /* + * if $cur_step == -1 load the current state from the main struct + */ + + $S_load_stat['wR_minusone']++; + + // if ($this->the_end == TRUE) { + // log_rd2("main_check: the end".var_export(debug_backtrace())); + // } + + if ($this->trans_step != -1) { + log_rd2("TRANS USATO ".$this->trans_step); + $cur_step = $this->trans_step; + $this->trans_step = -1; + } + else { + log_rd2("TRANS NON ATTIVATO"); + } } - - $shm = FALSE; - log_main("DESTROY2 BRISKIN5 DATA SUCCESS"); - // log_main("QUI CI ARRIVA [".$bri->user[0]->name."]"); - $ret = TRUE; - } while (0); + + /* this part I suppose is read only on $this->room structure */ + if ($cur_step == -1) { + log_rd2("PRE-NEWSTAT"); + + /*************** + * * + * TABLE * + * * + ***************/ + if ($this->stat == 'table') { + 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); + } + log_rd2("NEWSTAT: ".$this->stat); + + $new_stat = $this->stat; + $new_subst = $this->subst; + $new_step = $this->step; + } /* if ($cur_step == -1) { */ + else { + /* $sem = Room::lock_data(FALSE); */ + $S_load_stat['rU_heavy']++; + + if ($cur_step < $this->step) { + do { + if ($cur_step + COMM_N < $this->step) { + if (($cur_stat != $this->stat)) { + $to_stat = $this->stat; + /* Room::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("lost history, refresh from scratch"); + printf("xXx LOST HISTORY!\n"); + $new_step = -1; + break; + } + for ($i = $cur_step ; $i < $this->step ; $i++) { + $ii = $i % COMM_N; + log_rd2("ADDED TO THE STREAM: ".$this->comm[$ii]); + $ret .= $this->comm[$ii]; + } + $new_stat = $this->stat; + $new_subst = $this->subst; + $new_step = $this->step; + } while (0); + + 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 ($cur_step < $this->step) { */ + + /* Room::unlock_data($sem); */ + } /* else of if ($cur_step == -1) { */ + + + return ($ret); + } // function maincheck (... + + + + + + +} // end class Bin5_user + + + +class Bin5 { + static $delta_t = array(); + + var $user; + var $table; + var $comm; // commands for many people + var $step; // current step of the comm array + var $garbage_timeout; + var $shm_sz; - if ($shm) - shm_detach($shm); + var $table_idx; + var $table_token; - return ($ret); - } + var $the_end; + var $tok; + + static function page_manager($room, $header_out, $path, $method, $addr, $get, $post, $cookie) + { + switch ($path) { + case "": + case "index.php": + ob_start(); + bin5_index_main($room, $header_out, $addr, $get, $post, $cookie); + $content = ob_get_contents(); + ob_end_clean(); + + force_no_cache($header_out); + + $pgflush = new PageFlush($new_socket, $curtime, 20, $header_out, $content); + + if ($pgflush->try_flush($curtime) == FALSE) { + // Add $pgflush to the pgflush array + array_push($pages_flush, $pgflush); + } + break; + } + return TRUE; + } - function lock_data($table_idx) - { - GLOBAL $sess; + function Bin5 ($room, $table_idx, $table_token, $get, $post, $cookie) { + $this->user = array(); + $this->table = array(); + + $this->the_end = FALSE; + $this->shm_sz = BIN5_SHM_MIN; + if (($this->tok = @ftok(FTOK_PATH."/bin5/table".$table_idx."/table", "B")) == -1) { + echo "FTOK FAILED"; + exit; + } + + $user = $room->user; + $table = $room->table[$table_idx]; + + log_wr("Bin5 constructor"); + + for ($i = 0 ; $i < $table->player_n ; $i++) { + $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); + + log_main("TABLE_OLD_WIN - Bin5:".$this->table[0]->old_win); + + $this->table_idx = $table_idx; + $this->table_token = $table_token; + $this->garbage_timeout = 0; + + log_wr("Bin5 constructor end"); + } - log_wr("LOCK_DATA ".FTOK_PATH."/table".$table_idx); - // echo "LOCK: ".FTOK_PATH."/main"; - // exit; - // WARNING monitor this step - if (($tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) { - echo "FTOK FAILED"; - exit; + + function get_user($sess, &$idx) + { + GLOBAL $PHP_SELF; + + if (validate_sess($sess)) { + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + if (strcmp($sess, $this->user[$i]->sess) == 0) { + // find it + $idx = $i; + $ret = &$this->user[$i]; + return ($ret); + } + } + log_main(sprintf("get_user: Wrong sess from page [%s]",$PHP_SELF)); + // for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) + // log_main(sprintf("get_user: Wrong sess compared with [%s]",$this->user[$i]->sess)); + } + else { + log_main(sprintf("get_user: Wrong strlen [%s]",$sess)); + } + + return (FALSE); } - // WARNING monitor this step - if (($res = @sem_get($tok)) == FALSE) { - echo "SEM_GET FAILED"; - exit; + + + function garbage_manager($force) + { + GLOBAL $G_base; + + /* Garbage collector degli utenti in timeout */ + $ismod = FALSE; + $curtime = time(); + if ($force || $this->garbage_timeout < $curtime) { + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + $user_cur = $this->user[$i]; + if ($user_cur->sess == "" || + ($user_cur->stat == 'table' && ($user_cur->subst == 'shutdowned' || $user_cur->subst == 'shutdowner'))) + continue; + + if ($user_cur->lacc + EXPIRE_TIME_RD < $curtime) { // Auto logout dell'utente + log_rd2($user_cur->sess." bin5 AUTO LOGOUT."); + + 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; + + */ + + /* se gli altri utenti non erano d'accordo questo utente viene bannato */ + $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), + $user_cur->ip, $user_cur->sess, $user_cur->laccwr + BAN_TIME); + } + // $user->bantime = $user->laccwr + BAN_TIME; + + $this->table_wakeup($user_cur); + } + } + } + log_rd2($user_cur->sess." GARBAGE UPDATED!"); + + $this->garbage_timeout = $curtime + GARBAGE_TIMEOUT; + + $ismod = TRUE; + } + + return ($ismod); } - if (sem_acquire($res)) { - log_lock("LOCK table ".$table_idx."[res: ".$res."]"); - return ($res); + + + function destroy_data() + { + GLOBAL $sess; + + $ret = FALSE; + $shm = FALSE; + log_main("DESTROY BRISKIN5 DATA"); + + do { + log_main("DESTROY2 BRISKIN5 DATA [".$this->table_idx."]"); + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + $this->user[$i]->destroy_data($this->table_idx); + Bin5_user::unproxy_step($this->table_idx, $this->user[$i]->sess); + } + if (($tok = @ftok(FTOK_PATH."/bin5/table".$this->table_idx."/table", "B")) == -1) + break; + + if (($shm = @shmop_open($tok, 'a', 0, 0)) == FALSE) + break; + + if (shmop_delete($shm) == 0) { + log_only("REMOVE FALLITA "); + break; + } + + $shm = FALSE; + log_main("DESTROY2 BRISKIN5 DATA SUCCESS"); + + // log_main("QUI CI ARRIVA [".$bri->user[0]->name."]"); + $ret = TRUE; + } while (0); + + if ($shm) + shm_detach($shm); + + return ($ret); } - else { - log_lock("LOCK table ".$table_idx.":FAILED"); - return (FALSE); + + static function lock_data($is_exclusive, $table_idx) + { + if (($res = file_lock(FTOK_PATH."/bin5/table".$table_idx."/table", $is_exclusive)) != FALSE) { + self::$delta_t = microtime(TRUE); + log_lock("LOCK table [".$table_idx."] [".self::$delta_t[$table_idx]."]"); + + return (new Vect(array('res' => $res, 'tab' => $table_idx))); + } + + return (FALSE); } - } + - function unlock_data($res) - { - GLOBAL $sess; - - log_lock("UNLOCK table [res: ".$res."]"); + static function unlock_data($res_vect) + { + GLOBAL $sess; - return (sem_release($res)); - } + $res = $res_vect->getbyid('res'); + $tab = $res_vect->getbyid('tab'); + log_lock("UNLOCK table [".$tab."] [".(microtime(TRUE) - (self::$delta_t[$tab]))."]"); - function chatt_send(&$user, $mesg) - { - if ($user->stat == 'table') { - $table = &$this->table[$user->table]; + file_unlock($res); } + + + function chatt_send($user, $mesg) + { + GLOBAL $mlang_brisk, $G_lang; + + if ($user->stat == 'table') { + $table = &$this->table[$user->table]; + } - $user_mesg = substr($mesg,6); + $user_mesg = substr($mesg,6); - $curtime = time(); + $curtime = time(); - $dt = date("H:i ", $curtime); - if (strncmp($user_mesg, "/nick ", 6) == 0) { - log_main($user->sess." chatt_send BEGIN"); - - if (($name_new = validate_name(substr($user_mesg, 6))) == FALSE) { - $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; "; - $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s","Il nickname deve contenere almeno una lettera dell\'alfabeto o una cifra.");', $dt.NICKSERV); - $user->step_inc(); - - return; - } - $user_mesg = "COMMAND ".$user_mesg; - // Search dup name - // change - // update local graph - // update remote graphs - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { - $user_cur = &$this->user[$i]; - // if ($user_cur->sess == '' || $user_cur->stat != 'room') - if ($user_cur->sess == '') - continue; - if ($user_cur->name == $name_new) { - $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; "; - $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s","Nickname %s già in uso.");', $dt.NICKSERV, xcape($name_new)); - $user->step_inc(); - break; - } - } - if ($i == BRISKIN5_MAX_PLAYERS) { - $user->name = $name_new; + $dt = date("H:i ", $curtime); + if (strncmp($user_mesg, "/nick ", 6) == 0) { + log_main($user->sess." chatt_send BEGIN"); + + if (($name_new = validate_name(substr($user_mesg, 6))) == FALSE) { + $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; "; + $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s", [2, "%s"],"%s");', $dt, NICKSERV, $mlang_brisk['nickmust'][$G_lang]); + $user->step_inc(); + + return; + } + $user_mesg = "COMMAND ".$user_mesg; + // Search dup name + // change + // update local graph + // update remote graphs + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + $user_cur = $this->user[$i]; + // if ($user_cur->sess == '' || $user_cur->stat != 'room') + if ($user_cur->sess == '') + continue; + if (strcasecmp($user_cur->name, $name_new) == 0) { + $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; "; + + $premsg = sprintf($mlang_brisk['nickdupl'][$G_lang], xcape($name_new)); + $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s", [2, "%s"],"%s");', $dt, NICKSERV, $premsg); + $user->step_inc(); + break; + } + } + if ($i == BIN5_MAX_PLAYERS) { + if ($user->flags & USER_FLAG_AUTH && strcasecmp($user->name,$name_new) != 0) { + if ($this->table[$user->table]->auth_only == TRUE) { + $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; "; + $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s", [2, "%s"],"%s");', $dt, NICKSERV, $mlang_brisk['authchan'][$G_lang]); + $user->step_inc(); + return; + } + else { + $user->flags &= ~USER_FLAG_AUTH; // Remove auth if name changed + } + } + + $user->name = $name_new; - log_main($user->sess." chatt_send start set"); + log_main($user->sess." chatt_send start set"); - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { - log_main($user->sess." chatt_send set loop"); + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + log_main($user->sess." chatt_send set loop"); - $user_cur = &$this->user[$i]; - if ($user_cur->sess == '') - continue; - if ($user_cur->stat == 'room') { - if ($user->stat == 'room' && $user->subst == 'standup') { - $this->standup_update(&$user); - } - else if ($user->stat == 'room' && $user->subst == 'sitdown' || - $user->stat == 'table') { - log_main($user->sess." chatt_send pre table update"); - - $this->table_update(&$user); - - log_main($user->sess." chatt_send post table update"); - } - } - else if ($user_cur->stat == 'table' && $user_cur->table == $user->table) { - $table = &$this->table[$user->table]; + $user_cur = &$this->user[$i]; + if ($user_cur->sess == '') + continue; + + if ($user_cur->stat == 'table' && $user_cur->table == $user->table) { + $table = &$this->table[$user->table]; - $user_cur->comm[$user_cur->step % COMM_N] = "gst.st = ".($user_cur->step+1)."; "; - $user_cur->comm[$user_cur->step % COMM_N] .= sprintf('set_names(" %s", " %s", " %s", " %s", " %s"); ', - xcape($this->user[$table->player[($user_cur->table_pos) % BRISKIN5_PLAYERS_N]]->name), - xcape($this->user[$table->player[($user_cur->table_pos+1) % BRISKIN5_PLAYERS_N]]->name), - xcape($this->user[$table->player[($user_cur->table_pos+2) % BRISKIN5_PLAYERS_N]]->name), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+3) % BRISKIN5_PLAYERS_N]]->name)), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+4) % BRISKIN5_PLAYERS_N]]->name))); - if ($user_cur == $user) - $user_cur->comm[$user_cur->step % COMM_N] .= sprintf('$("myname").innerHTML = "%s";', - xcape($user->name,ENT_COMPAT,"UTF-8")); - $user_cur->step_inc(); - } - } - } - } - else { - for ($i = 0 ; $i < ($user->stat == 'room' ? BRISKIN5_MAX_PLAYERS : BRISKIN5_PLAYERS_N) ; $i++) { - if ($user->stat == 'room') { - $user_cur = &$this->user[$i]; - if ($user_cur->sess == '' || $user_cur->stat != 'room') - continue; - } - else { - $user_cur = &$this->user[$table->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('set_names([%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"]); ', + $this->user[$table->player[($user_cur->table_pos) % BIN5_PLAYERS_N]]->flags, + xcape($this->user[$table->player[($user_cur->table_pos) % BIN5_PLAYERS_N]]->name), + + $this->user[$table->player[($user_cur->table_pos+1) % BIN5_PLAYERS_N]]->flags, + xcape($this->user[$table->player[($user_cur->table_pos+1) % BIN5_PLAYERS_N]]->name), + + $this->user[$table->player[($user_cur->table_pos+2) % BIN5_PLAYERS_N]]->flags, + xcape($this->user[$table->player[($user_cur->table_pos+2) % BIN5_PLAYERS_N]]->name), + + (BIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+3) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+3) % BIN5_PLAYERS_N]]->name)), + + (BIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+4) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+4) % BIN5_PLAYERS_N]]->name))); + if ($user_cur == $user) { + $user_cur->comm[$user_cur->step % COMM_N] .= $user_cur->myname_innerHTML(); + } + $user_cur->step_inc(); + } + } + } + } + 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') + continue; + } + else { + $user_cur = &$this->user[$table->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","%s");', - $dt.xcape($user->name), xcape($user_mesg)); - $user_cur->step_inc(); - } - log_legal($curtime, $user->sess, $user->name, - ($user->stat == 'room' ? 'room' : 'table '.$user->table),$user_mesg); + $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", [%d, "%s"],"%s");', + $dt, $user->flags, xcape($user->name), xcape($user_mesg)); + $user_cur->step_inc(); + } + log_legal($curtime, $user->ip, $user, ($user->stat == 'room' ? 'room' : 'table '.$user->table_orig),$user_mesg); + } } - } - function table_wakeup(&$user) - { - $table = &$this->table[0]; + function table_wakeup($user) + { + $table = &$this->table[0]; - log_main("BRISKIN5_WAKEUP begin function table stat: ".$user->stat." subst: ".$user->subst); + log_main("BIN5_WAKEUP begin function table stat: ".$user->stat." subst: ".$user->subst); - $curtime = time(); + $curtime = time(); - log_main("BRISKIN5_WAKEUP from table [".$user->table."] nplayers_n: ".$this->table[$user->table]->player_n); + log_main("BIN5_WAKEUP from table [".$user->table."] nplayers_n: ".$this->table[$user->table]->player_n); - for ($i = 0 ; $i < $table->player_n ; $i++) { - $user_cur = &$this->user[$i]; - log_main("PREIMPOST INLOOP name: ".$user_cur->name); + for ($i = 0 ; $i < $table->player_n ; $i++) { + $user_cur = &$this->user[$i]; + log_main("PREIMPOST INLOOP name: ".$user_cur->name); - if ($user_cur == $user) - $user_cur->subst = "shutdowner"; - else - $user_cur->subst = "shutdowned"; - $user_cur->laccwr = $curtime; + if ($user_cur == $user) + $user_cur->subst = "shutdowner"; + else + $user_cur->subst = "shutdowned"; + $user_cur->laccwr = $curtime; - $ret = "gst.st = ".($user_cur->step+1)."; "; - $ret .= 'gst.st_loc++; the_end=true; window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");|'; + $ret = "gst.st = ".($user_cur->step+1)."; "; + $ret .= 'gst.st_loc++; xstm.stop(); window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");|'; - log_wr($user_cur->sess." BRISKIN5_WAKEUP: ".$ret); - $user_cur->comm[$user_cur->step % COMM_N] = $ret; - $user_cur->step_inc(); - } + log_wr($user_cur->sess." BIN5_WAKEUP: ".$ret); + $user_cur->comm[$user_cur->step % COMM_N] = $ret; + $user_cur->step_inc(); + } - $this->the_end = TRUE; - } + $this->the_end = TRUE; + } - /* - * If all players are freezed the room garbage_manager clean up table and users. - */ - function is_abandoned() - { - $is_ab = TRUE; - $curtime = time(); - - $table = &$this->table[0]; - - for ($i = 0 ; $i < $table->player_n ; $i++) { - $user_cur = &$this->user[$i]; - - if ($user_cur->lacc + (EXPIRE_TIME_RD * 2) >= $curtime) { - $is_ab = FALSE; - break; - } + /* + * If all players are freezed the room garbage_manager clean up table and users. + */ + function is_abandoned() + { + $is_ab = TRUE; + $curtime = time(); + + $table = &$this->table[0]; + + for ($i = 0 ; $i < $table->player_n ; $i++) { + $user_cur = &$this->user[$i]; + + if ($user_cur->lacc + (EXPIRE_TIME_RD * 2) >= $curtime) { + $is_ab = FALSE; + break; + } + } + + return ($is_ab); } - return ($is_ab); + static function request_mgr(&$s_a_p, $header, &$header_out, &$new_socket, $path, $addr, $get, $post, $cookie) + { + printf("NEW_SOCKET (root): %d\n", intval($new_socket)); + + $enc = get_encoding($header); + if (isset($header['User-Agent'])) { + if (strstr($header['User-Agent'], "MSIE")) { + $transp_type = "htmlfile"; + } + else { + $transp_type = "xhr"; + } + } + else { + $transp_type = "iframe"; + } + force_no_cache($header_out); + + if (($table_idx = gpcs_var('table_idx', $get, $post, $cookie)) === FALSE) + unset($table_idx); + + if (($table_token = gpcs_var('table_token', $get, $post, $cookie)) === FALSE) + unset($table_token); + + + switch ($path) { + case "": + case "index.php": + ob_start(); + bin5_index_main($transp_type, $header_out, $addr, $get, $post, $cookie); + $content = ob_get_contents(); + ob_end_clean(); + + $s_a_p->pgflush_try_add($enc, $new_socket, 20, $header_out, $content); + return TRUE; + + break; + case "index_wr.php": + // FIXME $content can be unset + if (isset($table_idx) && isset($table_token)) { + if (($bri = $s_a_p->app->match_get($table_idx, $table_token)) != FALSE) { + ob_start(); + bin5_index_wr_main($bri, $addr, $get, $post, $cookie); + $content = ob_get_contents(); + ob_end_clean(); + } + else { + $content = "Bin5 Load data error"; + } + } + else { + $content = "Bin5 Load data error"; + } + $s_a_p->pgflush_try_add($enc, $new_socket, 20, $header_out, $content); + return TRUE; + + break; + case "index_rd_ifra.php": + do { + if (!isset($table_idx) + || !isset($table_token) + || !isset($cookie['sess']) + || ($bri = $s_a_p->app->match_get($table_idx, $table_token)) == NULL + || (($user = $bri->get_user($cookie['sess'], $idx)) == FALSE)) { + + $content = Bin5_user::stream_fini($transp_type, $s_a_p->rndstr, TRUE); + $s_a_p->pgflush_try_add($enc, $new_socket, 20, $header_out, $content); + + return TRUE; + break; + } + // close a previous opened index_read_ifra socket, if exists + if (($prev = $user->rd_socket_get()) != NULL) { + $s_a_p->socks_unset($user->rd_socket_get()); + fclose($user->rd_socket_get()); + printf("CLOSE AND OPEN AGAIN ON IFRA2\n"); + $user->rd_socket_set(NULL); + } + + $content = ""; + $user->stream_init($s_a_p->rndstr, $enc, $header_out, $content, $get, $post, $cookie); + $response = headers_render($header_out, -1).chunked_content($user->rd_zls_get(), $content); + $response_l = mb_strlen($response, "ASCII"); + + $wret = @fwrite($new_socket, $response, $response_l); + if ($wret < $response_l) { + printf("TROUBLES WITH FWRITE: %d\n", $wret); + $user->rd_cache_set(mb_substr($content, $wret, $response_l - $wret, "ASCII")); + } + else { + $user->rd_cache_set(""); + } + fflush($new_socket); + + + $s_a_p->socks_set($new_socket, $user); + $user->rd_socket_set($new_socket); + printf(" - qui ci siamo - "); + return TRUE; + } while (FALSE); + + return FALSE; + break; + + default: + return FALSE; + break; + } + + return (FALSE); } -} // end class Briskin5 + + + +} // end class Bin5 function locshm_exists($tok) { - // return (TRUE); + // return (TRUE); - if (($id = @shmop_open($tok,"a", 0, 0)) == FALSE) { - log_main($tok." SHM NOT exists"); + if (($id = @shmop_open($tok,"a", 0, 0)) == FALSE) { + log_main($tok." SHM NOT exists"); - return (FALSE); - } - else { - shmop_close($id); - log_main($tok." SHM exists"); + return (FALSE); + } + else { + shmop_close($id); + log_main($tok." SHM exists"); - return (TRUE); - } + return (TRUE); + } + +} + + +// rendiamo qui l'elenco dei punti come return della func +function calculate_points(&$table) +{ + GLOBAL $G_all_points; + + $ret = array(); + $pro = 0; + + if ($table->asta_pnt == 60) + $table->asta_pnt = 61; + + $table->old_reason = ""; + $table->old_win = $table->asta_win; + $table->old_friend = $table->friend; + $table->old_asta_pnt = $table->asta_pnt; + $table->old_mult = $table->mult; + + // count points for the temporary 2 teams + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + // for ($i = 0 ; $i < 40 ; $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 ($table->asta_pnt == 61 && $pro == 60) { + $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; + $ret[$i] = 0; + } + $table->points_n++; + $table->old_pnt = $pro; + $table->mult += 1; + + return($ret); + } + + if ($pro >= $table->asta_pnt) + $sig = 1; + else + $sig = -1; + + $table->points[$table->points_n % MAX_POINTS] = array(); + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + if ($i == $table->asta_win) + $pt = ($i == $table->friend ? 4 : 2); + else if ($i == $table->friend) + $pt = 1; + else + $pt = -1; + + + log_wr(sprintf("PRO: pt[%d][%d] = %d", $table->points_n % MAX_POINTS, $i, $pt)); + + $pt = $pt * $sig * $table->multer(TRUE) * ($pro == 120 ? 2 : 1); + + log_wr(sprintf("PRO:[%d][%d][%d]", $sig, $table->multer(TRUE), ($pro == 120 ? 2 : 1))); + + $table->points[$table->points_n % MAX_POINTS][$i] = $pt; + $table->total[$i] += $pt; + $ret[$i] = $pt; + } + $table->points_n++; + $table->old_pnt = $pro; + $table->mult = 0; + + return($ret); } +/* show table + is_transition (is from room to table ?) + is_again (is another game) + + Examples of $is_transition, $is_again: + from reload of the page: FALSE, FALSE + from sitdown in room: TRUE, FALSE + from table: asta cmd e tutti passano: TRUE, TRUE + from table: fine partita: TRUE, TRUE +*/ +function show_table(&$bri, &$user, $sendstep, $is_transition, $is_again) +{ + $table_idx = $user->table; + $table = $bri->table[$table_idx]; + $table_pos = $user->table_pos; + + $ret = "table_init();"; + $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); + + log_rd(sprintf( 'SHOW_TABLE: gst.st = %d; stat = "%s"; subst = "%s"; table_pos = %d;', $sendstep, $user->stat, $user->subst, $table_pos)); + + /* BACKGROUND */ + $ret .= "background_set();"; + + /* USERS INFO */ + $ret .= $user->myname_innerHTML(); + $ret .= sprintf('set_names([%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"]); ', + $bri->user[$table->player[($table_pos) % BIN5_PLAYERS_N]]->flags, + xcape($bri->user[$table->player[($table_pos) % BIN5_PLAYERS_N]]->name), + + $bri->user[$table->player[($table_pos+1) % BIN5_PLAYERS_N]]->flags, + xcape($bri->user[$table->player[($table_pos+1) % BIN5_PLAYERS_N]]->name), + + $bri->user[$table->player[($table_pos+2) % BIN5_PLAYERS_N]]->flags, + xcape($bri->user[$table->player[($table_pos+2) % BIN5_PLAYERS_N]]->name), + + (BIN5_PLAYERS_N == 3 ? 0 : $bri->user[$table->player[($table_pos+3) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($bri->user[$table->player[($table_pos+3) % BIN5_PLAYERS_N]]->name)), + + (BIN5_PLAYERS_N == 3 ? 0 : $bri->user[$table->player[($table_pos+4) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($bri->user[$table->player[($table_pos+4) % BIN5_PLAYERS_N]]->name))); + } + /* NOTIFY FOR THE CARD MAKER */ + if ($is_transition) { // && $user->subst == "asta" superfluo + $ret .= show_table_info(&$bri, &$table, $table_pos); + $ret .= "setTimeout(preload_images, 500, g_preload_img_arr, g_imgct);"; + } + if (!$is_again) + $ret .= table_welcome($user); + + if ($is_transition && !$is_again) { // appena seduti al tavolo, play della mucca + $ret .= playsound("cow.mp3"); + } + + + /* CARDS */ + if ($is_transition) { // && $user->subst == "asta" superfluo + $ret .= "|"; + + for ($i = 0 ; $i < 8 ; $i++) { + for ($e = 0 ; $e < BIN5_PLAYERS_N ; $e++) { + $ct = 0; + for ($o = 0 ; $o < (BIN5_PLAYERS_N == 5 ? 40 : 24) && $ct < $i+1 ; $o++) { + // for ($o = 0 ; $o < 40 && $ct < $i+1 ; $o++) { + if ($table->card[$o]->owner == (($e + $table->gstart) % BIN5_PLAYERS_N)) { + $ct++; + if ($ct == $i+1) + break; + } + } + log_rd("O ".$o." VAL ".$table->card[$o]->value." Owner: ".$table->card[$o]->owner); + + $ret .= sprintf( ' card_send(%d,%d,%d,%8.2f,%d);|', ($table->gstart + $e) % BIN5_PLAYERS_N, + $i, ((($e + BIN5_PLAYERS_N - $table_pos + $table->gstart) % BIN5_PLAYERS_N) == 0 ? + $table->card[$o]->value : -1), + ($i == 7 && $e == (BIN5_PLAYERS_N - 1) ? 1 : 0.5),$i+1); + } + } + } + else { + $taked = array(0,0,0,0,0); + $inhand = array(0,0,0,0,0); + $ontabl = array(-1,-1,-1,-1,-1); + $cards = array(); + + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + // for ($i = 0 ; $i < 40 ; $i++) { + if ($table->card[$i]->stat == 'hand') { + if ($table->card[$i]->owner == $table_pos) { + $cards[$inhand[$table->card[$i]->owner]] = $table->card[$i]->value; + } + $inhand[$table->card[$i]->owner]++; + } + else if ($table->card[$i]->stat == 'take') { + log_main("Card taked: ".$table->card[$i]->value."OWN: ".$table->card[$i]->owner); + $taked[$table->card[$i]->owner]++; + } + else if ($table->card[$i]->stat == 'table') { + $ontabl[$table->card[$i]->owner] = $i; + } + } + $logg = "\n"; + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + $logg .= sprintf("INHAND: %d IN TABLE %d TAKED %d\n", $inhand[$i], $ontabl[$i], $taked[$i]); + } + log_main("Stat table: ".$logg); + + /* Set ours cards. */ + $oursarg = ""; + for ($i = 0 ; $i < $inhand[$table_pos] ; $i++) + $oursarg .= ($i == 0 ? "" : ", ").$cards[$i]; + for ($i = $inhand[$table_pos] ; $i < 8 ; $i++) + $oursarg .= ($i == 0 ? "" : ", ")."-1"; + $ret .= sprintf('card_setours(%s);', $oursarg); + + /* Dispose all cards */ + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + /* Qui sotto al posto di + 1 c'era + ->gstart ... credo in modo errato */ + $ret .= sprintf('cards_dispose(%d,%d,%d);', $i, + ($inhand[$i] <= 8 ? $inhand[$i] : 8) , $taked[$i]); + + if ($ontabl[$i] != -1) { + $ret .= sprintf('card_place(%d,%d,%d,%d,%d);',$i, $inhand[$i], + $table->card[$ontabl[$i]]->value, + $table->card[$ontabl[$i]]->x, $table->card[$ontabl[$i]]->y); + } + } + } + + /* Show auction */ + if ($user->subst == 'asta') { + + /* show users auction status */ + $showst = ""; + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + $user_cur = &$bri->user[$table->player[$i]]; + $showst .= sprintf("%s%d", ($i == 0 ? "" : ", "), + ($user_cur->asta_card < 9 ? $user_cur->asta_card : $user_cur->asta_pnt)); + } + if (BIN5_PLAYERS_N == 3) + $showst .= ",-2,-2"; + $ret .= sprintf('document.title = "Brisk - Tavolo %d (asta)";', $user->table_orig); + $ret .= sprintf('show_astat(%s);', $showst); + + if ($table->asta_win != -1 && $table->asta_win == $table_pos) { + /* show card chooser */ + $ret .= sprintf('choose_seed(%s); $("astalascio").style.visibility = ""; $("asta").style.visibility = "hidden";', + $table->asta_card); + } + else { + /* show auction */ + if ($table_pos == ($table->gstart % BIN5_PLAYERS_N) && + $table->asta_win == -1) + $ret .= sprintf('dispose_asta(%d,%d, %s);', + $table->asta_card + 1, $table->asta_pnt+1, ($user->handpt <= 2 ? "true" : "false")); + else + $ret .= sprintf('dispose_asta(%d,%d, %s);', + $table->asta_card + 1, -($table->asta_pnt+1), ($user->handpt <= 2 ? "true" : "false")); + } + + /* Remark */ + if ($table->asta_win == -1) { // auction case + if ($table_pos == ($table->gstart % BIN5_PLAYERS_N)) + $ret .= "remark_on();"; + else + $ret .= "remark_off();"; + } + else { // chooseed case + if ($table_pos == $table->asta_win) + $ret .= "remark_on();"; + else + $ret .= "remark_off();"; + } + } + else if ($user->subst == 'game') { + /* HIGHLIGHT */ + if (($table->gstart + $table->turn) % BIN5_PLAYERS_N == $table_pos) + $ret .= "is_my_time = true; remark_on();"; + else + $ret .= "remark_off();"; + + /* WHO CALL AND WHAT */ + $ret .= briscola_show($bri, $table, $user); + + } + return ($ret); +} // end function show_table(... + +function calculate_winner(&$table) +{ + $briontab = FALSE; + $ontab = array(); + $ontid = array(); + $cur_win = -1; + $cur_val = 100; + $cur_seed = $table->briscola - ($table->briscola % 10); + + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + // for ($i = 0 ; $i < 40 ; $i++) { + if ($table->card[$i]->stat != "table") + continue; + + log_wr(sprintf("Card On table: [%d]", $i)); + + $v = $table->card[$i]->value; + $ontab[$table->card[$i]->owner] = $v; + $ontid[$table->card[$i]->owner] = $i; + /* se briscola setto il flag */ + if (($v - ($v % 10)) == $cur_seed) + $briontab = TRUE; + } + + if ($briontab == FALSE) { + $cur_win = $table->gstart; + $cur_val = $ontab[$cur_win]; + $cur_seed = $cur_val - ($cur_val % 10); + } + + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + if (($ontab[$i] - ($ontab[$i] % 10)) == $cur_seed) { + if ($ontab[$i] < $cur_val) { + $cur_val = $ontab[$i]; + $cur_win = $i; + } + } + } + + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { + $table->card[$ontid[$i]]->owner = $cur_win; + $table->card[$ontid[$i]]->stat = "take"; // Card stat + } + return ($cur_win); +} + +function show_table_info(&$bri, &$table, $table_pos) +{ + GLOBAL $G_lang, $mlang_bin5_bin5; + + $ret = ""; + $user = $bri->user[$table->player[$table_pos]]; + + $pnt_min = $table->points_n - MAX_POINTS < 0 ? 0 : $table->points_n - MAX_POINTS; + $noty = sprintf(''); + + // Names. + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) + $noty .= sprintf('', xcape($bri->user[$table->player[$i]]->name)); + $noty .= sprintf(""); + + // Points. + log_main("show_table_info: pnt_min: ".$pnt_min." Points_n: ".$table->points_n); + + for ($i = $pnt_min ; $i < $table->points_n ; $i++) { + $noty .= sprintf('', $i+1); + for ($e = 0 ; $e < BIN5_PLAYERS_N ; $e++) + $noty .= sprintf('', $table->points[$i % MAX_POINTS][$e]); + $noty .= ""; + } + + // Total points. + $noty .= ''; + for ($e = 0 ; $e < BIN5_PLAYERS_N ; $e++) + $noty .= sprintf('', $table->total[$e]); + $noty .= "
%s
%d%d
Tot.%d
"; + + if ($table->old_reason != "") { + $noty .= sprintf("
%s
", xcape($table->old_reason)); + } + + if ($table->old_win != -1) { + log_main("TABLE_OLD_WIN:".$table->old_win); + $win = $table->player[$table->old_win]; + log_main("TABLE_OLD_FRIEND:".$table->old_friend); + $fri = $table->player[$table->old_friend]; + + $wol = game_result($table->old_asta_pnt, $table->old_pnt); + + if ($win != $fri) { + /* MLANG: "
Nell'ultima mano ha chiamato %s, il socio era %s,
", "hanno fatto cappotto EBBRAVI!.
", "dovevano fare %s punti e ne hanno fatti %d: hanno %s.
", "
Nell'ultima mano %s si è chiamato in mano,
", "ha fatto cappotto EBBRAVO!.
", "doveva fare %s punti e ne ha fatti %d: ha %s.
", ($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], + xcape($bri->user[$win]->name), + xcape($bri->user[$fri]->name)); + if ($table->old_pnt == 120) { + $noty .= sprintf($mlang_bin5_bin5['info_capp'][$G_lang]); + } + else { + $noty .= sprintf($mlang_bin5_bin5['info_pnt'][$G_lang], + ($table->old_asta_pnt > 61 ? $mlang_bin5_bin5['info_alea'][$G_lang].$table->old_asta_pnt : + $mlang_bin5_bin5['info_more'][$G_lang]), $table->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_alon'][$G_lang], + xcape($bri->user[$win]->name)); + if ($table->old_pnt == 120) { + $noty .= sprintf($mlang_bin5_bin5['info_acap'][$G_lang]); + } + else { + $noty .= sprintf($mlang_bin5_bin5['info_apnt'][$G_lang], + + ($table->old_asta_pnt > 61 ? $mlang_bin5_bin5['info_alea'][$G_lang].$table->old_asta_pnt : + $mlang_bin5_bin5['info_more'][$G_lang]), $table->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 = $table->multer(FALSE); + if ($old_multer > 1) { + $noty .= sprintf($mlang_bin5_bin5['info_omul'][$G_lang], multoval($old_multer)); + } + $noty .= "

"; + } + /* MLANG: "Fai tu il mazzo,", "Il mazzo a $unam," */ + if ($table->mazzo == $table_pos) + $noty .= $mlang_bin5_bin5['info_yshuf'][$G_lang]; + else { + $unam = xcape($bri->user[$table->player[$table->mazzo]]->name); + $noty .= sprintf($mlang_bin5_bin5['info_shuf'][$G_lang], $unam); + } + + if ($user->subst == 'asta') { + if ($table->asta_win == -1) // auction case + $curplayer = $table->gstart % BIN5_PLAYERS_N; + else + $curplayer = $table->asta_win; + } + else if ($user->subst == 'game') { + $curplayer = ($table->gstart + $table->turn) % BIN5_PLAYERS_N; + } + + /* MLANG: " tocca a te giocare.", " tocca a $unam giocare.", " La partita vale %s.", "torna alla partita" */ + if ($curplayer == $table_pos) { + $noty .= $mlang_bin5_bin5['info_yturn'][$G_lang]; + } + else { + $unam = xcape($bri->user[$table->player[$curplayer]]->name); + $noty .= sprintf($mlang_bin5_bin5['info_turn'][$G_lang], $unam); + } + + $multer = $table->multer(TRUE); + if ($multer > 1) { + $noty .= sprintf($mlang_bin5_bin5['info_mult'][$G_lang], multoval($multer) ); + } + $noty .= "

"; + $ret .= show_notify($noty, 3000, $mlang_bin5_bin5['btn_bkgame'][$G_lang], 500, 400); + /* NOTE: show_notify($noty, 3000, "torna alla partita", 500, + * 130 + ($table->points_n > 0 ? 50 : 0) + + * (120 * ($table->points_n / MAX_POINTS))); + * will be used when we refact notify js function following + * photoo class logic + */ + + return ($ret); +} + +function table_welcome($user) +{ + GLOBAL $table_wellarr, $G_lang; + $ret = ""; + + for ($i = 0 ; $i < count($table_wellarr[$G_lang]) ; $i++) + $ret .= sprintf('chatt_sub("%s", [2, "ChanServ: "],"%s");', "", str_replace('"', '\"', $table_wellarr[$G_lang][$i])); + + return ($ret); +} + + +function briscola_show($bri, $table, $user) +{ + GLOBAL $G_lang, $mlang_bin5_bin5; + $ptnadd = ""; + $ret = ""; + + if ($table->asta_card == 9) + $ptnadd = sprintf($mlang_bin5_bin5['call_wptn'][$G_lang], $table->asta_pnt); + + /* text of caller cell */ + if ($user->table_pos == $table->asta_win) { + $prestr = sprintf('$("callerinfo").innerHTML = "%s";', $mlang_bin5_bin5['call_ycall'][$G_lang]); + $ret .= sprintf($prestr, $ptnadd); + } + else { + $prestr = sprintf('$("callerinfo").innerHTML = "%s";', $mlang_bin5_bin5['call_call'][$G_lang]); + $ret .= sprintf($prestr, + xcape($bri->user[$table->player[$table->asta_win]]->name), $ptnadd); + } + $ret .= sprintf('set_iscalling(%d);', ($table->asta_win - $user->table_pos + BIN5_PLAYERS_N) % BIN5_PLAYERS_N); + + $ret .= sprintf('$("caller").style.backgroundImage = \'url("img/brisk_caller_sand%d.png")\';', + $table->asta_win); + $ret .= sprintf('$("callerimg").src = "img/%02d.png";', $table->briscola); + $ret .= sprintf('$("caller").style.visibility = "visible";'); + $ret .= sprintf('$("chooseed").style.visibility = "hidden";'); + $ret .= sprintf('$("astalascio").style.visibility = "";'); + $ret .= sprintf('$("asta").style.visibility = "hidden";'); + $ret .= sprintf('show_astat(-2,-2,-2,-2,-2);'); + + 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->name, $remote_addr, $where , $mesg)); + fclose($fp); + } +} ?>