PHP遊戲編程25個指令碼代碼

清單 1.簡單的擲骰器
許多遊戲和遊戲系統都需要骰子。讓我們先從簡單的部分入手：擲一個六面骰子。實際上，滾動一個六面骰子就是從 1 到 6 之間選擇一個隨機數字。在 PHP 中，這十分簡單：echo rand(1,6);。
在許多情況下，這基本上很簡單。但是在處理機率遊戲時，我們需要一些更好的實現。PHP 提供了更好的隨機數字產生器：mt_rand()。在不深入研究兩者差別的情況下，可以認為 mt_rand 是一個更快、更好的隨機數字產生器：echo mt_rand(1,6);。如果把該隨機數字產生器放入函數中，則效果會更好。
清單 1. 使用 mt_rand() 隨機數字產生器函數
複製代碼 代碼如下:　　function roll () {
　　return mt_rand(1,6);
　　}
　　echo roll();

然後可以把需要滾動的骰子類型作為參數傳遞給函數。
清單 2. 將骰子類型作為參數傳遞 複製代碼 代碼如下:　　function roll ($sides) {
　　return mt_rand(1,$sides);
　　}
　　echo roll(6); // roll a six-sided die
　　echo roll(10); // roll a ten-sided die
　　echo roll(20); // roll a twenty-sided die

從這裡開始，我們可以繼續根據需要一次滾動多個骰子，返回結果數組；也可以一次性滾動多個不同類型的骰子。但是大多數任務都可以使用這個簡單的指令碼。
隨機名稱產生器
如果正在運行遊戲、編寫故事或者一次性建立大批字元，有時會疲於應付不斷出現的新名字。讓我們看一看可用於解決此問題的一個簡單隨機名稱產生器。首先，讓我們建立兩個簡單數組 — 一個用於名字，一個用于姓氏。
清單 3. 名字和姓氏的兩個簡單數組 複製代碼 代碼如下:　　$male = array(
　　"William",
　　"Henry",
　　"Filbert",
　　"John",
　　"Pat",
　　);
　　$last = array(
　　"Smith",
　　"Jones",
　　"Winkler",
　　"Cooper",
　　"Cline",
　　);

然後就可以從每個數組中選擇一個隨機元素：echo $male[array_rand($male)] . ' ' . $last[array_rand($last)];。要一次性提取多個名稱，只需混合數組並根據需要提取。
清單 4. 混合名稱數組
複製代碼 代碼如下:　　shuffle($male);
　　shuffle($last);
　　for ($i = 0; $i <= 3; $i++) {
　　echo $male[$i] . ' ' . $last[$i];
　　}

基於此基本概念，我們可以建立儲存名字和姓氏的文字檔。如果在文字檔的每一行中存放一個名字，則可以輕鬆地用分行符號分隔檔案內容以構建原始碼數組。
清單 5. 建立名稱的文字檔 複製代碼 代碼如下:　　$male = explode('\n', file_get_contents('names.female.txt'));
　　$last = explode('\n', file_get_contents('names.last.txt'));

構建或尋找一些好的名字檔案（代碼歸檔 中附帶了一些檔案），此後我們絕不再需要為名字煩惱。
情境產生器
利用構建名字產生器使用的相同基本原理，我們可以構建情境產生器。此產生器不但在角色扮演遊戲中十分有用，而且在需要用到偽隨機環境集合（可用於角色扮演、即興創作、寫作等情況）的情況下也十分有用。我最喜歡的遊戲之一，Paranoia 在其 GM Pack 中包括了 “任務混合器（mission blender）”。任務混合器可用於在快速滾動骰子時整合完整任務。讓我們整合自己的情境產生器。
考慮以下情境：您醒來後發現自己迷失於叢林中。您知道自己必須趕去紐約，但是不知道原因。您可以聽到附近的狗叫聲及清晰的敵方搜尋者的聲音。您渾身發冷、不住顫抖，而且沒有武器。該情境中的每一句話都介紹情境的特定方面：
“您醒來後發現自己迷失於叢林中” — 這句話將建立設定。
“您知道自己必須趕去紐約” — 這句話將描述目標。
“您可以聽到狗叫聲” — 這句話將介紹敵人。
“您渾身發冷、不住顫抖，而且沒有武器” — 這句話將添加複雜度。
就像建立名字和姓氏的文字檔一樣，首先分別建立設定、目標、敵人和複雜度的文字檔。代碼歸檔中附帶了範例檔案。在擁有這些檔案後，產生情境的代碼與產生名稱的代碼基本相同。
清單 6. 產生情境
複製代碼 代碼如下:　　$settings = explode("\n", file_get_contents('scenario.settings.txt'));
　　$objectives = explode("\n", file_get_contents('scenario.objectives.txt'));
　　$antagonists = explode("\n", file_get_contents('scenario.antagonists.txt'));
　　$complicati**** = explode("\n", file_get_contents('scenario.complicati****.txt'));
　　shuffle($settings);
　　shuffle($objectives);
　　shuffle($antagonists);
　　shuffle($complicati****);
　　echo $settings[0] . ' ' . $objectives[0] . ' ' . $antagonists[0] . ' '
　　. $complicati****[0] . "<br />\n";

