BUGFIX: Karlchen and fox weren't accounted for in solos

[e-DoKo.git] / functions.php

diff --git a/functions.php b/functions.php
index a52ad7a86cca139b4660d31f34c75b9ab4230977..5adf4fa274627652b5ff01e620a02c93289a5c04 100644 (file)
--- a/functions.php
+++ b/functions.php
@@ -1,100 +1,282 @@
 <?php
 
 <?php
 

-/*
- * config 
- */
-
-$host  = "http://doko.nubati.net/database/index.php";
-$wiki  = "http://wiki.nubati.net/index.php?title=EmailDoko";
-$debug = 1;
+function config_check()
+{
+  global $EmailName,$EMAIL_REPLY,$ADMIN_NAME,$ADMIN_EMAIL,$DB_work;

 
 

-$last=-2;
+  /* check if some variables are set in the config file, else set defaults */
+  if(!isset($EmailName))
+    $EmailName="[DoKo] ";
+  if(isset($EMAIL_REPLY))
+    {
+      ini_set("sendmail_from",$EMAIL_REPLY);
+    }
+  if(!isset($ADMIN_NAME))
+    {
+      output_header();
+      echo "<h1>Setup not completed</h1>";
+      echo "You need to set \$ADMIN_NAME in config.php.";
+      output_footer();
+      exit();
+    }
+  if(!isset($ADMIN_EMAIL))
+    {
+      output_header();
+      echo "<h1>Setup not completed</h1>";
+      echo "You need to set \$ADMIN_EMAIL in config.php. ".
+       "If something goes wrong an email will be send to this address.";
+      output_footer();
+      exit();
+    }
+  if(!isset($DB_work))
+    {
+      output_header();
+      echo "<h1>Setup not completed</h1>";
+      echo "You need to set \$DB_work in config.php. ".
+       "If this is set to 1, the game will be suspended and one can work safely on the database.".
+       "The default should be 0 for the game to work.";
+      output_footer();
+      exit();
+    }
+  if($DB_work)
+    {
+      output_header();
+      echo "Working on the database...please check back later.";
+      output_footer();
+      exit();
+    }

 
 

-/*
- * end config
- */    
+  return;
+}

 
 

+function mymail($To,$Subject,$message,$header="")
+{
+  global $debug,$EMAIL_REPLY;

 
 

-/* helper function */
-function mymail($To,$Subject,$message)
-{  
-  global $debug;
+  if(isset($EMAIL_REPLY))
+    $header .= "From: e-DoKo daemon <$EMAIL_REPLY>\r\n";

 
   if($debug)
     {
 
   if($debug)
     {

-      $message = str_replace("\n","<br />",$message);
-      echo "<br />To: $To<br />Subject: $Subject <br />$message<br />\n";
+      $message = str_replace("\n","<br />\n",$message);
+      $message = ereg_replace("[[:alpha:]]+://[^<>[:space:]]+[[:alnum:]/]",
+                     "<a href=\"\\0\">\\0</a>", $message);
+
+      echo "<br />To: $To<br />";
+      if($header != "")
+       echo $header."<br />";
+      echo "Subject: $Subject <br />$message<br />\n";

     }
   else
     }
   else

-    mail($To,$Subject,$message);
+    if($header != "")
+      mail($To,$Subject,$message,$header);
+    else
+      mail($To,$Subject,$message);
+  return;
+}
+
+function myisset()
+{
+  /* returns 1 if all names passed as args are defined by a GET or POST statement,
+   * else return 0
+   */
+
+  $ok   = 1;
+  $args = func_get_args();
+
+  foreach($args as $arg)
+    {
+      $ok = $ok * isset($_REQUEST[$arg]);
+      /*echo "$arg: ok = $ok <br />";
+       */
+    }
+  return $ok;
+}
+
+function myerror($message)
+{
+  echo "<span class=\"error\">".htmlspecialchars($message)."</span>\n";
+  mymail($ADMIN_EMAIL,$EmailName." Error in Code",$message);

   return;
 }
 
   return;
 }
 

