X-Git-Url: https://mop.ddnsfree.com/gitweb/?a=blobdiff_plain;f=web%2Fbriskin5%2FObj%2Fbriskin5.phh;h=90cc082162b4c60b8e3f602e85965abab8158cd0;hb=1532532dd4d3670d6d55560bbc3cbb0b238f74cd;hp=6f0a06fc332058d3b7501c78210c49bbb940af7d;hpb=b2e4016ea5c50bf06160d8e57659838aeacc6fdc;p=brisk.git diff --git a/web/briskin5/Obj/briskin5.phh b/web/briskin5/Obj/briskin5.phh index 6f0a06f..90cc082 100644 --- a/web/briskin5/Obj/briskin5.phh +++ b/web/briskin5/Obj/briskin5.phh @@ -1,61 +1,560 @@ 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)); +} + + +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; + } + + function assign($stat,$owner) + { + $this->stat = $stat; // Card stat + $this->owner = $owner; + } + + function setpos($pos) + { + $this->pos = $pos; + } + + function play($x,$y) + { + $this->stat = 'table'; // Card stat + $this->x = $x; + $this->y = $y; + } + + function take($newown) + { + $this->stat = 'take'; // Card stat + $this->owner = $newown; + } +} // 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 = 1; + + $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; + + $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); + } + + 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 = 1; + $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); + } + + + // 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 < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + $this->card[$i] = new Card($i, 'bunch', 'no_owner'); + } + } + + 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; + + 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]; + + $owner = $i % BIN5_PLAYERS_N; + $this->card[$id]->assign('hand', $owner); + + $rest[$rn] = $rest[$i]; + // $pubbpos[$rn2] = $pubbpos[$i]; + } + log_main("bunch_make end"); + } + + function init($userarr) + { + /* MOVED INTO SPAWN + $this->mazzo = rand(0,PLAYERS_N-1); + $this->points_n = 0; + $this->mult = 1; + $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; + } + + + function hand_points($idx) + { + GLOBAL $G_all_points; + + $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; + + $ctt = $this->card[$i]->value % 10; + $tot += $G_all_points[$ctt]; + } + + return ($tot); + } + + + function exitlock_show($userarr, $table_pos) + { + $ct = $this->exitlock_calc($userarr, $table_pos); + + $ret = sprintf('exitlock_show(%d, %s);', $ct, + ($userarr[$this->player[$table_pos]]->exitislock ? 'true' : 'false')); + return ($ret); + } + + 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 Table_briskin5 + + + + +define(BIN5_USER_FLAG_RING_ENDAUCT, 0x01); + +class User_briskin5 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 User() { + } + + /* 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); + } + */ + + function parentcopy(&$from) + { + parent::copy($from); + } + + 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; + } + + /* CLONE NOT USED + function myclone(&$from) + { + if (($thiz =& new User()) == FALSE) + return (FALSE); + + $thiz->copy($from); + + return ($thiz); + } + */ + + function spawn(&$from, $table, $table_pos) + { + GLOBAL $CO_bin5_pref_ring_endauct; + + if (($thiz =& new User_briskin5()) == FALSE) + return (FALSE); + + $thiz->parentcopy($from); + + $thiz->asta_card = -2; + $thiz->asta_pnt = -1; + $thiz->handpt = -1; + $thiz->exitislock = TRUE; + + log_wr("Briskin5 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; + + return ($thiz); + } +} // end class User_briskin5 + + class Briskin5 { var $user; var $table; - var $table_idx; - var $table_token; - var $comm; // commands for many people var $step; // current step of the comm array var $garbage_timeout; + var $shm_sz; + + var $table_idx; + var $table_token; var $the_end; - var $tok; - var $shm_sz; - function Briskin5 (&$room, $table_idx, $table_token) { + function Bin5 ($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) { + $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]; + $user = $room->user; + $table = $room->table[$table_idx]; - log_wr("Briskin5 constructor"); + log_wr("Bin5 constructor"); 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); + $this->user[$i] = Bin5_user::spawn($user[$table->player[$i]], $table_idx, $i); } - $this->table[0] =& Table::spawn(&$table); + $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; + Bin5::garbage_time_expire_set(0); - log_wr("Briskin5 constructor end"); + log_wr("Bin5 constructor end"); } - function &get_user($sess, &$idx) + function get_user($sess, &$idx) { - GLOBAL $PHP_SELF, $G_false; + GLOBAL $PHP_SELF; if (validate_sess($sess)) { - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { if (strcmp($sess, $this->user[$i]->sess) == 0) { // find it $idx = $i; @@ -64,27 +563,28 @@ class Briskin5 { } } log_main(sprintf("get_user: Wrong sess from page [%s]",$PHP_SELF)); - // for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) + // 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 ($G_false); + return (FALSE); } 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 < BRISKIN5_MAX_PLAYERS ; $i++) { - $user_cur = &$this->user[$i]; + // externalized if ($force || $this->garbage_timeout < $curtime) { + if ($force || Bin5::garbage_time_is_expired($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; @@ -105,7 +605,16 @@ class Briskin5 { */ - $this->table_wakeup(&$user_cur); + /* 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); } } } @@ -124,7 +633,7 @@ class Briskin5 { // // static functions // - function &load_data($table_idx, $table_token = "") + function load_data($table_idx, $table_token = "") { GLOBAL $G_false, $sess; $doexit = FALSE; @@ -152,15 +661,17 @@ class Briskin5 { 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); + + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + $bri->user[$i] = Bin5_user::load_data($table_idx, $i, FALSE); + } + + return ($bri); } while (FALSE); if ($shm != FALSE) @@ -170,7 +681,7 @@ class Briskin5 { if ($doexit) exit(); - return ($G_false); + return (FALSE); } @@ -252,18 +763,16 @@ class Briskin5 { { GLOBAL $sess; - log_wr("LOCK_DATA ".FTOK_PATH."/table".$table_idx); + log_lock("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; + return (FALSE); } // WARNING monitor this step if (($res = @sem_get($tok)) == FALSE) { - echo "SEM_GET FAILED"; - exit; + return (FALSE); } if (sem_acquire($res)) { log_lock("LOCK table ".$table_idx."[res: ".$res."]"); @@ -285,8 +794,10 @@ class Briskin5 { } - function chatt_send(&$user, $mesg) + function chatt_send($user, $mesg) { + GLOBAL $mlang_brisk, $G_lang; + if ($user->stat == 'table') { $table = &$this->table[$user->table]; } @@ -301,7 +812,7 @@ class Briskin5 { 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"],"Il nickname deve contenere almeno una lettera dell\'alfabeto o una cifra.");', $dt, NICKSERV); + $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s", [2, "%s"],"%s");', $dt, NICKSERV, $mlang_brisk['nickmust'][$G_lang]); $user->step_inc(); return; @@ -311,23 +822,25 @@ class Briskin5 { // change // update local graph // update remote graphs - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { - $user_cur = &$this->user[$i]; + 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 ($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", [2, "%s"],"Nickname %s già in uso.%d");', $dt, NICKSERV, xcape($name_new), $this->table[$user->table]->auth_only == TRUE); + + $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 == BRISKIN5_MAX_PLAYERS) { + 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"],"Non puoi cambiare nick a un tavolo per soli autenticati.");', $dt, NICKSERV); + $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s", [2, "%s"],"%s");', $dt, NICKSERV, $mlang_brisk['authchan'][$G_lang]); $user->step_inc(); return; } @@ -341,45 +854,32 @@ class Briskin5 { log_main($user->sess." chatt_send start set"); - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { + 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) { + + 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([%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"]); ', - $this->user[$table->player[($user_cur->table_pos) % BRISKIN5_PLAYERS_N]]->flags, - xcape($this->user[$table->player[($user_cur->table_pos) % BRISKIN5_PLAYERS_N]]->name), + $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) % BRISKIN5_PLAYERS_N]]->flags, - xcape($this->user[$table->player[($user_cur->table_pos+1) % BRISKIN5_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) % BRISKIN5_PLAYERS_N]]->flags, - xcape($this->user[$table->player[($user_cur->table_pos+2) % BRISKIN5_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), - (BRISKIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+3) % BRISKIN5_PLAYERS_N]]->flags), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+3) % BRISKIN5_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)), - (BRISKIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+4) % BRISKIN5_PLAYERS_N]]->flags), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+4) % BRISKIN5_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) { $itin = ($user->flags & USER_FLAG_AUTH ? "" : ""); $itou = ($user->flags & USER_FLAG_AUTH ? "" : ""); @@ -392,7 +892,7 @@ class Briskin5 { } } else { - for ($i = 0 ; $i < ($user->stat == 'room' ? BRISKIN5_MAX_PLAYERS : BRISKIN5_PLAYERS_N) ; $i++) { + 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') @@ -407,20 +907,19 @@ class Briskin5 { $dt, $user->flags, 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); + log_legal($curtime, $user, ($user->stat == 'room' ? 'room' : 'table '.$user->table_orig),$user_mesg); } } - function table_wakeup(&$user) + 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(); - 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]; @@ -435,7 +934,7 @@ class Briskin5 { $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");|'; - log_wr($user_cur->sess." BRISKIN5_WAKEUP: ".$ret); + log_wr($user_cur->sess." BIN5_WAKEUP: ".$ret); $user_cur->comm[$user_cur->step % COMM_N] = $ret; $user_cur->step_inc(); } @@ -484,5 +983,534 @@ function locshm_exists($tok) } +function asta2mult($asta_pnt) +{ + if ($asta_pnt > 110) + return (5); + else if ($asta_pnt > 100) + return (4); + else if ($asta_pnt > 90) + return (3); + else if ($asta_pnt > 80) + return (2); + else if ($asta_pnt > 70) + return (1); + else + return (0); +} + +// 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; + + 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)); + + + if ($table->asta_pnt == 61 && $pro == 60) { // PATTA ! + $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; + + $gamult = asta2mult($table->asta_pnt); + + $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 * ($gamult + $table->mult) * ($pro == 120 ? 2 : 1); + + log_wr(sprintf("PRO:[%d][%d][%d]", $sig, $table->mult, ($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 = 1; + + 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(&$room, &$user, $sendstep, $is_transition, $is_again) +{ + $table_idx = $user->table; + $table = $room->table[$table_idx]; + $table_pos = $user->table_pos; + + $ret = "table_init();"; + $ret .= $table->exitlock_show(&$room->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 */ + $itin = ($user->flags & USER_FLAG_AUTH ? "" : ""); + $itou = ($user->flags & USER_FLAG_AUTH ? "" : ""); + + $ret .= sprintf('$("myname").innerHTML = "%s%s%s";', $itin, xcape($user->name), $itou); + $ret .= sprintf('set_names([%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"]); ', + $room->user[$table->player[($table_pos) % BIN5_PLAYERS_N]]->flags, + xcape($room->user[$table->player[($table_pos) % BIN5_PLAYERS_N]]->name), + + $room->user[$table->player[($table_pos+1) % BIN5_PLAYERS_N]]->flags, + xcape($room->user[$table->player[($table_pos+1) % BIN5_PLAYERS_N]]->name), + + $room->user[$table->player[($table_pos+2) % BIN5_PLAYERS_N]]->flags, + xcape($room->user[$table->player[($table_pos+2) % BIN5_PLAYERS_N]]->name), + + (BIN5_PLAYERS_N == 3 ? 0 : $room->user[$table->player[($table_pos+3) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($room->user[$table->player[($table_pos+3) % BIN5_PLAYERS_N]]->name)), + + (BIN5_PLAYERS_N == 3 ? 0 : $room->user[$table->player[($table_pos+4) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($room->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(&$room, &$table, $table_pos); + } + if (!$is_again) + $ret .= table_wellcome($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 = &$room->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($room, $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(&$room, &$table, $table_pos) +{ + GLOBAL $G_lang, $mlang_bin5_bin5; + + $ret = ""; + $user = $room->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($room->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($room->user[$win]->name), + xcape($room->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($room->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]))); + } + } + if (($table->old_mult + asta2mult($table->old_asta_pnt)) > 1) { + $noty .= sprintf($mlang_bin5_bin5['info_omul'][$G_lang], multoval($table->old_mult + asta2mult($table->old_asta_pnt))); + } + $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($room->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($room->user[$table->player[$curplayer]]->name); + $noty .= sprintf($mlang_bin5_bin5['info_turn'][$G_lang], $unam); + } + + if (($table->mult + asta2mult($table->asta_pnt)) > 1) { + $noty .= sprintf($mlang_bin5_bin5['info_mult'][$G_lang], multoval($table->mult + asta2mult($table->asta_pnt))); + } + $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_wellcome($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($room, $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($room->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($curtime, $user, $where, $mesg) +{ + GLOBAL $_SERVER; + + 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, $_SERVER['REMOTE_ADDR'], $where , $mesg)); + fclose($fp); + } +} ?>