changed path to pics and cards and css to be absolute paths
[e-DoKo.git] / index.php
1 <!DOCTYPE html PUBLIC
2     "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN"
3     "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">
4 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
5   <head>
6      <title>e-DoKo</title>
7      <meta content="text/html; charset=ISO-8859-1" http-equiv="content-type" />
8      <link rel="stylesheet" type="text/css" href="http://doko.nubati.net/css/standard.css" />   
9      <script type="text/javascript">
10        function hl(num) {
11          if(document.getElementById){
12            var i;
13            for(i=1;i<13;i++){
14              if(document.getElementById("trick"+i))
15                document.getElementById("trick"+i).style.display = 'none';
16            }
17            document.getElementById("trick"+num).style.display = 'block';
18          }
19        }
20        function high_last(){
21          if(document.getElementById){
22            var i;
23            for(i=12;i>0;i--) {
24              if(document.getElementById("trick"+i))
25                {
26                  hl(i);
27                  break;
28                }
29            }
30          }
31        }
32      </script>
33   </head>
34 <body onload="high_last();">
35 <div class="header">
36 <h1> Welcome to E-DoKo </h1>
37 <?php
38
39 /*
40  * config 
41  */
42
43 $base  = "http://doko.nubati.net/";
44 $host  = $base."index.php";
45 $wiki  = "http://wiki.nubati.net/index.php?title=EmailDoko";
46 $debug = 0;
47
48 $last=-2;
49
50 /*
51  * end config
52  */     
53
54 echo "</div>\n";
55
56 /* end header */
57                                         
58 /* helper function */
59 function mymail($To,$Subject,$message)
60 {  
61   global $debug;
62
63   if($debug)
64     {
65       $message = str_replace("\n","<br />",$message);
66       echo "<br />To: $To<br />Subject: $Subject <br />$message<br />\n";
67     }
68   else
69     mail($To,$Subject,$message);
70   return;
71 }
72
73 function is_trump($c) { return (($c<27) ? 1:0);}
74 function is_club($c)  { return (in_array($c,array('27','28','29','30','31','32','33','34')));}
75 function is_spade($c) { return (in_array($c,array('35','36','37','38','39','40','41','42')));}
76 function is_heart($c) { return (in_array($c,array('43','44','45','46','47','48')));}
77
78 function compare_cards($a,$b)
79 {
80   /* if a is higher than b return 1, else 0, a being the card first played */
81   
82   /* first map all cards to the odd number */
83   if( $a/2 - (int)($a/2) != 0.5)
84     $a--;
85   if( $b/2 - (int)($b/2) != 0.5)
86     $b--;
87   
88   if(is_trump($a) && $a<=$b)
89     return 1;
90   else if(is_trump($a) && $a>$b)
91     return 0;
92   else 
93     { /*$a is not a trump */
94       if(is_trump($b))
95         return 0;
96       else
97         {
98           /* both clubs? */
99           if( is_club($a) && is_club($b))
100             if($a<=$b)
101               return 1;
102             else
103               return 0;
104           /* both spade? */
105           if( is_spade($a) && is_spade($b))
106             if($a<=$b)
107               return 1;
108             else
109               return 0;
110           /* both heart? */
111           if( is_heart($a) && is_heart($b))
112             if($a<=$b)
113               return 1;
114             else
115               return 0;
116       return 1;
117         }         
118     }
119       
120
121
122 function get_winner($p)
123 {
124   /* get all 4 cards played in a trick */
125   $c1 = $p[0];
126   $c2 = $p[1];
127   $c3 = $p[2];
128   $c4 = $p[3];
129
130   /* find out who won */
131   if( compare_cards($c1,$c2) && compare_cards($c1,$c3) && compare_cards($c1,$c4) )
132     return 0;
133   if( compare_cards($c2,$c3) && compare_cards($c2,$c4) )
134     return 1;
135   if( compare_cards($c3,$c4) )
136     return 2;
137   return 3;
138 }
139
140 function parse_status()
141 {
142   global $game,$history,$player,$hash,$lines;
143   
144   $game["init"]        = 0;
145   $game["solo-who"]    = -1;
146   $game["solo-what"]   = "todo";
147   $game["wedding"]     = -1;
148   $game["poverty"]     = "";
149   $game["nines"]       = -1;
150   $game["startplayer"] = 0;
151
152   for($i=0;$i<4;$i++)
153     {
154       $tmp = explode( ":",$lines[$i]);
155       $hash[$i]   = $tmp[0];
156       $player[$tmp[0]]["number"] = $i;
157       $player[$tmp[0]]["hash"]   = $tmp[0];
158       $player[$tmp[0]]["name"]   = $tmp[1];
159       $player[$tmp[0]]["email"]  = $tmp[2];
160       $player[$tmp[0]]["option"] = $tmp[3];
161       $player[$tmp[0]]["points"] = $tmp[4]; 
162       $player[$tmp[0]]["cards"]  = $tmp[5];
163       if(ereg("s",$tmp[3])) $game["init"]++;       /* how many players are ready? */
164       if(ereg("P",$tmp[3])) $game["poverty"].= $i; /* players with poverty, could be two, so use a string */
165       if(ereg("N",$tmp[3])) $game["nines"]   = $i; /* the player with too many nines, only one possible */
166       if(ereg("W",$tmp[3])) $game["wedding"] = $i; /* the player with the wedding, also only one possible */
167       if(ereg("([OSQJCAH])",$tmp[3],$match) && ($game["solo-who"]<0) )
168         {
169           $game["solo-who"]    = $i;     
170           $game["startplayer"] = $i;
171           switch($match[1])
172             {
173             case "O":
174               $game["solo-what"] = "No Trump";
175             case "S":
176               $game["solo-what"] = "Trump";
177             case "Q":
178               $game["solo-what"] = "Queen";
179             case "J":
180               $game["solo-what"] = "Jack";
181             case "C":
182               $game["solo-what"] = "Club";
183             case "A":
184               $game["solo-what"] = "Spade";
185             case "H":
186               $game["solo-what"] = "Heart";
187             }
188         }
189   
190     }  
191   /* save the game history */
192   for($i=4;$i<sizeof($lines);$i++)
193     if(!ereg("^[[:space:]]*$",trim($lines[$i])))
194       $history[] = $lines[$i];
195   
196   if(sizeof($history)==0 || (sizeof($history)==1 && strlen($history[0])==3 ))
197     $history[0] = $game["startplayer"].":";
198   
199   return;
200 }
201
202 function count_nines($cards)
203 {
204   $card  = explode(";",$cards);
205   $nines = 0;
206
207   foreach($card as $c)
208     {
209       if($c == "25" || $c == "26") $nines++;
210       else if($c == "33" || $c == "34") $nines++;
211       else if($c == "41" || $c == "42") $nines++;
212       else if($c == "47" || $c == "48") $nines++;
213     }
214   
215   return $nines;
216 }
217
218 function check_wedding($cards)
219 {
220   $card  = explode(";",$cards);
221
222   if( in_array("3",$card) && in_array("2",$card) )
223     return 1;
224
225   return 0;
226 }
227
228 function count_trump($cards)
229 {
230   $card  = explode(";",$cards);
231   $trump = 0;
232
233   /* count each trump */
234   foreach($card as $c)
235     if( (int)($c) <27) 
236       $trump++;
237
238   /* subtract foxes */
239   if( in_array("19",$card))
240     $trump--;
241   if( in_array("20",$card) )
242     $trump--;
243   /* add one, in case the player has both foxes (schweinchen) */
244   if( in_array("19",$card) && in_array("20",$card) )
245     $trump++;
246
247   return $trump;
248 }
249
250 function card_to_name($card)
251 {
252   switch($card)
253     {
254       case 1:
255       case 2:
256         return "ten of hearts";
257       case 3:
258       case 4:
259       return "queen of clubs";
260       case 5:
261       case 6:
262       return "queen of spades";
263       case 7:
264       case 8:
265       return "queen of hearts";
266       case 9:
267       case 10:
268       return "queen of diamonds";
269       case 11:
270       case 12:
271       return "jack of clubs";
272       case 13:
273       case 14:
274       return "jack of spades";
275       case 15:
276       case 16:
277       return "jack of hearts";
278       case 17:
279       case 18:
280       return "jack of diamonds";
281       case 19:
282       case 20:
283       return "ace of diamonds";
284       case 21:
285       case 22:
286       return "ten of diamonds";
287       case 23:
288       case 24:
289       return "king of diamonds";
290       case 25:
291       case 26:
292       return "nine of diamonds";;
293       case 27:
294       case 28:
295       return "ace of clubs";
296       case 29:
297       case 30:
298       return "ten of clubs";
299       case 31:
300       case 32:
301       return "king of clubs";
302       case 33:
303       case 34:
304       return "nine of clubs";
305       case 35:
306       case 36:
307       return "ace of spades";
308       case 37:
309       case 38:
310       return "ten of spades";
311       case 39:
312       case 40:
313       return "king of spades";
314       case 41:
315       case 42:
316       return "nine of spades";
317       case 43:
318       case 44:
319       return "ace of hearts";
320       case 45:
321       case 46:
322       return "king of hearts";
323       case 47:
324       case 48:
325       return "nine of hearts";
326       default:
327       return "something went wrong, please contact the admin. Error: code1.";
328     }
329 }
330
331 function card_value($card)
332 {
333   switch($card)
334     {
335     case 1:      /* heart */
336     case 2:
337       return 10;
338     case 3:     /* clubes */     
339     case 4:                      
340     case 5:     /* spades */     
341     case 6:                      
342     case 7:     /* hearts */     
343     case 8:                      
344     case 9:     /* diamonds */   
345     case 10:                     
346       return 3;
347     case 11:    /* clubes */     
348     case 12:                     
349     case 13:    /* spades */     
350     case 14:                     
351     case 15:    /* hearts */     
352     case 16:                     
353     case 17:    /* diamonds */   
354     case 18:
355       return 2;                  
356     case 19:    /* diamonds */ 
357     case 20:                   
358     case 27:    /* clubs */    
359     case 28:                   
360     case 35:    /* spades */   
361     case 36:                   
362     case 43:    /* hearts */   
363     case 44:                   
364       return 11;
365     case 21:    /* diamonds */    
366     case 22:
367     case 29:    /* clubs */
368     case 30:
369     case 37:    /* spades */
370     case 38:
371       return 10;
372     case 23:    /* diamonds */ 
373     case 24:                   
374     case 31:    /* clubs */    
375     case 32:                   
376     case 39:    /* spades */   
377     case 40:                   
378     case 45:    /* hearts */   
379     case 46:                   
380       return 4;
381     case 25:    /* diamonds */   
382     case 26:                   
383     case 33:    /* clubs */    
384     case 34:                   
385     case 41:    /* spades */   
386     case 42:                   
387     case 47:    /* hearts */   
388     case 48:                   
389       return 0;
390     default:
391       echo "something went wrong, please contact the admin. ErrorCode: 2<br>";
392       return 0;
393     }
394 }
395
396 function display_card($card)
397 {
398   /* cards are only availabl for the odd values, e.g. 1.png, 3.png, ... 
399    * convert even cards to the matching odd value */
400
401   if( $card/2 - (int)($card/2) == 0.5)
402     echo "<img src=\"".$base."cards/".$card.".png\"  alt=\"".card_to_name($card)."\" />\n";
403   else
404     echo "<img src=\"".$base."cards/".($card-1).".png\"  alt=\"".card_to_name($card-1)."\" />\n";
405
406   return;
407 }
408
409 function display_link_card($card,$me)
410 {
411   if( $card/2 - (int)($card/2) == 0.5)
412     echo "<input type=\"radio\" name=\"card\" value=\"".$card."\" /><img src=\"".$base."cards/".$card.".png\" alt=\"\" />\n";
413   else
414     echo "<input type=\"radio\" name=\"card\" value=\"".$card."\" /><img src=\"".$base."cards/".($card-1).".png\" alt=\"\" />\n";
415   return;
416 }
417
418 function save_status()
419 {
420   global $player,$game,$hash,$history;
421
422   $output = fopen("status.txt","w");
423   if ($output)
424     {
425       foreach($hash as $key)
426         {
427           /* sorting the options, not sure why I do that actually */
428           $tmp="";
429           if( ereg("i",$player[$key]["option"]) )
430             $tmp.="i";
431           if( ereg("s",$player[$key]["option"]) )
432             $tmp.="s";
433           if( ereg("t",$player[$key]["option"]) )
434             $tmp.="t";
435           if( ereg("c",$player[$key]["option"]) )
436             $tmp.="c";
437           if( ereg("N",$player[$key]["option"]) )
438             $tmp.="N";
439           if( ereg("W",$player[$key]["option"]) )
440             $tmp.="W";
441           if( ereg("P",$player[$key]["option"]) )
442             $tmp.="P";
443           if( ereg("O",$player[$key]["option"]) ) 
444             $tmp.="O";
445           if( ereg("S",$player[$key]["option"]) )
446             $tmp.="S";
447           if( ereg("Q",$player[$key]["option"]) )
448             $tmp.="Q";
449           if( ereg("J",$player[$key]["option"]) )
450             $tmp.="J";
451           if( ereg("C",$player[$key]["option"]) )
452             $tmp.="C";
453           if( ereg("A",$player[$key]["option"]) )
454             $tmp.="A";
455           if( ereg("H",$player[$key]["option"]) )
456             $tmp.="H";
457           $player[$key]["option"]=$tmp;
458
459           /* saving the player stats */
460           fwrite($output,"".$player[$key]["hash"].":" );
461           fwrite($output,"".$player[$key]["name"].":" );
462           fwrite($output,"".$player[$key]["email"].":" );
463           fwrite($output,"".$player[$key]["option"].":" );
464           fwrite($output,"".$player[$key]["points"].":" );
465           fwrite($output,"".$player[$key]["cards"] .":");
466           fwrite($output,"\n");
467         }
468       fwrite($output,"\n");
469       foreach($history as $line)
470         fwrite($output,$line);
471
472       fwrite($output,"\n");
473       fclose($output);
474     }
475   else
476     echo "can't open file for writing, please inform the admin.errorcode3";
477   
478   return;
479 }
480
481 /*****************  M A I N **************************/
482
483 $history=array();
484
485 /* check for status file and read it, if possible */
486
487 if(file_exists("status.txt"))
488   $lines = file("status.txt");
489 else
490   die("no file");
491
492 /* check if we want to start a new game */
493 if( isset($_REQUEST["PlayerA"]) && 
494     isset($_REQUEST["PlayerB"]) && 
495     isset($_REQUEST["PlayerC"]) && 
496     isset($_REQUEST["PlayerD"]) && 
497     isset($_REQUEST["EmailA"]) && 
498     isset($_REQUEST["EmailB"]) && 
499     isset($_REQUEST["EmailC"]) && 
500     isset($_REQUEST["EmailD"]) && sizeof($lines<2))
501   {
502     $PlayerA = $_REQUEST["PlayerA"];
503     $PlayerB = $_REQUEST["PlayerB"];
504     $PlayerC = $_REQUEST["PlayerC"];
505     $PlayerD = $_REQUEST["PlayerD"];
506     $EmailA  = $_REQUEST["EmailA"] ;
507     $EmailB  = $_REQUEST["EmailB"] ;
508     $EmailC  = $_REQUEST["EmailC"] ;
509     $EmailD  = $_REQUEST["EmailD"] ;
510     
511     $hashA = md5("AGameOfDoko".$PlayerA.$EmailA);
512     $hashB = md5("AGameOfDoko".$PlayerB.$EmailB);
513     $hashC = md5("AGameOfDoko".$PlayerC.$EmailC);
514     $hashD = md5("AGameOfDoko".$PlayerD.$EmailD);
515
516     /* send out email, check for error with email */
517
518     $message = "\n".
519       "you are invited to play a game of DoKo (that is to debug the program ;).\n".
520       "Place comments and bug reports here:\n".
521       "http://wiki.nubati.net/index.php?title=EmailDoko\n\n".
522       "The whole round would consist of the following players:\n".
523       "$PlayerA\n".
524       "$PlayerB\n".
525       "$PlayerC\n".
526       "$PlayerD\n\n".
527       "If you want to join this game, please follow this link:\n\n".
528       " ".$host."?a=";
529     
530     mymail($EmailA,"You are invited to a game of DoKo","Hello $PlayerA,\n".$message.$hashA);
531     mymail($EmailB,"You are invited to a game of DoKo","Hello $PlayerB,\n".$message.$hashB);
532     mymail($EmailC,"You are invited to a game of DoKo","Hello $PlayerC,\n".$message.$hashC);
533     mymail($EmailD,"You are invited to a game of DoKo","Hello $PlayerD,\n".$message.$hashD);
534     
535     /* read in random.txt */
536     if(file_exists("random.txt"))
537       $random = file("random.txt");
538     else
539       die("no random file");
540  
541     $randomNR = explode( ":", $random[4] );
542     
543     /* write initial status into file */
544     $output = fopen("status.txt","w");
545     if ($output)
546       {
547         fwrite($output, "$hashA:$PlayerA:$EmailA:::" );
548         for($i=0;$i<11;$i++)
549           fwrite($output,"$randomNR[$i];" );
550         fwrite($output,"$randomNR[11]:" ); $i++;
551         fwrite($output,"\n");
552         
553         fwrite($output, "$hashB:$PlayerB:$EmailB:::" );
554         for(;$i<23;$i++)
555           fwrite($output,"$randomNR[$i];" );
556         fwrite($output,"$randomNR[23]:" ); $i++;
557         fwrite($output,"\n");
558         
559         fwrite($output, "$hashC:$PlayerC:$EmailC:::" );
560         for(;$i<35;$i++)
561           fwrite($output,"$randomNR[$i];" );
562         fwrite($output,"$randomNR[35]:" ); $i++;
563         fwrite($output,"\n");
564         
565         fwrite($output, "$hashD:$PlayerD:$EmailD:::");
566         for(;$i<47;$i++)
567           fwrite($output,"$randomNR[$i];" );
568         fwrite($output,"$randomNR[47]:" );
569         fwrite($output,"\n");
570         
571         fclose($output);
572       }
573     else
574       echo "can't open file for writing";
575   };
576 /* reread file */
577 if(file_exists("status.txt"))
578   $lines = file("status.txt");
579  else
580    die("no file");
581
582 /* test if a game is running, else output everything for a new game */
583 if(sizeof($lines)<2)
584   {
585 ?>
586     <p> no game in progress, please input 4 names and email addresses, please make sure that the addresses are correct! </p>
587  <form action="index.php" method="post">
588    Name:  <input name="PlayerA" type="text" size="10" maxlength="20" /> 
589    Email: <input name="EmailA"  type="text" size="20" maxlength="30" /> <br />
590
591    Name:  <input name="PlayerB" type="text" size="10" maxlength="20" /> 
592    Email: <input name="EmailB"  type="text" size="20" maxlength="30" /> <br />
593
594    Name:  <input name="PlayerC" type="text" size="10" maxlength="20" /> 
595    Email: <input name="EmailC"  type="text" size="20" maxlength="30" /> <br />
596
597    Name:  <input name="PlayerD" type="text" size="10" maxlength="20" /> 
598    Email: <input name="EmailD"  type="text" size="20" maxlength="30" /> <br />
599
600    <input type="submit" value="start game" />
601  </form>
602 <?php
603    }
604 else
605   { /* load game status */
606     parse_status();
607 /*     **
608  *    *  *
609  *    ****
610  *    *  *
611  *
612  * check if a player wants to accept a game 
613  */
614     if(isset($_REQUEST["a"]))
615       {
616         $a = $_REQUEST["a"];
617         
618         if( ereg("[is]",$player[$a]["option"]) &&  $game["init"]<4)
619           {
620             echo "just wait for the game to start";
621           }
622         else if( !ereg("[is]",$player[$a]["option"]) )
623           {
624  ?>
625  <form action="index.php" method="post">
626    Do you want to play a game of DoKo?
627    yes<input type="radio" name="in" value="yes" />
628    no<input type="radio" name="in" value="no" /> <br />
629
630    Do you want to get an email for every card played or only if it your move?
631    every card<input type="radio" name="update" value="card" />
632    only on my turn<input type="radio" name="update" value="turn" /> <br />
633 <?php   
634              echo "<input type=\"hidden\" name=\"b\" value=\"$a\" />\n";
635              echo "\n";
636              echo "<input type=\"submit\" value=\"count me in\" />\n";
637              echo " </form>\n";
638            }
639        }
640 /*   ***
641  *   *  *
642  *   ***
643  *   *  *
644  *   ***
645  * yes? email him his hand, ask for solo, poverty, email every move or every card? 
646  */
647      if(isset($_REQUEST["b"]))
648        {
649          $b = $_REQUEST["b"];
650          
651          if( ereg("s",$player[$b]["option"])  && $game["init"]<4)
652            { /* the player already filled out everything */
653              echo "just wait for the game to start";
654            }
655          else if( (!isset($_REQUEST["in"])|| !isset($_REQUEST["update"])) && !ereg("i",$player[$b]["option"]))
656            { /* the player didn't fill out the form at "a" correctly */
657              echo "go back to ";
658              echo "<a href=\"index.php?a=$b\"> here and fill out the form </a> <br />\n";
659            }
660          else
661            { /* show the hand and check if the player is sick*/
662              if($_REQUEST["in"]=="no")
663                { /* player doesn't want to play, cancel the game */
664                  for($i=0;$i<4;$i++)
665                    {
666                      $message = "Hello ".$player[$hash[$i]]["name"].",\n\n".
667                        "the game has been canceled due to the request of one of the players.\n";
668                      mymail($player[$hash[$i]]["email"],"[DoKo-Debug] the game has been canceled",$message); 
669                    }
670                  /* canceling the game is as easy as removing the contents of the status file*/
671                  $output = fopen("status.txt","w");
672                  if($output)
673                    fclose($output);
674                  else
675                    echo "problem opening file";
676                }
677              else
678                {
679                  /* player wants to play, save information from "a"*/
680                  if($_REQUEST["update"]=="card") 
681                    $player[$b]["option"] .= "c";
682                  else
683                    $player[$b]["option"] .= "t";
684                  
685                  $player[$b]["option"] .= "i"; /* player finished stage "a" */
686                  
687                  save_status();
688                  
689                  $allcards = $player[$b]["cards"];
690                  $mycards  = explode(";",$allcards);
691                  
692                  sort($mycards);
693                  echo "<p class=\"mycards\">your cards are: <br />\n";
694                  foreach($mycards as $card) 
695                    display_card($card);
696                  echo "</p>\n";   
697  ?>
698  <p> aehm... at the moment poverty is not implented. so I guess you need to play a normal game, even if you have less than 3 trump :(...sorry </p>                
699
700  <form action="index.php" method="post">
701
702    do you want to play solo? 
703    <select name="solo" size="1">
704      <option>No</option>
705      <option>No trump</option>
706      <option>Normal solo</option>
707      <option>Queen solo</option>
708      <option>Jack solo</option>
709      <option>Club solo</option>
710      <option>Spade solo</option>
711      <option>Heart solo</option>
712    </select>     
713    <br />
714
715 <?php   
716      
717                  echo "wedding?";
718                  if(check_wedding($player[$b]["cards"]))
719                    {
720                      echo " yes<input type=\"radio\" name=\"wedding\" value=\"yes\" />";
721                      echo " no <input type=\"radio\" name=\"wedding\" value=\"no\" /> <br />\n";
722                    }
723                  else
724                    {
725                      echo " no <input type=\"hidden\" name=\"wedding\" value=\"no\" /> <br />\n";
726                    };
727
728                  echo "do you have poverty?";
729                  if(count_trump($player[$b]["cards"])<4)
730                    {
731                      echo " yes<input type=\"radio\" name=\"poverty\" value=\"yes\" />";
732                      echo " no <input type=\"radio\" name=\"poverty\" value=\"no\" /> <br />\n";
733                    }
734                  else
735                    {
736                      echo " no <input type=\"hidden\" name=\"poverty\" value=\"no\" /> <br />\n";
737                    };
738
739                  echo "do you have too many nines?";
740                  if(count_nines($player[$b]["cards"])>4)
741                    {
742                      echo " yes<input type=\"radio\" name=\"nines\" value=\"yes\" />";
743                      echo " no <input type=\"radio\" name=\"nines\" value=\"no\" /> <br />\n";
744                    }
745                  else
746                    {
747                      echo " no <input type=\"hidden\" name=\"nines\" value=\"no\" /> <br />\n";
748                    };
749
750                  echo "<input type=\"hidden\" name=\"c\" value=\"$b\" />\n";
751                  echo "<input type=\"submit\" value=\"count me in\" />\n";
752                  
753                  echo "</form>\n";
754                }
755            }
756        }
757
758      if(isset($_REQUEST["c"]))
759        {
760          $c = $_REQUEST["c"];
761          
762
763          if( ereg("s",$player[$c]["option"]) && $game["init"]<4 )
764            { /* the player already filled out everything */
765              echo "<p>just wait for the game to start</p>\n";
766            }
767          else if(!isset($_REQUEST["solo"])    || 
768                  !isset($_REQUEST["wedding"]) ||
769                  !isset($_REQUEST["poverty"]) ||
770                  !isset($_REQUEST["nines"]) )
771            {/* player still needs to fill out the form */
772              echo "go back to ";
773              echo "<a href=\"index.php?b=$c\"> here and fill out the form </a> <br />\n";
774            }
775          else if($game["init"]<4)
776            { /* save information */
777              if( $_REQUEST["solo"]!="No")
778                {
779                  switch($_REQUEST["solo"])
780                    {
781                    case "No trump":
782                      $player[$c]["option"].="O";
783                      break;
784                    case "Normal solo":
785                      $player[$c]["option"].="S";
786                      break;
787                    case "Queen solo":
788                      $player[$c]["option"].="Q";
789                      break;
790                    case "Jack solo":
791                      $player[$c]["option"].="J";
792                      break;
793                    case "Club solo":
794                      $player[$c]["option"].="C";
795                      break;
796                    case "Spade solo":
797                      $player[$c]["option"].="A";
798                      break;
799                    case "Hear solo":
800                      $player[$c]["option"].="H";
801                      break;
802                    }
803                }
804              else if($_REQUEST["wedding"] == "yes")
805                {
806                  echo "wedding was chosen<br />\n";
807                  $player[$c]["option"].="W";
808                }
809              else if($_REQUEST["poverty"] == "yes")
810                {
811                  echo "poverty was chosen<br />\n";
812                  $player[$c]["option"].="P"; 
813                }
814              else if($_REQUEST["nines"] == "yes")
815                {
816                  echo "nines was chosen<br />\n";
817                  $player[$c]["option"].="N";
818                }
819              
820              /* player finished setup */
821              $player[$c]["option"].="s";
822
823              save_status();
824              /* reread status file, to get the correct startplayer, etc */
825              if(file_exists("status.txt"))
826                $lines = file("status.txt");
827              else
828                die("no file");
829              parse_status();
830
831              if($game["init"]==4 && $player[$c]["number"]==$game["startplayer"])
832                {
833                  echo "<p> The game can start now, it's your turn, please use this <a href=\"".
834                    $host."?me=".$hash[$c]."\">link</a> to play a card.</p>\n";
835                }
836              else if($game["init"]==4)
837                {
838                  $message = "The game can start now, it's your turn, please use this link to play a card:\n".
839                    $host."?me=".$hash[$game["startplayer"]]."\n";
840                  mymail($player[$hash[$game["startplayer"]]]["email"],"[DoKo-debug] let's go",$message);
841                  echo "<p> The game has started. An email has been sent out to the first player.</p>\n";
842                }
843              else
844                {
845                  echo "<p>You're in. Once everyone has filled out the form, ".
846                    "the game will start and you'll get an eamil on your turn.</p>\n";
847                }
848            }
849        }
850      /* END SETUP */
851
852      /* the game */
853      if($game["init"]==4)
854        {
855          /* check for sickness, only would need to do this on the first trick really...*/
856          /***** someone has 5 nines and no one is playing solo => cancel game */
857          if($game["nines"]>=0 && $game["solo-who"]<0)
858            {
859              $message = $player[$hash[$game["poverty"]]]["nines"]." has more than 4 nines. Game aborted!\n";
860              for($i=0;$i<4;$i++)
861                mymail($player[$hash[$i]]["email"],"[DoKo-debug] the game has been canceled",$message); 
862              
863              $output = fopen("status.txt","w");
864              if($output)
865                fclose($output);
866              else
867                echo "problem opening file";
868            };
869          
870          /* who is requesting this*/
871          if(!isset($_REQUEST["me"]))
872            {    
873              if(!isset($_REQUEST["recovery"]))
874                {
875                  echo "A game is in progress and kibitzing is not allowed. Sorry!.<br />\n";
876                  echo "In case you are playing, but lost your email or can't access the game anymore, please input your email here:<br />\n";
877                  ?>
878  <form action="index.php" method="post">
879    recorvery: <input name="recovery"  type="text" size="20" maxlength="30" /> <br />
880    <input type="submit" value="get me back into the game" />
881  </form>
882 <?php
883                }
884              else
885                {
886                  $recovery = $_REQUEST["recovery"];
887                  $ok = -1;
888                  for($i=0;$i<4;$i++)
889                    if(trim($recovery)==trim($player[$hash[$i]]["email"]))
890                      $ok = $i;
891                  if($ok>=0)
892                    {
893                      $message = "Please try this link: ".$host."?me=".$hash[$ok]."\n".
894                        "\n if this doesn't work, contact the admin.error4\n";
895                      mymail($recovery,"[DoKo-Debug] recovery ",$message);
896                      echo "<p> An email with the game information has been sent.</p>\n";
897                    }
898                  else
899                    {
900                      echo "<p> can't find this email address, sorry.</p>\n";
901                    }; 
902                } /* end recovery */
903            }
904          else
905            { /* $me is set */ 
906              $me = $_REQUEST["me"];
907              
908              /* show history */
909              /* old tricks as list */
910              echo "<ul class=\"oldtrick\">\n";
911              echo "  <li> History: </li>\n";
912              $j=0;
913              foreach($history as $play) 
914                {
915                  $j++;
916                  $trick = explode(":",$play);
917                  
918                  /* found old trick, display it */
919                  if(sizeof($trick)==5)
920                    echo "  <li onclick=\"hl('$j');\"><a href=\"#\">Trick $j</a>\n    <div class=\"table\" id=\"trick".$j."\">\n      <img class=\"table\" src=\"".$base."pics/table".$play[0].".png\" alt=\"table\" />\n";
921                  else
922                    {
923                      /* display current trick */
924                      echo "<li onclick=\"hl('$j');\"><a href=\"#\">Current Trick</a>\n  <div class=\"table\" id=\"trick".$j."\">\n      <img class=\"table\" src=\"".$base."pics/table".$play[0].".png\" alt=\"table\" />";
925                    }
926                  for($i=0;$i<sizeof($trick)-1;$i++)
927                    {
928                      $card = $trick[$i];
929
930                      $last=-2;
931                      /* has a card been played? */
932                      if(ereg("->",$card))
933                        {
934                          $tmp = explode("->",$card);
935
936                          echo "      <div class=\"card".$tmp[0]."\">\n";
937
938                          if(strlen($tmp[2])>0)
939                            echo "        <span class=\"comment\">";
940                          else
941                            echo "        <span>";
942                          echo $player[$hash[$tmp[0]]]["name"];
943                          /* check for comment */
944                          if(strlen($tmp[2])>0)
945                            echo "<span>".$tmp[2]."</span>";
946                          echo "</span>\n        ";
947         
948                          display_card($tmp[1]);
949
950                          $last = $tmp[0];
951                          echo "      </div>\n";
952                        }
953                    }
954                  
955                  echo "    </div>\n  </li>\n";
956                }
957              echo "</ul> <hr />\n";
958
959              echo "<div class=\"line\"></div>";
960
961              /* output if we are playing a solo or a wedding */
962              echo "<div class=\"info\">";
963              if($game["solo-who"]>=0)
964                echo $player[$hash[$game["solo-who"]]]["name"]." is playing a ".$game["solo-what"]." solo!<br />\n";
965              else if($game["wedding"]>=0)
966                echo $player[$hash[$game["wedding"]]]["name"]." is playing a wedding!<br />\n";
967              echo "</div>";
968              echo "<div class=\"bug\"> Poverty not working yet! <br />".
969                " Schweinchen not working yet <br />".
970                "Bug: at the end of the game the winner of the last trick can add more points to his score by reloading the page <br />".
971                "If you find more bugs, please list them in the <a href=\"".$wiki.
972                "\">wiki</a>.Hit shift reload every now and then too.</div>\n";
973
974
975              /* figure out who needs to play next */
976              $next = $last + 1;
977              if ($next>=4) 
978                $next -= 4 ;
979
980              /* if no one has played yet or we are at the start of a new trick */
981              if($last<0)
982                $next = $history[sizeof($history)-1][0];
983              
984              /* are we trying to play a card? */
985              if(isset($_REQUEST["card"]))
986                {
987                  if($hash[$next]==$me)
988                    {
989                      $card    = $_REQUEST["card"];
990                      $mycards = explode(";",$player[$me]["cards"]);
991                      $comment = $_REQUEST["comment"];
992                      $comment = str_replace(":","",$comment);           /*can't have ":" in comments */
993                      
994                      /* do we have that card */
995                      if(in_array($card,$mycards))
996                        {
997                          /* delete card from array */
998                          $tmp = array();
999                          foreach($mycards as $m)
1000                            if($m != $card)
1001                              $tmp[]=$m;
1002                          
1003                          $tmp2="";
1004                          for($i=0;$i<sizeof($tmp)-1;$i++)
1005                            {
1006                              $tmp2.=$tmp[$i].";";
1007                            }
1008                          $tmp2.=$tmp[$i];
1009                          $player[$me]["cards"]=$tmp2;
1010                          
1011                          /* add card to history, special case if this is the first card */
1012                          if($last<0)
1013                            {
1014                              $history[sizeof($history)-1]="".$player[$me]["number"]."->".$card."->$comment:\n";
1015                            }
1016                          else
1017                            {
1018                              $tmp = explode(":",$history[sizeof($history)-1]);
1019                              $tmp[sizeof($tmp)-1] = "".$player[$me]["number"]."->".$card."->$comment:";
1020                              $history[sizeof($history)-1]=join(":",$tmp);
1021                            }
1022                          save_status();
1023                          
1024                          echo "<div class=\"card\">";
1025                          echo " you played  <br />";
1026                          display_card($card);
1027                          echo "</div>\n";
1028
1029                          /* send out email to players who want/need to get informed */
1030                          /* check if we are in a trick, if trick is done, this needs to be handelt in the
1031                           * who-won-the-trick section further down */
1032                          $tmp = explode(":",$history[sizeof($history)-1]);
1033                          if(sizeof($tmp)<5)
1034                            for($i=0;$i<4;$i++)
1035                              {
1036                                $mynext = $next+1; if($mynext>3)$mynext-=4;
1037                                
1038                                if((ereg("c",$player[$hash[$i]]["option"]) || $i==$mynext) && $hash[$i]!=$me)
1039                                  {
1040                                    $message = " Hello ".$player[$hash[$i]]["name"].",\n\n";
1041                                    
1042                                    if($i==$mynext)
1043                                      {
1044                                        $message .= "it's your turn  now.\n".
1045                                          "Use this link to play a card: ".$host."?me=".$hash[$i]."\n\n" ;
1046                                      }
1047                                    $message .= $player[$me]["name"]." has played the following card ".
1048                                      card_to_name($card)."\n";
1049                                    
1050                                    if($game["solo-who"]>=0)
1051                                      $message .= $player[$hash[$game["solo-who"]]]["name"]." is playing a ".
1052                                        $game["solo-what"]." solo!\n";
1053                                    
1054                                    mymail($player[$hash[$i]]["email"],"[DoKo-debug] a card has been played",$message);
1055                                    
1056                                    if($debug)
1057                                      echo "<a href=\"index.php?me=".$hash[$mynext]."\"> next player </a> <br />\n";
1058                                  }
1059                              }
1060                        }
1061                      else
1062                        echo "seems like you don't have that card<br />\n";
1063                    }
1064                } /* end if card is set */
1065             if(substr_count($history[sizeof($history)-1],":")==4)
1066                { /* count points, email winner */
1067                  $p = array();
1068                  $c = array();
1069
1070                  $tmp  = explode(":",$history[sizeof($history)-1]); /*last played trick */
1071
1072                  /* get player and cards of last trick */
1073                  for($i=0;$i<4;$i++)
1074                    {
1075                      $tmp2 = explode("->",$tmp[$i]);
1076                      $p[] = $tmp2[0];
1077                      $c[] = $tmp2[1];
1078                    };
1079                  
1080                  $win = $p[get_winner($c)];
1081                                  
1082                  if(strlen($player[$hash[0]]["cards"]))
1083                    $history[] = "\n".$win.":\n"; /* not sure why I need the first \n here */
1084
1085                  /* check if game is done */
1086                  $end = 1;
1087                  for($i=0;$i<4;$i++)
1088                    if(strlen(trim($player[$hash[$i]]["cards"]))!=0)
1089                      $end = 0;
1090
1091                  /* email the player who needs to move next*/
1092                  if(!$end)
1093                  for($i=0;$i<4;$i++)
1094                    {
1095                      if((ereg("c",$player[$hash[$i]]["option"]) || $i==$win) )
1096                        {
1097                          $message = " Hello ".$player[$hash[$i]]["name"].",\n\n";
1098                          
1099                          if($i == $win)
1100                            {
1101                              $message .= "You won the last trick,it's your turn  now.\n".
1102                                "Use this link to play a card: ".$host."?me=".$hash[$i]."\n\n" ;
1103                            }
1104                          else
1105                            $message .= $player[$hash[$win]]["name"]." has won the last trick\n".
1106                              "Use this link to look at the game: ".$host."?me=".$hash[$i]."\n\n" ;
1107                          
1108                          if($game["solo-who"]>=0)
1109                            $message.= $player[$hash[$game["solo-who"]]]["name"]." is playing a ".
1110                              $game["solo-what"]." solo!\n";
1111                          
1112                          mymail($player[$hash[$i]]["email"],"[DoKo-debug] a card has been played",$message);
1113                          
1114                          if($debug)
1115                            echo "<a href=\"index.php?me=".$hash[$win]."\"> next player </a> <br />\n";
1116                        }
1117                    }
1118                  
1119                  /* count points of the last trick */
1120                  $points = 0;
1121
1122                  $tmp = explode(":",$history[sizeof($history)-2]);
1123                  for($i=0;$i<4;$i++)
1124                    {
1125                      $tmp2 = explode("->",$tmp[$i]);
1126                      $c = $tmp2[1];
1127                      $points += card_value($c);
1128                    }
1129                  $player[$hash[$win]]["points"] += $points;
1130                  echo "<br />\n ".$player[$hash[$win]]["name"]." won: $points Points <br />\n";
1131                  
1132                  save_status();
1133                }; /* end if win is set */
1134              echo "<br />\n";
1135
1136              /* check if game is done */
1137              $end = 1;
1138              for($i=0;$i<4;$i++)
1139                if(strlen(trim($player[$hash[$i]]["cards"]))!=0)
1140                  $end = 0;
1141              
1142              if($end)
1143                { 
1144                  echo "<br /> game over, count points <br />\n";
1145                  for($i=0;$i<4;$i++)
1146                    {
1147                      echo $player[$hash[$i]]["name"]." got ".$player[$hash[$i]]["points"]."<br />\n";
1148                    }
1149                }
1150              /* check end of game */
1151   
1152              /* do we still have cards? display them */
1153              if(strlen(trim($player[$me]["cards"]))>0 )
1154                {
1155                  $allcards = trim($player[$me]["cards"]);
1156                  $mycards  = explode(";",$allcards);
1157                  
1158                  sort($mycards);
1159                  
1160                  echo "<div class=\"mycards\">\n";
1161                  /* is it our turn? */
1162                  if($hash[$next]==$me && !isset($_REQUEST["card"])) 
1163                    {
1164                      echo "Hello ".$player[$me]["name"].", it's your turn!  <br />\n";
1165                      echo "Your cards are: <br />\n";
1166                      echo "<form action=\"index.php\" method=\"post\">\n";
1167                      foreach($mycards as $card) 
1168                        display_link_card($card,$me);
1169 ?>
1170    <br />A short comment:<input name="comment" type="text" size="30" maxlength="50" /> 
1171    <input type="hidden" name="me" value="<?php echo $me; ?>" />
1172    <input type="submit" value="move" />
1173 </form>
1174 <?php
1175                    }
1176                  else 
1177                    { /* not our turn, just show the hand */
1178                      echo "Your cards are: <br />\n";
1179                      foreach($mycards as $card) 
1180                        display_card($card);
1181                    }
1182                  echo "</div>\n";   
1183                }
1184            }
1185        }
1186
1187  } 
1188
1189 ?>
1190 </body>
1191 </html>
1192
1193 <?php
1194 /*
1195  *Local Variables: 
1196  *mode: php
1197  *mode: hs-minor
1198  *End:
1199  */
1200 ?>