* oryginalny skrypt z emkael.info/osika

1 files changed, 282 insertions, 0 deletions

diff --git a/web/osika.php b/web/osika.php
new file mode 100644
index 0000000..092cc9c
--- /dev/null
+++ b/web/osika.php
@@ -0,0 +1,282 @@
+<?php
+
+function suitSort($cardA, $cardB) {
+    if ($cardA == 'a') {
+        return -1;
+    }
+    if ($cardA == 'k') {
+        return ($cardB == 'a') ? 1 : -1;
+    }
+    if ($cardA == 'q') {
+        return (in_array($cardB, array('a', 'k'))) ? 1 : -1;
+    }
+    if ($cardA == 'j') {
+        return (in_array($cardB, array('a', 'k', 'q'))) ? 1 : -1;
+    }
+    if ($cardA == 't') {
+        return (in_array($cardB, array('a', 'k', 'q', 'j'))) ? 1 : -1;
+    }
+    if ($cardA == '9') {
+        return (in_array($cardB, array('a', 'k', 'q', 'j', 't'))) ? 1 : -1;
+    }
+    return 1;
+}
+
+function sortHand(&$suit) {
+    $temp = str_split($suit);
+    usort($temp, 'suitSort');
+    $suit = implode('', $temp);
+}
+
+function honor($suit) {
+    $jack = 0;
+    if (strpos($suit, 'j') === 0) {
+        $jack = 0.125;
+    }
+    return substr_count($suit, 'a')*1.125+substr_count($suit, 'k')*0.8125+substr_count($suit, 'q')*0.4375+$jack;
+}
+
+function honorPlus($suit) {
+    $dummy = array();
+    $count = preg_match_all('/a|k|q|j/', $suit, $dummy);
+    if ($count < 2) {
+        return 0;
+    }
+    return $count*0.25;
+}
+
+function honorShort($suit) {
+    $len = strlen($suit);
+    if (!$len || $len > 2) {
+        return 0;
+    }
+    $count = preg_match_all('/a|k|q|j/', $suit, $dummy);
+    if ($len == 1) {
+        return ($count)*(-0.125);
+    }
+    return $count*(-0.0625);
+}
+
+function blot($length) {
+    if ($length < 4) {
+        return 0;
+    }
+    switch ($length) {
+        case 4:
+            return 0.4375;
+        case 5:
+            return 1.5;
+        case 6:
+            return 2.75;
+        case 7:
+            return 3.9375;
+    }
+    if ($length >= 8) {
+        return $length - 3;
+    }
+}
+
+function blotPlus($suit) {
+    $dummy = array();
+    return 0.125*((strlen($suit) > 3) && substr_count($suit, 't') && preg_match_all('/a|k|q/', $suit, $dummy))+(substr_count($suit, 't9'))*0.0625;
+}
+
+function quickTricks($hand) {
+    $hand = '|'.$hand;
+    $high = substr_count($hand, 'a')+substr_count($hand, 'k');
+    $low = substr_count($hand, 'q')+substr_count($hand, 'j')-substr_count($hand, '|j');
+    $diff = $high - $low;
+    if ($diff > 2) {
+        return 0.125;
+    }
+    if ($diff > 1) {
+        return 0.0625;
+    }
+    if ($diff < -2) {
+        return -0.125;
+    }
+    if ($diff < -1) {
+        return -0.0625;
+    }
+    return 0;
+}
+
+function luBlots($hand) {
+    $nonshort = '';
+    foreach ($hand as $suit) {
+        if (strlen($suit) >= 3) {
+            $nonshort .= $suit;
+        }
+    }
+    $dummy = array();
+    $count = preg_match_all('/t|9/', $nonshort, $dummy)-1;
+    if ($count > 0) {
+        return 0.0625;
+    }
+    if ($count < 0) {
+        return -0.0625;
+    }
+    return 0;
+}
+
+function shortSuit($distribution) {
+    $suits = array();
+    foreach ($distribution as $suit) {
+        if ($suit <= 3) {
+            $suits[] = $suit;
+        }
+    }
+    if (count($suits) < 2) {
+        return 0;
+    }
+    sort($suits);
+    $diff = $suits[1] - $suits[0];
+    return ($diff > 1) ? 0.0625 : 0;
+}
+
+function majorSuit($distribution) {
+    if ((($distribution[0] + $distribution[1]) >= 8) && ($distribution[0] > 2) && ($distribution[1] > 2)) {
+        return 0.0625;
+    }
+    return 0;
+}
+
+function localization($distribution, $result) {
+    $strength = array();
+    $length = array();
+    foreach ($result['lh'] as $index => $value) {
+        if (is_numeric($index)) {
+            if ($distribution[$index] >= 3) {
+                if (isset($strength[$distribution[$index]])) {
+                    $strength[$distribution[$index]] += ($result['lh'][$index]+$result['lh_plus'][$index]+$result['lh_10'][$index]+$result['lh_short'][$index]);
+                }
+                else {
+                    $strength[$distribution[$index]] = ($result['lh'][$index]+$result['lh_plus'][$index]+$result['lh_10'][$index]+$result['lh_short'][$index]);
+                }
+                if (isset($length[$distribution[$index]])) {
+                    $length[$distribution[$index]] += $distribution[$index];
+                }
+                else {
+                    $length[$distribution[$index]] = $distribution[$index];
+                }
+            }
+        }
+    }
+    ksort($strength);
+    ksort($length);
+    $sumLength = array_sum($length);
+    $sumStrength = array_sum($strength);
+    $longestDiff = end($strength)-$sumStrength*end($length)/$sumLength;
+    $shortestDiff = reset($strength)-$sumStrength*reset($length)/$sumLength;
+    if (abs($longestDiff) > 0.5) {
+        if (abs($longestDiff) > 1) {
+            return 0.25*(abs($longestDiff)/$longestDiff);
+        }
+        else {
+            return 0.125*(abs($longestDiff)/$longestDiff);
+        }
+    }
+    if (abs($shortestDiff) > 0.5) {
+        if (abs($shortestDiff) > 1) {
+            return -0.125*(abs($shortestDiff)/$shortestDiff);
+        }
+        else {
+            return -0.0625*(abs($shortestDiff)/$shortestDiff);
+        }
+    }
+    return 0;
+}
+
+
+function osika($hand) {
+    if (!$hand) {
+        return array('error' => 'Brak podanej ręki!');
+    }
+    $hand = strtolower($hand);
+    $hand = str_replace(array('10', 'w', 'd'), array('t', 'j', 'q'), $hand);
+    $hand = preg_replace('/\s/', '', $hand);
+    $suits = explode('|', $hand);
+    if (count($suits) != 4) {
+        return array('error' => 'Ręka nie zawiera 4 kolorów!');
+    }
+    $distribution = array();
+    $result = array('lu' => array('total' => 0),
+                    'lu_plus' => array('total' => 0),
+                    'lh' => array(0 => 0, 1 => 0, 2 => 0, 3 => 0, 'total' => 0),
+                    'lh_plus' => array(0 => 0, 1 => 0, 2 => 0, 3 => 0, 'total' => 0),
+                    'lh_10' => array(0 => 0, 1 => 0, 2 => 0, 3 => 0, 'total' => 0),
+                    'lh_short' => array(0 => 0, 1 => 0, 2 => 0, 3 => 0, 'total' => 0),
+                    'lsz' => array('total' => 0),
+                    'l10n' => array('total' => 0),
+                    'short_suit' => array('total' => 0),
+                    'major_suit' => array('total' => 0));
+    foreach ($suits as $index => $suit) {
+        $distribution[] = strlen($suit);
+        if (preg_match('/[^akqjtx2-9]/', $suit)) {
+            return array('error' => 'Kolor '.$suit.' zawiera nieprawidłowe znaki!');
+        }
+        foreach (array('a', 'k', 'q', 'j', 't', '9') as $honor) {
+            if (substr_count($suit, $honor) > 1) {
+                return array('error' => 'Kolor '.$suit.' zawiera zduplikowany honor!');
+            }
+        }
+        sortHand($suit);
+        $result['lh_short'][$index] = honorShort($suit);
+        $result['lh_short']['total'] += $result['lh_short'][$index];
+        $result['lh_10'][$index] = blotPlus($suit);
+        $result['lh_10']['total'] += $result['lh_10'][$index];
+        $suit = substr($suit, 0, 3);
+        $result['lh'][$index] = honor($suit);
+        $result['lh']['total'] += $result['lh'][$index];
+        $result['lh_plus'][$index] = honorPlus($suit);
+        $result['lh_plus']['total'] += $result['lh_plus'][$index];
+    }
+    if (array_sum($distribution) != 13) {
+        return array('error' => 'Ręka nie zawiera 13 kart!');
+    }
+    foreach ($distribution as $index => $suit) {
+        $result['lu'][$index] = blot($suit);
+        $result['lu']['total'] += $result['lu'][$index];
+    }
+    $result['lsz']['total'] = quickTricks(implode('|',$suits));
+    $result['lu_plus']['total'] = luBlots($suits);
+    $result['short_suit']['total'] = shortSuit($distribution);
+    $result['major_suit']['total'] = majorSuit($distribution);
+    $result['l10n']['total'] = localization($distribution, $result);
+    $subtotal = array(0 => 0, 1 => 0, 2 => 0, 3 => 0, 'total' => 0);
+    $total = array(0 => 0, 1 => 0, 2 => 0, 3 => 0, 'total' => 0);
+    foreach ($result as $i => $factor) {
+        if (count($factor) == 5) {
+            foreach ($factor as $index => $subt) {
+                $subtotal[$index] += $subt;
+            }
+        }
+        $total['total'] += $factor['total'];
+    }
+    $result['subtotal'] = $subtotal;
+    $result['total'] = $total;
+    return $result;
+}
+
+$hand = $_REQUEST['h'];
+$res = osika($hand);
+if (!isset($_REQUEST['f'])) {
+    $_REQUEST['f'] = '';
+}
+switch ($_REQUEST['f']) {
+    case 'json':
+        echo json_encode($res);
+        exit;
+    default:
+        if (isset($res['error'])) {
+            echo 'Błąd: '.$res['error']."\n";
+            exit;
+        }
+        else {
+            print_r($res);
+        }
+}
+
+
+
+?>
\ No newline at end of file