* FIX: added extra check for calling 120, etc. so that people can't cheat
[e-DoKo.git] / functions.php
index a6ee160ec805c5598ad038fabb6da27c48bfdb6c..997ba43e154af02582aa59ff981015d2e85628fa 100644 (file)
@@ -1,16 +1,26 @@
 <?php
 
-function mymail($To,$Subject,$message)
+function mymail($To,$Subject,$message,$header="")
 {  
   global $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);
+      //$message = ereg_replace("(http.*)[ <>]","<a href=\"\\1\">\\1 </a>",$message);
+      
+      echo "<br />To: $To<br />";
+      if($header != "") 
+       echo $header."<br />";
+      echo "Subject: $Subject <br />$message<br />\n";
     }
   else
-    mail($To,$Subject,$message);
+    if($header != "")
+      mail($To,$Subject,$message,$header);
+    else
+      mail($To,$Subject,$message);
   return;
 }
 
@@ -26,8 +36,8 @@ function myisset()
   foreach($args as $arg)
     {
       $ok = $ok * isset($_REQUEST[$arg]);
-      /* echo "$arg: ok = $ok <br />";
-       */
+      /*echo "$arg: ok = $ok <br />";
+       */ 
     }
   return $ok;
 }
@@ -49,69 +59,37 @@ function pos_array($c,$arr)
   return $ret;
 }
 