-function is_trump($c) { return (($c<27) ? 1:0);}
-function is_club($c)  { return (in_array($c,array('27','28','29','30','31','32','33','34')));}
-function is_spade($c) { return (in_array($c,array('35','36','37','38','39','40','41','42')));}
-function is_heart($c) { return (in_array($c,array('43','44','45','46','47','48')));}
+function pos_array($c,$arr)
+{
+  $ret = 0;
+
+  $i   = 0;
+  foreach($arr as $a)
+    {
+      $i++;
+      if($a == $c)
+       {
+         $ret = $i;
+         break;
+       }
+    }
+  return $ret;
+}
+
+function is_trump($c)
+{
+  global $CARDS;
+
+  if(in_array($c,$CARDS["trump"]))
+    return 1;
+  else
+    return 0;
+}
+
+function is_same_suite($c1,$c2)
+{
+  global $CARDS;
+
+  if(in_array($c1,$CARDS["trump"]   ) && in_array($c2,$CARDS["trump"]   ) ) return 1;
+  if(in_array($c1,$CARDS["clubs"]   ) && in_array($c2,$CARDS["clubs"]   ) ) return 1;
+  if(in_array($c1,$CARDS["hearts"]  ) && in_array($c2,$CARDS["hearts"]  ) ) return 1;
+  if(in_array($c1,$CARDS["spades"]  ) && in_array($c2,$CARDS["spades"]  ) ) return 1;
+  if(in_array($c1,$CARDS["diamonds"]) && in_array($c2,$CARDS["diamonds"]) ) return 1;
+
+  return 0;
+}

 
 

-function compare_cards($a,$b)
+function compare_cards($a,$b,$game)

 {
 {

-  /* if a is higher than b return 1, else 0, a being the card first played */
-  
-  /* first map all cards to the odd number */
+  /* if "a" is higher than "b" return 1, else 0, "a" being the card first played */
+
+  global $CARDS;
+  global $RULES;
+  global $GAME;
+
+  /* first map all cards to the odd number,
+   * this insure that the first card wins the trick
+   * if they are the same card
+   */

   if( $a/2 - (int)($a/2) != 0.5)
     $a--;
   if( $b/2 - (int)($b/2) != 0.5)
     $b--;
   if( $a/2 - (int)($a/2) != 0.5)
     $a--;
   if( $b/2 - (int)($b/2) != 0.5)
     $b--;

-  
-  if(is_trump($a) && $a<=$b)
+
+  /* some special cases */
+  switch($game)
+    {
+    case "normal":
+    case "silent":
+      if($RULES["schweinchen"]=="both" && $GAME["schweinchen"])
+       {
+         if($a == 19 || $a == 20 )
+           return 1;
+         if($b == 19 || $b == 20 )
+           return 0;
+       };
+      if($RULES["schweinchen"]=="second" && $GAME["schweinchen"]==3)
+       {
+         if($a == 19 || $a == 20 )
+           return 1;
+         if($b == 19 || $b == 20 )
+           return 0;
+       };
+    case "trump":
+    case "heart":
+    case "spade":
+    case "club":
+      if($RULES["dullen"]=="secondwins")
+       if($a==1 && $b==1) /* both 10 of hearts */
+         return 0;        /* second one wins.*/
+    }
+
+  /* normal case */
+  if(is_trump($a) && is_trump($b) && $a<=$b)

     return 1;
     return 1;

-  else if(is_trump($a) && $a>$b)
+  else if(is_trump($a) && is_trump($b) )

     return 0;
     return 0;

-  else 
+  else

     { /*$a is not a trump */
       if(is_trump($b))
        return 0;
       else
     { /*$a is not a trump */
       if(is_trump($b))
        return 0;
       else

-       {
+       { /* both no trump */
+

          /* both clubs? */
          /* both clubs? */

-         if( is_club($a) && is_club($b))
-           if($a<=$b)
+         $posA = pos_array($a,$CARDS["clubs"]);
+         $posB = pos_array($b,$CARDS["clubs"]);
+         if($posA && $posB)
+           if($posA <= $posB)
+             return 1;
+           else
+             return 0;
+
+         /* both spades? */
+         $posA = pos_array($a,$CARDS["spades"]);
+         $posB = pos_array($b,$CARDS["spades"]);
+         if($posA && $posB)
+           if($posA <= $posB)

              return 1;
            else
              return 0;
              return 1;
            else
              return 0;

-         /* both spade? */
-         if( is_spade($a) && is_spade($b))
-           if($a<=$b)
+
+         /* both hearts? */
+         $posA = pos_array($a,$CARDS["hearts"]);
+         $posB = pos_array($b,$CARDS["hearts"]);
+         if($posA && $posB)
+           if($posA <= $posB)

              return 1;
            else
              return 0;
              return 1;
            else
              return 0;

-         /* both heart? */
-         if( is_heart($a) && is_heart($b))
-           if($a<=$b)
+
+         /* both diamonds? */
+         $posA = pos_array($a,$CARDS["diamonds"]);
+         $posB = pos_array($b,$CARDS["diamonds"]);
+         if($posA && $posB)
+           if($posA <= $posB)

              return 1;
            else
              return 0;
              return 1;
            else
              return 0;

-      return 1;
-       }         
+
+         /* not the same suit and no trump: a wins */
+         return 1;
+       }

     }
     }

-      
-} 
+}

 
 

