X-Git-Url: https://git.nubati.net/cgi-bin/gitweb.cgi?p=e-DoKo.git;a=blobdiff_plain;f=functions.php;h=75f1fedc28622bc962d5c56c9ab750f39a2278c2;hp=31167e9f78de1b4dd8097f8576234596f733f534;hb=12cfb198f8d644e370d646a7c42b37291a466089;hpb=0dd96314cb0fc3d40502d87f354c6fd61f35a3cd
diff --git a/functions.php b/functions.php
index 31167e9..75f1fed 100644
--- a/functions.php
+++ b/functions.php
@@ -6,7 +6,11 @@ function mymail($To,$Subject,$message)
if($debug)
{
- $message = str_replace("\n","
",$message);
+ $message = str_replace("\n","
\n",$message);
+ $message = ereg_replace("[[:alpha:]]+://[^<>[:space:]]+[[:alnum:]/]",
+ "\\0", $message);
+ //$message = ereg_replace("(http.*)[ <>]","\\1 ",$message);
+
echo "
To: $To
Subject: $Subject
$message
\n";
}
else
@@ -78,6 +82,7 @@ function compare_cards($a,$b,$game)
global $CARDS;
global $RULES;
+ global $GAME;
/* first map all cards to the odd number,
* this insure that the first card wins the trick
@@ -93,6 +98,20 @@ function compare_cards($a,$b,$game)
{
case "normal":
case "silent":
+ if($RULES["schweinchen"]=="both" && $GAME["schweinchen"])
+ {
+ if($a == 19 || $a == 20 )
+ return 1;
+ if($b == 19 || $b == 20 )
+ return 0;
+ };
+ if($RULES["schweinchen"]=="second" && $GAME["schweinchen"]==3)
+ {
+ if($a == 19 || $a == 20 )
+ return 1;
+ if($b == 19 || $b == 20 )
+ return 0;
+ };
case "trump":
case "heart":
case "spade":
@@ -102,6 +121,7 @@ function compare_cards($a,$b,$game)
return 0; /* second one wins.*/
}
+ /* normal case */
if(is_trump($a) && is_trump($b) && $a<=$b)
return 1;
else if(is_trump($a) && is_trump($b) )
@@ -221,6 +241,8 @@ function check_wedding($cards)
function count_trump($cards)
{
+ global $RULES;
+
$trump = 0;
/* count each trump */
@@ -228,14 +250,23 @@ function count_trump($cards)
if( (int)($c) <27)
$trump++;
- /* subtract foxes */
- if( in_array("19",$cards))
- $trump--;
- if( in_array("20",$cards) )
- $trump--;
- /* add one, in case the player has both foxes (schweinchen) */
- if( in_array("19",$cards) && in_array("20",$cards) )
- $trump++;
+ switch($RULES["schweinchen"])
+ {
+ case "none":
+ break;
+ case "second":
+ case "secondaftercall":
+ /* add one, in case the player has both foxes (schweinchen) */
+ if( in_array("19",$cards) && in_array("20",$cards) )
+ $trump++;
+ case "both":
+ /* subtract foxes */
+ if( in_array("19",$cards))
+ $trump--;
+ if( in_array("20",$cards) )
+ $trump--;
+ break;
+ }
return $trump;
}
@@ -388,14 +419,33 @@ function card_value($card)
function create_array_of_random_numbers()
{
+ global $debug;
+
$r = array();
- $a = array();
-
- for($i=1;$i<49;$i++)
- $a[$i]=$i;
-
- $r = array_rand($a,48);
+ if($debug)
+ {
+ $r[ 0]=1; $r[12]=47; $r[24]=13; $r[36]=37;
+ $r[ 1]=2; $r[13]=48; $r[25]=14; $r[37]=38;
+ $r[ 2]=3; $r[14]=27; $r[26]=15; $r[38]=39;
+ $r[ 3]=4; $r[15]=16; $r[27]=28; $r[39]=40;
+ $r[ 4]=5; $r[16]=17; $r[28]=29; $r[40]=41;
+ $r[ 5]=18; $r[17]=6; $r[29]=30; $r[41]=42;
+ $r[ 6]=19; $r[18]=7; $r[30]=31; $r[42]=43;
+ $r[ 7]=20; $r[19]=8; $r[31]=32; $r[43]=44;
+ $r[ 8]=45; $r[20]=9; $r[32]=21; $r[44]=33;
+ $r[ 9]=46; $r[21]=10; $r[33]=22; $r[45]=34;
+ $r[10]=35; $r[22]=11; $r[34]=23; $r[46]=25;
+ $r[11]=36; $r[23]=12; $r[35]=24; $r[47]=26;
+ }
+ else
+ {
+ for($i=0;$i<48;$i++)
+ $r[$i]=$i+1;
+
+ shuffle($r);
+ };
+
return $r;
}
@@ -484,6 +534,9 @@ function set_gametype($gametype)
switch($gametype)
{
case "normal":
+ case "wedding":
+ case "poverty":
+ case "dpoverty":
case "trump":
case "silent":
$CARDS["trump"] = array('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16',
@@ -492,7 +545,7 @@ function set_gametype($gametype)
$CARDS["clubs"] = array('27','28','29','30','31','32','33','34');
$CARDS["spades"] = array('35','36','37','38','39','40','41','42');
$CARDS["hearts"] = array('43','44','45','46','47','48');
- $CARDS["foxes"] = array('21','22');
+ $CARDS["foxes"] = array('19','20');
if($RULES["dullen"]=='none')
{
$CARDS["trump"] = array('3','4','5','6','7','8','9','10','11','12','13','14','15','16',
@@ -588,4 +641,9 @@ function sort_comp($a,$b)
return pos_array($a,$ALL)-pos_array($b,$ALL);
}
+function can_call($what,$hash)
+{
+ return 1;
+}
+
?>
\ No newline at end of file