debugging was on for creating the hands -> no random numbers
[e-DoKo.git] / 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 ?>