-function get_winner($p)
+function get_winner($p,$mode)

 {
 {

-  /* get all 4 cards played in a trick */
-  $c1 = $p[1];
-  $c2 = $p[2];
-  $c3 = $p[3];
-  $c4 = $p[4];
-
-  /* find out who won */
-  if( compare_cards($c1,$c2) && compare_cards($c1,$c3) && compare_cards($c1,$c4) )
-    return 1;
-  if( compare_cards($c2,$c3) && compare_cards($c2,$c4) )
-    return 2;
-  if( compare_cards($c3,$c4) )
-    return 3;
-  return 4;
+  /* get all 4 cards played in a trick, in the order they are played */
+  $tmp = $p[1];
+  $c1    = $tmp["card"];
+  $c1pos = $tmp["pos"];
+
+  $tmp = $p[2];
+  $c2    = $tmp["card"];
+  $c2pos = $tmp["pos"];
+
+  $tmp = $p[3];
+  $c3    = $tmp["card"];
+  $c3pos = $tmp["pos"];
+
+  $tmp = $p[4];
+  $c4    = $tmp["card"];
+  $c4pos = $tmp["pos"];
+
+  /* first card is better than all the rest */
+  if( compare_cards($c1,$c2,$mode) && compare_cards($c1,$c3,$mode) && compare_cards($c1,$c4,$mode) )
+    return $c1pos;
+
+  /* second card is better than first and better than the rest */
+  if( !compare_cards($c1,$c2,$mode) &&  compare_cards($c2,$c3,$mode) && compare_cards($c2,$c4,$mode) )
+    return $c2pos;
+
+  /* third card is better than first card and better than last */
+  if( !compare_cards($c1,$c3,$mode) &&  compare_cards($c3,$c4,$mode) )
+    /* if second card is better than first, third card needs to be even better */
+    if( !compare_cards($c1,$c2,$mode) && !compare_cards($c2,$c3,$mode) )
+      return $c3pos;
+    /* second is worse than first, e.g. not following suite */
+    else if (compare_cards($c1,$c2,$mode) )
+      return $c3pos;
+
+  /* non of the above */
+  return $c4pos;

 }
 
 function count_nines($cards)
 }
 
 function count_nines($cards)


@@ -108,14 +290,14 @@ function count_nines($cards)
       else if($c == "41" || $c == "42") $nines++;
       else if($c == "47" || $c == "48") $nines++;
     }
       else if($c == "41" || $c == "42") $nines++;
       else if($c == "47" || $c == "48") $nines++;
     }

