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