我們可以通過添加新文字檔向情境中添加元素，也可能希望添加多重複雜度。添加到基本文字檔中的內容越多，情境隨時間的變化就越多。
牌組建立器（Deck builder）和裝備（shuffler）
如果您要玩紙牌並且要處理與紙牌相關的指令碼，我們需要用裝備中的工具整合一副牌組構建器。首先，讓我們構建一副標準紙牌。需要構建兩個數組 — 一個用於儲存同花色的組牌，而另一個用於儲存牌面。如果稍後需要添加新組牌或牌類型，則這樣做將獲得很好的靈活性。
清單 7. 構建一副標準撲克牌 複製代碼 代碼如下:　　$suits = array (
　　"Spades", "Hearts", "Clubs", "Diamonds"
　　);
　　$faces = array (
　　"Two", "Three", "Four", "Five", "Six", "Seven", "Eight",
　　"Nine", "Ten", "Jack", "Queen", "King", "Ace"
　　);

然後構建一副牌數組來儲存所有紙牌值。只需使用一對 foreach 迴圈即可完成此操作。
清單 8. 構建一副牌數組 複製代碼 代碼如下:　　$deck = array();
　　foreach ($suits as $suit) {
　　foreach ($faces as $face) {
　　$deck[] = array ("face"=>$face, "suit"=>$suit);
　　}
　　}

在構建了一副撲克牌數組後，我們可以輕鬆地洗牌並隨機抽出一張牌。
清單 9. 洗牌並隨機抽出一張牌 複製代碼 代碼如下:　　shuffle($deck);
　　$card = array_shift($deck);
　　echo $card['face'] . ' of ' . $card['suit'];

現在，我們就獲得了抽取多副牌或構建多層牌盒（multideck shoe）的捷徑。
勝率計算機：發牌
由於構建撲克牌時會分別跟蹤每張牌的牌面和花色，因此可以通過編程方式利用這副牌來計算得到特定牌的幾率。首先每隻手分別抽出五張牌。
清單 10. 每隻手抽出五張牌
複製代碼 代碼如下:　　$hands = array(1 => array(), 2=>array());
　　for ($i = 0; $i < 5; $i++) {
　　$hands[1][] = implode(" of ", array_shift($deck));
　　$hands[2][] = implode(" of ", array_shift($deck));
　　}

然後可以查看這副牌，看看剩餘多少張牌以及抽到特定牌的機率是多少。查看剩餘的牌數十分簡單。只需要計算 $deck 數組中包含的元素數。要獲得抽到特定牌的機率，我們需要一個函數來遍曆整副牌並估算其餘牌以查看是否匹配。
清單 11. 計算抽到特定牌的幾率 複製代碼 代碼如下:　　function calculate_odds($draw, $deck) {
　　$remaining = count($deck);
　　$odds = 0;
　　foreach ($deck as $card) {
　　if ( ($draw['face'] == $card['face'] && $draw['suit'] ==
　　$card['suit'] ) ||
　　($draw['face'] == '' && $draw['suit'] == $card['suit'] ) ||
　　($draw['face'] == $card['face'] && $draw['suit'] == '' ) ) {
　　$odds++;
　　}
　　}
　　return $odds . ' in ' $remaining;
　　}

現在可以選出嘗試抽出的牌。為了簡單起見，傳入看上去類似某張牌的數組。我們可以尋找特定的一張牌。
清單 12. 尋找指定的一張牌 複製代碼 代碼如下:　　$draw = array('face' => 'Ace', 'suit' => 'Spades');
　　echo implode(" of ", $draw) . ' : ' . calculate_odds($draw, $deck);

或者可以尋找指定牌面或花色的牌。
清單 13. 尋找指定牌面或花色的牌 複製代碼 代碼如下:　　$draw = array('face' => '', 'suit' => 'Spades');
　　$draw = array('face' => 'Ace', 'suit' => '');