-function is_trump($c,$game
+function is_trump($c) 
 { 
-  switch($game)
-    {
-    case "queen":
-      if(in_array($c,array('3','4','5','6','7','8','9','10')))
-       return 1;
-      else 
-       return 0;
-      break;
-    case "normal":
-      return (($c<27) ? 1:0);
-      break;
-    }
+  global $CARDS;
+
+  if(in_array($c,$CARDS["trump"]))
+    return 1;
+  else 
+    return 0;
 }
 
-function is_same_suite($c1,$c2,$game
+function is_same_suite($c1,$c2) 
 {
-  switch($game)
-    {
-    case "queen":
-      /* clubs */
-      if(in_array($c1,array('11','12','27','28','29','30','31','32','33','34')) &&
-        in_array($c2,array('11','12','27','28','29','30','31','32','33','34')) )
-       return 1;
-      /* spade */
-      if(in_array($c1,array('13','14','35','36','37','38','39','40','41','42')) &&
-        in_array($c2,array('13','14','35','36','37','38','39','40','41','42')) )
-       return 1;
-      /* heart */
-      if(in_array($c1,array( '1', '2','15','16','43','44','45','46','47','48')) &&
-        in_array($c2,array( '1', '2','15','16','43','44','45','46','47','48')) )
-       return 1;
-      /* diamonds */
-      if(in_array($c1,array('17','18','19','20','21','22','23','24','25','26')) &&
-        in_array($c2,array('17','18','19','20','21','22','23','24','25','26')) )
-       return 1;
-      
-      return 0;
-      break;
-    case "normal":
-      /* clubs */
-      if(in_array($c1,array('27','28','29','30','31','32','33','34')) &&
-        in_array($c2,array('27','28','29','30','31','32','33','34')) )
-       return 1;
-      /* spade */
-      if(in_array($c1,array('35','36','37','38','39','40','41','42')) &&
-        in_array($c2,array('35','36','37','38','39','40','41','42')) )
-       return 1;
-      /* heart */
-      if(in_array($c1,array('43','44','45','46','47','48')) &&
-        in_array($c2,array('43','44','45','46','47','48')) )
-       return 1;
-      
-      return 0;
-      break;
-    }
+  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,$game)
 {
   /* 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
@@ -120,112 +98,127 @@ function compare_cards($a,$b,$game)
     $a--;
   if( $b/2 - (int)($b/2) != 0.5)
     $b--;
-  
+
+  /* some special cases */
   switch($game)
     {
-    case "trumpless":
-      break;
-    case "jack":
-      break;
-    case "queen":
-      if(is_trump($a,$game) && is_trump($b,$game) && $a<=$b)
-       return 1;
-      else if(is_trump($a,$game) && is_trump($b,$game) )
-       return 0;
-      else 
-       { /*$a is not a trump */
-         if(is_trump($b,$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;
-         else
-           { /* both no trump */
-             /* both clubs? */
-             $posA = pos_array($a,array('27','28','29','30','31','32','11','12','33','34'));
-             $posB = pos_array($b,array('27','28','29','30','31','32','11','12','33','34'));
-             if($posA && $posB)
-               if($posA <= $posB)
-                 return 1;
-               else
-                 return 0;
-             /* both spades? */
-             $posA = pos_array($a,array('35','36','37','38','39','40','13','14','41','42'));
-             $posB = pos_array($b,array('35','36','37','38','39','40','13','14','41','42'));
-             if($posA && $posB)
-               if($posA <= $posB)
-                 return 1;
-               else
-                 return 0;
-             /* both hearts? */
-             $posA = pos_array($a,array('43','44','15','16','45','46', '1', '2','47','48'));
-             $posB = pos_array($b,array('43','44','15','16','45','46', '1', '2','47','48'));
-             if($posA && $posB)
-               if($posA <= $posB)
-                 return 1;
-               else
-                 return 0;
-             /* both diamonds? */
-             $posA = pos_array($a,array('19','20','21','22','23','24','17','18','25','26'));
-             $posB = pos_array($b,array('19','20','21','22','23','24','17','18','25','26'));
-             if($posA && $posB)
-               if($posA <= $posB)
-                 return 1;
-               else
-                 return 0;
-
-             /* not the same suit and no trump: a wins */
-             return 1;
-           }     
-       }
-      break;
+       };
+      if($RULES["schweinchen"]=="second" && $GAME["schweinchen"]==3)
+       {
+         if($a == 19 || $a == 20 )
+           return 1;
+         if($b == 19 || $b == 20 )
+           return 0;
+       };
     case "trump":
-      break;
-    case "club":
-      break;
-    case "spade":
-      break;
     case "heart":
-      break;
-    case "normal":
-      if($a==1 && $b==1) /* both 10 of hearts */
-       return 0;        /* second one wins. TODO should be able to set this at the start of a new game */
-      if(is_trump($a,$game) && $a<=$b)
-       return 1;
-      else if(is_trump($a,$game))
+    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;
+  else if(is_trump($a) && is_trump($b) )
+    return 0;
+  else 
+    { /*$a is not a trump */
+      if(is_trump($b))
        return 0;
-      else 
-       { /*$a is not a trump */
-         if(is_trump($b,$game))
-           return 0;
-         else
-           {
-             if(is_same_suite($a,$b,$game))
-               if($a<=$b)
-                 return 1;
-               else
-                 return 0;
-             
-             /* not the same suit and no trump: a wins */
+      else
+       { /* both no trump */
+
+         /* both clubs? */
+         $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;
+
+         /* 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;
+
+         /* 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;
+         
+         /* not the same suit and no trump: a wins */
+         return 1;
+       }         
     }
 } 
 
 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];
+  /* get all 4 cards played in a trick, in the order they are played */
+  $tmp = $p[1];
+  $c1    = $tmp["card"];
+  $c1pos = $tmp["pos"]; 
 
-  /* find out who won */
+  $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 1;
-  if( !compare_cards($c1,$c2,$mode) && compare_cards($c2,$c3,$mode) && compare_cards($c2,$c4,$mode) )
-    return 2;
-  if( !compare_cards($c1,$c3,$mode) && !compare_cards($c2,$c3,$mode) && compare_cards($c3,$c4,$mode) )
-    return 3;
-  return 4;
+    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)
@@ -246,7 +239,7 @@ function count_nines($cards)
 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;
@@ -254,6 +247,8 @@ function check_wedding($cards)
 
 function count_trump($cards)
 {
+  global $RULES;
+
   $trump = 0;
 
   /* count each trump */
@@ -261,14 +256,23 @@ function count_trump($cards)
     if( (int)($c) <27) 
       $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;
 }
@@ -350,7 +354,7 @@ function card_to_name($card)
       case 48:
       return "nine of hearts";
       default:
-      return "something went wrong, please contact the admin. Error: code1.";
+      return "something went wrong, please contact the admin. Error: code1. $card <br />";
     }
 }
 
@@ -358,9 +362,6 @@ function card_value($card)
 {
   switch($card)
     {
-    case 1:      /* heart */
-    case 2:
-      return 10;
     case 3:     /* clubes */    
     case 4:                     
     case 5:     /* spades */    
@@ -388,6 +389,8 @@ function card_value($card)
     case 43:    /* hearts */   
     case 44:                   
       return 11;
+    case 1:      /* heart */
+    case 2:
     case 21:    /* diamonds */    
     case 22:
     case 29:    /* clubs */
@@ -414,7 +417,7 @@ function card_value($card)
     case 48:                  
       return 0;
     default:
-      echo "something went wrong, please contact the admin. ErrorCode: 2<br>";
+      echo "something went wrong, please contact the admin. ErrorCode: 2 - $card<br>";
       return 0;
     }
 }
@@ -422,14 +425,33 @@ function card_value($card)
 
 function  create_array_of_random_numbers()
 {
+  global $debug;
+
   $r = array();
-  $a = array();
-  
-  for($i=1;$i<49;$i++)
-    $a[$i]=$i;
   
-  $r = array_rand($a,48);
-   
+  if($debug)
+    {
+      $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[17]=6;    $r[29]=30;      $r[41]=42;
+      $r[ 6]=19;    $r[18]=7;    $r[30]=31;      $r[42]=43;
+      $r[ 7]=20;    $r[19]=8;    $r[31]=32;      $r[43]=44;
+      $r[ 8]=45;    $r[20]=9;    $r[32]=21;      $r[44]=33;
+      $r[ 9]=46;    $r[21]=10;   $r[33]=22;      $r[45]=34;
+      $r[10]=35;    $r[22]=11;   $r[34]=23;      $r[46]=25;
+      $r[11]=36;    $r[23]=12;   $r[35]=24;      $r[47]=26;
+    }
+  else
+    {
+      for($i=0;$i<48;$i++)
+       $r[$i]=$i+1;
+      
+      shuffle($r);
+    };
+
   return $r;
 }
 
@@ -461,4 +483,214 @@ function return_timezone($offset)
   return $zone;
 }
 
-?>
\ No newline at end of file
+function have_suit($cards,$c)
+{
+  global $CARDS;
+  $suite = array();
+
+  if(in_array($c,$CARDS["trump"]))
+    $suite = $CARDS["trump"];
+  else if(in_array($c,$CARDS["clubs"]))
+    $suite = $CARDS["clubs"];
+  else if(in_array($c,$CARDS["spades"]))
+    $suite = $CARDS["spades"];
+  else if(in_array($c,$CARDS["hearts"]))
+    $suite = $CARDS["hearts"];
+  else if(in_array($c,$CARDS["diamonds"]))
+    $suite = $CARDS["diamonds"];
+
+  foreach($cards as $card)
+    {
+      if(in_array($card,$suite))
+       return 1;
+    }
+
+  return 0;
+}
+
+function same_type($card,$c)
+{
+  global $CARDS;
+  $suite = "";
+
+  /* figure out what kind of card c is */
+  if(in_array($c,$CARDS["trump"]))
+    $suite = $CARDS["trump"];
+  else if(in_array($c,$CARDS["clubs"]))
+    $suite = $CARDS["clubs"];
+  else if(in_array($c,$CARDS["spades"]))
+    $suite = $CARDS["spades"];
+  else if(in_array($c,$CARDS["hearts"]))
+    $suite = $CARDS["hearts"];
+  else if(in_array($c,$CARDS["diamonds"]))
+    $suite = $CARDS["diamonds"];
+
+  /* card is the same suid return 1 */ 
+  if(in_array($card,$suite))
+    return 1;
+  
+  return 0;
+}
+
+function set_gametype($gametype)
+{
+  global $CARDS;
+  global $RULES;
+
+  switch($gametype)
+    {
+    case "normal":
+    case "wedding":
+    case "poverty":
+    case "dpoverty":
+    case "trump":
+    case "silent":
+      $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                                '17','18','19','20','21','22','23','24','25','26');
+      $CARDS["diamonds"] = array();
+      $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
+      $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
+      $CARDS["hearts"]   = array('43','44','45','46','47','48');
+      $CARDS["foxes"]    = array('19','20');
+      if($RULES["dullen"]=='none')
+       {
+         $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                                    '17','18','19','20','21','22','23','24','25','26');
+         $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
+       }
+      break;
+    case "queen":
+      $CARDS["trump"]    = array('3','4','5','6','7','8','9','10');
+      $CARDS["clubs"]    = array('27','28','29','30','31','32','11','12','33','34');
+      $CARDS["spades"]   = array('35','36','37','38','39','40','13','14','41','42');
+      $CARDS["hearts"]   = array('43','44', '1', '2','45','46','15','16','47','48');
+      $CARDS["diamonds"] = array('19','20','21','22','23','24','17','18','25','26');
+      $CARDS["foxes"]    = array();
+      break;
+    case "jack":
+      $CARDS["trump"]    = array('11','12','13','14','15','16','17','18');
+      $CARDS["clubs"]    = array('27','28','29','30','31','32','3', '4','33','34');
+      $CARDS["spades"]   = array('35','36','37','38','39','40','5', '6','41','42');
+      $CARDS["hearts"]   = array('43','44', '1', '2','45','46','7', '8','47','48');
+      $CARDS["diamonds"] = array('19','20','21','22','23','24','9','10','25','26');
+      $CARDS["foxes"]    = array();
+      break;
+    case "trumpless":
+      $CARDS["trump"]    = array();
+      $CARDS["clubs"]    = array('27','28','29','30','31','32','3', '4','11','12','33','34');
+      $CARDS["spades"]   = array('35','36','37','38','39','40','5', '6','13','14','41','42');
+      $CARDS["hearts"]   = array('43','44', '1', '2','45','46','7', '8','15','16','47','48');
+      $CARDS["diamonds"] = array('19','20','21','22','23','24','9','10','17','18','25','26');
+      $CARDS["foxes"]    = array();
+      break;
+    case "club":
+      $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                                '17','18','27','28','29','30','31','32','33','34');
+      $CARDS["clubs"]    = array();
+      $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
+      $CARDS["hearts"]   = array('43','44','45','46','47','48');
+      $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
+      $CARDS["foxes"]    = array();
+      if($RULES["dullen"]=='none')
+       {
+         $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                                    '17','18','27','28','29','30','31','32','33','34');
+         $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
+       }
+      break;
+    case "spade":
+      $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                                '17','18','35','36','37','38','39','40','41','42');
+      $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
+      $CARDS["spades"]   = array();
+      $CARDS["hearts"]   = array('43','44','45','46','47','48');
+      $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
+      $CARDS["foxes"]    = array();
+      if($RULES["dullen"]=='none')
+       {
+         $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                                    '17','18','35','36','37','38','39','40','41','42');
+         $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
+       }
+      break;
+    case "heart":
+      $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                                '17','18','43','44','45','46','47','48');
+      $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
+      $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
+      $CARDS["hearts"]   = array();
+      $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
+      $CARDS["foxes"]    = array();
+      if($RULES["dullen"]=='none')
+       {
+         $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16', 
+                           '17','18','43','44','1','2','45','46','47','48');
+       }
+      break;
+    }
+}
+
+function mysort($cards,$gametype)
+{
+  usort ( $cards, "sort_comp" );
+  return $cards;
+}
+
+function sort_comp($a,$b)
+{
+  global $CARDS;
+
+  $ALL = array();
+  $ALL = array_merge($CARDS["trump"],$CARDS["diamonds"],$CARDS["clubs"],
+                    $CARDS["hearts"],$CARDS["spades"],$CARDS["diamonds"]);
+
+  return pos_array($a,$ALL)-pos_array($b,$ALL);
+}
+
+function can_call($what,$hash)
+{
+  global $RULES;
+
+  /*TODO: check if this already has been call by teammate */
+  
+  $gameid   = DB_get_gameid_by_hash($hash);
+  $gametype = DB_get_gametype_by_gameid($gameid);
+
+  $NRcards  = count(DB_get_hand($hash));
+  
+  $NRallcards = 0;
+  for ($i=1;$i<5;$i++)
+    {
+      $user         = DB_get_hash_from_game_and_pos($gameid,$i);
+      $NRallcards  += count(DB_get_hand($user));
+    };
+  
+  /* in case of a wedding, everything will be delayed by an offset */
+  $offset = 0;
+  if($gametype=="wedding")
+    {
+      $offset = DB_get_sickness_by_gameid($gameid); 
+      if ($offset <0) /* not resolved */
+       return 0;
+    };
+
+  switch ($RULES["call"])
+    {
+    case "1st-own-card":
+      if( 4-($what/30) >= 12 - $NRcards + $offset)
+       return 1;
+      break;
+    case "5th-card":
+      if( 27+4*($what/30) <= $NRallcards + $offset*4)
+       return 1;
+      break;
+    case "9-cards":
+      if( ($what/10) <= $NRcards + $offset)
+       return 1;
+      break;
+    }
+
+  return 0;
+}
+
+?>