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