簡單的撲克發牌器
現在已經得到牌組構建器和一些工具，可以協助計算出抽出特定卡的機率，我們可以整合一個真正簡單的發牌器來進行發牌。出於本例的目的，我們將構建一個可以抽出五張牌的發牌器。發牌器將從整副牌中提供五張牌。使用數字指定需要放棄哪些牌，並且發牌器將用一副牌中的其他牌替換這些牌。我們無需指定發牌限制或特殊規則，但是您可能會發現這些是非常有益的個人經驗。
如上一節所示，產生並洗牌，然後每隻手五張牌。按數組索引顯示這些牌，以便可以指定返回哪些牌。您可以使用表示要替換哪些牌的複選框來完成此操作
。
清單 14. 使用複選框表示要替換的牌 複製代碼 代碼如下:　　foreach ($hand as $index =>$card) {
　　echo "<input type='checkbox' name='card[" . $index . "]'>
　　" . $card['face'] . ' of ' . $card['suit'] . "<br />";
　　}

然後，計算輸入 array $_POST['card']，查看哪些牌已被選擇用於替換。
清單 15. 計算輸入
複製代碼 代碼如下:　　$i = 0;
　　while ($i < 5) {
　　if (isset($_POST['card'][$i])) {
　　$hand[$i] = array_shift($deck);
　　}
　　}

使用此指令碼，您可以嘗試找到處理特定一組牌的最佳方法。
Hangman 遊戲
Hangman 實質上是一款猜字遊戲。給定單詞的長度，我們使用有限的幾次機會猜這個單詞。如果猜出了出現在該單詞中的一個字母，則填充該字母出現的所有位置。在猜錯若干次（通常為六次）後，您就輸了比賽。要構建一個簡陋的 hangman 遊戲，我們需要從單字清單開始。現在，讓我們把單字清單製作成一個簡單的數組。
清單 16. 建立單字清單 複製代碼 代碼如下:　　$words = array (
　　"giants",
　　"triangle",
　　"particle",
　　"birdhouse",
　　"minimum",
　　"flood"
　　);

使用前面介紹的技術，我們可以把這些單詞移動到外部單字清單文字檔中，然後根據需要匯入。
在得到單字清單後，需要隨機選出一個單詞，將每個字母顯示為空白，然後開始猜測。我們需要在每次進行猜測時跟蹤正確和錯誤的猜測。只需序列化猜測數組並在每次猜測時傳遞它們，就可實現跟蹤目的。如果需要阻止人們通過查看頁面原始碼僥倖猜對，則需要執行一些更安全的操作。
構建數組以儲存字母和正確/錯誤的猜測。對於正確的猜測，我們將用字母作為鍵並用句點作為值填充數組。清單 17. 構建儲存字母和猜測結果的數組
複製代碼 代碼如下:　　$letters = array('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o',
　　'p','q','r','s','t','u','v','w','x','y','z');
　　$right = array_fill_keys($letters, '.');
　　$wrong = array();

現在需要一些代碼來評估猜測並在完成猜字遊戲的過程中顯示該單詞。
清單 18. 評估猜測並顯示進度 複製代碼 代碼如下:　　if (stristr($word, $guess)) {
　　$show = '';
　　$right[$guess] = $guess;
　　$wordletters = str_split($word);
　　foreach ($wordletters as $letter) {
　　$show .= $right[$letter];
　　}
　　} else {
　　$show = '';
　　$wrong[$guess] = $guess;
　　if (count($wrong) == 6) {
　　$show = $word;
　　} else {
　　foreach ($wordletters as $letter) {
　　$show .= $right[$letter];
　　}
　　}
　　}

在原始碼歸檔 中，可以看到如何序列化猜測數組並將該數組從一次猜測傳遞到另一次猜測中。
縱橫字謎助手
我知道這樣做不合適，但是有時在玩縱橫拼字謎時，您不得不費勁地找出以 C 開頭並以 T 結尾、包含五個字母的單詞。使用為 Hangman 遊戲構建的相同單字清單，我們可以輕鬆地搜尋符合某個模式的單詞。首先，找到一種傳輸單詞的方法。為了簡單起見，用句點替換缺少的字母：$guess = "c...t";。由於Regex將把句點處理為單個字元，因此我們可以輕鬆地遍曆單字清單以尋找匹配。
清單 19. 遍曆單字清單 複製代碼 代碼如下:　　foreach ($words as $word) {
　　if (preg_match("/^" . $_POST['guess'] . "$/",$word)) {
　　echo $word . "<br />\n";
　　}
　　}

