merge with spawn branch
[brisk.git] / web / index_wr.php
index 6c33baf..56fd416 100644 (file)
@@ -2,7 +2,10 @@
 /*
  *  brisk - index_wr.php
  *
- *  Copyright (C) 2006 matteo.nastasi@milug.org
+ *  Copyright (C) 2006-2008 Matteo Nastasi
+ *                          mailto: nastasi@alternativeoutput.it 
+ *                                  matteo.nastasi@milug.org
+ *                          web: http://www.alternativeoutput.it
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  *
  */
 
-require_once("brisk.phh");
+require_once("Obj/brisk.phh");
+// require_once("Obj/proxyscan.phh");
+require_once("briskin5/Obj/briskin5.phh");
+
+// Use of proxies isn't allowed.
+// if (is_proxy()) {
+//   sleep(5);
+//   exit;
+// }
+log_load("index_wr.php");
+
 if (DEBUGGING == "local" && $_SERVER['REMOTE_ADDR'] != '127.0.0.1') {
   echo "Debugging time!";
   exit;
 }
 
-log_load($sess, "LOAD: index_wr.php");
-
 /*
  *  MAIN
  */
-log_wr($sess, 'COMM: '.$mesg);
-
-$sem = lock_data();
-$bri = &load_data();
-if (($user = &$bri->get_user($sess, &$idx)) == FALSE) {
-  echo "Get User Error";
-  log_wr($sess, "Get User Error");
-  unlock_data($sem);
+
+/* if the IP is banned, exit without do nothing */
+if (array_search($_SERVER['REMOTE_ADDR'], $G_black_list) !== FALSE) {
+  sleep(5);
+  exit;
+}
+
+$is_spawn = FALSE;
+
+log_wr('COMM: '.$mesg);
+
+$sem = Room::lock_data();
+if (($room = &Room::load_data()) == FALSE) {
+  echo "Load data error";
+  log_wr("Load data error");
+  Room::unlock_data($sem);
+  exit;
+}
+if (($user = &$room->get_user($sess, &$idx)) == FALSE) {
+  Room::unlock_data($sem);
+  $argz = explode('|', $mesg);
+
+  if ($argz[0] == 'help') {
+    echo show_notify(str_replace("\n", " ", $G_room_help), 0, "torna ai tavoli", 600, 500);
+  }
+  else if ($argz[0] == 'about') {
+    echo show_notify(str_replace("\n", " ", $G_room_about), 0, "torna ai tavoli", 400, 200);
+  }
+  else if ($argz[0] == 'roadmap') {
+    echo show_notify(str_replace("\n", " ", $G_room_roadmap), 0, "torna ai tavoli", 400, 200);
+  }
+  else if ($argz[0] == 'whysupport') {
+    echo show_notify(str_replace("\n", " ", $G_room_whysupport), 0, "torna ai tavoli", 400, 200);
+  }
+  else { 
+    log_wr("Get User Error");
+    echo "Get User Error";
+  }
   exit;
 }
 $argz = explode('|', $mesg);
 
+log_wr('POSTSPLIT: '.$argz[0]);
+
 if ($argz[0] == 'shutdown') {
-  log_auth($user_cur->sess, "Shutdown session.");
-  $tmp_sess = $user->sess;
-  $user->sess = "";
-  step_unproxy($tmp_sess);
-  $user->name = "";
-  $user->the_end = FALSE;
-  
-  log_rd2($user->sess, "AUTO LOGOUT.");
+  log_auth($user->sess, "Shutdown session.");
+
+  $user->reset();
+
+  log_rd2("AUTO LOGOUT.");
   if ($user->subst == 'sitdown' || $user->stat == 'table')
-    $bri->room_wakeup(&$user);
+    $room->room_wakeup(&$user);
   else if ($user->subst == 'standup')
-    $bri->room_outstandup(&$user);
+    $room->room_outstandup(&$user);
   else
-    log_rd2($sess, "SHUTDOWN FROM WHAT ???");
+    log_rd2("SHUTDOWN FROM WHAT ???");
 }
 /******************
  *                *
@@ -72,7 +112,7 @@ else if ($user->stat == 'room') {
     $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
     $user->comm[$user->step % COMM_N] .=  show_notify(str_replace("\n", " ", $G_room_help), 0, "torna ai tavoli", 600, 500);
 
-    log_wr($sess, $user->comm[$user->step % COMM_N]);
+    log_wr($user->comm[$user->step % COMM_N]);
     $user->step_inc();
     
   }
@@ -80,12 +120,28 @@ else if ($user->stat == 'room') {
     $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
     $user->comm[$user->step % COMM_N] .=  show_notify(str_replace("\n", " ", $G_room_about), 0, "torna ai tavoli", 400, 200);
 
-    log_wr($sess, $user->comm[$user->step % COMM_N]);
+    log_wr($user->comm[$user->step % COMM_N]);
+    $user->step_inc();
+    
+  }
+  else if ($argz[0] == 'roadmap') {
+    $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
+    $user->comm[$user->step % COMM_N] .=  show_notify(str_replace("\n", " ", $G_room_roadmap), 0, "torna ai tavoli", 400, 200);
+
+    log_wr($user->comm[$user->step % COMM_N]);
+    $user->step_inc();
+    
+  }
+  else if ($argz[0] == 'whysupport') {
+    $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
+    $user->comm[$user->step % COMM_N] .=  show_notify(str_replace("\n", " ", $G_room_whysupport), 0, "torna ai tavoli", 400, 200);
+
+    log_wr($user->comm[$user->step % COMM_N]);
     $user->step_inc();
     
   }
   else if ($argz[0] == 'chatt') {
-    $bri->chatt_send(&$user,$mesg);
+    $room->chatt_send(&$user,$mesg);
   }
   /**********************
    *                    *
@@ -95,72 +151,146 @@ else if ($user->stat == 'room') {
   else if ($user->subst == 'standup') {
    
     if ($argz[0] == 'sitdown') {
+      log_wr("SITDOWN command");
+
       if ($user->the_end == TRUE) {
-       log_wr($sess, "INFO:SKIP:argz == sitdown && the_end == TRUE => ignore request.");
-       unlock_data($sem);
+       log_wr("INFO:SKIP:argz == sitdown && the_end == TRUE => ignore request.");
+       Room::unlock_data($sem);
+       exit;
+      }
+
+      // Take parameters
+      $table_idx = $argz[1];
+      $table = &$room->table[$table_idx];
+    
+      $curtime = time();
+
+      if ($G_shutdown || $table->wakeup_time > $curtime) {
+       $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
+
+       $dt = date("H:i ", $curtime);
+        if ($G_shutdown)
+          $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s","<b>Il server sta per essere riavviato, non possono avere inizio nuove partite.</b>");', $dt.NICKSERV);
+        else
+          $user->comm[$user->step % COMM_N] .= sprintf('chatt_sub("%s","<b>Il tavolo si &egrave; appena liberato, ci si potr&agrave; sedere tra %d secondi.</b>");', $dt.NICKSERV, $table->wakeup_time - $curtime);
+
+       $user->step_inc();
+       Room::save_data($room);
+       Room::unlock_data($sem);
        exit;
       }
+
       /* TODO: refact to a function */
       if ($user->bantime > $user->laccwr) {
        $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
-       $user->comm[$user->step % COMM_N] .= show_notify("<br>Ti sei alzato da un tavolo senza il consenso degli altri giocatori. Dovrai aspettare ancora ".secstoword($user->bantime - $user->laccwr)." prima di poterti sedere nuovamente.", 2000, "Torna in piedi.", 400, 100);
+       $user->comm[$user->step % COMM_N] .= show_notify("<br>Ti sei alzato da un tavolo senza il consenso degli altri giocatori. Dovrai aspettare ancora ".secstoword($user->bantime - $user->laccwr)." prima di poterti sedere nuovamente.", 2000, "resta in piedi.", 400, 100);
        
        $user->step_inc();
-       save_data($bri);
-       unlock_data($sem);
+       Room::save_data($room);
+       Room::unlock_data($sem);
        exit;
       }
     
-      // Take parameters
-      $table_idx = $argz[1];
-      $table = &$bri->table[$table_idx];
-    
       if ($table->player_n == PLAYERS_N) {
-       log_wr($sess, "WARN:FSM: Sitdown unreachable, table full.");
-       unlock_data($sem);
+       log_wr("WARN:FSM: Sitdown unreachable, table full.");
+       Room::unlock_data($sem);
        exit;
       } 
-
+      
       // set new status
       $user->subst = "sitdown";
       $user->table = $table_idx;
       $user->table_pos = $table->user_add($idx);
       
+      log_wr("MOP before");
+
       if ($table->player_n == PLAYERS_N) {
+       log_wr("MOP inall");
+
        // Start game for this table.
-       log_wr($sess, "Start game!");
+       log_wr("Start game!");
        
-       $table->init(&$bri->user);
-       $table->game_init(&$bri->user);
-       $curtime = time();
+       //
+       //  START THE SPAWN HERE!!!!
+       //
+
+        $curtime = time();
+
+        // Create new spawned table
+        $bri_sem = Briskin5::lock_data($table_idx);
+        $table_token = uniqid("");
+        $room->table[$table_idx]->table_token = $table_token;
+        $room->table[$table_idx]->table_start = $curtime;
+        
+        $plist = "$table_token|$user->table|$table->player_n";
+        for ($i = 0 ; $i < $table->player_n ; $i++) {
+          $plist .= '|'.$room->user[$table->player[$i]]->sess;
+        }
+        log_legal($curtime, $user->sess, $user->name, "STAT:CREATE_GAME", $plist);
+
+        if (($bri =& new Briskin5(&$room, $table_idx, $table_token)) == FALSE)
+          log_wr("bri create: FALSE");
+        else
+          log_wr("bri create: ".serialize($bri));
        
-       for ($i = 0 ; $i < $table->player_n ; $i++) {
-         $user_cur = &$bri->user[$table->player[$i]];
-         log_wr($sess, "Pre if!");
-         
-         $ret = "";
-         $ret .= sprintf('gst.st_loc++; gst.st=%d; the_end=true; window.onunload = null ; document.location.assign("table.php");|', $user_cur->step+1);
-         
-         $user_cur->comm[$user_cur->step % COMM_N] = $ret;
-         $user_cur->trans_step = $user_cur->step + 1;
-         log_wr($sess, "TRANS ATTIVATO");
-         
-
-         $user_cur->stat_set('table');
-         $user_cur->subst = 'asta';
-         $user_cur->laccwr = $curtime;
-         $user_cur->step_inc();
-         
-         $user_cur->comm[$user_cur->step % COMM_N] = show_table(&$bri,&$user_cur,$user_cur->step+1,TRUE, FALSE);
-         $user_cur->step_inc();
-       }
+        // init table
+        $bri_table =& $bri->table[0];
+        $bri_table->init(&$bri->user);
+        $bri_table->game_init(&$bri->user);
+        //
+        // Init spawned users.
+        //
+        for ($i = 0 ; $i < $table->player_n ; $i++) {
+          $bri_user_cur = &$bri->user[$i];
+          $user_cur = &$room->user[$table->player[$i]];
+          
+          $bri_user_cur->stat_set('table');
+          $bri_user_cur->subst = 'asta';
+          $bri_user_cur->laccwr = $curtime;
+          
+          $bri_user_cur->trans_step = $user_cur->step + 1;
+          $bri_user_cur->comm[$bri_user_cur->step % COMM_N] = "";
+          $bri_user_cur->step_inc();
+          $bri_user_cur->comm[$bri_user_cur->step % COMM_N] = show_table(&$bri,&$bri_user_cur,$bri_user_cur->step+1,TRUE, FALSE);
+          
+          $bri_user_cur->step_inc();
+          
+          log_wr("TRY PRESAVE: ".$bri_user_cur->step." TRANS STEP: ".$bri_user_cur->trans_step);
+          
+          log_wr("Pre if!");
+          
+          //          ARRAY_POP DISABLED
+          //       // CHECK
+          while (array_pop($user_cur->comm) != NULL);
+          
+          $ret = "";
+          $ret .= sprintf('gst.st_loc++; gst.st=%d; createCookie("table_idx", %d, 24*365, cookiepath); createCookie("table_token", "%s", 24*365, cookiepath); the_end=true; window.onunload = null ; document.location.assign("briskin5/index.php");|', $user_cur->step+1, $table_idx, $table_token);
+          
+          $user_cur->comm[$user_cur->step % COMM_N] = $ret;
+          $user_cur->trans_step = $user_cur->step + 1;
+          log_wr("TRANS ATTIVATO");
+          
+          
+          $user_cur->stat_set('table');
+          $user_cur->subst = 'asta';
+          $user_cur->laccwr = $curtime;
+          $user_cur->step_inc();
+        }
+        log_wr("presave bri");
+        Briskin5::save_data($bri);
+        Briskin5::unlock_data($bri_sem);
+        log_wr("postsave bri");
       }
+      // change room
+      $room->room_sitdown(&$user, $table_idx);
+
+      log_wr("MOP finish");
+
       
-      $bri->room_sitdown(&$user, $table_idx);
     }
     else if ($argz[0] == 'logout') {
       $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
-      $user->comm[$user->step % COMM_N] .= sprintf('postact_logout();');
+      $user->comm[$user->step % COMM_N] .= 'postact_logout();';
       $user->the_end = TRUE;
       $user->step_inc();
     }
