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