-  
+

   return $nines;
 }
 
 function check_wedding($cards)
 {
 
   return $nines;
 }
 
 function check_wedding($cards)
 {
 

-  if( in_array("3",$cards) && in_array("2",$cards) )
+  if( in_array("3",$cards) && in_array("4",$cards) )

     return 1;
 
   return 0;
     return 1;
 
   return 0;


@@ -123,312 +305,568 @@ function check_wedding($cards)
 
 function count_trump($cards)
 {
 
 function count_trump($cards)
 {

+  global $RULES;
+

   $trump = 0;
 
   /* count each trump */
   foreach($cards as $c)
   $trump = 0;
 
   /* count each trump */
   foreach($cards as $c)

-    if( (int)($c) <27) 
+    if( (int)($c) <27)

       $trump++;
 
       $trump++;
 

-  /* subtract foxes */
-  if( in_array("19",$cards))
-    $trump--;
-  if( in_array("20",$cards) )
-    $trump--;
-  /* add one, in case the player has both foxes (schweinchen) */
-  if( in_array("19",$cards) && in_array("20",$cards) )
-    $trump++;
+  switch($RULES["schweinchen"])
+    {
+    case "none":
+      break;
+    case "second":
+    case "secondaftercall":
+      /* add one, in case the player has both foxes (schweinchen) */
+      if( in_array("19",$cards) && in_array("20",$cards) )
+       $trump++;
+    case "both":
+      /* subtract foxes */
+      if( in_array("19",$cards))
+       $trump--;
+      if( in_array("20",$cards) )
+       $trump--;
+      break;
+    }

 
   return $trump;
 }
 
 
   return $trump;
 }
 

-function card_to_name($card)
+function  create_array_of_random_numbers($useridA,$useridB,$useridC,$useridD)

 {
 {

-  switch($card)
+  global $debug;
+
+  $r = array();
+
+  if($debug)

     {
     {

-      case 1:
-      case 2:
-        return "ten of hearts";
-      case 3:
-      case 4:
-      return "queen of clubs";
-      case 5:
-      case 6:
-      return "queen of spades";
-      case 7:
-      case 8:
-      return "queen of hearts";
-      case 9:
-      case 10:
-      return "queen of diamonds";
-      case 11:
-      case 12:
-      return "jack of clubs";
-      case 13:
-      case 14:
-      return "jack of spades";
-      case 15:
-      case 16:
-      return "jack of hearts";
-      case 17:
-      case 18:
-      return "jack of diamonds";
-      case 19:
-      case 20:
-      return "ace of diamonds";
-      case 21:
-      case 22:
-      return "ten of diamonds";
-      case 23:
-      case 24:
-      return "king of diamonds";
-      case 25:
-      case 26:
-      return "nine of diamonds";;
-      case 27:
-      case 28:
-      return "ace of clubs";
-      case 29:
-      case 30:
-      return "ten of clubs";
-      case 31:
-      case 32:
-      return "king of clubs";
-      case 33:
-      case 34:
-      return "nine of clubs";
-      case 35:
-      case 36:
-      return "ace of spades";
-      case 37:
-      case 38:
-      return "ten of spades";
-      case 39:
-      case 40:
-      return "king of spades";
-      case 41:
-      case 42:
-      return "nine of spades";
-      case 43:
-      case 44:
-      return "ace of hearts";
-      case 45:
-      case 46:
-      return "king of hearts";
-      case 47:
-      case 48:
-      return "nine of hearts";
-      default:
-      return "something went wrong, please contact the admin. Error: code1.";
+      $r[ 0]=1;     $r[12]=47;   $r[24]=13;       $r[36]=37;
+      $r[ 1]=2;     $r[13]=48;   $r[25]=14;      $r[37]=38;
+      $r[ 2]=3;     $r[14]=27;   $r[26]=15;      $r[38]=39;
+      $r[ 3]=4;     $r[15]=16;   $r[27]=28;      $r[39]=40;
+      $r[ 4]=5;     $r[16]=17;   $r[28]=29;      $r[40]=41;
+      $r[ 5]=18;    $r[1