BUGFIX: make "It's your turn in ..." a comma separated list
[e-DoKo.git] / include / functions.php
1 <?php
2 /* Copyright 2006, 2007, 2008, 2009, 2010 Arun Persaud <arun@nubati.net>
3  *
4  *   This file is part of e-DoKo.
5  *
6  *   e-DoKo is free software: you can redistribute it and/or modify
7  *   it under the terms of the GNU General Public License as published by
8  *   the Free Software Foundation, either version 3 of the License, or
9  *   (at your option) any later version.
10  *
11  *   e-DoKo is distributed in the hope that it will be useful,
12  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
13  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  *   GNU General Public License for more details.
15  *
16  *   You should have received a copy of the GNU General Public License
17  *   along with e-DoKo.  If not, see <http://www.gnu.org/licenses/>.
18  *
19  */
20
21 /* make sure that we are not called from outside the scripts,
22  * use a variable defined in config.php to check this
23  */
24 if(!isset($HOST))
25   exit;
26
27 function config_check()
28 {
29   global $EmailName,$EMAIL_REPLY,$ADMIN_NAME,$ADMIN_EMAIL,$DB_work;
30
31   /* check if some variables are set in the config file, else set defaults */
32   if(!isset($EmailName))
33     $EmailName="[DoKo] ";
34   if(isset($EMAIL_REPLY))
35     {
36       ini_set("sendmail_from",$EMAIL_REPLY);
37     }
38   if(!isset($ADMIN_NAME))
39     {
40       output_header();
41       echo "<h1>Setup not completed</h1>";
42       echo "You need to set \$ADMIN_NAME in config.php.";
43       output_footer();
44       exit();
45     }
46   if(!isset($ADMIN_EMAIL))
47     {
48       output_header();
49       echo "<h1>Setup not completed</h1>";
50       echo "You need to set \$ADMIN_EMAIL in config.php. ".
51         "If something goes wrong an email will be send to this address.";
52       output_footer();
53       exit();
54     }
55   if(!isset($DB_work))
56     {
57       output_header();
58       echo "<h1>Setup not completed</h1>";
59       echo "You need to set \$DB_work in config.php. ".
60         "If this is set to 1, the game will be suspended and one can work safely on the database.".
61         "The default should be 0 for the game to work.";
62       output_footer();
63       exit();
64     }
65   if($DB_work)
66     {
67       output_header();
68       echo "Working on the database...please check back later.";
69       output_footer();
70       exit();
71     }
72
73   return;
74 }
75
76 /* define possible status for email subsjects */
77 define("GAME_CANCELED",         0);
78 define("GAME_CANCELED_POVERTY", 1);
79 define("GAME_CANCELED_TIMEOUT", 2);
80 define("GAME_YOUR_TURN",        3);
81 define("GAME_READY",            4);
82 define("GAME_POVERTY",          5);
83 define("GAME_DPOVERTY",         6);
84 define("GAME_OVER",             7);
85 define("GAME_RECOVERY",         8);
86 define("GAME_REMINDER",         9);
87 define("GAME_NEW",             10);
88
89 /* define possible status for showing cards */
90
91 define("CARDS_EMPTY",       0); /* show player's hand*/
92 define("CARDS_SHOW",        1); /* show player's hand*/
93 define("CARDS_MYTURN",      2); /* show radiobuttons for cards that can be played*/
94 define("CARDS_EXCHANGE",    3); /* do we need to return cards to our partner in poverty?*/
95 define("CARDS_GAMEOVER_ME", 4); /* show all cards from everyone*/
96 define("CARDS_GAMEOVER",    5); /* show all cards from everyone (looking at someone else's game)*/
97
98  /*   cards_status: SHOW      show our hand
99  *                 MYTURN    show radiobutton for cards that can be played
100  *                 EXCHANGE  do we need to return cards to our partner in poverty?
101  *                 GAMEOVER  show all cards from everyone
102  */
103
104 function mymail($uid,$gameid=0,$type,$message)
105 {
106   global $EmailName,$WIKI;
107
108   /* do we send the email right away or save it in the database? */
109   $send_now = 1;
110
111   /* add standard header and footer */
112   $subject = "$EmailName ";
113   if($gameid)
114     $game = DB_format_gameid($gameid);
115   else
116     $game = '';
117
118   switch($type)
119     {
120     case GAME_CANCELED:
121       $subject.=sprintf(_("Game %s canceled"),$game);
122       break;
123     case GAME_CANCELED_POVERTY:
124       $subject.=sprintf(_("Game %s canceled (poverty not resolved)"),$game);
125       break;
126     case GAME_CANCELED_TIMEOUT:
127       $subject.=sprintf(_("Game %s canceled (timed out)"),$game);
128       break;
129     case GAME_YOUR_TURN:
130       $subject.=sprintf(_("A card has been played in game %s"),$game);
131       break;
132     case GAME_READY:
133       $subject.=sprintf(_("Ready, set, go... (game %s)"),$game);
134       break;
135     case GAME_POVERTY:
136       $subject.=sprintf(_("Poverty (game %s)"),$game);
137       break;
138     case GAME_DPOVERTY:
139       $subject.=sprintf(_("Double poverty (game %s)"),$game);
140       break;
141     case GAME_OVER:
142       $subject.=sprintf(_("Game over (game %s)"),$game);
143       break;
144     case GAME_RECOVERY:
145       $subject.=_("Recovery");
146       break;
147     case GAME_REMINDER:
148       $subject.=sprintf(_("Reminder: game %s it's your turn"),$game);
149       break;
150     case GAME_NEW:
151       $subject.=sprintf(_("You are invited to a game of DoKo (game %s)"),$game);
152       break;
153     default:
154       $subject.=sprintf(_("Problem with email, contact admin (errorcode %d)"),$gameid);
155     }
156
157   /* standard goodbye */
158   $footer  = "\nHave a nice day\n".
159     "   your E-Doko service department\n\n".
160     "-- \n".
161     "You can change your mail delivery mode in the preference menu.\n".
162     'web: http://doko.nubati.net   '.
163     "help, bugs, etc.: $WIKI";
164
165   if(is_array($uid))
166     {
167       /* send email to more than one person */
168
169       $header  = "Hello all\n\n";
170
171       foreach($uid as $user)
172         {
173           $all[] = DB_get_email('userid',$user);
174         }
175       $To = implode(",",$all);
176     }
177   else
178     {
179       /* standard greeting */
180       $name    = DB_get_name('userid',$uid);
181       $header  = "Hello $name\n\n";
182
183       $To = DB_get_email('userid',$uid);
184
185       /* check if user wants email right away or if we should save it in
186        * the database for later delivery
187        */
188
189       $PREF = DB_get_PREF($uid);
190       if( $PREF['digest'] != 'digest-off' )
191         $send_now = 0;
192     }
193
194   if($send_now)
195     sendmail($To,$subject,$header.$message.$footer);
196   else
197     {
198       /* store email in database */
199       DB_digest_insert_email($To,$message);
200     }
201 }
202
203 function sendmail($To,$Subject,$message)
204 {
205   /* this function sends the mail or outputs to the screen in case of debugging */
206   global $debug,$EMAIL_REPLY;
207
208   $header = "";
209
210   if(isset($EMAIL_REPLY))
211     $header .= "From: e-DoKo daemon <$EMAIL_REPLY>\r\n";
212
213   if($debug)
214     {
215       /* display email on screen,
216        * change txt -> html
217        */
218       $message = str_replace("\n","<br />\n",$message);
219       $message = preg_replace("#(\w+://[^<>\s]+[\w/]*)#",
220                               "<a href=\"$1\">$1</a>", $message);
221
222       echo "<br />To: $To<br />";
223       if($header != "")
224         echo $header."<br />";
225       echo "Subject: $Subject <br />$message<br />\n";
226     }
227   else
228     if($header != "")
229       mail($To,$Subject,$message,$header);
230     else
231       mail($To,$Subject,$message);
232   return;
233 }
234
235 function myisset()
236 {
237   /* returns 1 if all names passed as args are defined by a GET or POST statement,
238    * else return 0
239    */
240
241   $ok   = 1;
242   $args = func_get_args();
243
244   foreach($args as $arg)
245     {
246       $ok = $ok * isset($_REQUEST[$arg]);
247       /*echo "$arg: ok = $ok <br />";
248        */
249     }
250   return $ok;
251 }
252
253 function myerror($message)
254 {
255   echo "<span class=\"error\">".htmlspecialchars($message)."</span>\n";
256   sendmail($ADMIN_EMAIL,$EmailName." Error in Code",$message);
257   return;
258 }
259
260 function pos_array($c,$arr)
261 {
262   $ret = 0;
263
264   $i   = 0;
265   foreach($arr as $a)
266     {
267       $i++;
268       if($a == $c)
269         {
270           $ret = $i;
271           break;
272         }
273     }
274   return $ret;
275 }
276
277 function is_trump($c)
278 {
279   global $CARDS;
280
281   if(in_array($c,$CARDS["trump"]))
282     return 1;
283   else
284     return 0;
285 }
286
287 function is_same_suite($c1,$c2)
288 {
289   global $CARDS;
290
291   if(in_array($c1,$CARDS["trump"]   ) && in_array($c2,$CARDS["trump"]   ) ) return 1;
292   if(in_array($c1,$CARDS["clubs"]   ) && in_array($c2,$CARDS["clubs"]   ) ) return 1;
293   if(in_array($c1,$CARDS["hearts"]  ) && in_array($c2,$CARDS["hearts"]  ) ) return 1;
294   if(in_array($c1,$CARDS["spades"]  ) && in_array($c2,$CARDS["spades"]  ) ) return 1;
295   if(in_array($c1,$CARDS["diamonds"]) && in_array($c2,$CARDS["diamonds"]) ) return 1;
296
297   return 0;
298 }
299
300 function compare_cards($a,$b,$game)
301 {
302   /* if "a" is higher than "b" return 1, else 0, "a" being the card first played */
303
304   global $CARDS;
305   global $RULES;
306   global $GAME;
307
308   /* first map all cards to the odd number,
309    * this insure that the first card wins the trick
310    * if they are the same card
311    */
312   if( $a/2 - (int)($a/2) != 0.5)
313     $a--;
314   if( $b/2 - (int)($b/2) != 0.5)
315     $b--;
316
317   /* check for schweinchen and ten of hearts*/
318   switch($game)
319     {
320     case "normal":
321     case "silent":
322     case "trump":
323       if($RULES['schweinchen']=='both' && $GAME['schweinchen-who'])
324         {
325           if($a == 19 || $a == 20 )
326             return 1;
327           if($b == 19 || $b == 20 )
328             return 0;
329         }
330       else if($RULES['schweinchen']=='second' && $GAME['schweinchen-second'])
331         {
332           if($a == 19 || $a == 20 )
333             return 1;
334           if($b == 19 || $b == 20 )
335             return 0;
336         }
337       else if($RULES['schweinchen']=='secondaftercall' && $GAME['schweinchen-who'] && $GAME['schweinchen-second'] )
338         {
339           /* check if a call was made either by the player or his partner. If so activate Schweinchen rule. */
340           if(DB_get_call_by_hash($GAME['schweinchen-who']) || DB_get_partner_call_by_hash($GAME['schweinchen-who']) )
341             {
342               if($a == 19 || $a == 20 )
343                 return 1;
344               if($b == 19 || $b == 20 )
345                 return 0;
346             }
347           /* if not, do nothing and the foxes are just handeled as normal trump */
348         }
349         ;
350     case "heart":
351     case "spade":
352     case "club":
353       /* check for ten of hearts rule */
354       if($RULES["dullen"]=="secondwins")
355         if($a==1 && $b==1) /* both 10 of hearts */
356           return 0;        /* second one wins.*/
357     case "trumpless":
358     case "jack":
359     case "queen":
360       /* no special cases here */
361     }
362
363   /* normal case */
364   if(is_trump($a) && is_trump($b) && $a<=$b)
365     return 1;
366   else if(is_trump($a) && is_trump($b) )
367     return 0;
368   else
369     { /*$a is not a trump */
370       if(is_trump($b))
371         return 0;
372       else
373         { /* both no trump */
374
375           /* both clubs? */
376           $posA = pos_array($a,$CARDS["clubs"]);
377           $posB = pos_array($b,$CARDS["clubs"]);
378           if($posA && $posB)
379             if($posA <= $posB)
380               return 1;
381             else
382               return 0;
383
384           /* both spades? */
385           $posA = pos_array($a,$CARDS["spades"]);
386           $posB = pos_array($b,$CARDS["spades"]);
387           if($posA && $posB)
388             if($posA <= $posB)
389               return 1;
390             else
391               return 0;
392
393           /* both hearts? */
394           $posA = pos_array($a,$CARDS["hearts"]);
395           $posB = pos_array($b,$CARDS["hearts"]);
396           if($posA && $posB)
397             if($posA <= $posB)
398               return 1;
399             else
400               return 0;
401
402           /* both diamonds? */
403           $posA = pos_array($a,$CARDS["diamonds"]);
404           $posB = pos_array($b,$CARDS["diamonds"]);
405           if($posA && $posB)
406             if($posA <= $posB)
407               return 1;
408             else
409               return 0;
410
411           /* not the same suit and no trump: a wins */
412           return 1;
413         }
414     }
415 }
416
417 function get_winner($p,$mode)
418 {
419   /* get all 4 cards played in a trick, in the order they are played */
420   $tmp = $p[1];
421   $c1    = $tmp["card"];
422   $c1pos = $tmp["pos"];
423
424   $tmp = $p[2];
425   $c2    = $tmp["card"];
426   $c2pos = $tmp["pos"];
427
428   $tmp = $p[3];
429   $c3    = $tmp["card"];
430   $c3pos = $tmp["pos"];
431
432   $tmp = $p[4];
433   $c4    = $tmp["card"];
434   $c4pos = $tmp["pos"];
435
436   /* first card is better than all the rest */
437   if( compare_cards($c1,$c2,$mode) && compare_cards($c1,$c3,$mode) && compare_cards($c1,$c4,$mode) )
438     return $c1pos;
439
440   /* second card is better than first and better than the rest */
441   if( !compare_cards($c1,$c2,$mode) &&  compare_cards($c2,$c3,$mode) && compare_cards($c2,$c4,$mode) )
442     return $c2pos;
443
444   /* third card is better than first card and better than last */
445   if( !compare_cards($c1,$c3,$mode) &&  compare_cards($c3,$c4,$mode) )
446     /* if second card is better than first, third card needs to be even better */
447     if( !compare_cards($c1,$c2,$mode) && !compare_cards($c2,$c3,$mode) )
448       return $c3pos;
449     /* second is worse than first, e.g. not following suite */
450     else if (compare_cards($c1,$c2,$mode) )
451       return $c3pos;
452
453   /* non of the above */
454   return $c4pos;
455 }
456
457 function count_nines($cards)
458 {
459   $nines = 0;
460
461   foreach($cards as $c)
462     {
463       if($c == "25" || $c == "26") $nines++;
464       else if($c == "33" || $c == "34") $nines++;
465       else if($c == "41" || $c == "42") $nines++;
466       else if($c == "47" || $c == "48") $nines++;
467     }
468
469   return $nines;
470 }
471
472 function check_wedding($cards)
473 {
474
475   if( in_array("3",$cards) && in_array("4",$cards) )
476     return 1;
477
478   return 0;
479 }
480
481 function count_trump($cards,$status='pregame')
482 {
483   global $RULES;
484
485   $trump = 0;
486
487   /* count each trump, including the foxes, since this is used to determine poverty status */
488   foreach($cards as $c)
489     if( (int)($c) <27)
490       $trump++;
491
492   /* In case we really want to know the amount of trump, we can use the status variable.
493    * This is needed for example to figure out what icon to display on the table in case of
494    * trump given back in poverty */
495   if($status=='all') return $trump;
496
497   /* normally foxes don't count as trump, so we substract them here
498    * in case someone has schweinchen, one or two of them should count as trump
499    * though, so we need to add one trump for those cases */
500
501   /* subtract foxes */
502   if( in_array("19",$cards))
503     $trump--;
504   if( in_array("20",$cards) )
505     $trump--;
506
507   /* handle case where player has schweinchen */
508   if( in_array("19",$cards) && in_array("20",$cards) )
509     switch($RULES["schweinchen"])
510       {
511       case "both":
512         /* add two, in case the player has both foxes (schweinchen) */
513         $trump++;
514         $trump++;
515         break;
516       case "second":
517       case "secondaftercall":
518         /* add one, in case the player has both foxes (schweinchen) */
519         $trump++;
520         break;
521       case "none":
522         break;
523       }
524
525   return $trump;
526 }
527
528 function check_low_trump($cards)
529 {
530   global $RULES;
531
532   if($RULES['lowtrump']=='none')
533     return 0;
534
535   /* check if we have low trump */
536
537   $lowtrump=1;
538   foreach($cards as $card)
539     {
540       /* card a trump, but not a diamond? */
541       if( $card<19 )
542          $lowtrump=0;
543     }
544
545   /* handle case where player has schweinchen */
546   if( in_array("19",$cards) && in_array("20",$cards) )
547     switch($RULES["schweinchen"])
548       {
549       case "both":
550       case "second":
551       case "secondaftercall":
552         $lowtrump=0;
553         break;
554       case "none":
555         break;
556       }
557
558   return $lowtrump;
559 }
560
561 function  create_array_of_random_numbers($useridA,$useridB,$useridC,$useridD)
562 {
563   global $debug;
564
565   $r = array();
566
567   if($debug)
568     {
569       $r[ 0]=1;     $r[12]=47;   $r[24]=13;       $r[36]=37;
570       $r[ 1]=2;     $r[13]=23;   $r[25]=14;       $r[37]=38;
571       $r[ 2]=3;     $r[14]=27;   $r[26]=15;       $r[38]=39;
572       $r[ 3]=4;     $r[15]=16;   $r[27]=28;       $r[39]=40;
573       $r[ 4]=5;     $r[16]=17;   $r[28]=29;       $r[40]=21;
574       $r[ 5]=18;    $r[17]=6;    $r[29]=30;       $r[41]=42;
575       $r[ 6]=41;    $r[18]=7;    $r[30]=31;       $r[42]=43;
576       $r[ 7]=22;    $r[19]=8;    $r[31]=32;       $r[43]=20;
577       $r[ 8]=45;    $r[20]=9;    $r[32]=33;       $r[44]=19;
578       $r[ 9]=46;    $r[21]=10;   $r[33]=44;       $r[45]=24;
579       $r[10]=35;    $r[22]=11;   $r[34]=48;       $r[46]=25;
580       $r[11]=36;    $r[23]=12;   $r[35]=34;       $r[47]=26;
581     }
582   else
583     {
584       /* check if we can find a game were non of the player was involved and return
585        * cards insted
586        */
587       $userstr = "'".implode("','",array($useridA,$useridB,$useridC,$useridD))."'";
588       $randomnumbers = DB_get_unused_randomnumbers($userstr);
589       $randomnumbers = explode(":",$randomnumbers);
590
591       if(sizeof($randomnumbers)==48)
592         return $randomnumbers;
593
594       /* need to create new numbers */
595       for($i=0;$i<48;$i++)
596         $r[$i]=$i+1;
597
598       /* shuffle using a better random generator than the standard one */
599       for ($i = 0; $i <48; $i++)
600         {
601           $j = @mt_rand(0, $i);
602           $tmp = $r[$i];
603           $r[$i] = $r[$j];
604           $r[$j] = $tmp;
605         }
606     };
607
608   return $r;
609 }
610
611 function display_cards($me,$myturn)
612 {
613   return;
614 }
615
616 function have_suit($cards,$c)
617 {
618   global $CARDS;
619   $suite = array();
620
621   if(in_array($c,$CARDS["trump"]))
622     $suite = $CARDS["trump"];
623   else if(in_array($c,$CARDS["clubs"]))
624     $suite = $CARDS["clubs"];
625   else if(in_array($c,$CARDS["spades"]))
626     $suite = $CARDS["spades"];
627   else if(in_array($c,$CARDS["hearts"]))
628     $suite = $CARDS["hearts"];
629   else if(in_array($c,$CARDS["diamonds"]))
630     $suite = $CARDS["diamonds"];
631
632   foreach($cards as $card)
633     {
634       if(in_array($card,$suite))
635         return 1;
636     }
637
638   return 0;
639 }
640
641 function same_type($card,$c)
642 {
643   global $CARDS;
644   $suite = "";
645
646   /* figure out what kind of card c is */
647   if(in_array($c,$CARDS["trump"]))
648     $suite = $CARDS["trump"];
649   else if(in_array($c,$CARDS["clubs"]))
650     $suite = $CARDS["clubs"];
651   else if(in_array($c,$CARDS["spades"]))
652     $suite = $CARDS["spades"];
653   else if(in_array($c,$CARDS["hearts"]))
654     $suite = $CARDS["hearts"];
655   else if(in_array($c,$CARDS["diamonds"]))
656     $suite = $CARDS["diamonds"];
657
658   /* card is the same suid return 1 */
659   if(in_array($card,$suite))
660     return 1;
661
662   return 0;
663 }
664
665 function set_gametype($gametype)
666 {
667   global $CARDS;
668   global $RULES;
669   global $GAME;
670
671   switch($gametype)
672     {
673     case "normal":
674     case "wedding":
675     case "poverty":
676     case "dpoverty":
677     case "trump":
678     case "silent":
679       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
680                                  '17','18','19','20','21','22','23','24','25','26');
681       $CARDS["diamonds"] = array();
682       $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
683       $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
684       $CARDS["hearts"]   = array('43','44','45','46','47','48');
685       $CARDS["foxes"]    = array('19','20');
686       if($RULES["dullen"]=='none')
687         {
688           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
689                                      '17','18','19','20','21','22','23','24','25','26');
690           $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
691         }
692       /* do we need to reorder for Schweinchen? need to search for it because of special case for dullen above*/
693       if($RULES['schweinchen']=='both'&& $GAME['schweinchen-who'])
694         {
695           /* find the fox and put them at the top of the stack */
696           foreach(array('19','20') as $fox)
697             {
698               /* search for fox */
699               $trump = $CARDS['trump'];
700               $key = array_keys($trump, $fox);
701
702               /* reorder */
703               $foxa = array();
704               $foxa[]=$trump[$key[0]];
705               unset($trump[$key[0]]);
706               $trump = array_merge($foxa,$trump);
707               $CARDS['trump'] = $trump;
708             }
709         }
710       else if( ($RULES['schweinchen']=='second' || $RULES['schweinchen']=='secondaftercall')
711                && $GAME['schweinchen-who'])
712         {
713           /* find the fox and put them at the top of the stack */
714           $trump = $CARDS['trump'];
715           $key = array_keys($trump, '19');
716
717           /* reorder */
718           $foxa = array();
719           $foxa[]=$trump[$key[0]];
720           unset($trump[$key[0]]);
721           $trump = array_merge($foxa,$trump);
722           $CARDS['trump'] = $trump;
723         }
724       break;
725     case "queen":
726       $CARDS["trump"]    = array('3','4','5','6','7','8','9','10');
727       $CARDS["clubs"]    = array('27','28','29','30','31','32','11','12','33','34');
728       $CARDS["spades"]   = array('35','36','37','38','39','40','13','14','41','42');
729       $CARDS["hearts"]   = array('43','44', '1', '2','45','46','15','16','47','48');
730       $CARDS["diamonds"] = array('19','20','21','22','23','24','17','18','25','26');
731       $CARDS["foxes"]    = array();
732       break;
733     case "jack":
734       $CARDS["trump"]    = array('11','12','13','14','15','16','17','18');
735       $CARDS["clubs"]    = array('27','28','29','30','31','32','3', '4','33','34');
736       $CARDS["spades"]   = array('35','36','37','38','39','40','5', '6','41','42');
737       $CARDS["hearts"]   = array('43','44', '1', '2','45','46','7', '8','47','48');
738       $CARDS["diamonds"] = array('19','20','21','22','23','24','9','10','25','26');
739       $CARDS["foxes"]    = array();
740       break;
741     case "trumpless":
742       $CARDS["trump"]    = array();
743       $CARDS["clubs"]    = array('27','28','29','30','31','32','3', '4','11','12','33','34');
744       $CARDS["spades"]   = array('35','36','37','38','39','40','5', '6','13','14','41','42');
745       $CARDS["hearts"]   = array('43','44', '1', '2','45','46','7', '8','15','16','47','48');
746       $CARDS["diamonds"] = array('19','20','21','22','23','24','9','10','17','18','25','26');
747       $CARDS["foxes"]    = array();
748       break;
749     case "club":
750       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
751                                  '17','18','27','28','29','30','31','32','33','34');
752       $CARDS["clubs"]    = array();
753       $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
754       $CARDS["hearts"]   = array('43','44','45','46','47','48');
755       $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
756       $CARDS["foxes"]    = array();
757       if($RULES["dullen"]=='none')
758         {
759           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
760                                      '17','18','27','28','29','30','31','32','33','34');
761           $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
762         }
763       break;
764     case "spade":
765       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
766                                  '17','18','35','36','37','38','39','40','41','42');
767       $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
768       $CARDS["spades"]   = array();
769       $CARDS["hearts"]   = array('43','44','45','46','47','48');
770       $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
771       $CARDS["foxes"]    = array();
772       if($RULES["dullen"]=='none')
773         {
774           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
775                                      '17','18','35','36','37','38','39','40','41','42');
776           $CARDS["hearts"]   = array('43','44','1','2','45','46','47','48');
777         }
778       break;
779     case "heart":
780       $CARDS["trump"]    = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
781                                  '17','18','43','44','45','46','47','48');
782       $CARDS["clubs"]    = array('27','28','29','30','31','32','33','34');
783       $CARDS["spades"]   = array('35','36','37','38','39','40','41','42');
784       $CARDS["hearts"]   = array();
785       $CARDS["diamonds"] = array('19','20','21','22','23','24','25','26');
786       $CARDS["foxes"]    = array();
787       if($RULES["dullen"]=='none')
788         {
789           $CARDS["trump"]    = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
790                             '17','18','43','44','1','2','45','46','47','48');
791         }
792       break;
793     }
794 }
795
796 function mysort($cards,$gametype)
797 {
798   global $PREF;
799   if(isset($PREF['sorting']))
800     if($PREF['sorting']=='high-low')
801       usort ( $cards, 'sort_comp_high_low' );
802     else
803       usort ( $cards, 'sort_comp_low_high' );
804   else
805     usort ( $cards, 'sort_comp_high_low' );
806   return $cards;
807 }
808
809 function sort_comp_high_low($a,$b)
810 {
811   global $CARDS;
812
813   $ALL = array();
814   $ALL = array_merge($CARDS['trump'],$CARDS['diamonds'],$CARDS['clubs'],
815                      $CARDS['hearts'],$CARDS['spades']);
816
817   return pos_array($a,$ALL)-pos_array($b,$ALL);
818 }
819
820 function sort_comp_low_high($a,$b)
821 {
822   global $CARDS;
823
824   $ALL = array();
825   $ALL = array_merge($CARDS['trump'],$CARDS['diamonds'],$CARDS['clubs'],
826                      $CARDS['hearts'],$CARDS['spades']);
827
828   return -pos_array($a,$ALL)+pos_array($b,$ALL);
829 }
830
831 function can_call($what,$hash)
832 {
833   /* figure out if a person can make a call:
834    $what in 0,30,60,90,120 = points of the call
835    $hash                   = the hash of the person who wants to make the call
836
837    return values:
838    0   can't make that call
839    1   can make the call
840    2   can make the call, but this is the last chance to do so...
841    */
842
843   global $RULES;
844
845   /* get some information
846    */
847   $gameid   = DB_get_gameid_by_hash($hash);
848   $gametype = DB_get_gametype_by_gameid($gameid);
849   $oldcall  = DB_get_call_by_hash($hash); /* did the person already made a call? */
850   $pcall    = DB_get_partner_call_by_hash($hash); /* did the partner already made a call */
851
852
853   /* you're call must be better than the one you or your partner already made
854    */
855   if( ($pcall!=NULL && ($what >= $pcall))
856       || ($oldcall!=NULL && ($what >=$oldcall)) )
857     {
858       return 0;
859     }
860
861   /* for some rules we need to know how many cards people have
862    */
863   $NRcards  = count(DB_get_hand($hash));
864
865   $NRallcards = 0;
866   for ($i=1;$i<5;$i++)
867     {
868       $user         = DB_get_hash_from_game_and_pos($gameid,$i);
869       $NRallcards  += count(DB_get_hand($user));
870     };
871
872   /* in case of a wedding, everything will be delayed by an offset
873    */
874   $offset = 0;
875   if($gametype=="wedding")
876     {
877       $offset = DB_get_sickness_by_gameid($gameid);
878       if ($offset <0) /* not resolved */
879         return 0;
880     };
881
882   /* now check if the call is allowed depending on the rule set
883    */
884   switch ($RULES["call"])
885     {
886     case "1st-own-card":
887       /* calls can be made before/while you play your card...
888        * first card = 120, second card = 90, etc.
889        */
890       if( 4-($what/30) == 12 - ($NRcards + $offset))
891         return 2;
892       if( 4-($what/30) > 12 - ($NRcards + $offset))
893         return 1;
894       break;
895     case "5th-card":
896       /* you can make the first call anytime during the first trick
897        */
898       if( 27+4*($what/30) == $NRallcards + $offset*4)
899         return 2;
900       if( 27+4*($what/30) < $NRallcards + $offset*4)
901         return 1;
902       break;
903     case "9-cards":
904       /* you can call 120 with 12 cards, 90 with 9 or more cards, 60 with 6 or more, etc.
905        * you can't skip a call though
906        */
907
908       /* figure out last call
909        */
910       if($oldcall!=NULL && $pcall!=NULL)
911         $mincall = ($oldcall>$pcall) ? $pcall : $oldcall;
912       else if($oldcall!=NULL)
913         $mincall = $oldcall;
914       else if ($pcall!=NULL)
915         $mincall = $pcall;
916       else
917         $mincall = -1;
918
919
920       if( 12 == ($NRcards + $offset))
921         {
922           return 2;
923         }
924       else if( 12 < ($NRcards + $offset))
925         {
926           return 1;
927         }
928       else if ( 9 == ($NRcards + $offset))
929         {
930           if( ($mincall>=0 && $mincall<=120 && $what<=90 ) )
931             return 2;
932         }
933       else if ( 9 < ($NRcards + $offset))
934         {
935           if( ($mincall>=0 && $mincall<=120 && $what<=90 ) )
936             return 1;
937         }
938       else if ( 6 == ($NRcards + $offset))
939         {
940           if( ($mincall>=0 && $mincall<=90 && $what<=60 ) )
941             return 2;
942         }
943       else if ( 6 < ($NRcards + $offset))
944         {
945           if( ($mincall>=0 && $mincall<=90 && $what<=60 ) )
946             return 1;
947         }
948       else if ( 3 == ($NRcards + $offset))
949         {
950           if( ($mincall>=0 && $mincall<=60 && $what<=30 ) )
951             return 2;
952         }
953       else if ( 3 < ($NRcards + $offset))
954         {
955           if( ($mincall>=0 && $mincall<=60 && $what<=30 ) )
956             return 1;
957         }
958       else if ( 0 == ($NRcards + $offset))
959         {
960           if( ($mincall>=0 && $mincall<=30 && $what==0 ) )
961             return 2;
962         }
963       else if ( 0 < ($NRcards + $offset))
964         {
965           if( ($mincall>=0 && $mincall<=30 && $what==0 ) )
966             return 1;
967         };
968       break;
969     }
970
971   return 0;
972 }
973
974 function display_table_begin ()
975 {
976   global $gameid, $GT, $debug,$INDEX,$defaulttimezone,$session;
977   global $RULES,$GAME,$gametype;
978
979   $result = DB_query("SELECT  User.fullname as name,".
980                      "        Hand.position as position, ".
981                      "        User.id, ".
982                      "        Hand.party as party, ".
983                      "        Hand.sickness as sickness, ".
984                      "        Hand.point_call, ".
985                      "        User.last_login, ".
986                      "        Hand.hash,       ".
987                      "        User.timezone,    ".
988                      "        User.email       ".
989                      "FROM Hand ".
990                      "LEFT JOIN User ON User.id=Hand.user_id ".
991                      "WHERE Hand.game_id='".$gameid."' ".
992                      "ORDER BY position ASC");
993
994   $row0 = DB_fetch_array($result);
995   $row1 = DB_fetch_array($result);
996   $row2 = DB_fetch_array($result);
997   $row3 = DB_fetch_array($result);
998
999   echo "<div class=\"table\">\n";
1000   display_single_user($row1);
1001   echo "\n<div class=\"middle\">\n";
1002   display_single_user($row0);
1003   echo "  <img class=\"table\" src=\"pics/table.png\" alt=\"table\" />\n";
1004   display_single_user($row2);
1005
1006   return;
1007 }
1008 function display_table_end ()
1009 {
1010   global $gameid, $GT, $debug,$INDEX,$defaulttimezone,$session;
1011   global $RULES,$GAME,$gametype;
1012
1013   $result = DB_query("SELECT  User.fullname as name,".
1014                      "        Hand.position as position, ".
1015                      "        User.id, ".
1016                      "        Hand.party as party, ".
1017                      "        Hand.sickness as sickness, ".
1018                      "        Hand.point_call, ".
1019                      "        User.last_login, ".
1020                      "        Hand.hash,       ".
1021                      "        User.timezone,    ".
1022                      "        User.email       ".
1023                      "FROM Hand ".
1024                      "LEFT JOIN User ON User.id=Hand.user_id ".
1025                      "WHERE Hand.game_id='".$gameid."' ".
1026                      "ORDER BY position ASC");
1027
1028   $row0 = DB_fetch_array($result);
1029   $row1 = DB_fetch_array($result);
1030   $row2 = DB_fetch_array($result);
1031   $row3 = DB_fetch_array($result);
1032
1033   echo "</div>\n";
1034   display_single_user($row3);
1035   echo "</div>\n";
1036
1037   return;
1038 }
1039
1040 function display_single_user($r)
1041 {
1042   global $gameid, $GT, $debug,$INDEX,$defaulttimezone,$session;
1043   global $RULES,$GAME,$gametype;
1044
1045       $name  = $r[0];
1046       $pos   = $r[1];
1047       $user  = $r[2];
1048       $party = $r[3];
1049       $sickness  = $r[4];
1050       $call      = $r[5];
1051       $hash      = $r[7];
1052       $timezone  = $r[8];
1053       $email     = $r[9];
1054       $wins      = DB_get_number_of_tricks($gameid,$pos);
1055       date_default_timezone_set($defaulttimezone);
1056       $lastlogin = strtotime($r[6]);
1057       date_default_timezone_set($timezone);
1058       $timenow   = strtotime(date("Y-m-d H:i:s"));
1059       $gravatar = "$name<br />\n       <img class=\"gravatar\" title=\"$name\" src=\"http://www.gravatar.com/avatar/".
1060         md5(strtolower(trim($email)))."?d=identicon\" alt=\"$name's gravatar\" />";
1061
1062       echo "  <div class=\"table".($pos-1)."\">\n";
1063
1064       if($debug)
1065         echo "   <a href=\"".$INDEX."?action=game&amp;me=".$hash."\">";
1066       if($vacation = check_vacation($user))
1067         {
1068           $start   = $vacation[0];
1069           $stop    = substr($vacation[1],0,10);
1070           $comment = $vacation[2];
1071
1072               $title = "begin: $start  end: $stop $comment";
1073               echo "   <span class=\"vacation\" title=\"$title\">$gravatar (on vacation until $stop)</span> \n";
1074         }
1075       else
1076         echo "   $gravatar \n";
1077       if($debug)
1078         echo"   </a>\n";
1079
1080       /* add hints for poverty, wedding, solo, etc */
1081       if( $gametype != "solo")
1082         if( $RULES["schweinchen"]=="both" && $GAME["schweinchen-who"]==$hash )
1083           echo " Schweinchen. <br />";
1084
1085       if($GT=="poverty" && $party=="re")
1086         if($sickness=="poverty" || ($RULES['lowtrump']=='poverty' && $sickness=='lowtrump'))
1087           {
1088             $userhash = DB_get_hash_from_gameid_and_userid($gameid,$user);
1089             $cards    = DB_get_all_hand($userhash);
1090             $trumpNR  = count_trump($cards,'all');
1091             if($trumpNR)
1092               echo "   <img src=\"pics/button/poverty_trump_button.png\" class=\"button\" ".
1093                 "alt=\"poverty - trump back\" title=\"poverty - trump back\" />\n";
1094             else
1095               echo "   <img src=\"pics/button/poverty_notrump_button.png\" class=\"button\" ".
1096                 "alt=\"poverty - no trump back\" title=\"poverty - no trump back\" />\n";
1097           }
1098         else
1099           echo "   <img src=\"pics/button/poverty_partner_button.png\" class=\"button\" ".
1100             "alt=\"poverty partner\" title=\"poverty partner\" />\n";
1101
1102       if($GT=="dpoverty")
1103         if($party=="re")
1104           if($sickness=="poverty" || ($RULES['lowtrump']=='poverty' && $sickness=='lowtrump'))
1105             {
1106               $userhash = DB_get_hash_from_gameid_and_userid($gameid,$user);
1107               $cards    = DB_get_all_hand($userhash);
1108               $trumpNR  = count_trump($cards,'all');
1109               if($trumpNR)
1110                 echo "   <img src=\"pics/button/poverty_trump_button.png\" class=\"button\" ".
1111                   "alt=\"poverty < trump back\" title=\"poverty - trump back\" />\n";
1112               else
1113                 echo "   <img src=\"pics/button/poverty_notrump_button.png\" class=\"button\" ".
1114                   "alt=\"poverty <\" title=\"poverty - no trump back\" />\n";
1115             }
1116           else
1117             echo "   <img src=\"pics/button/poverty_partner_button.png\" class=\"button\" ".
1118               "alt=\"poverty >\" title=\"poverty partner\" />\n";
1119         else
1120           if($sickness=="poverty"  || ($RULES['lowtrump']=='poverty' && $sickness=='lowtrump'))
1121             {
1122               $userhash = DB_get_hash_from_gameid_and_userid($gameid,$user);
1123               $cards    = DB_get_all_hand($userhash);
1124               $trumpNR  = count_trump($cards,'all');
1125               if($trumpNR)
1126                 echo "   <img src=\"pics/button/poverty2_trump_button.png\" class=\"button\" ".
1127                   "alt=\"poverty2 < trump back\" title=\"poverty2 - trump back\"/>\n";
1128               else
1129                 echo "   <img src=\"pics/button/poverty2_notrump_button.png\" class=\"button\" ".
1130                   "alt=\"poverty2 <\" title=\"poverty2 - no trump back\" />\n";
1131             }
1132           else
1133             echo "   <img src=\"pics/button/poverty2_partner_button.png\" class=\"button\" ".
1134               "alt=\"poverty2 >\" title=\"poverty2 partner\" />\n";
1135
1136       if($GT=="wedding" && $party=="re")
1137         if($sickness=="wedding")
1138           echo "   <img src=\"pics/button/wedding_button.png\" class=\"button\" alt=\"wedding\" title=\"wedding\" />\n";
1139         else
1140           echo "   <img src=\"pics/button/wedding_partner_button.png\" class=\"button\" ".
1141             "alt=\"wedding partner\" title=\"wedding partner\" />\n";
1142
1143       if( (strpos($GT,"solo")!==false) && $party=="re")
1144         {
1145           if(strpos($GT,"queen")!==false)
1146             echo "   <img src=\"pics/button/queensolo_button.png\" class=\"button\" alt=\"$GT\" title=\"Queen solo\" />\n";
1147           else if(strpos($GT,"jack")!==false)
1148             echo "   <img src=\"pics/button/jacksolo_button.png\" class=\"button\" alt=\"$GT\" title=\"Jack solo\" />\n";
1149           else if(strpos($GT,"club")!==false)
1150             echo "   <img src=\"pics/button/clubsolo_button.png\" class=\"button\" alt=\"$GT\" title=\"Club solo\" />\n";
1151           else if(strpos($GT,"spade")!==false)
1152             echo "   <img src=\"pics/button/spadesolo_button.png\" class=\"button\" alt=\"$GT\" title=\"Spade solo\" />\n";
1153           else if(strpos($GT,"heart")!==false)
1154             echo "   <img src=\"pics/button/heartsolo_button.png\" class=\"button\" alt=\"$GT\" title=\"Heart solo\" />\n";
1155           else if(strpos($GT,"trumpless")!==false)
1156             echo "   <img src=\"pics/button/notrumpsolo_button.png\" class=\"button\" alt=\"$GT\" title=\"Trumpless solo\" />\n";
1157           else if(strpos($GT,"trump")!==false)
1158             echo "   <img src=\"pics/button/trumpsolo_button.png\" class=\"button\" alt=\"$GT\" title=\"Trump solo\" />\n";
1159         }
1160
1161       /* add point calls */
1162       if($call!=NULL)
1163         {
1164           if($party=="re")
1165             echo "   <img src=\"pics/button/re_button.png\" class=\"button\" alt=\"re\" title=\"Re\" />\n";
1166           else
1167             echo "   <img src=\"pics/button/contra_button.png\" class=\"button\" alt=\"contra\" title=\"Contra\" />\n";
1168           switch($call)
1169             {
1170             case "0":
1171               echo "   <img src=\"pics/button/0_button.png\" class=\"button\" alt=\"0\" title=\"Call 0\" />\n";
1172               break;
1173             case "30":
1174               echo "   <img src=\"pics/button/30_button.png\" class=\"button\" alt=\"30\" title=\"Call 30\" />\n";
1175               break;
1176             case "60":
1177               echo "   <img src=\"pics/button/60_button.png\" class=\"button\" alt=\"60\" title=\"Call 60\" />\n";
1178               break;
1179             case "90":
1180               echo "   <img src=\"pics/button/90_button.png\" class=\"button\" alt=\"90\" title=\"Call 90\" />\n";
1181               break;
1182             }
1183         }
1184
1185       echo "   <img src=\"pics/button/time-info.png\" class=\"button\" alt=\"time info\" ".
1186         "title=\"local time: ".date("Y-m-d H:i:s",$timenow).  " ".
1187         "last login: ".date("Y-m-d H:i:s",$lastlogin)."\" />";
1188
1189       echo "   <br /><span class=\"numberoftricks\">";
1190       /* show how many tricks the person made */
1191       switch($wins)
1192         {
1193         case 0:
1194           echo "#tricks 0"; break;
1195         case 1:
1196           echo "#tricks 1"; break;
1197         case 2:
1198         case 3:
1199         case 4:
1200           echo "#tricks few"; break;
1201         default:
1202           echo "#tricks many"; break;
1203         }
1204       echo "</span>\n";
1205       echo "  </div>\n";
1206 }
1207
1208
1209 function display_user_menu($id)
1210 {
1211   global $WIKI,$INDEX;
1212
1213   $result = DB_query("SELECT Hand.hash,Hand.game_id,Game.player from Hand".
1214                      " LEFT JOIN Game On Hand.game_id=Game.id".
1215                      " WHERE Hand.user_id='$id'".
1216                      " AND ( Game.player='$id' OR ISNULL(Game.player) )".
1217                      " AND ( Game.status='pre' OR Game.status='play' )".
1218                      " ORDER BY Game.session" );
1219
1220   $i=0;
1221   while( $r = DB_fetch_array($result))
1222     {
1223       if($i==0)
1224         {
1225           echo "\n<div class=\"usermenu\">\n  ";
1226           echo _('It\'s your turn in these games').":\n";
1227         }
1228       else
1229         {
1230           echo ", ";
1231         }
1232
1233       $i++;
1234       echo "  <a href=\"".$INDEX."?action=game&amp;me=".$r[0].
1235         "\">game ".DB_format_gameid($r[1])." </a>\n";
1236       if($i>4)
1237         {
1238           echo ",  ...\n";
1239           break;
1240         }
1241     }
1242
1243   if($i)
1244     echo  "</div>\n\n";
1245   return;
1246 }
1247
1248 function generate_score_table($session)
1249 {
1250   /* returns an array with N entries
1251    * $score[$i]["gameid"]   = gameid
1252    * $score[$i]["players"] = array (id=>total points)
1253    * $score[$i]["points"]   = points for this game
1254    * $score[$i]["solo"]     = 1 or 0
1255    */
1256   $score = array();
1257   $i=0;
1258
1259   /* get all ids */
1260   $gameids = DB_get_gameids_of_finished_games_by_session($session);
1261
1262   if($gameids == NULL)
1263     return $score;
1264
1265   /* get player id, names... from the first game */
1266   $player = array();
1267   $result = DB_query("SELECT User.id, User.fullname from Hand".
1268                      " LEFT JOIN User On Hand.user_id=User.id".
1269                      " WHERE Hand.game_id=".$gameids[0]);
1270   while( $r = DB_fetch_array($result))
1271     $player[$r[0]] = 0;
1272
1273   /* get points and generate table */
1274   foreach($gameids as $gameid)
1275     {
1276       $re_score = DB_get_score_by_gameid($gameid);
1277       $gametype = DB_get_gametype_by_gameid($gameid);
1278       foreach($player as $id=>$points)
1279         {
1280           $party = DB_get_party_by_gameid_and_userid($gameid,$id);
1281           if($party == "re")
1282             if($gametype=="solo")
1283               $player[$id] += 3*$re_score;
1284             else
1285               $player[$id] += $re_score;
1286           else if ($party == "contra")
1287             $player[$id] -= $re_score;
1288         }
1289       $score[$i]['gameid']  = $gameid ;
1290       $score[$i]['players'] = $player;
1291       $score[$i]['points']  = abs($re_score);
1292       $score[$i]['solo']    = ($gametype=="solo");
1293
1294       $i++;
1295     }
1296
1297   return $score;
1298 }
1299
1300 function generate_global_score_table()
1301 {
1302   $return = array();
1303
1304   /* get all ids */
1305   $gameids = DB_get_gameids_of_finished_games_by_session(0);
1306
1307   if($gameids == NULL)
1308     return '';
1309
1310   /* get player id, names... from the User table */
1311   $player = array();
1312   $result = DB_query('SELECT User.id, User.fullname FROM User');
1313
1314   /* save information in an array */
1315   while( $r = DB_fetch_array($result))
1316     $player[$r[0]] = array('name'=> $r[1], 'points' => 0 , 'nr' => 0, 'active' => 0,
1317                            'response' => 0 , 'solo' => 0, 'soloavg' => 0);
1318
1319   /* get points and generate table */
1320   foreach($gameids as $gameid)
1321     {
1322       $re_score = DB_get_score_by_gameid($gameid);
1323       $gametype = DB_get_gametype_by_gameid($gameid);
1324
1325       /* get players involved in this game */
1326       $result = DB_query('SELECT user_id FROM Hand WHERE game_id='.DB_quote_smart($gameid));
1327       while($r = DB_fetch_array($result))
1328         {
1329           $id = $r[0];
1330           $party = DB_get_party_by_gameid_and_userid($gameid,$id);
1331           if($party == 're')
1332             if($gametype=='solo')
1333               $player[$id]['points'] += 3*$re_score;
1334             else
1335               $player[$id]['points'] += $re_score;
1336           else if ($party == 'contra')
1337             $player[$id]['points'] -= $re_score;
1338           if($party)
1339             $player[$id]['nr']+=1;
1340         }
1341     }
1342
1343   /* add number of active games */
1344   $result = DB_query_array_all("SELECT user_id, COUNT(*) as c  " .
1345                                " FROM Hand".
1346                                " LEFT JOIN Game ON Game.id=game_id".
1347                                " WHERE Game.status IN ('pre','play')".
1348                                " GROUP BY user_id");
1349
1350   foreach($result as $res)
1351     {
1352       $player[$res[0]]['active'] = $res[1];
1353     }
1354
1355   /* response time of users*/
1356   $result = DB_query_array_all("SELECT user_id,".
1357                               "IFNULL(AVG(if(P1.sequence in (2,3,4),".
1358                               "-timestampdiff(MINUTE,mod_date,(select mod_date from Play P2 where P1.trick_id=P2.trick_id  and P2.sequence=P1.sequence-1)),NULL )),1e9) as a ".
1359                               "FROM Play P1 ".
1360                               "LEFT JOIN Hand_Card ON P1.hand_card_id=Hand_Card.id ".
1361                               "LEFT JOIN Hand ON Hand.id=Hand_Card.hand_id ".
1362                               "GROUP BY user_id ");
1363
1364   foreach($result as $res)
1365     {
1366       $player[$res[0]]['response'] = $res[1];
1367     }
1368
1369   /* most solos */
1370   $result = DB_query_array_all("SELECT user_id as uid,".
1371                                "       COUNT(*), ".
1372                                "       COUNT(*)/(SELECT COUNT(*) FROM Hand LEFT JOIN User ON User.id=Hand.user_id WHERE User.id=uid) as c ".
1373                                " FROM Game ".
1374                                " LEFT JOIN Hand ON Hand.position=startplayer AND Game.id=Hand.game_id ".
1375                                " WHERE type='solo' AND Game.status='gameover' ".
1376                                " GROUP BY user_id ");
1377
1378   foreach($result as $res)
1379     {
1380       $player[$res[0]]['solo'] = $res[1];
1381       $player[$res[0]]['soloavg'] = $res[2];
1382     }
1383
1384
1385   /* sort everything nicely */
1386
1387   function cmp($a,$b)
1388   {
1389     if($a['nr']==0) return 1;
1390     if($b['nr']==0) return 1;
1391
1392     $a=$a['points']/$a['nr'];
1393     $b=$b['points']/$b['nr'];
1394
1395     if ($a == $b)
1396       return 0;
1397     return ($a > $b) ? -1 : 1;
1398   }
1399   usort($player,'cmp');
1400
1401
1402   foreach($player as $pl)
1403     {
1404       /* limit to players with at least 10 games */
1405       if($pl['nr']>10)
1406         $return[] = array( $pl['name'], round($pl['points']/$pl['nr'],3), $pl['points'],$pl['nr'],$pl['active'],
1407                            $pl['response'],$pl['solo'],$pl['soloavg']);
1408     }
1409
1410   return $return;
1411 }
1412
1413 function format_score_table_ascii($score)
1414 {
1415   $output="";
1416   if(sizeof($score)==0)
1417     return "";
1418
1419   /* truncate table if we have too many games */
1420   $max = sizeof($score);
1421   if($max>6) $output.=" (table truncated to last 6 games)\n";
1422
1423   /* output header */
1424   foreach($score[0]['players'] as $id=>$points)
1425     {
1426       $name = DB_get_name('userid',$id); /*TODO*/
1427       $output.= "  ".substr($name,0,2)."  |";
1428     }
1429   $output.="  P   |\n";
1430   $output.= "------+------+------+------+------+\n";
1431
1432   /* output score for each game */
1433   $i=0;
1434   foreach($score as $game)
1435     {
1436       $i++;
1437       if($i-1<$max-6) continue;
1438
1439       foreach($game['players'] as $id=>$points)
1440         $output.=str_pad($points,6," ",STR_PAD_LEFT)."|";
1441       $output.=str_pad($game['points'],4," ",STR_PAD_LEFT);
1442
1443       /* check for solo */
1444       if($game['solo'])
1445         $output.= " S|";
1446       else
1447         $output.= "  |";
1448
1449       $output.="\n";
1450     }
1451   return $output;
1452 }
1453
1454 function format_score_table_html($score,$userid)
1455 {
1456   global $INDEX;
1457
1458   if(sizeof($score)==0)
1459     return "";
1460
1461   $output = "<div class=\"scoretable\">\n<table class=\"score\">\n";
1462
1463   /* output header */
1464   $header = "";
1465   $header.= " <thead>\n  <tr>\n";
1466   $header.= "   <th> No </th>";
1467   foreach($score[0]['players'] as $id=>$points)
1468     {
1469       $name = DB_get_name('userid',$id); /*TODO*/
1470       $header.= "<th> ".substr($name,0,2)." </th>";
1471     }
1472   $header.="<th>P</th>\n  </tr>\n </thead>\n";
1473
1474   /* use the same as footer */
1475   $footer = "";
1476   $footer.= " <tfoot>\n  <tr>\n";
1477   $footer.= "   <td> No </td>";
1478   foreach($score[0]['players'] as $id=>$points)
1479     {
1480       $name = DB_get_name('userid',$id); /*TODO*/
1481       $footer.= "<td> ".substr($name,0,2)." </td>";
1482     }
1483   $footer.="<td>P</td>\n  </tr>\n </tfoot>\n";
1484
1485   /* body */
1486   $body = "";
1487   $body.= " <tbody>\n";
1488   $i=0;
1489   foreach($score as $game)
1490     {
1491       $i++;
1492       $body.="  <tr>";
1493       $userhash = DB_get_hash_from_gameid_and_userid($game['gameid'],$userid);
1494       /* create link to old games only if you are logged in and its your game*/
1495       if(isset($_SESSION['id']) && $_SESSION['id']==$userid)
1496         $body.="  <td> <a href=\"".$INDEX."?action=game&amp;me=".$userhash."\">$i</a></td>";
1497       else
1498         $body.="  <td>$i</td>";
1499
1500       foreach($game['players'] as $id=>$points)
1501         $body.="<td>".$points."</td>";
1502       $body.="<td>".$game['points'];
1503
1504       /* check for solo */
1505       if($game['solo'])
1506         $body.= " S";
1507       $body.="</td></tr>\n";
1508     }
1509
1510   $output.=$header;
1511   if($i>12)
1512     $output.=$footer;
1513   $output.=$body;
1514
1515   $output.=" </tbody>\n</table>\n</div>\n";
1516
1517   return $output;
1518 }
1519
1520 function createCache($content, $cacheFile)
1521 {
1522   $fp = fopen($cacheFile,"w");
1523   if($fp)
1524     {
1525       fwrite($fp,$content);
1526       fclose($fp);
1527     }
1528   else
1529     echo "WARNING: couldn't create cache file";
1530
1531   return;
1532 }
1533
1534 function getCache($cacheFile, $expireTime)
1535 {
1536   if( file_exists($cacheFile) &&
1537       filemtime($cacheFile )>( time() - $expireTime ) )
1538     {
1539       return file_get_contents($cacheFile);
1540     }
1541
1542   return false;
1543 }
1544
1545 function check_vacation($userid)
1546 {
1547   /* get start date */
1548   $result = DB_query_array("SELECT value FROM User_Prefs".
1549                      " WHERE user_id='$userid' AND pref_key='vacation start'" );
1550   if($result)
1551     $start = $result[0];
1552   else
1553     return NULL;
1554
1555   /* get end date */
1556   $result = DB_query_array("SELECT value FROM User_Prefs".
1557                      " WHERE user_id='$userid' AND pref_key='vacation stop'" );
1558   if($result)
1559     $stop = $result[0];
1560   else
1561     return NULL;
1562
1563   /* get comment */
1564   $result = DB_query_array("SELECT value FROM User_Prefs".
1565                      " WHERE user_id='$userid' AND pref_key='vacation comment'" );
1566   if($result)
1567     $comment = $result[0];
1568   else
1569     $comment = '';
1570
1571   /* check if user is on vacation. TODO: use user's timezone */
1572   if( (time() - strtotime($start) >0) &&
1573       (strtotime($stop) - time()  >0))
1574     return array ($start,$stop,$comment);
1575   else
1576     return NULL;
1577 }
1578
1579 function cancel_game($why,$gameid)
1580 {
1581   $gameid = DB_quote_smart($gameid);
1582
1583   /* update the game table */
1584   switch($why)
1585     {
1586     case 'timedout':
1587       DB_query("UPDATE Game SET status='cancel-timedout' WHERE id=$gameid");
1588       break;
1589     case 'nines':
1590       DB_query("UPDATE Game SET status='cancel-nines' WHERE id=$gameid");
1591       break;
1592     case 'trump':
1593       DB_query("UPDATE Game SET status='cancel-trump' WHERE id=$gameid");
1594       break;
1595     case 'noplay':
1596       DB_query("UPDATE Game SET status='cancel-noplay' WHERE id=$gameid");
1597       break;
1598     case 'lowtrump':
1599       DB_query("UPDATE Game SET status='cancel-lowtrump' WHERE id=$gameid");
1600       break;
1601     }
1602   /* set each player to gameover */
1603   $result = DB_query("SELECT id FROM Hand WHERE game_id=".DB_quote_smart($gameid));
1604   while($r = DB_fetch_array($result))
1605     {
1606       $id = $r[0];
1607       DB_query("UPDATE Hand SET status='gameover' WHERE id=".DB_quote_smart($id));
1608     }
1609
1610   return;
1611 }
1612
1613 function get_user_token($userid)
1614 {
1615
1616   $token = NULL;
1617
1618   $date = DB_get_user_creation_date($userid);
1619   $name = DB_get_name('userid',$userid);
1620
1621   if($date && $name)
1622     $token = md5("token".$name.$date);
1623
1624   return $token;
1625 }
1626
1627 ?>