functions.php

   1 <?php
   2
   3 function mymail($To,$Subject,$message)
   4 {
   5   global $debug;
   6
   7   if($debug)
   8     {
   9       $message = str_replace("\n","<br />",$message);
  10       echo "<br />To: $To<br />Subject: $Subject <br />$message<br />\n";
  11     }
  12   else
  13     mail($To,$Subject,$message);
  14   return;
  15 }
  16
  17 function myisset()
  18 {
  19   /* returns 1 if all names passed as args are defined by a GET or POST statement,
  20    * else return 0
  21    */
  22
  23   $ok   = 1;
  24   $args = func_get_args();
  25
  26   foreach($args as $arg)
  27     {
  28       $ok = $ok * isset($_REQUEST[$arg]);
  29       /*echo "$arg: ok = $ok <br />";
  30        */
  31     }
  32   return $ok;
  33 }
  34
  35 function pos_array($c,$arr)
  36 {
  37   $ret = 0;
  38
  39   $i   = 0;
  40   foreach($arr as $a)
  41     {
  42       $i++;
  43       if($a == $c)
  44         {
  45           $ret = $i;
  46           break;
  47         }
  48     }
  49   return $ret;
  50 }
  51
  52 function is_trump($c)
  53 {
  54   global $CARDS;
  55
  56   if(in_array($c,$CARDS["trump"]))
  57     return 1;
  58   else
  59     return 0;
  60 }
  61
  62 function is_same_suite($c1,$c2)
  63 {
  64   global $CARDS;
  65
  66   if(in_array($c1,$CARDS["trump"]   ) && in_array($c2,$CARDS["trump"]   ) ) return 1;
  67   if(in_array($c1,$CARDS["clubs"]   ) && in_array($c2,$CARDS["clubs"]   ) ) return 1;
  68   if(in_array($c1,$CARDS["hearts"]  ) && in_array($c2,$CARDS["hearts"]  ) ) return 1;
  69   if(in_array($c1,$CARDS["spades"]  ) && in_array($c2,$CARDS["spades"]  ) ) return 1;
  70   if(in_array($c1,$CARDS["diamonds"]) && in_array($c2,$CARDS["diamonds"]) ) return 1;
  71
  72   return 0;
  73 }
  74
  75 function compare_cards($a,$b,$game)
  76 {
  77   /* if "a" is higher than "b" return 1, else 0, "a" being the card first played */
  78
  79   global $CARDS;
  80   global $RULES;
  81   global $GAME;
  82
  83   /* first map all cards to the odd number,
  84    * this insure that the first card wins the trick
  85    * if they are the same card
  86    */
  87   if( $a/2 - (int)($a/2) != 0.5)
  88     $a--;
  89   if( $b/2 - (int)($b/2) != 0.5)
  90     $b--;
  91
  92   /* some special cases */
  93   switch($game)
  94     {
  95     case "normal":
  96     case "silent":
  97       if($RULES["schweinchen"]=="both" && $GAME["schweinchen"])
  98         {
  99           if($a == 19 || $a == 20 )
 100             return 1;
 101           if($b == 19 || $b == 20 )
 102             return 0;
 103         };
 104       if($RULES["schweinchen"]=="second" && $GAME["schweinchen"]==3)
 105         {
 106           if($a == 19 || $a == 20 )
 107             return 1;
 108           if($b == 19 || $b == 20 )
 109             return 0;
 110         };
 111     case "trump":
 112     case "heart":
 113     case "spade":
 114     case "club":
 115       if($RULES["dullen"]=="secondwins")
 116         if($a==1 && $b==1) /* both 10 of hearts */
 117           return 0;        /* second one wins.*/
 118     }
 119
 120   /* normal case */
 121   if(is_trump($a) && is_trump($b) && $a<=$b)
 122     return 1;
 123   else if(is_trump($a) && is_trump($b) )
 124     return 0;
 125   else
 126     { /*$a is not a trump */
 127       if(is_trump($b))
 128         return 0;
 129       else
 130         { /* both no trump */
 131
 132           /* both clubs? */
 133           $posA = pos_array($a,$CARDS["clubs"]);
 134           $posB = pos_array($b,$CARDS["clubs"]);
 135           if($posA && $posB)
 136             if($posA <= $posB)
 137               return 1;
 138             else
 139               return 0;
 140
 141           /* both spades? */
 142           $posA = pos_array($a,$CARDS["spades"]);
 143           $posB = pos_array($b,$CARDS["spades"]);
 144           if($posA && $posB)
 145             if($posA <= $posB)
 146               return 1;
 147             else
 148               return 0;
 149
 150           /* both hearts? */
 151           $posA = pos_array($a,$CARDS["hearts"]);
 152           $posB = pos_array($b,$CARDS["hearts"]);
 153           if($posA && $posB)
 154             if($posA <= $posB)
 155               return 1;
 156             else
 157               return 0;
 158
 159           /* both diamonds? */
 160           $posA = pos_array($a,$CARDS["diamonds"]);
 161           $posB = pos_array($b,$CARDS["diamonds"]);
 162           if($posA && $posB)
 163             if($posA <= $posB)
 164               return 1;
 165             else
 166               return 0;
 167
 168           /* not the same suit and no trump: a wins */
 169           return 1;
 170         }
 171     }
 172 }
 173
 174 function get_winner($p,$mode)
 175 {
 176   /* get all 4 cards played in a trick, in the order they are played */
 177   $tmp = $p[1];
 178   $c1    = $tmp["card"];
 179   $c1pos = $tmp["pos"];
 180
 181   $tmp = $p[2];
 182   $c2    = $tmp["card"];
 183   $c2pos = $tmp["pos"];
 184
 185   $tmp = $p[3];
 186   $c3    = $tmp["card"];
 187   $c3pos = $tmp["pos"];
 188
 189   $tmp = $p[4];
 190   $c4    = $tmp["card"];
 191   $c4pos = $tmp["pos"];
 192
 193   /* first card is better than all the rest */
 194   if( compare_cards($c1,$c2,$mode) && compare_cards($c1,$c3,$mode) && compare_cards($c1,$c4,$mode) )
 195     return $c1pos;
 196
 197   /* second card is better than first and better than the rest */
 198   if( !compare_cards($c1,$c2,$mode) &&  compare_cards($c2,$c3,$mode) && compare_cards($c2,$c4,$mode) )
 199     return $c2pos;
 200
 201   /* third card is better than first card and better than last */
 202   if( !compare_cards($c1,$c3,$mode) &&  compare_cards($c3,$c4,$mode) )
 203     /* if second card is better than first, third card needs to be even better */
 204     if( !compare_cards($c1,$c2,$mode) && !compare_cards($c2,$c3,$mode) )
 205       return $c3pos;
 206     /* second is worse than first, e.g. not following suite */
 207     else if (compare_cards($c1,$c2,$mode) )
 208       return $c3pos;
 209
 210   /* non of the above */
 211   return $c4pos;
 212 }
 213
 214 function count_nines($cards)
 215 {
 216   $nines = 0;
 217
 218   foreach($cards as $c)
 219     {
 220       if($c == "25" || $c == "26") $nines++;
 221       else if($c == "33" || $c == "34") $nines++;
 222       else if($c == "41" || $c == "42") $nines++;
 223       else if($c == "47" || $c == "48") $nines++;
 224     }
 225
 226   return $nines;
 227 }
 228
 229 function check_wedding($cards)
 230 {
 231
 232   if( in_array("3",$cards) && in_array("4",$cards) )
 233     return 1;
 234
 235   return 0;
 236 }
 237
 238 function count_trump($cards)
 239 {
 240   global $RULES;
 241
 242   $trump = 0;
 243
 244   /* count each trump */
 245   foreach($cards as $c)
 246     if( (int)($c) <27)
 247       $trump++;
 248
 249   switch($RULES["schweinchen"])
 250     {
 251     case "none":
 252       break;
 253     case "second":
 254     case "secondaftercall":
 255       /* add one, in case the player has both foxes (schweinchen) */
 256       if( in_array("19",$cards) && in_array("20",$cards) )
 257         $trump++;
 258     case "both":
 259       /* subtract foxes */
 260       if( in_array("19",$cards))
 261         $trump--;
 262       if( in_array("20",$cards) )
 263         $trump--;
 264       break;
 265     }
 266
 267   return $trump;
 268 }
 269
 270 function card_to_name($card)
 271 {
 272   switch($card)
 273     {
 274       case 1:
 275       case 2:
 276         return "ten of hearts";
 277       case 3:
 278       case 4:
 279       return "queen of clubs";
 280       case 5:
 281       case 6:
 282       return "queen of spades";
 283       case 7:
 284       case 8:
 285       return "queen of hearts";
 286       case 9:
 287       case 10:
 288       return "queen of diamonds";
 289       case 11:
 290       case 12:
 291       return "jack of clubs";
 292       case 13:
 293       case 14:
 294       return "jack of spades";
 295       case 15:
 296       case 16:
 297       return "jack of hearts";
 298       case 17:
 299       case 18:
 300       return "jack of diamonds";
 301       case 19:
 302       case 20:
 303       return "ace of diamonds";
 304       case 21:
 305       case 22:
 306       return "ten of diamonds";
 307       case 23:
 308       case 24:
 309       return "king of diamonds";
 310       case 25:
 311       case 26:
 312       return "nine of diamonds";;
 313       case 27:
 314       case 28:
 315       return "ace of clubs";
 316       case 29:
 317       case 30:
 318       return "ten of clubs";
 319       case 31:
 320       case 32:
 321       return "king of clubs";
 322       case 33:
 323       case 34:
 324       return "nine of clubs";
 325       case 35:
 326       case 36:
 327       return "ace of spades";
 328       case 37:
 329       case 38:
 330       return "ten of spades";
 331       case 39:
 332       case 40:
 333       return "king of spades";
 334       case 41:
 335       case 42:
 336       return "nine of spades";
 337       case 43:
 338       case 44:
 339       return "ace of hearts";
 340       case 45:
 341       case 46:
 342       return "king of hearts";
 343       case 47:
 344       case 48:
 345       return "nine of hearts";
 346       default:
 347       return "something went wrong, please contact the admin. Error: code1. $card <br />";
 348     }
 349 }
 350
 351 function card_value($card)
 352 {
 353   switch($card)
 354     {
 355     case 3:     /* clubes */
 356     case 4:
 357     case 5:     /* spades */
 358     case 6:
 359     case 7:     /* hearts */
 360     case 8:
 361     case 9:     /* diamonds */
 362     case 10:
 363       return 3;
 364     case 11:    /* clubes */
 365     case 12:
 366     case 13:    /* spades */
 367     case 14:
 368     case 15:    /* hearts */
 369     case 16:
 370     case 17:    /* diamonds */
 371     case 18:
 372       return 2;
 373     case 19:    /* diamonds */
 374     case 20:
 375     case 27:    /* clubs */
 376     case 28:
 377     case 35:    /* spades */
 378     case 36:
 379     case 43:    /* hearts */
 380     case 44:
 381       return 11;
 382     case 1:      /* heart */
 383     case 2:
 384     case 21:    /* diamonds */
 385     case 22:
 386     case 29:    /* clubs */
 387     case 30:
 388     case 37:    /* spades */
 389     case 38:
 390       return 10;
 391     case 23:    /* diamonds */
 392     case 24:
 393     case 31:    /* clubs */
 394     case 32:
 395     case 39:    /* spades */
 396     case 40:
 397     case 45:    /* hearts */
 398     case 46:
 399       return 4;
 400     case 25:    /* diamonds */
 401     case 26:
 402     case 33:    /* clubs */
 403     case 34:
 404     case 41:    /* spades */
 405     case 42:
 406     case 47:    /* hearts */
 407     case 48:
 408       return 0;
 409     default:
 410       echo "something went wrong, please contact the admin. ErrorCode: 2 - $card<br>";
 411       return 0;
 412     }
 413 }
 414
 415
 416 function  create_array_of_random_numbers()
 417 {
 418   global $debug;
 419
 420   $r = array();
 421   $a = array();
 422
 423   if($debug)
 424     {
 425       $a[ 0]=1;     $a[12]=47;   $a[24]=13;       $a[36]=37;
 426       $a[ 1]=2;     $a[13]=48;   $a[25]=14;       $a[37]=38;
 427       $a[ 2]=3;     $a[14]=27;   $a[26]=15;       $a[38]=39;
 428       $a[ 3]=4;     $a[15]=16;   $a[27]=28;       $a[39]=40;
 429       $a[ 4]=5;     $a[16]=17;   $a[28]=29;       $a[40]=41;
 430       $a[ 5]=6;     $a[17]=18;   $a[29]=30;       $a[41]=42;
 431       $a[ 6]=7;     $a[18]=19;   $a[30]=31;       $a[42]=43;
 432       $a[ 7]=8;     $a[19]=20;   $a[31]=32;       $a[43]=44;
 433       $a[ 8]=9;     $a[20]=45;   $a[32]=21;       $a[44]=33;
 434       $a[ 9]=10;    $a[21]=46;   $a[33]=22;       $a[45]=34;
 435       $a[10]=11;    $a[22]=35;   $a[34]=23;       $a[46]=25;
 436       $a[11]=12;    $a[23]=36;   $a[35]=24;       $a[47]=26;
 437
 438       $r = $a;
 439     }
 440   else
 441     {
 442       for($i=0;$i<48;$i++)
 443         $a[$i]=$i+1;
 444
 445       $r = array_rand($a,48);
 446     };
 447
 448   return $r;
 449 }
 450
 451
 452
 453
 454 function display_cards($me,$myturn)
 455 {
 456   return;
 457 }
 458
 459 function return_timezone($offset)
 460 {
 461   switch($offset)
 462     {
 463     case '1':
 464       $zone = "Europe/Berlin";
 465       break;
 466     case '-8':
 467       $zone = "America/Vancouver";
 468       break;
 469     case '13':
 470       $zone = "Pacific/Auckland";
 471       break;
 472     default:
 473       $zone = "Europe/London";
 474     }
 475
 476   return $zone;
 477 }
 478
 479 function have_suit($cards,$c)
 480 {
 481   global $CARDS;
 482   $suite = array();
 483
 484   if(in_array($c,$CARDS["trump"]))
 485     $suite = $CARDS["trump"];
 486   else if(in_array($c,$CARDS["clubs"]))
 487     $suite = $CARDS["clubs"];
 488   else if(in_array($c,$CARDS["spades"]))
 489     $suite = $CARDS["spades"];
 490   else if(in_array($c,$CARDS["hearts"]))
 491     $suite = $CARDS["hearts"];
 492   else if(in_array($c,$CARDS["diamonds"]))
 493     $suite = $CARDS["diamonds"];
 494
 495   foreach($cards as $card)
 496     {
 497       if(in_array($card,$suite))
 498         return 1;
 499     }
 500
 501   return 0;
 502 }
 503
 504 function same_type($card,$c)
 505 {
 506   global $CARDS;
 507   $suite = "";
 508
 509   /* figure out what kind of card c is */
 510   if(in_array($c,$CARDS["trump"]))
 511     $suite = $CARDS["trump"];
 512   else if(in_array($c,$CARDS["clubs"]))
 513     $suite = $CARDS["clubs"];
 514   else if(in_array($c,$CARDS["spades"]))
 515     $suite = $CARDS["spades"];
 516   else if(in_array($c,$CARDS["hearts"]))
 517     $suite = $CARDS["hearts"];
 518   else if(in_array($c,$CARDS["diamonds"]))
 519     $suite = $CARDS["diamonds"];
 520
 521   /* card is the same suid return 1 */
 522   if(in_array($card,$suite))
 523     return 1;
 524
 525   return 0;
 526 }
 527
 528 function set_gametype($gametype)
 529 {
 530   global $CARDS;
 531   global $RULES;
 532
 533   switch($gametype)
 534     {
 535     case "normal":
 536     case "wedding":
 537     case "poverty":
 538     case "dpoverty":
 539     case "trump":
 540     case "silent":
 541       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 542                                  '17','18','19','20','21','22','23','24','25','26');
 543       $CARDS["diamonds"] = array();
 544       $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
 545       $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
 546       $CARDS["hearts"]   = array('43','44','45','46','47','48');
 547       $CARDS["foxes"]    = array('19','20');
 548       if($RULES["dullen"]=='none')
 549         {
 550           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 551                                      '17','18','19','20','21','22','23','24','25','26');
 552           $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
 553         }
 554       break;
 555     case "queen":
 556       $CARDS["trump"]    = array('3','4','5','6','7','8','9','10');
 557       $CARDS["clubs"]    = array('27','28','29','30','31','32','11','12','33','34');
 558       $CARDS["spades"]   = array('35','36','37','38','39','40','13','14','41','42');
 559       $CARDS["hearts"]   = array('43','44', '1', '2','45','46','15','16','47','48');
 560       $CARDS["diamonds"] = array('19','20','21','22','23','24','17','18','25','26');
 561       $CARDS["foxes"]    = array();
 562       break;
 563     case "jack":
 564       $CARDS["trump"]    = array('11','12','13','14','15','16','17','18');
 565       $CARDS["clubs"]    = array('27','28','29','30','31','32','3', '4','33','34');
 566       $CARDS["spades"]   = array('35','36','37','38','39','40','5', '6','41','42');
 567       $CARDS["hearts"]   = array('43','44', '1', '2','45','46','7', '8','47','48');
 568       $CARDS["diamonds"] = array('19','20','21','22','23','24','9','10','25','26');
 569       $CARDS["foxes"]    = array();
 570       break;
 571     case "trumpless":
 572       $CARDS["trump"]    = array();
 573       $CARDS["clubs"]    = array('27','28','29','30','31','32','3', '4','11','12','33','34');
 574       $CARDS["spades"]   = array('35','36','37','38','39','40','5', '6','13','14','41','42');
 575       $CARDS["hearts"]   = array('43','44', '1', '2','45','46','7', '8','15','16','47','48');
 576       $CARDS["diamonds"] = array('19','20','21','22','23','24','9','10','17','18','25','26');
 577       $CARDS["foxes"]    = array();
 578       break;
 579     case "club":
 580       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 581                                  '17','18','27','28','29','30','31','32','33','34');
 582       $CARDS["clubs"]    = array();
 583       $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
 584       $CARDS["hearts"]   = array('43','44','45','46','47','48');
 585       $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
 586       $CARDS["foxes"]    = array();
 587       if($RULES["dullen"]=='none')
 588         {
 589           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 590                                      '17','18','27','28','29','30','31','32','33','34');
 591           $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
 592         }
 593       break;
 594     case "spade":
 595       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 596                                  '17','18','35','36','37','38','39','40','41','42');
 597       $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
 598       $CARDS["spades"]   = array();
 599       $CARDS["hearts"]   = array('43','44','45','46','47','48');
 600       $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
 601       $CARDS["foxes"]    = array();
 602       if($RULES["dullen"]=='none')
 603         {
 604           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 605                                      '17','18','35','36','37','38','39','40','41','42');
 606           $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
 607         }
 608       break;
 609     case "heart":
 610       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 611                                  '17','18','43','44','45','46','47','48');
 612       $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
 613       $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
 614       $CARDS["hearts"]   = array();
 615       $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
 616       $CARDS["foxes"]    = array();
 617       if($RULES["dullen"]=='none')
 618         {
 619           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
 620                             '17','18','43','44','1','2','45','46','47','48');
 621         }
 622       break;
 623     }
 624 }
 625
 626 function mysort($cards,$gametype)
 627 {
 628   usort ( $cards, "sort_comp" );
 629   return $cards;
 630 }
 631
 632 function sort_comp($a,$b)
 633 {
 634   global $CARDS;
 635
 636   $ALL = array();
 637   $ALL = array_merge($CARDS["trump"],$CARDS["diamonds"],$CARDS["clubs"],
 638                      $CARDS["hearts"],$CARDS["spades"],$CARDS["diamonds"]);
 639
 640   return pos_array($a,$ALL)-pos_array($b,$ALL);
 641 }
 642
 643 ?>