@@ -172,422 +302,20 @@ else if ($user->stat == 'room') {
    **********************/
   else if ($user->subst == 'sitdown') {
     if ($argz[0] == 'wakeup') {
-      $bri->room_wakeup(&$user);      
+      $room->room_wakeup(&$user);      
     }
     else if ($argz[0] == 'logout') {
-      $bri->room_wakeup(&$user);      
+      $room->room_wakeup(&$user);      
       $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
-      $user->comm[$user->step % COMM_N] .= sprintf('postact_logout();');
+      $user->comm[$user->step % COMM_N] .= 'postact_logout();';
       $user->the_end = TRUE;
       $user->step_inc();
     }
   }
 }
-/*********************
- *                   *
- *    STAT: table    *
- *                   *
- *********************/
-else if ($user->stat == 'table') {
-  $user->laccwr = time();
-  $table = &$bri->table[$user->table];
-
-  if ($argz[0] == 'tableinfo') {
-    log_wr($sess, "PER DI TABLEINFO");
-    $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
-    $user->comm[$user->step % COMM_N] .= show_table_info(&$bri, &$table, $user->table_pos);
-    log_wr($sess, $user->comm[$user->step % COMM_N]);
-    $user->step_inc();
-  }
-  else if ($argz[0] == 'chatt') {
-    $bri->chatt_send(&$user,$mesg);
-  }
-  else if ($argz[0] == 'logout') {
-    $remcalc = $argz[1];
-
-    if ($user->exitislock == TRUE) {
-      $remcalc++;
-      $user->exitislock = FALSE;
-    }
-
-    $logout_cont = TRUE;
-    if ($remcalc >= 3) {
-      $lockcalc = $table->exitlock_calc(&$bri->user, $user->table_pos);
-      if ($lockcalc < 3) {
-       $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; ";
-       $user->comm[$user->step % COMM_N] .= $table->exitlock_show(&$bri->user, $user->table_pos);
-       $user->comm[$user->step % COMM_N] .=  show_notify("<br>I dati presenti sul server non erano allineati con quelli inviati dal tuo browser, adesso lo sono. Riprova ora.", 2000, "Torna alla partita.", 400, 100);
-       
-       log_wr($sess, $user->comm[$user->step % COMM_N]);
-       $user->step_inc();
-       $logout_cont = FALSE;
-      }
-    }
-    else 
-      $user->bantime = $user->laccwr + BAN_TIME;
-    
-    if ($logout_cont == TRUE) {
-      $bri->room_wakeup(&$user);
-    }
-  }
-  else if ($argz[0] == 'exitlock') {
-    $user->exitislock = ($user->exitislock == TRUE ? FALSE : TRUE);
-    for ($ct = 0, $i = 0 ; $i < PLAYERS_N ; $i++) {    
-      $user_cur[$i] = &$bri->user[$table->player[$i]];
-      if ($user_cur[$i]->exitislock == FALSE)
-       $ct++;
-    }
-    for ($i = 0 ; $i < PLAYERS_N ; $i++) {
-      $ret = sprintf('gst.st = %d;', $user_cur[$i]->step+1);
-      $ret .= sprintf('exitlock_show(%d, %s);', $ct, 
-                    ($user_cur[$i]->exitislock ? 'true' : 'false'));
-      $user_cur[$i]->comm[$user_cur[$i]->step % COMM_N] = $ret;
-      log_wr($sess, $user_cur[$i]->comm[$user_cur[$i]->step % COMM_N]);
-      $user_cur[$i]->step_inc();
-    }
-  }
-  else if ($user->subst == 'asta') {
-    if ($argz[0] == 'lascio' && $user->handpt <= 2) {
-      $index_cur = $table->gstart % PLAYERS_N;
-    
-      log_wr($sess, sprintf("GIOCO FINITO !!!"));
-    
-      $table->mult *= 2; 
-      $table->old_reason = sprintf("Ha lasciato %s perche` aveva al massimo 2 punti.", $user->name);
-
-      $table->game_next();
-      $table->game_init(&$bri->user);
-    
-      for ($i = 0 ; $i < PLAYERS_N ; $i++) {   
-       $user_cur = &$bri->user[$table->player[$i]];
-
-       $ret = sprintf('gst.st = %d;', $user_cur->step+1);
-       $ret .= show_table(&$bri,&$user_cur,$user_cur->step+1, TRUE, TRUE);
-       $user_cur->comm[$user_cur->step % COMM_N] = $ret;
-       $user_cur->step_inc();      
-      }
-    }
-    else if ($argz[0] == 'asta') {
-      $again = TRUE;
-    
-      $index_cur = $table->gstart % PLAYERS_N;
-      if ($user->table_pos == $index_cur &&
-         $table->asta_pla[$index_cur]) {
-       $a_card = $argz[1];
-       $a_pnt  = $argz[2];
-      
-       log_wr($sess, "CI SIAMO  a_card ".$a_card."  asta_card ".$table->asta_card);
-      
-       // Abbandono dell'asta
-       if ($a_card <= -1) {
-         log_wr($sess, "Abbandona l'asta.");
-         $table->asta_pla[$index_cur] = FALSE;
-         $user->asta_card  = -1;
-         $table->asta_pla_n--;
-         $again = FALSE;
-       }
-       else if ($a_card <= 9) {
-         if ($a_card >= 0 && $a_card < 9 && $a_card > $table->asta_card)
-           $again = FALSE;
-         else if ($a_card == 9 && $a_pnt > ($table->asta_pnt >= 61 ? $table->asta_pnt : 60) && $a_pnt <= 120)
-           $again = FALSE;
-         
-
-         if ($again == FALSE) {
-           log_wr($sess, "NUOVI ORZI.");
-           $user->asta_card  = $a_card;
-           $table->asta_card = $a_card;
-           if ($a_card == 9) {
-             $user->asta_pnt   = $a_pnt;
-             $table->asta_pnt  = $a_pnt;
-           }
-         }
-       }
-      
-      
-      
-       if ($again) { // Qualcosa non andato bene, rifare
-         $ret = sprintf('gst.st = %d; asta_pnt_set(%d);', $user->step+1, 
-                         ($table->asta_pnt > 60 ? $table->asta_pnt + 1 : 61) );
-         $user->comm[$user->step % COMM_N] = $ret;
-         $user->step_inc();
-
-         log_wr($sess, "Ripetere.");
-       }
-       else {
-         /* next step */
-         $showst = "show_astat("; 
-         for ($i = 0 ; $i < 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 (PLAYERS_N == 3)
-           $showst .= ",-2,-2";
-         $showst .= ");";
-
-         $maxcard = -2;
-         for ($i = 0 ; $i < PLAYERS_N ; $i++) {
-           $user_cur = &$bri->user[$table->player[$i]];
-           if ($maxcard < $user_cur->asta_card)
-             $maxcard = $user_cur->asta_card;
-         }
-
-         if (($table->asta_pla_n > ($maxcard > -1 ? 1 : 0)) &&
-             !($table->asta_card == 9 && $table->asta_pnt == 120)) {
-           log_wr($sess,"ALLOPPA QUI");
-           for ($i = 1 ; $i < PLAYERS_N ; $i++) {
-             $index_next = ($table->gstart + $i) % PLAYERS_N;
-             if ($table->asta_pla[$index_next]) {
-               log_wr($sess,"GSTART 1");
-               $table->gstart += $i;
-               break;
-             }
-           }
-         
-         
-           for ($i = 0 ; $i < PLAYERS_N ; $i++) {
-             $user_cur = &$bri->user[$table->player[$i]];
-             $ret = sprintf('gst.st = %d; %s', $user_cur->step+1, $showst);
-             if ($user_cur->table_pos == ($table->gstart % PLAYERS_N)) 
-               $ret .= sprintf('dispose_asta(%d,%d, %s); remark_on();', 
-                               $table->asta_card + 1, $table->asta_pnt+1, ($user_cur->handpt <= 2 ? "true" : "false"));
-             else
-               $ret .= sprintf('dispose_asta(%d,%d, %s); remark_off();',
-                               $table->asta_card + 1, -($table->asta_pnt+1), ($user_cur->handpt <= 2 ? "true" : "false"));
-             $user_cur->comm[$user_cur->step % COMM_N] = $ret;
-             $user_cur->step_inc();
-           }
-         }
-         else if ($table->asta_pla_n == 0) {
-           log_wr($sess, "PASSANO TUTTI!");
-
-           log_wr($sess, sprintf("GIOCO FINITO !!!"));
-         
-           $table->old_reason = "Hanno passato tutti.";
-           $table->mult *= 2; 
-
-           $table->game_next();
-           $table->game_init(&$bri->user);
-         
-           for ($i = 0 ; $i < PLAYERS_N ; $i++) {      
-             $user_cur = &$bri->user[$table->player[$i]];
-
-             $ret = sprintf('gst.st = %d;', $user_cur->step+1);
-             $ret .= show_table(&$bri,&$user_cur,$user_cur->step+1, TRUE, TRUE);
-             $user_cur->comm[$user_cur->step % COMM_N] = $ret;
-             $user_cur->step_inc();        
-           }
-         }
-         else {
-           log_wr($sess, "FINITA !");
-           // if a_pnt == 120 supergame ! else abbandono
-           if ($a_pnt == 120 || $user->asta_card != -1) {
-             $chooser = $index_cur;
-             for ($i = 1 ; $i < PLAYERS_N ; $i++) 
-               if ($i != $chooser)
-                 $table->asta_pla[$i] = FALSE;
-           }
-           else {
-             //"gst.st = ".($user->step+1)."; dispose_asta(".($table->asta_card + 1).",".-($table->asta_pnt).", true); remark_off();";
-             $user->comm[$user->step % COMM_N] = sprintf( "gst.st = %d; dispose_asta(%d, %d, false); remark_off();", $user->step+1, $table->asta_card + 1,-($table->asta_pnt));
-             $user->step_inc();
-             for ($i = 1 ; $i < PLAYERS_N ; $i++) {
-               $chooser = ($table->gstart + $i) % PLAYERS_N;
-               if ($table->asta_pla[$chooser]) {
-                 break;
-               }
-             }
-           }
-           $table->asta_win = $chooser;
-
-           for ($i = 0 ; $i < PLAYERS_N ; $i++) {
-             $user_cur = &$bri->user[$table->player[$i]];
-             $ret = sprintf('gst.st = %d; %s', $user_cur->step+1, $showst);
-
-             if ($i == $chooser) {
-               $ret .= "choose_seed(". $table->asta_card."); \$(\"asta\").style.visibility = \"hidden\"; remark_on();";
-             }
-             else {
-               $ret .= "remark_off();";
-             }
-
-             $user_cur->comm[$user_cur->step % COMM_N] = $ret;
-             $user_cur->step_inc();        
-           }
-         }
-       }
-      }
-      else {
-       log_wr($sess, "NON CI SIAMO");
-      }
-    }
-    /*  asta::choose */
-    else if ($argz[0] == 'choose') {
-      if ($table->asta_win > -1 && 
-         $user->table_pos == $table->asta_win) {
-       $a_brisco = $argz[1];
-       if ($a_brisco >= 0 && $a_brisco < 40) {
-         $table->briscola = $a_brisco;
-         $table->friend   = $table->card[$a_brisco]->owner;
-         log_wr($sess,"GSTART 2");
-         $table->gstart = ($table->mazzo+1) % PLAYERS_N;
-         log_wr($sess, "Setta la briscola a ".$a_brisco);
-
-         $chooser = $table->asta_win;
-         $user_chooser = &$bri->user[$table->player[$chooser]];
-         for ($i = 0 ; $i < PLAYERS_N ; $i++) {
-           $user_cur = &$bri->user[$table->player[$i]];
-           $user_cur->subst = 'game';
-           $ret = sprintf('gst.st = %d; subst = "game";', $user_cur->step+1);
-         
-
-           /* bg of caller cell */
-           $ret .= briscola_show($bri, $table, $user_cur);
-
-           /* first gamer */
-           if ($i == ($table->gstart % PLAYERS_N))
-             $ret .= "is_my_time = true; remark_on();";
-           else
-             $ret .= "is_my_time = false; remark_off();";
-
-           $user_cur->comm[$user_cur->step % COMM_N] = $ret;
-           $user_cur->step_inc();          
-         }
-         /*
-            TUTTE LE VARIABILI DI STATO PER PASSARE A GIOCARE E LE
-            VAR PER PASSARE ALLA FASE DI GIOCO
-         */
-       
-       }
-      }
-    }
-  }
-  else if ($user->subst == 'game') {
-    log_wr($sess, "state: table::game".$argz[0]);
-
-    if ($argz[0] == 'play') {
-      $a_play = $argz[1];
-      $a_x =    $argz[2];
-      $a_y =    $argz[3];
-
-      if (strpos($a_x, "px") != FALSE)
-       $a_x = substr($a_x,0,-2);
-      if (strpos($a_y, "px") != FALSE)
-       $a_y = substr($a_y,0,-2);
-
-      $loggo = sprintf("A_play %s, table_pos %d == %d, mazzo %d, gstart %d, card_stat %d, card_own %d",
-                      $a_play, $user->table_pos, ($table->gstart % PLAYERS_N),
-                      $table->mazzo, $table->gstart,
-                      $table->card[$a_play]->stat, $table->card[$a_play]->owner);
-      log_wr($sess, "CIC".$loggo);
-                         
-      /* se era il suo turno e la carta era sua ed era in mano */
-      if ($a_play >=0 && $a_play < 40 &&
-         ($user->table_pos == (($table->gstart + $table->turn) % PLAYERS_N)) &&
-         $table->card[$a_play]->stat == 'hand' &&
-         $table->card[$a_play]->owner == $user->table_pos) {
-       log_wr($sess, sprintf("User: %s Play: %d",$user->name, $a_play));
-
-       /* Change the card status. */
-       $table->card[$a_play]->play($a_x, $a_y);
-
-       /*
-        *  !!!! TURN INCREMENTED BEFORE !!!!
-        */
-       $turn_cur = ($table->gstart + $table->turn) % PLAYERS_N;
-       $table->turn++;
-
-       $card_play = sprintf("card_play(%d,%d,%d,%d);|",
-                            $user->table_pos, $a_play, $a_x, $a_y);
-       if (($table->turn % PLAYERS_N) != 0) {     /* manche not finished */
-         $turn_nex = ($table->gstart + $table->turn) % PLAYERS_N;
-
-         $player_cur = "remark_off();";
-         $player_nex = $card_play . "is_my_time = true; remark_on();";
-         $player_oth = $card_play;
-       }
-       else if ($table->turn <= (PLAYERS_N * 8)) { /* manche finished */
-         $winner = calculate_winner($table);
-         log_wr($sess,"GSTART 3");
-         $table->gstart = $winner;
-         $turn_nex = ($table->gstart + $table->turn) % PLAYERS_N;
-
-         log_wr($sess, sprintf("The winner is: [%d] [%s]", $winner, $bri->user[$table->player[$winner]]->name));
-         $card_take = sprintf("sleep(gst,2000);|cards_take(%d);|cards_hidetake($d);",
-                              $winner, $winner);
-         $player_cur = "remark_off();" . $card_take . "|"; 
-         if ($turn_cur != $turn_nex)
-           $player_nex = $card_play . $card_take . "|";
-         else
-           $player_nex = "";
-         if ($table->turn < (PLAYERS_N * 8))  /* game NOT finished */
-           $player_nex .= "is_my_time = true; remark_on();";
-         $player_oth = $card_play . $card_take;
-       }
-
-       log_wr($sess, sprintf("Turn Cur %d Turn Nex %d",$turn_cur, $turn_nex));
-       for ($i = 0 ; $i < PLAYERS_N ; $i++) {  
-         $user_cur = &$bri->user[$table->player[$i]];
-
-         $ret = sprintf('gst.st = %d; ', $user_cur->step+1);
-
-       
-         if ($i == $turn_cur) {
-           $ret .= $player_cur;          
-         }
-         if ($i == $turn_nex) {
-           $ret .= $player_nex;          
-         }
-         if ($i != $turn_cur && $i != $turn_nex) {
-           $ret .= $player_oth;
-         }
-
-         $retar[$i] = $ret;
-       }
-
-
-
-
-       if ($table->turn == (PLAYERS_N * 8)) { /* game finished */
-         log_wr($sess, sprintf("GIOCO FINITO !!!"));
-
-         /* ************************************************ */
-         /*    PRIMA LA PARTE PER LO SHOW DI CHI HA VINTO    */
-         /* ************************************************ */
-         calculate_points(&$table);
-
-         $table->game_next();
-         $table->game_init(&$bri->user);
-         
-         for ($i = 0 ; $i < PLAYERS_N ; $i++) {
-           $user_cur = &$bri->user[$table->player[$i]];
-           $retar[$i] .= show_table(&$bri,&$user_cur,$user_cur->step+1,TRUE, TRUE);
-         }
-       }
-
-
-       for ($i = 0 ; $i < PLAYERS_N ; $i++) {  
-         $user_cur = &$bri->user[$table->player[$i]];
-       
-         $user_cur->comm[$user_cur->step % COMM_N] = $retar[$i];
-         $user_cur->step_inc();            
-       }
-
-       log_wr($sess, sprintf("TURN: %d",$table->turn));
-       /* Have played all the players ? */
-       /* NO:  switch the focus and enable the next player to play. */
-      
-       /* YES: calculate who win and go to the next turn. */
-      }
-    }
-    else
-      log_wr($sess, "NOSENSE");
-  }
-}
-log_wr($sess, "before save data");
-save_data($bri);
+log_wr("before save data");
+Room::save_data($room);
 
-unlock_data($sem);
+Room::unlock_data($sem);
 exit;
 ?>