根據單字清單的品質及猜測的準確度，我們應當能夠得到合理的單字清單以用於可能的匹配。您必須自己決定 “表示 ‘不按規則玩' 的由五個字母組成的單詞” 的謎底是 “chest” 還是 “cheat”。
米德裡比斯
米德裡比斯是一款文字遊戲，玩家在遊戲中得到一個簡短的故事並用同一類型的不同單詞替換主要類型的單詞，從而建立同一個故事的更無聊的新版本。閱讀以下文本：“I was walking in the park when I found a lake. I jumped in and swallowed too much water. I had to go to the hospital.” 開始用其他單詞標記替換單詞類型。開始和結束標記帶有底線用於阻止意外的字串匹配。
清單 20. 用單詞標記替換單詞類型 複製代碼 代碼如下:　　$text = "I was _VERB_ing in the _PLACE_ when I found a _NOUN_.
　　I _VERB_ed in, and _VERB_ed too much _NOUN_. I had to go to the _PLACE_.";

接下來，建立幾個基本單字清單。對於本例，我們也不會做得太複雜。
清單 21. 建立幾個基本單字清單
　　$verbs = array('pump', 'jump', 'walk', 'swallow', 'crawl', 'wail', 'roll');
　　$places = array('park', 'hospital', 'arctic', 'ocean', 'grocery', 'basement',
　　'attic', 'sewer');
　　$nouns = array('water', 'lake', 'spit', 'foot', 'worm',
　　'dirt', 'river', 'wankel rotary engine');

現在可以重複地評估文本來根據需要替換標記。
清單 22. 評估文本
複製代碼 代碼如下:　　while (preg_match("/(_VERB_)|(_PLACE_)|(_NOUN_)/", $text, $matches)) {
　　switch ($matches[0]) {
　　case '_VERB_' :
　　shuffle($verbs);
　　$text = preg_replace($matches[0], current($verbs), $text, 1);
　　break;
　　case '_PLACE_' :
　　shuffle($places);
　　$text = preg_replace($matches[0], current($places), $text, 1);
　　break;
　　case '_NOUN_' :
　　shuffle($nouns);
　　$text = preg_replace($matches[0], current($nouns), $text, 1);
　　break;
　　}
　　}
　　echo $text;

很明顯，這是一個簡單而粗糙的樣本。單字清單越精確，並且花在基本文本上的時間越多，結果就越好。我們已經使用了文字檔建立名稱列表及基本單字清單。使用相同原則，我們可以建立按類型劃分的單字清單並使用這些單字清單建立更加變化多端的米德裡比斯遊戲。樂透機
全部選中樂透的六個正確號碼 —— 退一步說 —— 在統計學上是不可能的。不過，許多人仍然花錢去玩，而且如果您喜歡號碼，則查看趨勢圖可能很有趣。讓我們構建一個指令碼，該指令碼將允許跟蹤贏獎號碼並在列表中提供選擇次數最少的 6 個號碼。
（免責聲明：這不會協助您中樂透獎，因此請不要花錢購買獎券。這隻是為了娛樂）。
把贏獎的樂透選擇儲存到文字檔中。用逗號分隔各個號碼並把每組號碼放在單獨一行中。使用分行符號分隔檔案內容並使用逗號分隔行後，可以得到類似清單 23 的內容。
清單 23. 把選擇的贏獎樂透儲存到文字檔中 複製代碼 代碼如下:　　$picks = array(
　　array('6', '10', '18', '21', '34', '40'),
　　array('2', '8', '13', '22', '30', '39'),
　　array('3', '9', '14', '25', '31', '35'),
　　array('11', '12', '16', '24', '36', '37'),
　　array('4', '7', '17', '26', '32', '33')
　　);

很明顯，這不足以成為繪製統計資料的基本檔案。但是它是一個開端，並且足以示範基本原理。
設定一個基本數組以儲存選擇範圍。例如，如果選擇 1 到 40 之間（例如，$numbers = array_fill(1,40,0);）的號碼，則遍曆我們的選擇，遞增相應的匹配值。
清單 24. 遍曆選擇 複製代碼 代碼如下:　　foreach ($picks as $pick) {
　　foreach ($pick as $number) {
　　$numbers[$number]++;
　　}
　　}

最後，根據值將號碼排序。此操作應當會把最少選擇的號碼放在數組的前部。
清單 25. 根據值將號碼排序
複製代碼 代碼如下:　　asort($numbers);
　　$pick = array_slice($numbers,0,6,true);
　　echo implode(',', array_keys($pick));

通過有規律地向包含中獎號碼列表的文字檔添加實際的樂透中獎號碼，可以發現選號的長期趨勢。查看某些號碼的出現頻率十分有趣。