+function can_call($what,$hash)
+{
+ global $RULES;
+
+ $gameid = DB_get_gameid_by_hash($hash);
+ $gametype = DB_get_gametype_by_gameid($gameid);
+ $oldcall = DB_get_call_by_hash($hash);
+ $pcall = DB_get_partner_call_by_hash($hash);
+
+ if( ($pcall!=NULL && $what >= $pcall) ||
+ ($oldcall!=NULL && $what >=$oldcall) )
+ {
+ return 0;
+ }
+
+ $NRcards = count(DB_get_hand($hash));
+
+ $NRallcards = 0;
+ for ($i=1;$i<5;$i++)
+ {
+ $user = DB_get_hash_from_game_and_pos($gameid,$i);
+ $NRallcards += count(DB_get_hand($user));
+ };
+
+ /* in case of a wedding, everything will be delayed by an offset */
+ $offset = 0;
+ if($gametype=="wedding")
+ {
+ $offset = DB_get_sickness_by_gameid($gameid);
+ if ($offset <0) /* not resolved */
+ return 0;
+ };
+
+ switch ($RULES["call"])
+ {
+ case "1st-own-card":
+ if( 4-($what/30) >= 12 - ($NRcards + $offset))
+ return 1;
+ break;
+ case "5th-card":
+ if( 27+4*($what/30) <= $NRallcards + $offset*4)
+ return 1;
+ break;
+ case "9-cards":
+
+ if($oldcall!=NULL && $pcall!=NULL)
+ $mincall = ($oldcall>$pcall) ? $pcall : $oldcall;
+ else if($oldcall!=NULL)
+ $mincall = $oldcall;
+ else if ($pcall!=NULL)
+ $mincall = $pcall;
+ else
+ $mincall = -1;
+
+ if( 12 <= ($NRcards + $offset))
+ {
+ return 1;
+ }
+ else if ( 9 <= ($NRcards + $offset))
+ {
+ if( ($mincall>=0 && $mincall==120) )
+ return 1;
+ }
+ else if ( 6 <= ($NRcards + $offset))
+ {
+ if( ($mincall>=0 && $mincall<=90 && $what<=60 ) )
+ return 1;
+ }
+ else if ( 3 <= ($NRcards + $offset))
+ {
+ if( ($mincall>=0 && $mincall<=60 && $what<=30 ) )
+ return 1;
+ }
+ else if ( 0 <= ($NRcards + $offset))
+ {
+ if( ($mincall>=0 && $mincall<=30 && $what==0 ) )
+ return 1;
+ };
+ break;
+ }
+
+ return 0;
+}
+
+?>