溫馨提示×
您好，登錄后才能下訂單哦！
點(diǎn)擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》
您好，登錄后才能下訂單哦！
這篇文章主要介紹了易語言如何制作歡樂斗牛單機(jī)版游戲，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。
DLL命令表
.版本 2 .DLL命令 復(fù)制內(nèi)存_復(fù)制位圖信息頭到字節(jié)集, , , "RtlMoveMemory" .參數(shù) Dest, 字節(jié)型, 傳址 .參數(shù) Src, BITMAPINFOHEADER .參數(shù) len, 整數(shù)型 .DLL命令 復(fù)制內(nèi)存_復(fù)制位圖文件頭到字節(jié)集, , , "RtlMoveMemory" .參數(shù) Dest, 字節(jié)型, 傳址 .參數(shù) Src, 文件頭信息_ .參數(shù) len, 整數(shù)型 .DLL命令 復(fù)制內(nèi)存_字節(jié)集到字節(jié)集, , , "RtlMoveMemory" .參數(shù) Dest, 字節(jié)型, 傳址 .參數(shù) Src, 字節(jié)型, 傳址 .參數(shù) len, 整數(shù)型
自定義數(shù)據(jù)類型表
.版本 2 .數(shù)據(jù)類型 BITMAPINFOHEADER .成員 biSize, 整數(shù)型 .成員 biWidth, 整數(shù)型 .成員 biHeight, 整數(shù)型 .成員 biPlanes, 短整數(shù)型 .成員 biBitCount, 短整數(shù)型 .成員 biCompression, 整數(shù)型 .成員 biSizeImage, 整數(shù)型 .成員 biXPelsPerMeter, 整數(shù)型 .成員 biYPelsPerMeter, 整數(shù)型 .成員 biClrUsed, 整數(shù)型 .成員 biClrImportant, 整數(shù)型 .數(shù)據(jù)類型 花色牌點(diǎn) .成員 花色, 整數(shù)型 .成員 牌點(diǎn), 整數(shù)型 .數(shù)據(jù)類型 文件頭信息_ .成員 文件類型, 短整數(shù)型, , , bfType .成員 結(jié)果大小, 整數(shù)型, , , bfSize .成員 保留1, 短整數(shù)型, , , bfReserved1保留，必須設(shè)置為0 .成員 保留2, 短整數(shù)型, , , bfReserved2保留，必須設(shè)置為0 .成員 偏移量, , , , bfOffBits從文件頭開始到實(shí)際的圖象數(shù)據(jù)之間的字節(jié)的偏移量
歡樂斗牛單機(jī)版
.版本 2
.支持庫 iext
.支持庫 iext2
.支持庫 dp1
.支持庫 spec
.程序集 窗口程序集1
.程序集變量 集_牌型數(shù)據(jù), 整數(shù)型, , "6,5", 多維數(shù)組，用來存放6個玩家、每個玩家5張牌數(shù)據(jù)，用1-40純數(shù)字表示
.程序集變量 集_保存數(shù)據(jù), 文本型, , "24", 存檔文件需要保存的數(shù)據(jù)，本來想弄個債務(wù)的，沒弄了，實(shí)際只保存了6 * 3=18項數(shù)據(jù)
.程序集變量 集_各家分值, 小數(shù)型, , "6", 經(jīng)過計算后保存的6家分值
.程序集變量 集_玩家算分, 小數(shù)型, , , 玩家自己算出來的分?jǐn)?shù)
.程序集變量 集_下注金額, 整數(shù)型, , "6", 10 20 30 40 50 * 牌型倍率，各閑家牌與莊家比較，單獨(dú)結(jié)算輸贏
.程序集變量 集_動畫物體, 整數(shù)型, , "30", 動畫物體組件，加載30張撲克牌
.程序集變量 集_玩家數(shù)據(jù), 透明標(biāo)簽, , "24", 透明標(biāo)簽組件，加載等級、資金、經(jīng)驗(yàn)等數(shù)據(jù)
.程序集變量 集_公告類別, 透明標(biāo)簽, , "5", 透明標(biāo)簽組件，公告類別
.程序集變量 集_公告信息, 透明標(biāo)簽, , "5", 透明標(biāo)簽組件，公告信息
.程序集變量 集_牛型標(biāo)簽, 透明標(biāo)簽, , "6", 透明標(biāo)簽組件，牛型
.程序集變量 集_下注按鈕, 按鈕, , "5", 按鈕組件，下注用
.程序集變量 集_點(diǎn)出牌數(shù), 整數(shù)型, , , 玩家點(diǎn)出的牌數(shù)，最大=3
.程序集變量 集_是否點(diǎn)出, 邏輯型, , "5", 標(biāo)記玩家的5張牌是否已經(jīng)點(diǎn)出
.程序集變量 集_開始算牌, 邏輯型, , , 特定的時間段玩家才能點(diǎn)出或縮回?fù)淇伺?
.程序集變量 集_是否強(qiáng)退, 邏輯型, , , 逃跑扣分檢測
.程序集變量 集_莊家位置, 整數(shù)型, , , 1-6，玩家=6，第一局隨機(jī)莊家，以后為拿到牛牛且為最大牌的玩家坐莊
.子程序 __啟動窗口_創(chuàng)建完畢
動畫框_底圖.創(chuàng)建物體 (動畫物體_撲克, 355, 220, 真, )
子_復(fù)制窗口組件 ()
.如果真 (讀配置項 (取運(yùn)行目錄 () ＋ “\存檔.dat”, “颵訩”, “B0E0Y”, “空”) ＝ “空”)
子_生成默認(rèn)數(shù)據(jù)保存 ()
.如果真結(jié)束
子_讀取存檔文件 ()
子_插入公告 (“【系統(tǒng)】”, “歡迎使用[習(xí)作_歡樂斗牛_湖南版]！”)
子_插入公告 (“【系統(tǒng)】”, “本版玩法去掉了10 J Q K 小王 大王！”)
子_插入公告 (“【系統(tǒng)】”, “程序內(nèi)聲音、圖片素材來自網(wǎng)絡(luò)，僅供娛樂！”)
子_插入公告 (“【公告】”, “== 適度賭博益腦，沉迷賭博傷身！==”)
子_插入公告 (“【公告】”, “== 合理安排時間，享受健康生活！==”)
.子程序 __啟動窗口_將被銷毀
__啟動窗口_可否被關(guān)閉 ()
.子程序 __啟動窗口_可否被關(guān)閉, 邏輯型, , 強(qiáng)行推出扣分500，電腦各加100分
.局部變量 局_計次, 整數(shù)型
.如果 (集_是否強(qiáng)退 ＝ 真)
.如果 (信息框 (“強(qiáng)行退出本局將扣掉500金幣！”, #詢問圖標(biāo) ＋ #確認(rèn)取消鈕, “警告”) ＝ #確認(rèn)鈕)
.計次循環(huán)首 (5, 局_計次) ' 電腦各加100
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1]) ＋ 100) ' 2 6 10 14 18
.計次循環(huán)尾 ()
集_保存數(shù)據(jù) [22] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [22]) － 500) ' 22 玩家-500
子_保存存檔文件 ()
結(jié)束 ()
銷毀 ()
.否則
.如果結(jié)束
返回 (假)
.否則
.如果結(jié)束
.子程序 子_取稱號, 文本型, , 借用的征途2S等級排名稱號
.參數(shù) 參_等級, 整數(shù)型
.局部變量 局_返回文本, 文本型
' 初入江湖 武林菜鳥 江湖小蝦 試劍江湖 后起之秀 聲名鵲起 草莽豪杰 武林新貴 武林高手
' 逍遙游俠 江湖俠隱 世外高人 開山立派 一代宗師 震古爍今 武林至尊 獨(dú)孤求敗
.判斷開始 (參_等級 ≥ 0 且 參_等級 ＜ 3) ' 白色
局_返回文本 ＝ “初入江湖”
.判斷 (參_等級 ≥ 3 且 參_等級 ＜ 5) ' 白色
局_返回文本 ＝ “武林菜鳥”
.判斷 (參_等級 ≥ 5 且 參_等級 ＜ 7) ' 白色
局_返回文本 ＝ “江湖小蝦”
.判斷 (參_等級 ≥ 7 且 參_等級 ＜ 10) ' 白色 1-9級
局_返回文本 ＝ “試劍江湖”
.判斷 (參_等級 ≥ 10 且 參_等級 ＜ 13) ' 藍(lán)色
局_返回文本 ＝ “后起之秀”
.判斷 (參_等級 ≥ 13 且 參_等級 ＜ 15) ' 藍(lán)色
局_返回文本 ＝ “聲名鵲起”
.判斷 (參_等級 ≥ 15 且 參_等級 ＜ 17) ' 藍(lán)色
局_返回文本 ＝ “草莽豪杰”
.判斷 (參_等級 ≥ 17 且 參_等級 ＜ 20) ' 藍(lán)色 10-19級
局_返回文本 ＝ “武林新貴”
.判斷 (參_等級 ≥ 20 且 參_等級 ＜ 25) ' 黃色
局_返回文本 ＝ “武林高手”
.判斷 (參_等級 ≥ 25 且 參_等級 ＜ 30) ' 黃色
局_返回文本 ＝ “逍遙游俠”
.判斷 (參_等級 ≥ 30 且 參_等級 ＜ 35) ' 黃色 20-34級
局_返回文本 ＝ “江湖俠隱”
.判斷 (參_等級 ≥ 35 且 參_等級 ＜ 40) ' 綠色
局_返回文本 ＝ “世外高人”
.判斷 (參_等級 ≥ 40 且 參_等級 ＜ 45) ' 綠色
局_返回文本 ＝ “開山立派”
.判斷 (參_等級 ≥ 45 且 參_等級 ＜ 50) ' 綠色 35-49級
局_返回文本 ＝ “一代宗師”
.判斷 (參_等級 ≥ 50 且 參_等級 ＜ 60) ' 紫色
局_返回文本 ＝ “震古爍今”
.判斷 (參_等級 ≥ 60 且 參_等級 ＜ 70) ' 紫色
局_返回文本 ＝ “武林至尊”
.判斷 (參_等級 ≥ 70) ' 紫色
局_返回文本 ＝ “獨(dú)孤求敗”
.默認(rèn)
.判斷結(jié)束
返回 (局_返回文本)
.子程序 子_保存存檔文件, , , 將“集_保存數(shù)據(jù)”數(shù)組整合成一條文本加密保存入存檔文件
.局部變量 局_計次, 整數(shù)型
.局部變量 局_保存文本, 文本型
.計次循環(huán)首 (24, 局_計次)
.如果 (局_計次 ＝ 24)
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計次]
.否則
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計次] ＋ “|”
.如果結(jié)束
.計次循環(huán)尾 ()
寫配置項 (取運(yùn)行目錄 () ＋ “\存檔.dat”, “颵訩”, “B0E0Y”, 子_加密文本 (局_保存文本, “我愛易語言”))
.子程序 子_讀取存檔文件, , , 讀取存檔文件，將文本分割成24份數(shù)據(jù)賦值到“集_保存數(shù)據(jù)”數(shù)組
.局部變量 局_臨時文本, 文本型
.局部變量 局_計次, 整數(shù)型
.局部變量 局_臨時數(shù)組, 文本型, , "24"
局_臨時文本 ＝ 子_解密文本 (讀配置項 (取運(yùn)行目錄 () ＋ “\存檔.dat”, “颵訩”, “B0E0Y”, “空”), “我愛易語言”)
.如果真 (局_臨時文本 ≠ “空”)
局_臨時數(shù)組 ＝ 分割文本 (局_臨時文本, “|”, 24)
.計次循環(huán)首 (24, 局_計次)
集_保存數(shù)據(jù) [局_計次] ＝ 局_臨時數(shù)組 [局_計次]
.計次循環(huán)尾 ()
.計次循環(huán)首 (6, 局_計次)
.如果 (局_計次 ＝ 6)
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3].標(biāo)題 ＝ “玩家六 ” ＋ 集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3] ＋ “級” ' 順序 1 5 9 13 17 21
.否則
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3].標(biāo)題 ＝ “電腦” ＋ 數(shù)值到大寫 (局_計次, 真) ＋ “ ” ＋ 集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3] ＋ “級”
.如果結(jié)束
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1].標(biāo)題 ＝ “稱號：” ＋ 子_取稱號 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3])) ' 2 6 10 14 18 22
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 2].標(biāo)題 ＝ “資金：” ＋ 集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1] ' 3 7 11 15 19 23
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3].標(biāo)題 ＝ “經(jīng)驗(yàn)：” ＋ 集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3] ＋ “/” ＋ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3]) × 50) ' 4 8 12 16 20 24
.計次循環(huán)尾 ()
.如果真結(jié)束
.子程序 子_生成默認(rèn)數(shù)據(jù)保存, , , 第一次運(yùn)行時生成的默認(rèn)數(shù)據(jù)
.局部變量 局_計次, 整數(shù)型
.局部變量 局_保存文本, 文本型
.計次循環(huán)首 (6, 局_計次)
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3] ＝ “1” ' 順序 1 5 9 13 17 21 等級= 1級
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1] ＝ “50000” ' 2 6 10 14 18 22 資金=50000
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 2] ＝ “0” ' 3 7 11 15 19 23 債務(wù)=0
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3] ＝ “0” ' 4 8 12 16 20 24 經(jīng)驗(yàn)=0
.計次循環(huán)尾 ()
.計次循環(huán)首 (24, 局_計次)
.如果 (局_計次 ＝ 24)
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計次]
.否則
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計次] ＋ “|”
.如果結(jié)束
.計次循環(huán)尾 ()
寫配置項 (取運(yùn)行目錄 () ＋ “\存檔.dat”, “颵訩”, “B0E0Y”, 子_加密文本 (局_保存文本, “我愛易語言”))
.子程序 子_加密文本, 文本型, 公開
.參數(shù) 參_加密文本, 文本型
.參數(shù) 參_密碼, 文本型, 可空
.局部變量 局_a, 文本型
.局部變量 局_b, 文本型, , "0"
.局部變量 局_c, 整數(shù)型
.局部變量 局_b1, 文本型, , "0"
.局部變量 局_b2, 文本型, , "0"
.局部變量 局_t, 文本型, , , 臨時文本
.局部變量 局_t1, 文本型, , "0"
.局部變量 局_t2, 整數(shù)型
數(shù)組清零 (局_t1)
局_t ＝ “0要在TUVWXYZ我地1FGHIJKLMNO4234567BCDE4pqr產(chǎn)不為89abcdeWXYZ我人有fg不為之hi3WXYZ我人有56jklm地一上是中oFGHIJKLMNO4nopqrstuvwxyzABCDE4pqrst5FGHIJKLMNO4產(chǎn)不為895PQRSTUVWXYZ我人有的和主產(chǎn)不為之工abcde要在地vwxy一上是中opqr國經(jīng)BCDE4pqr以pqrst發(fā)了民同”
.計次循環(huán)首 (取文本長度 (局_t), 局_t2)
加入成員 (局_t1, 取文本中間 (局_t, 局_t2, 1))
.計次循環(huán)尾 ()
局_a ＝ “”
局_c ＝ 1
數(shù)組清零 (局_b)
數(shù)組清零 (局_b1)
.如果 (參_密碼 ≠ “”)
.如果 (取絕對值 (取文本長度 (參_密碼)) ％ 2 ≠ 1)
局_a ＝ 參_加密文本 ＋ “*” ＋ 參_密碼 ＋ “ ”
.否則
局_a ＝ 參_加密文本 ＋ “*” ＋ 參_密碼
.如果結(jié)束
.否則
局_a ＝ 參_加密文本
.如果結(jié)束
.計次循環(huán)首 (取文本長度 (局_a), 局_c)
加入成員 (局_b, 取文本中間 (局_a, 局_c, 1))
.計次循環(huán)尾 ()
.如果 (取數(shù)組成員數(shù) (局_b) ≤ 3)
局_c ＝ 取數(shù)組成員數(shù) (局_b)
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b), )
加入成員 (局_b1, 局_b [局_c])
局_c ＝ 局_c － 1
.計次循環(huán)尾 ()
局_c ＝ 1
局_a ＝ “”
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), 局_c)
局_a ＝ 局_a ＋ 局_b1 [局_c]
.計次循環(huán)尾 ()
返回 (局_a)
.否則
.如果結(jié)束
.如果 (取絕對值 (取數(shù)組成員數(shù) (局_b)) ％ 2 ＝ 1)
局_c ＝ 1
.計次循環(huán)首 ((取數(shù)組成員數(shù) (局_b) － 1) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計次循環(huán)尾 ()
局_c ＝ 2
.計次循環(huán)首 ((取數(shù)組成員數(shù) (局_b) － 1) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計次循環(huán)尾 ()
加入成員 (局_b1, 局_b [取數(shù)組成員數(shù) (局_b)])
.否則
局_c ＝ 1
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計次循環(huán)尾 ()
局_c ＝ 2
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計次循環(huán)尾 ()
.如果結(jié)束
局_a ＝ “”
局_c ＝ 1
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), 局_c)
局_a ＝ 局_a ＋ 局_b1 [局_c]
.計次循環(huán)尾 ()
返回 (局_a)
.子程序 子_解密文本, 文本型, 公開
.參數(shù) 參_解密文本, 文本型
.參數(shù) 參_密碼, 文本型, 可空
.局部變量 局_a, 文本型
.局部變量 局_b, 文本型, , "0"
.局部變量 局_c
.局部變量 局_b1, 文本型, , "0"
.局部變量 局_b2, 文本型, , "0"
.局部變量 局_b3, 文本型, , "0"
.局部變量 局_a1, 文本型
局_a ＝ “”
局_c ＝ 1
數(shù)組清零 (局_b)
數(shù)組清零 (局_b1)
局_a ＝ 參_解密文本
.計次循環(huán)首 (取文本長度 (局_a), 局_c)
加入成員 (局_b1, 取文本中間 (局_a, 局_c, 1))
.計次循環(huán)尾 ()
.如果 (取數(shù)組成員數(shù) (局_b1) ≤ 3)
局_c ＝ 取數(shù)組成員數(shù) (局_b1)
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), )
加入成員 (局_b2, 局_b1 [局_c])
局_c ＝ 局_c － 1
.計次循環(huán)尾 ()
局_c ＝ 1
局_a ＝ “”
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b2), 局_c)
局_a ＝ 局_a ＋ 局_b2 [局_c]
.計次循環(huán)尾 ()
返回 (局_a)
.否則
.如果結(jié)束
.如果 (取絕對值 (取數(shù)組成員數(shù) (局_b1)) ％ 2 ≠ 1)
局_c ＝ 1
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), )
.如果真 (局_c ≤ 取數(shù)組成員數(shù) (局_b1))
加入成員 (局_b3, 局_b1 [局_c])
.如果真結(jié)束
局_c ＝ 局_c ＋ 2
.計次循環(huán)尾 ()
刪除成員 (局_b1, 取數(shù)組成員數(shù) (局_b1), 1)
.否則
局_c ＝ 1
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), )
.如果真 (局_c ≤ 取數(shù)組成員數(shù) (局_b1))
加入成員 (局_b3, 局_b1 [局_c])
.如果真結(jié)束
局_c ＝ 局_c ＋ 2
.計次循環(huán)尾 ()
.如果結(jié)束
.如果 (取絕對值 (取數(shù)組成員數(shù) (局_b3)) ％ 2 ＝ 1)
局_c ＝ 1
.計次循環(huán)首 ((取數(shù)組成員數(shù) (局_b3) － 1) ÷ 2, 局_c)
加入成員 (局_b2, 局_b3 [局_c])
加入成員 (局_b2, 局_b3 [局_c ＋ (取數(shù)組成員數(shù) (局_b3) － 1) ÷ 2])
.計次循環(huán)尾 ()
加入成員 (局_b2, 局_b3 [取數(shù)組成員數(shù) (局_b3)])
.否則
局_c ＝ 1
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b3) ÷ 2, 局_c)
加入成員 (局_b2, 局_b3 [局_c])
加入成員 (局_b2, 局_b3 [局_c ＋ 取數(shù)組成員數(shù) (局_b3) ÷ 2])
.計次循環(huán)尾 ()
.如果結(jié)束
局_a ＝ “”
局_c ＝ 1
.計次循環(huán)首 (取數(shù)組成員數(shù) (局_b2), 局_c)
局_a ＝ 局_a ＋ 局_b2 [局_c]
.計次循環(huán)尾 ()
.如果 (尋找文本 (局_a, “*”, , 假) ≠ -1)
.如果 (取數(shù)據(jù)摘要 (到字節(jié)集 (刪尾空 (取文本右邊 (局_a, 取文本長度 (局_a) － 尋找文本 (局_a, “*”, , 假))))) ＝ 取數(shù)據(jù)摘要 (到字節(jié)集 (參_密碼))) ' 改過
局_a1 ＝ 取文本中間 (局_a, 1, 尋找文本 (局_a, “*”, , 假) － 1)
.否則
信息框 (“密碼錯誤，請核對！”, 0, )
.如果結(jié)束
.否則
局_a1 ＝ 局_a
.如果結(jié)束
返回 (局_a1)
.子程序 子_復(fù)制窗口組件
.局部變量 局_計次, 整數(shù)型
.局部變量 局_計次2, 整數(shù)型
.局部變量 局_坐標(biāo)x1, 整數(shù)型, , "8"
.局部變量 局_坐標(biāo)y1, 整數(shù)型, , "8"
.局部變量 局_坐標(biāo)x2, 整數(shù)型, , "8"
.局部變量 局_坐標(biāo)y2, 整數(shù)型, , "8"
局_坐標(biāo)x1 ＝ { 615, 615, 161, 68, 68, 524, 8, 56 }
局_坐標(biāo)y1 ＝ { 388, 113, 13, 113, 388, 486, 468, 468 }
局_坐標(biāo)x2 ＝ { 572, 572, 354, 160, 160, 460 }
局_坐標(biāo)y2 ＝ { 308, 200, 108, 200, 308, 452 }
.計次循環(huán)首 (24, 局_計次)
復(fù)制窗口組件 (透_玩家數(shù)據(jù), 集_玩家數(shù)據(jù) [局_計次])
集_玩家數(shù)據(jù) [局_計次].可視 ＝ 真
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
復(fù)制窗口組件 (透_公告類別, 集_公告類別 [局_計次])
集_公告類別 [局_計次].可視 ＝ 真
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
復(fù)制窗口組件 (透_公告信息, 集_公告信息 [局_計次])
集_公告信息 [局_計次].可視 ＝ 真
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
復(fù)制窗口組件 (按鈕_下注, 集_下注按鈕 [局_計次])
.計次循環(huán)尾 ()
.計次循環(huán)首 (6, 局_計次)
.如果 (局_計次 ＝ 3 或 局_計次 ＝ 6)
復(fù)制窗口組件 (透_牛型1, 集_牛型標(biāo)簽 [局_計次])
.否則
復(fù)制窗口組件 (透_牛型, 集_牛型標(biāo)簽 [局_計次])
.如果結(jié)束
.計次循環(huán)尾 ()
.計次循環(huán)首 (6, 局_計次)
集_牛型標(biāo)簽 [局_計次].移動 (局_坐標(biāo)x2 [局_計次], 局_坐標(biāo)y2 [局_計次], , )
.計次循環(huán)尾 ()
.計次循環(huán)首 (6, 局_計次)
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3].文本顏色 ＝ #黃色 ' 順序 1 5 9 13 17 21
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1].文本顏色 ＝ #白色 ' 2 6 10 14 18 22
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 2].文本顏色 ＝ #芙紅 ' 3 7 11 15 19 23
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3].文本顏色 ＝ #艷青 ' 4 8 12 16 20 24
.計次循環(huán)尾 ()
.計次循環(huán)首 (6, 局_計次2)
.計次循環(huán)首 (4, 局_計次)
集_玩家數(shù)據(jù) [局_計次 ＋ (局_計次2 － 1) × 4].移動 (局_坐標(biāo)x1 [局_計次2], 局_坐標(biāo)y1 [局_計次2] ＋ (局_計次 － 1) × 14, , )
.計次循環(huán)尾 ()
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
集_公告類別 [局_計次].移動 (局_坐標(biāo)x1 [7], 局_坐標(biāo)y1 [7] ＋ (局_計次 － 1) × 16, , )
集_公告信息 [局_計次].移動 (局_坐標(biāo)x1 [8], 局_坐標(biāo)y1 [8] ＋ (局_計次 － 1) × 16, , )
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
集_下注按鈕 [局_計次].移動 (280 ＋ (局_計次 － 1) × 45, , , )
集_下注按鈕 [局_計次].標(biāo)題 ＝ “$” ＋ 到文本 (局_計次 × 10)
.計次循環(huán)尾 ()
.子程序 子_數(shù)據(jù)洗牌, , , 純數(shù)據(jù)洗牌，將1-40隨機(jī)分組，每組牌5張，分6組，余10張不用
.局部變量 局_a, 整數(shù)型, , "0"
.局部變量 局_b, 整數(shù)型
.局部變量 局_計次, 整數(shù)型
.局部變量 局_玩家數(shù), 整數(shù)型
置隨機(jī)數(shù)種子 ()
.計次循環(huán)首 (40, 局_計次)
加入成員 (局_a, 局_計次)
.計次循環(huán)尾 ()
刪除成員 (局_a, 40, 1) ' 將10也去掉了
刪除成員 (局_a, 30, 1)
刪除成員 (局_a, 20, 1)
刪除成員 (局_a, 10, 1)
.計次循環(huán)首 (6, 局_玩家數(shù))
.計次循環(huán)首 (5, 局_計次) ' 給每一位玩家分配5個牌數(shù)據(jù)，循環(huán)6輪，返回30個純隨機(jī)數(shù)字(1-40)給6個玩家
局_b ＝ 取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_a))
集_牌型數(shù)據(jù) [局_玩家數(shù)] [局_計次] ＝ 局_a [局_b]
刪除成員 (局_a, 局_b, 1)
.計次循環(huán)尾 ()
.計次循環(huán)尾 ()
.子程序 子_轉(zhuǎn)換牌點(diǎn), 花色牌點(diǎn), , 將1-40數(shù)字轉(zhuǎn)換成一張張撲克牌
.參數(shù) 參_待轉(zhuǎn)換牌, 整數(shù)型
.局部變量 局_返回牌點(diǎn), 花色牌點(diǎn)
.判斷開始 (參_待轉(zhuǎn)換牌 ≤ 10) ' 轉(zhuǎn)換成方塊A-10
局_返回牌點(diǎn).花色 ＝ 1
局_返回牌點(diǎn).牌點(diǎn) ＝ 參_待轉(zhuǎn)換牌
.判斷 (參_待轉(zhuǎn)換牌 ≤ 20 且 參_待轉(zhuǎn)換牌 ＞ 10) ' 轉(zhuǎn)換成梅花A-10
局_返回牌點(diǎn).花色 ＝ 2
局_返回牌點(diǎn).牌點(diǎn) ＝ 參_待轉(zhuǎn)換牌 － 10
.判斷 (參_待轉(zhuǎn)換牌 ≤ 30 且 參_待轉(zhuǎn)換牌 ＞ 20) ' 轉(zhuǎn)換成紅桃A-10
局_返回牌點(diǎn).花色 ＝ 3
局_返回牌點(diǎn).牌點(diǎn) ＝ 參_待轉(zhuǎn)換牌 － 20
.判斷 (參_待轉(zhuǎn)換牌 ≤ 40 且 參_待轉(zhuǎn)換牌 ＞ 30) ' 轉(zhuǎn)換成黑桃A-10
局_返回牌點(diǎn).花色 ＝ 4
局_返回牌點(diǎn).牌點(diǎn) ＝ 參_待轉(zhuǎn)換牌 － 30
.默認(rèn)
.判斷結(jié)束
返回 (局_返回牌點(diǎn))
.子程序 子_分割位圖, 字節(jié)集, 公開, 只能是0壓縮,并且是8位或8位以上的位圖！
.參數(shù) 原位圖, 字節(jié)集
.參數(shù) 取出圖像左邊, 整數(shù)型
.參數(shù) 取出圖像頂邊, 整數(shù)型
.參數(shù) 取出寬度, 整數(shù)型
.參數(shù) 取出高度, 整數(shù)型
.局部變量 圖像寬度, 整數(shù)型
.局部變量 圖像高度, 整數(shù)型
.局部變量 圖像位數(shù), 整數(shù)型
.局部變量 圖像壓縮, 整數(shù)型
.局部變量 新位圖, 字節(jié)集
.局部變量 新位圖信息頭, BITMAPINFOHEADER
.局部變量 新位圖文件頭, 文件頭信息_
.局部變量 文件長度, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 顏色點(diǎn)陣偏移量, 整數(shù)型
.局部變量 點(diǎn)的大小, 整數(shù)型
.局部變量 顏色表, 字節(jié)集
.局部變量 總數(shù)據(jù)偏移, 整數(shù)型
.局部變量 新行寬, 整數(shù)型
.局部變量 原行寬, 整數(shù)型
.局部變量 時間, 整數(shù)型
圖像寬度 ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集中間 (原位圖, 19, 4), #整數(shù)型, )
圖像高度 ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集中間 (原位圖, 23, 4), #整數(shù)型, )
圖像位數(shù) ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集中間 (原位圖, 29, 2), #短整數(shù)型, )
圖像壓縮 ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集中間 (原位圖, 31, 4), #整數(shù)型, )
.如果真 (圖像壓縮 ≠ 0)
返回 ({ })
.如果真結(jié)束
.如果真 (圖像位數(shù) ＝ 32)
顏色點(diǎn)陣偏移量 ＝ 54
點(diǎn)的大小 ＝ 4
.如果真結(jié)束
.如果真 (圖像位數(shù) ＝ 24)
顏色點(diǎn)陣偏移量 ＝ 54
點(diǎn)的大小 ＝ 3
.如果真結(jié)束
.如果真 (圖像位數(shù) ＝ 16)
顏色點(diǎn)陣偏移量 ＝ 54
點(diǎn)的大小 ＝ 2
.如果真結(jié)束
.如果真 (圖像位數(shù) ＝ 8)
顏色點(diǎn)陣偏移量 ＝ 1078
點(diǎn)的大小 ＝ 1
顏色表 ＝ 取字節(jié)集中間 (原位圖, 55, 1024)
.如果真結(jié)束
.如果真 (圖像位數(shù) ＜ 8)
輸出調(diào)試文本 (“錯誤！ 圖像位深小于8！”)
返回 ({ })
.如果真結(jié)束
.如果真 (取出圖像左邊 ＋ 取出寬度 ＞ 圖像寬度 或 取出圖像頂邊 ＋ 取出高度 ＞ 圖像高度 或 取出圖像左邊 ＜ 0 或 取出圖像頂邊 ＜ 0 或 取出寬度 ≤ 0 或 取出高度 ≤ 0)
輸出調(diào)試文本 (“參數(shù)錯誤！請檢查輸入的參數(shù)！”)
返回 ({ })
.如果真結(jié)束
原行寬 ＝ 左移 (右移 (圖像寬度 × 圖像位數(shù) ＋ 31, 5), 2)
新行寬 ＝ 左移 (右移 (取出寬度 × 圖像位數(shù) ＋ 31, 5), 2)
文件長度 ＝ 新行寬 × 取出高度
新位圖 ＝ 取空白字節(jié)集 (文件長度 ＋ 54 ＋ 取字節(jié)集長度 (顏色表))
新位圖文件頭.文件類型 ＝ 19778
新位圖文件頭.偏移量 ＝ 顏色點(diǎn)陣偏移量
新位圖文件頭.結(jié)果大小 ＝ 顏色點(diǎn)陣偏移量 ＋ 文件長度
復(fù)制內(nèi)存_復(fù)制位圖文件頭到字節(jié)集 (新位圖 [1], 新位圖文件頭, 14)
新位圖信息頭.biSize ＝ 40
新位圖信息頭.biWidth ＝ 取出寬度
新位圖信息頭.biHeight ＝ 取出高度
新位圖信息頭.biPlanes ＝ 1
新位圖信息頭.biBitCount ＝ 圖像位數(shù)
復(fù)制內(nèi)存_復(fù)制位圖信息頭到字節(jié)集 (新位圖 [15], 新位圖信息頭, 40)
.如果真 (圖像位數(shù) ＝ 8)
復(fù)制內(nèi)存_字節(jié)集到字節(jié)集 (新位圖 [55], 顏色表 [1], 1024)
.如果真結(jié)束
總數(shù)據(jù)偏移 ＝ 原行寬 × (圖像高度 － 取出高度 － 取出圖像頂邊) ＋ 取出圖像左邊 × 點(diǎn)的大小 ' 總偏移=高偏移+寬偏移
.計次循環(huán)首 (取出高度, i)
復(fù)制內(nèi)存_字節(jié)集到字節(jié)集 (新位圖 [(i － 1) × 新行寬 ＋ 顏色點(diǎn)陣偏移量 ＋ 1], 原位圖 [顏色點(diǎn)陣偏移量 ＋ 總數(shù)據(jù)偏移 ＋ (i － 1) × 原行寬 ＋ 1], 新行寬)
.計次循環(huán)尾 ()
返回 (新位圖)
.子程序 子_返回?fù)淇? 字節(jié)集
.參數(shù) 參_撲克花色, 整數(shù)型, , 4-1分別代表黑桃、紅桃、梅花、方塊
.參數(shù) 參_撲克大小, 整數(shù)型, , A-10分別以1-10表示，0=背景
.局部變量 局_撲克牌寬, 整數(shù)型, , , 撲克牌的寬度，71像素
.局部變量 局_撲克牌高, 整數(shù)型, , , 撲克牌的高度，96像素
.局部變量 局_撲克圖像, 字節(jié)集, , , 返回的撲克圖像
局_撲克牌寬 ＝ 71
局_撲克牌高 ＝ 96
局_撲克圖像 ＝ 子_分割位圖 (#撲克圖集, 局_撲克牌寬 × 參_撲克大小 － 局_撲克牌寬, 局_撲克牌高 × 參_撲克花色 － 局_撲克牌高, 71, 96) ' 返回正常撲克牌圖像
返回 (局_撲克圖像)
.子程序 子_動畫發(fā)牌
.局部變量 局_路線, 整數(shù)型, , "3"
.局部變量 局_計次, 整數(shù)型
.局部變量 局_計次2, 整數(shù)型
.局部變量 局_坐標(biāo)x, 整數(shù)型, , "6", 6家位置的第一張牌坐標(biāo)x
.局部變量 局_坐標(biāo)y, 整數(shù)型, , "6", 6家位置的第一張牌坐標(biāo)y
.局部變量 局_間隔, 整數(shù)型, , , 時間，毫秒
.局部變量 局_間距, 整數(shù)型, , , 距離，像素
局_坐標(biāo)x ＝ { 250, 250, -49, -351, -351, -49 } ' 中間牌位置，355 220
局_坐標(biāo)y ＝ { 62, -50, -216, -50, 62, 226 }
局_間隔 ＝ 100
局_間距 ＝ 20
動畫框_底圖.銷毀所有物體 ()
.計次循環(huán)首 (30, 局_計次)
集_動畫物體 [局_計次] ＝ 動畫框_底圖.創(chuàng)建物體 (動畫物體_撲克, 355, 220, , )
.計次循環(huán)尾 ()
局_路線 [1] ＝ 0 ' 直線移動
.計次循環(huán)首 (5, 局_計次2)
.計次循環(huán)首 (6, 局_計次)
局_路線 [2] ＝ 局_坐標(biāo)x [局_計次] ＋ (局_計次2 － 1) × 20 ' 橫向間距向右20像素遞增
局_路線 [3] ＝ 局_坐標(biāo)y [局_計次] ' 垂直間距固定
動畫框_底圖.自動前進(jìn) (集_動畫物體 [局_計次2 ＋ (局_計次 － 1) × 5], 局_間距, 1, , , 真, , , 局_路線, )
播放音樂 (#發(fā)牌音, )
延遲 (局_間隔)
.計次循環(huán)尾 ()
.計次循環(huán)尾 ()
.子程序 子_計算分值, 小數(shù)型
.參數(shù) 參_牌型數(shù)組, 整數(shù)型, 數(shù)組, 提供的5個牌，以1-40整數(shù)表示
.參數(shù) 參_調(diào)整位置, 邏輯型, , 真=調(diào)整位置
.參數(shù) 參_玩家位置, 整數(shù)型, , 1-6，調(diào)整哪位玩家的牌
.局部變量 局_n, 整數(shù)型
.局部變量 局_i, 整數(shù)型
.局部變量 局_j, 整數(shù)型
.局部變量 局_k, 整數(shù)型
.局部變量 局_臨時數(shù)組, 整數(shù)型, , "5"
.局部變量 局_參照數(shù)組, 整數(shù)型, , "5"
.局部變量 局_花色, 整數(shù)型, , "0", 比較相同點(diǎn)數(shù)牌的花色
.局部變量 局_牌點(diǎn), 整數(shù)型, , "5", 存儲每個牌的實(shí)際點(diǎn)數(shù)
.局部變量 局_路線, 整數(shù)型, , "3"
.局部變量 局_返回分值, 小數(shù)型
局_n ＝ 取數(shù)組成員數(shù) (參_牌型數(shù)組)
.計次循環(huán)首 (局_n － 2, 局_i) ' 檢測到有牛(3個牌相加為10的倍數(shù))則跳出循環(huán)
.計次循環(huán)首 (局_n － 局_i, 局_j)
.計次循環(huán)首 (局_n － 局_i － 局_j, 局_k)
.如果真 ((參_牌型數(shù)組 [局_i] ＋ 參_牌型數(shù)組 [局_j ＋ 局_i] ＋ 參_牌型數(shù)組 [局_k ＋ 局_i ＋ 局_j]) ％ 10 ＝ 0)
局_臨時數(shù)組 [1] ＝ 參_牌型數(shù)組 [局_i]
局_臨時數(shù)組 [2] ＝ 參_牌型數(shù)組 [局_j ＋ 局_i]
局_臨時數(shù)組 [3] ＝ 參_牌型數(shù)組 [局_k ＋ 局_i ＋ 局_j]
跳出循環(huán) ()
.如果真結(jié)束
.計次循環(huán)尾 ()
.計次循環(huán)尾 ()
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_n)
.如果 (參_牌型數(shù)組 [局_n] ％ 10 ＝ 0)
局_牌點(diǎn) [局_n] ＝ 參_牌型數(shù)組 [局_n] ％ 10 ＋ 10
.否則
局_牌點(diǎn) [局_n] ＝ 參_牌型數(shù)組 [局_n] ％ 10
.如果結(jié)束
.計次循環(huán)尾 ()
數(shù)組排序 (局_牌點(diǎn), 假)
局_參照數(shù)組 ＝ 參_牌型數(shù)組
.計次循環(huán)首 (5, 局_n)
.計次循環(huán)首 (3, 局_i)
.如果真 (參_牌型數(shù)組 [局_n] ＝ 局_臨時數(shù)組 [局_i])
局_參照數(shù)組 [局_n] ＝ 0
.如果真結(jié)束
.計次循環(huán)尾 ()
.計次循環(huán)尾 ()
數(shù)組排序 (局_參照數(shù)組, 假)
局_臨時數(shù)組 [4] ＝ 局_參照數(shù)組 [1]
局_臨時數(shù)組 [5] ＝ 局_參照數(shù)組 [2]
' [構(gòu)成牛點(diǎn)分值的整數(shù)部分]
.如果 (局_牌點(diǎn) [1] ＋ 局_牌點(diǎn) [2] ＋ 局_牌點(diǎn) [3] ＋ 局_牌點(diǎn) [4] ＋ 局_牌點(diǎn) [5] ＜ 10) ' 判斷是否全小，5牌相加小于10
局_返回分值 ＝ 12
.否則
.如果 (局_牌點(diǎn) [1] ＝ 局_牌點(diǎn) [4] 或 局_牌點(diǎn) [2] ＝ 局_牌點(diǎn) [5]) ' 判斷是否為炸彈牌型，4張牌點(diǎn)數(shù)相同
局_返回分值 ＝ 11
.否則
.如果 ((局_臨時數(shù)組 [1] ＋ 局_臨時數(shù)組 [2] ＋ 局_臨時數(shù)組 [3]) ％ 10 ＝ 0 且 (局_臨時數(shù)組 [4] ＋ 局_臨時數(shù)組 [5]) ％ 10 ＝ 0 且 局_臨時數(shù)組 [1] ＞ 0) ' 判斷是否牛牛，前3牌相加和后2牌相加均為10的倍數(shù)
局_返回分值 ＝ 10
.否則
.如果 ((局_臨時數(shù)組 [1] ＋ 局_臨時數(shù)組 [2] ＋ 局_臨時數(shù)組 [3]) ％ 10 ＝ 0 且 局_臨時數(shù)組 [1] ＞ 0) ' 如果有牛，則計算牛點(diǎn)分值
局_返回分值 ＝ (局_臨時數(shù)組 [4] ＋ 局_臨時數(shù)組 [5]) ％ 10 ' 余下的2張牌計算分值
.否則
局_返回分值 ＝ 0
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
清除數(shù)組 (局_參照數(shù)組)
局_參照數(shù)組 ＝ { 1, 2, 3, 4, 5 }
局_返回分值 ＝ 局_返回分值 ＋ 局_牌點(diǎn) [1] ÷ 100 ' [構(gòu)成牛點(diǎn)分值的小數(shù)部分前2位，最大牌的點(diǎn)數(shù)]
' [構(gòu)成牛點(diǎn)分值的小數(shù)部分第3位，花色分]
.計次循環(huán)首 (5, 局_n) ' 取出各牌花色分
.如果 (參_牌型數(shù)組 [局_n] ％ 10 ＝ 0)
局_參照數(shù)組 [局_n] ＝ 取整 (參_牌型數(shù)組 [局_n] ÷ 10)
.否則
局_參照數(shù)組 [局_n] ＝ 取整 (參_牌型數(shù)組 [局_n] ÷ 10) ＋ 1
.如果結(jié)束
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_n)
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1] 且 局_牌點(diǎn) [1] ＝ 局_牌點(diǎn) [4]) ' 出現(xiàn)4個相同點(diǎn)數(shù)的最大牌時
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1] 且 局_牌點(diǎn) [1] ＝ 局_牌點(diǎn) [3]) ' 出現(xiàn)3個相同點(diǎn)數(shù)的最大牌時
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1] 且 局_牌點(diǎn) [1] ＝ 局_牌點(diǎn) [2]) ' 出現(xiàn)2個相同點(diǎn)數(shù)的最大牌時
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1]) ' 取最大牌花色分
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.計次循環(huán)尾 ()
數(shù)組排序 (局_花色, 假)
局_返回分值 ＝ 局_返回分值 ＋ 局_花色 [1] ÷ 1000
' 電腦如果有牛，則將有牛的3張牌向左靠攏，余2張向右靠攏
局_路線 [1] ＝ 0
局_路線 [3] ＝ 0
.判斷開始 (參_調(diào)整位置 ＝ 真 且 局_返回分值 ≥ 1)
.計次循環(huán)首 (5, 局_n)
動畫框_底圖.置圖片 (集_動畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 子_返回?fù)淇?nbsp;(子_轉(zhuǎn)換牌點(diǎn) (局_臨時數(shù)組 [局_n]).花色, 子_轉(zhuǎn)換牌點(diǎn) (局_臨時數(shù)組 [局_n]).牌點(diǎn)), )
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_n)
.判斷開始 (局_n ≤ 3)
局_路線 [2] ＝ (局_n － 1) × -4
動畫框_底圖.自動前進(jìn) (集_動畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 4, 1, , , 真, , , 局_路線, )
.判斷 (局_n ＝ 4)
局_路線 [2] ＝ (局_n － 1) × 2 － 2
動畫框_底圖.自動前進(jìn) (集_動畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 4, 1, , , 真, , , 局_路線, )
.判斷 (局_n ＝ 5)
局_路線 [2] ＝ (局_n － 1) × 2 － 8
動畫框_底圖.自動前進(jìn) (集_動畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 4, 1, , , 真, , , 局_路線, )
.默認(rèn)
.判斷結(jié)束
.計次循環(huán)尾 ()
.判斷 (參_調(diào)整位置 ＝ 真 且 局_返回分值 ＜ 1)
.計次循環(huán)首 (5, 局_n)
動畫框_底圖.置圖片 (集_動畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 子_返回?fù)淇?nbsp;(子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [參_玩家位置] [局_n]).花色, 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [參_玩家位置] [局_n]).牌點(diǎn)), )
.計次循環(huán)尾 ()
.默認(rèn)
.判斷結(jié)束
集_各家分值 [參_玩家位置] ＝ 局_返回分值
返回 (局_返回分值)
.子程序 _動畫框_底圖_物體左鍵被按下
.參數(shù) 物體標(biāo)識值, 整數(shù)型
.局部變量 局_計次, 整數(shù)型
.局部變量 局_a, 整數(shù)型, , "5"
.局部變量 局_b, 整數(shù)型, , "5"
.局部變量 局_臨時數(shù)組, 整數(shù)型, , "5"
清除數(shù)組 (局_b)
.計次循環(huán)首 (5, 局_計次)
.如果真 (物體標(biāo)識值 ＝ 集_動畫物體 [局_計次 ＋ 25] 且 集_開始算牌 ＝ 真)
.判斷開始 (動畫框_底圖.取物體頂邊 (集_動畫物體 [局_計次 ＋ 25]) ＝ 446 且 集_點(diǎn)出牌數(shù) ＜ 3)
動畫框_底圖.自動前進(jìn) (集_動畫物體 [局_計次 ＋ 25], 10, 1, , , 真, , , { 0, 0, -20 }, )
集_是否點(diǎn)出 [局_計次] ＝ 真
集_點(diǎn)出牌數(shù) ＝ 集_點(diǎn)出牌數(shù) ＋ 1
.判斷 (動畫框_底圖.取物體頂邊 (集_動畫物體 [局_計次 ＋ 25]) ＝ 426 且 集_點(diǎn)出牌數(shù) ≤ 3)
動畫框_底圖.自動前進(jìn) (集_動畫物體 [局_計次 ＋ 25], 10, 1, , , 真, , , { 0, 0, 20 }, )
集_是否點(diǎn)出 [局_計次] ＝ 假
集_點(diǎn)出牌數(shù) ＝ 集_點(diǎn)出牌數(shù) － 1
.默認(rèn)
.判斷結(jié)束
.如果真 (集_點(diǎn)出牌數(shù) ＝ 3)
.計次循環(huán)首 (5, 局_計次)
.如果 (集_是否點(diǎn)出 [局_計次] ＝ 真)
局_a [局_計次] ＝ 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計次]).牌點(diǎn)
.否則
局_a [局_計次] ＝ 0 － 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計次]).牌點(diǎn)
.如果結(jié)束
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
.如果 (集_是否點(diǎn)出 [局_計次] ＝ 真)
加入成員 (局_b, 局_a [局_計次])
.否則
.如果結(jié)束
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
.如果 (集_是否點(diǎn)出 [局_計次] ＝ 假)
加入成員 (局_b, 0 － 局_a [局_計次])
.否則
.如果結(jié)束
.計次循環(huán)尾 ()
局_a ＝ 局_b
數(shù)組排序 (局_a, 假)
.計次循環(huán)首 (5, 局_計次)
局_臨時數(shù)組 [局_計次] ＝ 集_牌型數(shù)據(jù) [6] [局_計次]
.計次循環(huán)尾 ()
.如果 (局_b [1] ＋ 局_b [2] ＋ 局_b [3] ＋ 局_b [4] ＋ 局_b [5] ＜ 10) ' 判斷是否全小，5牌相加小于10
集_玩家算分 ＝ 子_計算分值 (局_臨時數(shù)組, 假, 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，您拿到了全小牌型！”)
.否則
.如果 (局_a [1] ＝ 局_a [4] 或 局_a [2] ＝ 局_a [5]) ' 判斷是否為炸彈牌型，4張牌點(diǎn)數(shù)相同
集_玩家算分 ＝ 子_計算分值 (局_臨時數(shù)組, 假, 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，您拿到了炸彈牌型！”)
.否則
.如果 ((局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ％ 10 ＝ 0) ' 有牛
集_玩家算分 ＝ 子_計算分值 (局_臨時數(shù)組, 假, 6)
.如果 ((局_b [4] ＋ 局_b [5]) ％ 10 ＝ 0) ' 牛牛
子_插入公告 (“【計算】”, 到文本 (局_b [1]) ＋ “ + ” ＋ 到文本 (局_b [2]) ＋ “ + ” ＋ 到文本 (局_b [3]) ＋ “ = ” ＋ 到文本 (局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ＋ “ 此算法[有牛] = [牛牛] ”)
.否則
子_插入公告 (“【計算】”, 到文本 (局_b [1]) ＋ “ + ” ＋ 到文本 (局_b [2]) ＋ “ + ” ＋ 到文本 (局_b [3]) ＋ “ = ” ＋ 到文本 (局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ＋ “ 此算法[有牛] = [?！?nbsp;＋ 到文本 ((局_b [4] ＋ 局_b [5]) ％ 10) ＋ “] ”)
.如果結(jié)束
.否則
子_插入公告 (“【計算】”, 到文本 (局_b [1]) ＋ “ + ” ＋ 到文本 (局_b [2]) ＋ “ + ” ＋ 到文本 (局_b [3]) ＋ “ = ” ＋ 到文本 (局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ＋ “ 此算法[沒牛]”)
集_玩家算分 ＝ 0
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果真結(jié)束
.如果真結(jié)束
.計次循環(huán)尾 ()
.子程序 子_插入公告
.參數(shù) 參_公告類別, 文本型, , 如：系統(tǒng)、獎池、信息等
.參數(shù) 參_公告文字, 文本型, , 插入的文字
.局部變量 局_計次, 整數(shù)型
.計次循環(huán)首 (4, 局_計次)
集_公告類別 [局_計次].文本顏色 ＝ 集_公告類別 [局_計次 ＋ 1].文本顏色
集_公告類別 [局_計次].標(biāo)題 ＝ 集_公告類別 [局_計次 ＋ 1].標(biāo)題
集_公告信息 [局_計次].標(biāo)題 ＝ 集_公告信息 [局_計次 ＋ 1].標(biāo)題
.計次循環(huán)尾 ()
.判斷開始 (參_公告類別 ＝ “【系統(tǒng)】”)
集_公告類別 [5].文本顏色 ＝ #紅色
.判斷 (參_公告類別 ＝ “【計算】”)
集_公告類別 [5].文本顏色 ＝ #黃色
.判斷 (參_公告類別 ＝ “【公告】”)
集_公告類別 [5].文本顏色 ＝ #品紅
.默認(rèn)
.判斷結(jié)束
集_公告類別 [5].標(biāo)題 ＝ 參_公告類別
集_公告信息 [5].標(biāo)題 ＝ 參_公告文字
.子程序 子_置莊家位置
.局部變量 局_計次, 整數(shù)型
.局部變量 局_數(shù)組, 小數(shù)型, , "6"
.局部變量 局_坐標(biāo)x, 整數(shù)型, , "6"
.局部變量 局_坐標(biāo)y, 整數(shù)型, , "6"
局_坐標(biāo)x ＝ { 716, 716, 260, 14, 14, 472 }
局_坐標(biāo)y ＝ { 388, 126, 14, 126, 388, 500 }
透_莊家.可視 ＝ 真
.計次循環(huán)首 (6, 局_計次)
超級列表框1.置標(biāo)題 (局_計次 － 1, 4, “”)
.計次循環(huán)尾 ()
置隨機(jī)數(shù)種子 ()
.如果真 (集_莊家位置 ＝ 0) ' 第一局置隨機(jī)位置莊家
集_莊家位置 ＝ 取隨機(jī)數(shù) (1, 6)
.判斷開始 (集_莊家位置 ＞ 0 且 集_莊家位置 ≤ 5)
子_插入公告 (“【系統(tǒng)】”, “恭喜，電腦” ＋ 數(shù)值到大寫 (集_莊家位置, 真) ＋ “吉星高照，第一局隨機(jī)坐莊！”)
子_插入公告 (“【系統(tǒng)】”, “發(fā)牌完畢，請各位閑家開始下注！”)
子_插入公告 (“【系統(tǒng)】”, “買定離手，請玩家六開始下注！”)
.判斷 (集_莊家位置 ＝ 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，玩家六吉星高照，第一局隨機(jī)坐莊！”)
.默認(rèn)
.判斷結(jié)束
透_莊家.左邊 ＝ 局_坐標(biāo)x [集_莊家位置]
透_莊家.頂邊 ＝ 局_坐標(biāo)y [集_莊家位置]
.計次循環(huán)首 (6, 局_計次)
.如果真 (局_計次 ＝ 集_莊家位置)
超級列表框1.置標(biāo)題 (局_計次 － 1, 4, “◆”)
跳出循環(huán) ()
.如果真結(jié)束
.計次循環(huán)尾 ()
返回 ()
.如果真結(jié)束
局_數(shù)組 ＝ 集_各家分值
數(shù)組排序 (局_數(shù)組, 假)
.計次循環(huán)首 (6, 局_計次)
.如果真 (集_各家分值 [局_計次] ＝ 局_數(shù)組 [1] 且 局_數(shù)組 [1] ≥ 10) ' 最大牌為牛?；蛞陨?，則換莊
集_莊家位置 ＝ 局_計次
超級列表框1.置標(biāo)題 (局_計次 － 1, 4, “◆”)
透_莊家.左邊 ＝ 局_坐標(biāo)x [集_莊家位置]
透_莊家.頂邊 ＝ 局_坐標(biāo)y [集_莊家位置]
.判斷開始 (集_莊家位置 ＞ 0 且 集_莊家位置 ≤ 5)
子_插入公告 (“【系統(tǒng)】”, “恭喜，電腦” ＋ 數(shù)值到大寫 (集_莊家位置, 真) ＋ “上局拿到牛牛，開始坐莊！”)
.判斷 (集_莊家位置 ＝ 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，玩家六上局拿到牛牛，開始坐莊！”)
.默認(rèn)
.判斷結(jié)束
跳出循環(huán) ()
.如果真結(jié)束
.計次循環(huán)尾 ()
超級列表框1.置標(biāo)題 (集_莊家位置 － 1, 4, “◆”)
.子程序 子_開始下注
.局部變量 局_計次, 整數(shù)型
置隨機(jī)數(shù)種子 ()
.計次循環(huán)首 (5, 局_計次)
.如果真 (局_計次 ≠ 集_莊家位置) ' 非莊家才能下注，下注金額10 20 30 40 50隨機(jī)
集_下注金額 [局_計次] ＝ 10 × 取隨機(jī)數(shù) (1, 5)
超級列表框1.置標(biāo)題 (局_計次 － 1, 1, 到文本 (集_下注金額 [局_計次]))
.如果真結(jié)束
.計次循環(huán)尾 ()
.如果 (集_莊家位置 ≠ 6)
.計次循環(huán)首 (5, 局_計次)
集_下注按鈕 [局_計次].可視 ＝ 真
.計次循環(huán)尾 ()
.否則
.計次循環(huán)首 (5, 局_計次)
動畫框_底圖.置圖片 (集_動畫物體 [局_計次 ＋ 25], 子_返回?fù)淇?nbsp;(子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計次]).花色, 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計次]).牌點(diǎn)), )
.計次循環(huán)尾 ()
集_開始算牌 ＝ 真
按鈕1.標(biāo)題 ＝ “開 牌”
按鈕1.可視 ＝ 真
.如果結(jié)束
.子程序 子_語音播報
.參數(shù) 參_分值, 小數(shù)型
.參數(shù) 參_男女, 邏輯型, , 男=真 女=假
.如果 (參_男女 ＝ 真)
.判斷開始 (取整 (參_分值) ＝ 12)
播放音樂 (#全小男, )
.判斷 (取整 (參_分值) ＝ 11)
播放音樂 (#炸彈男, )
.判斷 (取整 (參_分值) ＝ 10)
播放音樂 (#牛牛男, )
.判斷 (取整 (參_分值) ＝ 9)
播放音樂 (#牛九男, )
.判斷 (取整 (參_分值) ＝ 8)
播放音樂 (#牛八男, )
.判斷 (取整 (參_分值) ＝ 7)
播放音樂 (#牛七男, )
.判斷 (取整 (參_分值) ＝ 6)
播放音樂 (#牛六男, )
.判斷 (取整 (參_分值) ＝ 5)
播放音樂 (#牛五男, )
.判斷 (取整 (參_分值) ＝ 4)
播放音樂 (#牛四男, )
.判斷 (取整 (參_分值) ＝ 3)
播放音樂 (#牛三男, )
.判斷 (取整 (參_分值) ＝ 2)
播放音樂 (#牛二男, )
.判斷 (取整 (參_分值) ＝ 1)
播放音樂 (#牛一男, )
.判斷 (取整 (參_分值) ＝ 0)
播放音樂 (#沒牛男, )
.默認(rèn)
.判斷結(jié)束
.否則
.判斷開始 (取整 (參_分值) ＝ 12)
播放音樂 (#全小女, )
.判斷 (取整 (參_分值) ＝ 11)
播放音樂 (#炸彈女, )
.判斷 (取整 (參_分值) ＝ 10)
播放音樂 (#牛牛女, )
.判斷 (取整 (參_分值) ＝ 9)
播放音樂 (#牛九女, )
.判斷 (取整 (參_分值) ＝ 8)
播放音樂 (#牛八女, )
.判斷 (取整 (參_分值) ＝ 7)
播放音樂 (#牛七女, )
.判斷 (取整 (參_分值) ＝ 6)
播放音樂 (#牛六女, )
.判斷 (取整 (參_分值) ＝ 5)
播放音樂 (#牛五女, )
.判斷 (取整 (參_分值) ＝ 4)
播放音樂 (#牛四女, )
.判斷 (取整 (參_分值) ＝ 3)
播放音樂 (#牛三女, )
.判斷 (取整 (參_分值) ＝ 2)
播放音樂 (#牛二女, )
.判斷 (取整 (參_分值) ＝ 1)
播放音樂 (#牛一女, )
.判斷 (取整 (參_分值) ＝ 0)
播放音樂 (#沒牛女, )
.默認(rèn)
.判斷結(jié)束
.如果結(jié)束
.子程序 子_計算牛型, 文本型
.參數(shù) 參_分值, 小數(shù)型
.局部變量 局_返回文本, 文本型
.判斷開始 (取整 (參_分值) ＝ 12)
局_返回文本 ＝ “全小”
.判斷 (取整 (參_分值) ＝ 11)
局_返回文本 ＝ “四炸”
.判斷 (取整 (參_分值) ＝ 10)
局_返回文本 ＝ “牛?！?
.判斷 (取整 (參_分值) ＝ 0)
局_返回文本 ＝ “沒?！?
.默認(rèn)
局_返回文本 ＝ “牛” ＋ 數(shù)值到大寫 (取整 (參_分值), 真)
.判斷結(jié)束
返回 (局_返回文本)
.子程序 _按鈕_下注_被單擊
.局部變量 局_計次, 整數(shù)型
.局部變量 局_臨時按鈕, 按鈕
局_臨時按鈕 ＝ 取事件組件 ()
.判斷開始 (局_臨時按鈕.標(biāo)題 ＝ “$10”)
集_下注金額 [6] ＝ 10
.判斷 (局_臨時按鈕.標(biāo)題 ＝ “$20”)
集_下注金額 [6] ＝ 20
.判斷 (局_臨時按鈕.標(biāo)題 ＝ “$30”)
集_下注金額 [6] ＝ 30
.判斷 (局_臨時按鈕.標(biāo)題 ＝ “$40”)
集_下注金額 [6] ＝ 40
.判斷 (局_臨時按鈕.標(biāo)題 ＝ “$50”)
集_下注金額 [6] ＝ 50
.默認(rèn)
.判斷結(jié)束
.計次循環(huán)首 (5, 局_計次)
集_下注按鈕 [局_計次].可視 ＝ 假
.計次循環(huán)尾 ()
.計次循環(huán)首 (5, 局_計次)
動畫框_底圖.置圖片 (集_動畫物體 [局_計次 ＋ 25], 子_返回?fù)淇?nbsp;(子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計次]).花色, 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計次]).牌點(diǎn)), )
.計次循環(huán)尾 ()
集_開始算牌 ＝ 真
按鈕1.標(biāo)題 ＝ “開 牌”
按鈕1.可視 ＝ 真
子_插入公告 (“【公告】”, “請選擇3張牌計算牛型，計算完畢點(diǎn)擊[開牌]！”)
超級列表框1.置標(biāo)題 (5, 1, 到文本 (集_下注金額 [6]))
.子程序 子_資金結(jié)算, , , 此段代碼有點(diǎn)啰嗦，還沒理清
.局部變量 局_計次, 整數(shù)型
.局部變量 局_各家經(jīng)驗(yàn), 整數(shù)型, , "6", 經(jīng)過計算后保存的6家經(jīng)驗(yàn)值
.局部變量 局_各家盈虧, 整數(shù)型, , "6"
.判斷開始 (集_莊家位置 ＝ 1)
.計次循環(huán)首 (5, 局_計次)
局_各家盈虧 [局_計次 ＋ 1] ＝ 子_浮動盈虧 (集_各家分值 [局_計次 ＋ 1], 集_各家分值 [1], 集_下注金額 [局_計次 ＋ 1])
.計次循環(huán)尾 ()
局_各家盈虧 [1] ＝ 0 － (局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 2)
局_各家盈虧 [1] ＝ 子_浮動盈虧 (集_各家分值 [1], 集_各家分值 [2], 集_下注金額 [1])
.計次循環(huán)首 (4, 局_計次)
局_各家盈虧 [局_計次 ＋ 2] ＝ 子_浮動盈虧 (集_各家分值 [局_計次 ＋ 2], 集_各家分值 [2], 集_下注金額 [局_計次 ＋ 2])
.計次循環(huán)尾 ()
局_各家盈虧 [2] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 3)
局_各家盈虧 [1] ＝ 子_浮動盈虧 (集_各家分值 [1], 集_各家分值 [3], 集_下注金額 [1])
局_各家盈虧 [2] ＝ 子_浮動盈虧 (集_各家分值 [2], 集_各家分值 [3], 集_下注金額 [2])
.計次循環(huán)首 (3, 局_計次)
局_各家盈虧 [局_計次 ＋ 3] ＝ 子_浮動盈虧 (集_各家分值 [局_計次 ＋ 3], 集_各家分值 [3], 集_下注金額 [局_計次 ＋ 3])
.計次循環(huán)尾 ()
局_各家盈虧 [3] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 4)
.計次循環(huán)首 (3, 局_計次)
局_各家盈虧 [局_計次] ＝ 子_浮動盈虧 (集_各家分值 [局_計次], 集_各家分值 [4], 集_下注金額 [局_計次])
.計次循環(huán)尾 ()
.計次循環(huán)首 (2, 局_計次)
局_各家盈虧 [局_計次 ＋ 4] ＝ 子_浮動盈虧 (集_各家分值 [局_計次 ＋ 4], 集_各家分值 [4], 集_下注金額 [局_計次 ＋ 4])
.計次循環(huán)尾 ()
局_各家盈虧 [4] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 5)
.計次循環(huán)首 (4, 局_計次)
局_各家盈虧 [局_計次] ＝ 子_浮動盈虧 (集_各家分值 [局_計次], 集_各家分值 [5], 集_下注金額 [局_計次])
.計次循環(huán)尾 ()
局_各家盈虧 [6] ＝ 子_浮動盈虧 (集_各家分值 [6], 集_各家分值 [5], 集_下注金額 [6])
局_各家盈虧 [5] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 6)
.計次循環(huán)首 (5, 局_計次)
局_各家盈虧 [局_計次] ＝ 子_浮動盈虧 (集_各家分值 [局_計次], 集_各家分值 [6], 集_下注金額 [局_計次])
.計次循環(huán)尾 ()
局_各家盈虧 [6] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5])
.默認(rèn)
.判斷結(jié)束
.計次循環(huán)首 (6, 局_計次)
超級列表框1.置標(biāo)題 (局_計次 － 1, 3, 到文本 (局_各家盈虧 [局_計次]))
' 保存數(shù)據(jù)到資金項
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 1]) ＋ 局_各家盈虧 [局_計次]) ' 2 6 10 14 18 22
.如果 (局_各家盈虧 [局_計次] ＜ 0)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 2
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 2”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 0 且 局_各家盈虧 [局_計次] ＜ 25)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 5
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 5”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 25 且 局_各家盈虧 [局_計次] ＜ 50)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 8
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 8”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 50 且 局_各家盈虧 [局_計次] ＜ 75)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 10
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 10”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 75 且 局_各家盈虧 [局_計次] ＜ 110)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 12
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 12”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 110 且 局_各家盈虧 [局_計次] ＜ 150)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 15
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 15”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 150 且 局_各家盈虧 [局_計次] ＜ 200)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 18
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 18”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 200 且 局_各家盈虧 [局_計次] ＜ 300)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 25
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 25”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 300 且 局_各家盈虧 [局_計次] ＜ 400)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 30
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 30”)
.否則
.如果 (局_各家盈虧 [局_計次] ≥ 400)
局_各家經(jīng)驗(yàn) [局_計次] ＝ 40
超級列表框1.置標(biāo)題 (局_計次 － 1, 5, “+ 40”)
.否則
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
' 保存數(shù)據(jù)到資金項
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3]) ＋ 局_各家經(jīng)驗(yàn) [局_計次]) ' 4 8 12 16 20 24
' 如果 經(jīng)驗(yàn) >= 等級 * 所需經(jīng)驗(yàn)，則等級+1，經(jīng)驗(yàn)為減去當(dāng)前等級所需經(jīng)驗(yàn)后的剩余
.如果真 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3]) ≥ 到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3]) × 50)
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3 ＋ 3]) － 到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3]) × 50)
集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計次 ＋ (局_計次 － 1) × 3]) ＋ 1) ' 等級+1
.如果真結(jié)束
.計次循環(huán)尾 ()
子_保存存檔文件 ()
.子程序 子_浮動盈虧, 整數(shù)型, , 比較閑家與莊家的牌的大小，根據(jù)閑家的下注判斷盈虧
.參數(shù) 參_A分值, 小數(shù)型, , 閑家
.參數(shù) 參_B分值, 小數(shù)型, , 莊家
.參數(shù) 參_閑家下注, 整數(shù)型
.局部變量 局_浮動盈虧, 整數(shù)型
.局部變量 局_贏家分, 小數(shù)型
.局部變量 局_倍率, 整數(shù)型
.如果 (參_A分值 ＞ 參_B分值)
局_贏家分 ＝ 參_A分值
.否則
局_贏家分 ＝ 參_B分值
.如果結(jié)束
.判斷開始 (取整 (局_贏家分) ＞ 11)
局_倍率 ＝ 5
.判斷 (取整 (局_贏家分) ≥ 10 且 取整 (局_贏家分) ＜ 11)
局_倍率 ＝ 3
.判斷 (取整 (局_贏家分) ≥ 8 且 取整 (局_贏家分) ＜ 10)
局_倍率 ＝ 2
.判斷 (取整 (局_贏家分) ≥ 0 且 取整 (局_贏家分) ＜ 8)
局_倍率 ＝ 1
.默認(rèn)
.判斷結(jié)束
.如果 (參_A分值 ＞ 參_B分值)
局_浮動盈虧 ＝ 局_倍率 × 參_閑家下注
.否則
局_浮動盈虧 ＝ 0 － 局_倍率 × 參_閑家下注
.如果結(jié)束
返回 (局_浮動盈虧)
.子程序 _按鈕1_被單擊
.局部變量 局_計次, 整數(shù)型
.局部變量 局_計次2, 整數(shù)型
.局部變量 局_臨時數(shù)組, 整數(shù)型, , "5"
.判斷開始 (按鈕1.標(biāo)題 ＝ “開始游戲”)
播放音樂 (#開始音, )
超級列表框1.可視 ＝ 假
.計次循環(huán)首 (6, 局_計次)
集_牛型標(biāo)簽 [局_計次].可視 ＝ 假
.計次循環(huán)尾 ()
按鈕1.可視 ＝ 假
集_點(diǎn)出牌數(shù) ＝ 0
集_開始算牌 ＝ 假
集_是否點(diǎn)出 ＝ { 假, 假, 假, 假, 假 }
子_讀取存檔文件 ()
子_數(shù)據(jù)洗牌 ()
子_動畫發(fā)牌 ()
集_是否強(qiáng)退 ＝ 真
子_置莊家位置 ()
子_開始下注 ()
.判斷 (按鈕1.標(biāo)題 ＝ “開 牌”)
集_開始算牌 ＝ 假
按鈕1.可視 ＝ 假
.如果 (集_點(diǎn)出牌數(shù) ＜ 3)
集_各家分值 [6] ＝ 0
.否則
集_各家分值 [6] ＝ 集_玩家算分
.如果結(jié)束
子_語音播報 (集_各家分值 [6], 真)
集_牛型標(biāo)簽 [6].可視 ＝ 真
集_牛型標(biāo)簽 [6].標(biāo)題 ＝ 子_計算牛型 (集_各家分值 [6])
超級列表框1.置標(biāo)題 (5, 2, 子_計算牛型 (集_各家分值 [6]))
延遲 (1000)
.計次循環(huán)首 (5, 局_計次2)
.計次循環(huán)首 (5, 局_計次)
局_臨時數(shù)組 [局_計次] ＝ 集_牌型數(shù)據(jù) [局_計次2] [局_計次]
.計次循環(huán)尾 ()
集_各家分值 [局_計次2] ＝ 子_計算分值 (局_臨時數(shù)組, 真, 局_計次2)
.如果 (局_計次2 ＝ 2 或 局_計次2 ＝ 4)
子_語音播報 (集_各家分值 [局_計次2], 真) ' 男聲
.否則
子_語音播報 (集_各家分值 [局_計次2], 假) ' 女聲
.如果結(jié)束
集_牛型標(biāo)簽 [局_計次2].可視 ＝ 真
集_牛型標(biāo)簽 [局_計次2].標(biāo)題 ＝ 子_計算牛型 (集_各家分值 [局_計次2])
超級列表框1.置標(biāo)題 (局_計次2 － 1, 2, 子_計算牛型 (集_各家分值 [局_計次2]))
延遲 (1000)
.計次循環(huán)尾 ()
子_資金結(jié)算 ()
集_是否強(qiáng)退 ＝ 假
超級列表框1.可視 ＝ 真
按鈕1.可視 ＝ 真
按鈕1.標(biāo)題 ＝ “開始游戲”
.默認(rèn)
.判斷結(jié)束運(yùn)行結(jié)果：
感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“易語言如何制作歡樂斗牛單機(jī)版游戲”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識等著你來學(xué)習(xí)!
免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。
億速云公眾號
手機(jī)網(wǎng)站二維碼