易語言制作歡樂斗牛單機(jī)版游戲源碼
更新時(shí)間：2018年12月04日 11:25:03 作者：易語言源碼貝貝吧
今天小編就為大家分享一篇關(guān)于易語言制作歡樂斗牛單機(jī)版游戲源碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
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個(gè)玩家、每個(gè)玩家5張牌數(shù)據(jù)，用1-40純數(shù)字表示
.程序集變量 集_保存數(shù)據(jù), 文本型, , "24", 存檔文件需要保存的數(shù)據(jù)，本來想弄個(gè)債務(wù)的，沒弄了，實(shí)際只保存了6 * 3=18項(xiàng)數(shù)據(jù)
.程序集變量 集_各家分值, 小數(shù)型, , "6", 經(jīng)過計(jì)算后保存的6家分值
.程序集變量 集_玩家算分, 小數(shù)型, , , 玩家自己算出來的分?jǐn)?shù)
.程序集變量 集_下注金額, 整數(shù)型, , "6", 10 20 30 40 50 * 牌型倍率，各閑家牌與莊家比較，單獨(dú)結(jié)算輸贏
.程序集變量 集_動(dòng)畫物體, 整數(shù)型, , "30", 動(dòng)畫物體組件，加載30張撲克牌
.程序集變量 集_玩家數(shù)據(jù), 透明標(biāo)簽, , "24", 透明標(biāo)簽組件，加載等級(jí)、資金、經(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)出
.程序集變量 集_開始算牌, 邏輯型, , , 特定的時(shí)間段玩家才能點(diǎn)出或縮回?fù)淇伺?
.程序集變量 集_是否強(qiáng)退, 邏輯型, , , 逃跑扣分檢測(cè)
.程序集變量 集_莊家位置, 整數(shù)型, , , 1-6，玩家=6，第一局隨機(jī)莊家，以后為拿到牛牛且為最大牌的玩家坐莊
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
動(dòng)畫框_底圖.創(chuàng)建物體 (動(dòng)畫物體_撲克, 355, 220, 真, )
子_復(fù)制窗口組件 ()
.如果真 (讀配置項(xiàng) (取運(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ò)，僅供娛樂！”)
子_插入公告 (“【公告】”, “== 適度賭博益腦，沉迷賭博傷身！==”)
子_插入公告 (“【公告】”, “== 合理安排時(shí)間，享受健康生活！==”)
.子程序 __啟動(dòng)窗口_將被銷毀
__啟動(dòng)窗口_可否被關(guān)閉 ()
.子程序 __啟動(dòng)窗口_可否被關(guān)閉, 邏輯型, , 強(qiáng)行推出扣分500，電腦各加100分
.局部變量 局_計(jì)次, 整數(shù)型
.如果 (集_是否強(qiáng)退 ＝ 真)
.如果 (信息框 (“強(qiáng)行退出本局將扣掉500金幣！”, #詢問圖標(biāo) ＋ #確認(rèn)取消鈕, “警告”) ＝ #確認(rèn)鈕)
.計(jì)次循環(huán)首 (5, 局_計(jì)次) ' 電腦各加100
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1]) ＋ 100) ' 2 6 10 14 18
.計(jì)次循環(huán)尾 ()
集_保存數(shù)據(jù) [22] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [22]) － 500) ' 22 玩家-500
子_保存存檔文件 ()
結(jié)束 ()
銷毀 ()
.否則
.如果結(jié)束
返回 (假)
.否則
.如果結(jié)束
.子程序 子_取稱號(hào), 文本型, , 借用的征途2S等級(jí)排名稱號(hào)
.參數(shù) 參_等級(jí), 整數(shù)型
.局部變量 局_返回文本, 文本型
' 初入江湖 武林菜鳥 江湖小蝦 試劍江湖 后起之秀 聲名鵲起 草莽豪杰 武林新貴 武林高手
' 逍遙游俠 江湖俠隱 世外高人 開山立派 一代宗師 震古爍今 武林至尊 獨(dú)孤求敗
.判斷開始 (參_等級(jí) ≥ 0 且 參_等級(jí) ＜ 3) ' 白色
局_返回文本 ＝ “初入江湖”
.判斷 (參_等級(jí) ≥ 3 且 參_等級(jí) ＜ 5) ' 白色
局_返回文本 ＝ “武林菜鳥”
.判斷 (參_等級(jí) ≥ 5 且 參_等級(jí) ＜ 7) ' 白色
局_返回文本 ＝ “江湖小蝦”
.判斷 (參_等級(jí) ≥ 7 且 參_等級(jí) ＜ 10) ' 白色 1-9級(jí)
局_返回文本 ＝ “試劍江湖”
.判斷 (參_等級(jí) ≥ 10 且 參_等級(jí) ＜ 13) ' 藍(lán)色
局_返回文本 ＝ “后起之秀”
.判斷 (參_等級(jí) ≥ 13 且 參_等級(jí) ＜ 15) ' 藍(lán)色
局_返回文本 ＝ “聲名鵲起”
.判斷 (參_等級(jí) ≥ 15 且 參_等級(jí) ＜ 17) ' 藍(lán)色
局_返回文本 ＝ “草莽豪杰”
.判斷 (參_等級(jí) ≥ 17 且 參_等級(jí) ＜ 20) ' 藍(lán)色 10-19級(jí)
局_返回文本 ＝ “武林新貴”
.判斷 (參_等級(jí) ≥ 20 且 參_等級(jí) ＜ 25) ' 黃色
局_返回文本 ＝ “武林高手”
.判斷 (參_等級(jí) ≥ 25 且 參_等級(jí) ＜ 30) ' 黃色
局_返回文本 ＝ “逍遙游俠”
.判斷 (參_等級(jí) ≥ 30 且 參_等級(jí) ＜ 35) ' 黃色 20-34級(jí)
局_返回文本 ＝ “江湖俠隱”
.判斷 (參_等級(jí) ≥ 35 且 參_等級(jí) ＜ 40) ' 綠色
局_返回文本 ＝ “世外高人”
.判斷 (參_等級(jí) ≥ 40 且 參_等級(jí) ＜ 45) ' 綠色
局_返回文本 ＝ “開山立派”
.判斷 (參_等級(jí) ≥ 45 且 參_等級(jí) ＜ 50) ' 綠色 35-49級(jí)
局_返回文本 ＝ “一代宗師”
.判斷 (參_等級(jí) ≥ 50 且 參_等級(jí) ＜ 60) ' 紫色
局_返回文本 ＝ “震古爍今”
.判斷 (參_等級(jí) ≥ 60 且 參_等級(jí) ＜ 70) ' 紫色
局_返回文本 ＝ “武林至尊”
.判斷 (參_等級(jí) ≥ 70) ' 紫色
局_返回文本 ＝ “獨(dú)孤求敗”
.默認(rèn)
.判斷結(jié)束
返回 (局_返回文本)
.子程序 子_保存存檔文件, , , 將“集_保存數(shù)據(jù)”數(shù)組整合成一條文本加密保存入存檔文件
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_保存文本, 文本型
.計(jì)次循環(huán)首 (24, 局_計(jì)次)
.如果 (局_計(jì)次 ＝ 24)
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計(jì)次]
.否則
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計(jì)次] ＋ “|”
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\存檔.dat”, “颵訩”, “B0E0Y”, 子_加密文本 (局_保存文本, “我愛易語言”))
.子程序 子_讀取存檔文件, , , 讀取存檔文件，將文本分割成24份數(shù)據(jù)賦值到“集_保存數(shù)據(jù)”數(shù)組
.局部變量 局_臨時(shí)文本, 文本型
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_臨時(shí)數(shù)組, 文本型, , "24"
局_臨時(shí)文本 ＝ 子_解密文本 (讀配置項(xiàng) (取運(yùn)行目錄 () ＋ “\存檔.dat”, “颵訩”, “B0E0Y”, “空”), “我愛易語言”)
.如果真 (局_臨時(shí)文本 ≠ “空”)
局_臨時(shí)數(shù)組 ＝ 分割文本 (局_臨時(shí)文本, “|”, 24)
.計(jì)次循環(huán)首 (24, 局_計(jì)次)
集_保存數(shù)據(jù) [局_計(jì)次] ＝ 局_臨時(shí)數(shù)組 [局_計(jì)次]
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
.如果 (局_計(jì)次 ＝ 6)
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3].標(biāo)題 ＝ “玩家六 ” ＋ 集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3] ＋ “級(jí)” ' 順序 1 5 9 13 17 21
.否則
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3].標(biāo)題 ＝ “電腦” ＋ 數(shù)值到大寫 (局_計(jì)次, 真) ＋ “ ” ＋ 集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3] ＋ “級(jí)”
.如果結(jié)束
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1].標(biāo)題 ＝ “稱號(hào)：” ＋ 子_取稱號(hào) (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3])) ' 2 6 10 14 18 22
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 2].標(biāo)題 ＝ “資金：” ＋ 集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1] ' 3 7 11 15 19 23
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3].標(biāo)題 ＝ “經(jīng)驗(yàn)：” ＋ 集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3] ＋ “/” ＋ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3]) × 50) ' 4 8 12 16 20 24
.計(jì)次循環(huán)尾 ()
.如果真結(jié)束
.子程序 子_生成默認(rèn)數(shù)據(jù)保存, , , 第一次運(yùn)行時(shí)生成的默認(rèn)數(shù)據(jù)
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_保存文本, 文本型
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3] ＝ “1” ' 順序 1 5 9 13 17 21 等級(jí)= 1級(jí)
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1] ＝ “50000” ' 2 6 10 14 18 22 資金=50000
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 2] ＝ “0” ' 3 7 11 15 19 23 債務(wù)=0
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3] ＝ “0” ' 4 8 12 16 20 24 經(jīng)驗(yàn)=0
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (24, 局_計(jì)次)
.如果 (局_計(jì)次 ＝ 24)
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計(jì)次]
.否則
局_保存文本 ＝ 局_保存文本 ＋ 集_保存數(shù)據(jù) [局_計(jì)次] ＋ “|”
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
寫配置項(xiàng) (取運(yùn)行目錄 () ＋ “\存檔.dat”, “颵訩”, “B0E0Y”, 子_加密文本 (局_保存文本, “我愛易語言”))
.子程序 子_加密文本, 文本型, 公開
.參數(shù) 參_加密文本, 文本型
.參數(shù) 參_密碼, 文本型, 可空
.局部變量 局_a, 文本型
.局部變量 局_b, 文本型, , "0"
.局部變量 局_c, 整數(shù)型
.局部變量 局_b1, 文本型, , "0"
.局部變量 局_b2, 文本型, , "0"
.局部變量 局_t, 文本型, , , 臨時(shí)文本
.局部變量 局_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ā)了民同”
.計(jì)次循環(huán)首 (取文本長度 (局_t), 局_t2)
加入成員 (局_t1, 取文本中間 (局_t, 局_t2, 1))
.計(jì)次循環(huán)尾 ()
局_a ＝ “”
局_c ＝ 1
數(shù)組清零 (局_b)
數(shù)組清零 (局_b1)
.如果 (參_密碼 ≠ “”)
.如果 (取絕對(duì)值 (取文本長度 (參_密碼)) ％ 2 ≠ 1)
局_a ＝ 參_加密文本 ＋ “*” ＋ 參_密碼 ＋ “ ”
.否則
局_a ＝ 參_加密文本 ＋ “*” ＋ 參_密碼
.如果結(jié)束
.否則
局_a ＝ 參_加密文本
.如果結(jié)束
.計(jì)次循環(huán)首 (取文本長度 (局_a), 局_c)
加入成員 (局_b, 取文本中間 (局_a, 局_c, 1))
.計(jì)次循環(huán)尾 ()
.如果 (取數(shù)組成員數(shù) (局_b) ≤ 3)
局_c ＝ 取數(shù)組成員數(shù) (局_b)
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b), )
加入成員 (局_b1, 局_b [局_c])
局_c ＝ 局_c － 1
.計(jì)次循環(huán)尾 ()
局_c ＝ 1
局_a ＝ “”
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), 局_c)
局_a ＝ 局_a ＋ 局_b1 [局_c]
.計(jì)次循環(huán)尾 ()
返回 (局_a)
.否則
.如果結(jié)束
.如果 (取絕對(duì)值 (取數(shù)組成員數(shù) (局_b)) ％ 2 ＝ 1)
局_c ＝ 1
.計(jì)次循環(huán)首 ((取數(shù)組成員數(shù) (局_b) － 1) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計(jì)次循環(huán)尾 ()
局_c ＝ 2
.計(jì)次循環(huán)首 ((取數(shù)組成員數(shù) (局_b) － 1) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計(jì)次循環(huán)尾 ()
加入成員 (局_b1, 局_b [取數(shù)組成員數(shù) (局_b)])
.否則
局_c ＝ 1
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計(jì)次循環(huán)尾 ()
局_c ＝ 2
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b) ÷ 2, )
加入成員 (局_b1, 局_b [局_c])
置隨機(jī)數(shù)種子 ()
加入成員 (局_b1, 局_t1 [取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_t1))])
局_c ＝ 局_c ＋ 2
.計(jì)次循環(huán)尾 ()
.如果結(jié)束
局_a ＝ “”
局_c ＝ 1
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), 局_c)
局_a ＝ 局_a ＋ 局_b1 [局_c]
.計(jì)次循環(huán)尾 ()
返回 (局_a)
.子程序 子_解密文本, 文本型, 公開
.參數(shù) 參_解密文本, 文本型
.參數(shù) 參_密碼, 文本型, 可空
.局部變量 局_a, 文本型
.局部變量 局_b, 文本型, , "0"
.局部變量 局_c
.局部變量 局_b1, 文本型, , "0"
.局部變量 局_b2, 文本型, , "0"
.局部變量 局_b3, 文本型, , "0"
.局部變量 局_a1, 文本型
局_a ＝ “”
局_c ＝ 1
數(shù)組清零 (局_b)
數(shù)組清零 (局_b1)
局_a ＝ 參_解密文本
.計(jì)次循環(huán)首 (取文本長度 (局_a), 局_c)
加入成員 (局_b1, 取文本中間 (局_a, 局_c, 1))
.計(jì)次循環(huán)尾 ()
.如果 (取數(shù)組成員數(shù) (局_b1) ≤ 3)
局_c ＝ 取數(shù)組成員數(shù) (局_b1)
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), )
加入成員 (局_b2, 局_b1 [局_c])
局_c ＝ 局_c － 1
.計(jì)次循環(huán)尾 ()
局_c ＝ 1
局_a ＝ “”
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b2), 局_c)
局_a ＝ 局_a ＋ 局_b2 [局_c]
.計(jì)次循環(huán)尾 ()
返回 (局_a)
.否則
.如果結(jié)束
.如果 (取絕對(duì)值 (取數(shù)組成員數(shù) (局_b1)) ％ 2 ≠ 1)
局_c ＝ 1
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), )
.如果真 (局_c ≤ 取數(shù)組成員數(shù) (局_b1))
加入成員 (局_b3, 局_b1 [局_c])
.如果真結(jié)束
局_c ＝ 局_c ＋ 2
.計(jì)次循環(huán)尾 ()
刪除成員 (局_b1, 取數(shù)組成員數(shù) (局_b1), 1)
.否則
局_c ＝ 1
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b1), )
.如果真 (局_c ≤ 取數(shù)組成員數(shù) (局_b1))
加入成員 (局_b3, 局_b1 [局_c])
.如果真結(jié)束
局_c ＝ 局_c ＋ 2
.計(jì)次循環(huán)尾 ()
.如果結(jié)束
.如果 (取絕對(duì)值 (取數(shù)組成員數(shù) (局_b3)) ％ 2 ＝ 1)
局_c ＝ 1
.計(jì)次循環(huán)首 ((取數(shù)組成員數(shù) (局_b3) － 1) ÷ 2, 局_c)
加入成員 (局_b2, 局_b3 [局_c])
加入成員 (局_b2, 局_b3 [局_c ＋ (取數(shù)組成員數(shù) (局_b3) － 1) ÷ 2])
.計(jì)次循環(huán)尾 ()
加入成員 (局_b2, 局_b3 [取數(shù)組成員數(shù) (局_b3)])
.否則
局_c ＝ 1
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b3) ÷ 2, 局_c)
加入成員 (局_b2, 局_b3 [局_c])
加入成員 (局_b2, 局_b3 [局_c ＋ 取數(shù)組成員數(shù) (局_b3) ÷ 2])
.計(jì)次循環(huán)尾 ()
.如果結(jié)束
局_a ＝ “”
局_c ＝ 1
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (局_b2), 局_c)
局_a ＝ 局_a ＋ 局_b2 [局_c]
.計(jì)次循環(huán)尾 ()
.如果 (尋找文本 (局_a, “*”, , 假) ≠ -1)
.如果 (取數(shù)據(jù)摘要 (到字節(jié)集 (刪尾空 (取文本右邊 (局_a, 取文本長度 (局_a) － 尋找文本 (局_a, “*”, , 假))))) ＝ 取數(shù)據(jù)摘要 (到字節(jié)集 (參_密碼))) ' 改過
局_a1 ＝ 取文本中間 (局_a, 1, 尋找文本 (局_a, “*”, , 假) － 1)
.否則
信息框 (“密碼錯(cuò)誤，請(qǐng)核對(duì)！”, 0, )
.如果結(jié)束
.否則
局_a1 ＝ 局_a
.如果結(jié)束
返回 (局_a1)
.子程序 子_復(fù)制窗口組件
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_計(jì)次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 }
.計(jì)次循環(huán)首 (24, 局_計(jì)次)
復(fù)制窗口組件 (透_玩家數(shù)據(jù), 集_玩家數(shù)據(jù) [局_計(jì)次])
集_玩家數(shù)據(jù) [局_計(jì)次].可視 ＝ 真
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
復(fù)制窗口組件 (透_公告類別, 集_公告類別 [局_計(jì)次])
集_公告類別 [局_計(jì)次].可視 ＝ 真
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
復(fù)制窗口組件 (透_公告信息, 集_公告信息 [局_計(jì)次])
集_公告信息 [局_計(jì)次].可視 ＝ 真
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
復(fù)制窗口組件 (按鈕_下注, 集_下注按鈕 [局_計(jì)次])
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
.如果 (局_計(jì)次 ＝ 3 或 局_計(jì)次 ＝ 6)
復(fù)制窗口組件 (透_牛型1, 集_牛型標(biāo)簽 [局_計(jì)次])
.否則
復(fù)制窗口組件 (透_牛型, 集_牛型標(biāo)簽 [局_計(jì)次])
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
集_牛型標(biāo)簽 [局_計(jì)次].移動(dòng) (局_坐標(biāo)x2 [局_計(jì)次], 局_坐標(biāo)y2 [局_計(jì)次], , )
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3].文本顏色 ＝ #黃色 ' 順序 1 5 9 13 17 21
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1].文本顏色 ＝ #白色 ' 2 6 10 14 18 22
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 2].文本顏色 ＝ #芙紅 ' 3 7 11 15 19 23
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3].文本顏色 ＝ #艷青 ' 4 8 12 16 20 24
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (6, 局_計(jì)次2)
.計(jì)次循環(huán)首 (4, 局_計(jì)次)
集_玩家數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次2 － 1) × 4].移動(dòng) (局_坐標(biāo)x1 [局_計(jì)次2], 局_坐標(biāo)y1 [局_計(jì)次2] ＋ (局_計(jì)次 － 1) × 14, , )
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
集_公告類別 [局_計(jì)次].移動(dòng) (局_坐標(biāo)x1 [7], 局_坐標(biāo)y1 [7] ＋ (局_計(jì)次 － 1) × 16, , )
集_公告信息 [局_計(jì)次].移動(dòng) (局_坐標(biāo)x1 [8], 局_坐標(biāo)y1 [8] ＋ (局_計(jì)次 － 1) × 16, , )
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
集_下注按鈕 [局_計(jì)次].移動(dòng) (280 ＋ (局_計(jì)次 － 1) × 45, , , )
集_下注按鈕 [局_計(jì)次].標(biāo)題 ＝ “$” ＋ 到文本 (局_計(jì)次 × 10)
.計(jì)次循環(huán)尾 ()
.子程序 子_數(shù)據(jù)洗牌, , , 純數(shù)據(jù)洗牌，將1-40隨機(jī)分組，每組牌5張，分6組，余10張不用
.局部變量 局_a, 整數(shù)型, , "0"
.局部變量 局_b, 整數(shù)型
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_玩家數(shù), 整數(shù)型
置隨機(jī)數(shù)種子 ()
.計(jì)次循環(huán)首 (40, 局_計(jì)次)
加入成員 (局_a, 局_計(jì)次)
.計(jì)次循環(huán)尾 ()
刪除成員 (局_a, 40, 1) ' 將10也去掉了
刪除成員 (局_a, 30, 1)
刪除成員 (局_a, 20, 1)
刪除成員 (局_a, 10, 1)
.計(jì)次循環(huán)首 (6, 局_玩家數(shù))
.計(jì)次循環(huán)首 (5, 局_計(jì)次) ' 給每一位玩家分配5個(gè)牌數(shù)據(jù)，循環(huán)6輪，返回30個(gè)純隨機(jī)數(shù)字(1-40)給6個(gè)玩家
局_b ＝ 取隨機(jī)數(shù) (1, 取數(shù)組成員數(shù) (局_a))
集_牌型數(shù)據(jù) [局_玩家數(shù)] [局_計(jì)次] ＝ 局_a [局_b]
刪除成員 (局_a, 局_b, 1)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(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í)間, 整數(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)試文本 (“錯(cuò)誤！ 圖像位深小于8！”)
返回 ({ })
.如果真結(jié)束
.如果真 (取出圖像左邊 ＋ 取出寬度 ＞ 圖像寬度 或 取出圖像頂邊 ＋ 取出高度 ＞ 圖像高度 或 取出圖像左邊 ＜ 0 或 取出圖像頂邊 ＜ 0 或 取出寬度 ≤ 0 或 取出高度 ≤ 0)
輸出調(diào)試文本 (“參數(shù)錯(cuò)誤！請(qǐng)檢查輸入的參數(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)的大小 ' 總偏移=高偏移+寬偏移
.計(jì)次循環(huán)首 (取出高度, i)
復(fù)制內(nèi)存_字節(jié)集到字節(jié)集 (新位圖 [(i － 1) × 新行寬 ＋ 顏色點(diǎn)陣偏移量 ＋ 1], 原位圖 [顏色點(diǎn)陣偏移量 ＋ 總數(shù)據(jù)偏移 ＋ (i － 1) × 原行寬 ＋ 1], 新行寬)
.計(jì)次循環(huán)尾 ()
返回 (新位圖)
.子程序 子_返回?fù)淇? 字節(jié)集
.參數(shù) 參_撲克花色, 整數(shù)型, , 4-1分別代表黑桃、紅桃、梅花、方塊
.參數(shù) 參_撲克大小, 整數(shù)型, , A-10分別以1-10表示，0=背景
.局部變量 局_撲克牌寬, 整數(shù)型, , , 撲克牌的寬度，71像素
.局部變量 局_撲克牌高, 整數(shù)型, , , 撲克牌的高度，96像素
.局部變量 局_撲克圖像, 字節(jié)集, , , 返回的撲克圖像
局_撲克牌寬 ＝ 71
局_撲克牌高 ＝ 96
局_撲克圖像 ＝ 子_分割位圖 (#撲克圖集, 局_撲克牌寬 × 參_撲克大小 － 局_撲克牌寬, 局_撲克牌高 × 參_撲克花色 － 局_撲克牌高, 71, 96) ' 返回正常撲克牌圖像
返回 (局_撲克圖像)
.子程序 子_動(dòng)畫發(fā)牌
.局部變量 局_路線, 整數(shù)型, , "3"
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_計(jì)次2, 整數(shù)型
.局部變量 局_坐標(biāo)x, 整數(shù)型, , "6", 6家位置的第一張牌坐標(biāo)x
.局部變量 局_坐標(biāo)y, 整數(shù)型, , "6", 6家位置的第一張牌坐標(biāo)y
.局部變量 局_間隔, 整數(shù)型, , , 時(shí)間，毫秒
.局部變量 局_間距, 整數(shù)型, , , 距離，像素
局_坐標(biāo)x ＝ { 250, 250, -49, -351, -351, -49 } ' 中間牌位置，355 220
局_坐標(biāo)y ＝ { 62, -50, -216, -50, 62, 226 }
局_間隔 ＝ 100
局_間距 ＝ 20
動(dòng)畫框_底圖.銷毀所有物體 ()
.計(jì)次循環(huán)首 (30, 局_計(jì)次)
集_動(dòng)畫物體 [局_計(jì)次] ＝ 動(dòng)畫框_底圖.創(chuàng)建物體 (動(dòng)畫物體_撲克, 355, 220, , )
.計(jì)次循環(huán)尾 ()
局_路線 [1] ＝ 0 ' 直線移動(dòng)
.計(jì)次循環(huán)首 (5, 局_計(jì)次2)
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
局_路線 [2] ＝ 局_坐標(biāo)x [局_計(jì)次] ＋ (局_計(jì)次2 － 1) × 20 ' 橫向間距向右20像素遞增
局_路線 [3] ＝ 局_坐標(biāo)y [局_計(jì)次] ' 垂直間距固定
動(dòng)畫框_底圖.自動(dòng)前進(jìn) (集_動(dòng)畫物體 [局_計(jì)次2 ＋ (局_計(jì)次 － 1) × 5], 局_間距, 1, , , 真, , , 局_路線, )
播放音樂 (#發(fā)牌音, )
延遲 (局_間隔)
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.子程序 子_計(jì)算分值, 小數(shù)型
.參數(shù) 參_牌型數(shù)組, 整數(shù)型, 數(shù)組, 提供的5個(gè)牌，以1-40整數(shù)表示
.參數(shù) 參_調(diào)整位置, 邏輯型, , 真=調(diào)整位置
.參數(shù) 參_玩家位置, 整數(shù)型, , 1-6，調(diào)整哪位玩家的牌
.局部變量 局_n, 整數(shù)型
.局部變量 局_i, 整數(shù)型
.局部變量 局_j, 整數(shù)型
.局部變量 局_k, 整數(shù)型
.局部變量 局_臨時(shí)數(shù)組, 整數(shù)型, , "5"
.局部變量 局_參照數(shù)組, 整數(shù)型, , "5"
.局部變量 局_花色, 整數(shù)型, , "0", 比較相同點(diǎn)數(shù)牌的花色
.局部變量 局_牌點(diǎn), 整數(shù)型, , "5", 存儲(chǔ)每個(gè)牌的實(shí)際點(diǎn)數(shù)
.局部變量 局_路線, 整數(shù)型, , "3"
.局部變量 局_返回分值, 小數(shù)型
局_n ＝ 取數(shù)組成員數(shù) (參_牌型數(shù)組)
.計(jì)次循環(huán)首 (局_n － 2, 局_i) ' 檢測(cè)到有牛(3個(gè)牌相加為10的倍數(shù))則跳出循環(huán)
.計(jì)次循環(huán)首 (局_n － 局_i, 局_j)
.計(jì)次循環(huán)首 (局_n － 局_i － 局_j, 局_k)
.如果真 ((參_牌型數(shù)組 [局_i] ＋ 參_牌型數(shù)組 [局_j ＋ 局_i] ＋ 參_牌型數(shù)組 [局_k ＋ 局_i ＋ 局_j]) ％ 10 ＝ 0)
局_臨時(shí)數(shù)組 [1] ＝ 參_牌型數(shù)組 [局_i]
局_臨時(shí)數(shù)組 [2] ＝ 參_牌型數(shù)組 [局_j ＋ 局_i]
局_臨時(shí)數(shù)組 [3] ＝ 參_牌型數(shù)組 [局_k ＋ 局_i ＋ 局_j]
跳出循環(huán) ()
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_n)
.如果 (參_牌型數(shù)組 [局_n] ％ 10 ＝ 0)
局_牌點(diǎn) [局_n] ＝ 參_牌型數(shù)組 [局_n] ％ 10 ＋ 10
.否則
局_牌點(diǎn) [局_n] ＝ 參_牌型數(shù)組 [局_n] ％ 10
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
數(shù)組排序 (局_牌點(diǎn), 假)
局_參照數(shù)組 ＝ 參_牌型數(shù)組
.計(jì)次循環(huán)首 (5, 局_n)
.計(jì)次循環(huán)首 (3, 局_i)
.如果真 (參_牌型數(shù)組 [局_n] ＝ 局_臨時(shí)數(shù)組 [局_i])
局_參照數(shù)組 [局_n] ＝ 0
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
數(shù)組排序 (局_參照數(shù)組, 假)
局_臨時(shí)數(shù)組 [4] ＝ 局_參照數(shù)組 [1]
局_臨時(shí)數(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í)數(shù)組 [1] ＋ 局_臨時(shí)數(shù)組 [2] ＋ 局_臨時(shí)數(shù)組 [3]) ％ 10 ＝ 0 且 (局_臨時(shí)數(shù)組 [4] ＋ 局_臨時(shí)數(shù)組 [5]) ％ 10 ＝ 0 且 局_臨時(shí)數(shù)組 [1] ＞ 0) ' 判斷是否牛牛，前3牌相加和后2牌相加均為10的倍數(shù)
局_返回分值 ＝ 10
.否則
.如果 ((局_臨時(shí)數(shù)組 [1] ＋ 局_臨時(shí)數(shù)組 [2] ＋ 局_臨時(shí)數(shù)組 [3]) ％ 10 ＝ 0 且 局_臨時(shí)數(shù)組 [1] ＞ 0) ' 如果有牛，則計(jì)算牛點(diǎn)分值
局_返回分值 ＝ (局_臨時(shí)數(shù)組 [4] ＋ 局_臨時(shí)數(shù)組 [5]) ％ 10 ' 余下的2張牌計(jì)算分值
.否則
局_返回分值 ＝ 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位，花色分]
.計(jì)次循環(huán)首 (5, 局_n) ' 取出各牌花色分
.如果 (參_牌型數(shù)組 [局_n] ％ 10 ＝ 0)
局_參照數(shù)組 [局_n] ＝ 取整 (參_牌型數(shù)組 [局_n] ÷ 10)
.否則
局_參照數(shù)組 [局_n] ＝ 取整 (參_牌型數(shù)組 [局_n] ÷ 10) ＋ 1
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_n)
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1] 且 局_牌點(diǎn) [1] ＝ 局_牌點(diǎn) [4]) ' 出現(xiàn)4個(gè)相同點(diǎn)數(shù)的最大牌時(shí)
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1] 且 局_牌點(diǎn) [1] ＝ 局_牌點(diǎn) [3]) ' 出現(xiàn)3個(gè)相同點(diǎn)數(shù)的最大牌時(shí)
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1] 且 局_牌點(diǎn) [1] ＝ 局_牌點(diǎn) [2]) ' 出現(xiàn)2個(gè)相同點(diǎn)數(shù)的最大牌時(shí)
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果 (子_轉(zhuǎn)換牌點(diǎn) (參_牌型數(shù)組 [局_n]).牌點(diǎn) ＝ 局_牌點(diǎn) [1]) ' 取最大牌花色分
加入成員 (局_花色, 局_參照數(shù)組 [局_n])
.否則
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
數(shù)組排序 (局_花色, 假)
局_返回分值 ＝ 局_返回分值 ＋ 局_花色 [1] ÷ 1000
' 電腦如果有牛，則將有牛的3張牌向左靠攏，余2張向右靠攏
局_路線 [1] ＝ 0
局_路線 [3] ＝ 0
.判斷開始 (參_調(diào)整位置 ＝ 真 且 局_返回分值 ≥ 1)
.計(jì)次循環(huán)首 (5, 局_n)
動(dòng)畫框_底圖.置圖片 (集_動(dòng)畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 子_返回?fù)淇?(子_轉(zhuǎn)換牌點(diǎn) (局_臨時(shí)數(shù)組 [局_n]).花色, 子_轉(zhuǎn)換牌點(diǎn) (局_臨時(shí)數(shù)組 [局_n]).牌點(diǎn)), )
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_n)
.判斷開始 (局_n ≤ 3)
局_路線 [2] ＝ (局_n － 1) × -4
動(dòng)畫框_底圖.自動(dòng)前進(jìn) (集_動(dòng)畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 4, 1, , , 真, , , 局_路線, )
.判斷 (局_n ＝ 4)
局_路線 [2] ＝ (局_n － 1) × 2 － 2
動(dòng)畫框_底圖.自動(dòng)前進(jìn) (集_動(dòng)畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 4, 1, , , 真, , , 局_路線, )
.判斷 (局_n ＝ 5)
局_路線 [2] ＝ (局_n － 1) × 2 － 8
動(dòng)畫框_底圖.自動(dòng)前進(jìn) (集_動(dòng)畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 4, 1, , , 真, , , 局_路線, )
.默認(rèn)
.判斷結(jié)束
.計(jì)次循環(huán)尾 ()
.判斷 (參_調(diào)整位置 ＝ 真 且 局_返回分值 ＜ 1)
.計(jì)次循環(huán)首 (5, 局_n)
動(dòng)畫框_底圖.置圖片 (集_動(dòng)畫物體 [局_n ＋ (參_玩家位置 － 1) × 5], 子_返回?fù)淇?(子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [參_玩家位置] [局_n]).花色, 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [參_玩家位置] [局_n]).牌點(diǎn)), )
.計(jì)次循環(huán)尾 ()
.默認(rèn)
.判斷結(jié)束
集_各家分值 [參_玩家位置] ＝ 局_返回分值
返回 (局_返回分值)
.子程序 _動(dòng)畫框_底圖_物體左鍵被按下
.參數(shù) 物體標(biāo)識(shí)值, 整數(shù)型
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_a, 整數(shù)型, , "5"
.局部變量 局_b, 整數(shù)型, , "5"
.局部變量 局_臨時(shí)數(shù)組, 整數(shù)型, , "5"
清除數(shù)組 (局_b)
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
.如果真 (物體標(biāo)識(shí)值 ＝ 集_動(dòng)畫物體 [局_計(jì)次 ＋ 25] 且 集_開始算牌 ＝ 真)
.判斷開始 (動(dòng)畫框_底圖.取物體頂邊 (集_動(dòng)畫物體 [局_計(jì)次 ＋ 25]) ＝ 446 且 集_點(diǎn)出牌數(shù) ＜ 3)
動(dòng)畫框_底圖.自動(dòng)前進(jìn) (集_動(dòng)畫物體 [局_計(jì)次 ＋ 25], 10, 1, , , 真, , , { 0, 0, -20 }, )
集_是否點(diǎn)出 [局_計(jì)次] ＝ 真
集_點(diǎn)出牌數(shù) ＝ 集_點(diǎn)出牌數(shù) ＋ 1
.判斷 (動(dòng)畫框_底圖.取物體頂邊 (集_動(dòng)畫物體 [局_計(jì)次 ＋ 25]) ＝ 426 且 集_點(diǎn)出牌數(shù) ≤ 3)
動(dòng)畫框_底圖.自動(dòng)前進(jìn) (集_動(dòng)畫物體 [局_計(jì)次 ＋ 25], 10, 1, , , 真, , , { 0, 0, 20 }, )
集_是否點(diǎn)出 [局_計(jì)次] ＝ 假
集_點(diǎn)出牌數(shù) ＝ 集_點(diǎn)出牌數(shù) － 1
.默認(rèn)
.判斷結(jié)束
.如果真 (集_點(diǎn)出牌數(shù) ＝ 3)
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
.如果 (集_是否點(diǎn)出 [局_計(jì)次] ＝ 真)
局_a [局_計(jì)次] ＝ 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計(jì)次]).牌點(diǎn)
.否則
局_a [局_計(jì)次] ＝ 0 － 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計(jì)次]).牌點(diǎn)
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
.如果 (集_是否點(diǎn)出 [局_計(jì)次] ＝ 真)
加入成員 (局_b, 局_a [局_計(jì)次])
.否則
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
.如果 (集_是否點(diǎn)出 [局_計(jì)次] ＝ 假)
加入成員 (局_b, 0 － 局_a [局_計(jì)次])
.否則
.如果結(jié)束
.計(jì)次循環(huán)尾 ()
局_a ＝ 局_b
數(shù)組排序 (局_a, 假)
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
局_臨時(shí)數(shù)組 [局_計(jì)次] ＝ 集_牌型數(shù)據(jù) [6] [局_計(jì)次]
.計(jì)次循環(huán)尾 ()
.如果 (局_b [1] ＋ 局_b [2] ＋ 局_b [3] ＋ 局_b [4] ＋ 局_b [5] ＜ 10) ' 判斷是否全小，5牌相加小于10
集_玩家算分 ＝ 子_計(jì)算分值 (局_臨時(shí)數(shù)組, 假, 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，您拿到了全小牌型！”)
.否則
.如果 (局_a [1] ＝ 局_a [4] 或 局_a [2] ＝ 局_a [5]) ' 判斷是否為炸彈牌型，4張牌點(diǎn)數(shù)相同
集_玩家算分 ＝ 子_計(jì)算分值 (局_臨時(shí)數(shù)組, 假, 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，您拿到了炸彈牌型！”)
.否則
.如果 ((局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ％ 10 ＝ 0) ' 有牛
集_玩家算分 ＝ 子_計(jì)算分值 (局_臨時(shí)數(shù)組, 假, 6)
.如果 ((局_b [4] ＋ 局_b [5]) ％ 10 ＝ 0) ' 牛牛
子_插入公告 (“【計(jì)算】”, 到文本 (局_b [1]) ＋ “ + ” ＋ 到文本 (局_b [2]) ＋ “ + ” ＋ 到文本 (局_b [3]) ＋ “ = ” ＋ 到文本 (局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ＋ “ 此算法[有牛] = [牛牛] ”)
.否則
子_插入公告 (“【計(jì)算】”, 到文本 (局_b [1]) ＋ “ + ” ＋ 到文本 (局_b [2]) ＋ “ + ” ＋ 到文本 (局_b [3]) ＋ “ = ” ＋ 到文本 (局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ＋ “ 此算法[有牛] = [?！?＋ 到文本 ((局_b [4] ＋ 局_b [5]) ％ 10) ＋ “] ”)
.如果結(jié)束
.否則
子_插入公告 (“【計(jì)算】”, 到文本 (局_b [1]) ＋ “ + ” ＋ 到文本 (局_b [2]) ＋ “ + ” ＋ 到文本 (局_b [3]) ＋ “ = ” ＋ 到文本 (局_b [1] ＋ 局_b [2] ＋ 局_b [3]) ＋ “ 此算法[沒牛]”)
集_玩家算分 ＝ 0
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果真結(jié)束
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.子程序 子_插入公告
.參數(shù) 參_公告類別, 文本型, , 如：系統(tǒng)、獎(jiǎng)池、信息等
.參數(shù) 參_公告文字, 文本型, , 插入的文字
.局部變量 局_計(jì)次, 整數(shù)型
.計(jì)次循環(huán)首 (4, 局_計(jì)次)
集_公告類別 [局_計(jì)次].文本顏色 ＝ 集_公告類別 [局_計(jì)次 ＋ 1].文本顏色
集_公告類別 [局_計(jì)次].標(biāo)題 ＝ 集_公告類別 [局_計(jì)次 ＋ 1].標(biāo)題
集_公告信息 [局_計(jì)次].標(biāo)題 ＝ 集_公告信息 [局_計(jì)次 ＋ 1].標(biāo)題
.計(jì)次循環(huán)尾 ()
.判斷開始 (參_公告類別 ＝ “【系統(tǒng)】”)
集_公告類別 [5].文本顏色 ＝ #紅色
.判斷 (參_公告類別 ＝ “【計(jì)算】”)
集_公告類別 [5].文本顏色 ＝ #黃色
.判斷 (參_公告類別 ＝ “【公告】”)
集_公告類別 [5].文本顏色 ＝ #品紅
.默認(rèn)
.判斷結(jié)束
集_公告類別 [5].標(biāo)題 ＝ 參_公告類別
集_公告信息 [5].標(biāo)題 ＝ 參_公告文字
.子程序 子_置莊家位置
.局部變量 局_計(jì)次, 整數(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 }
透_莊家.可視 ＝ 真
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 4, “”)
.計(jì)次循環(huán)尾 ()
置隨機(jī)數(shù)種子 ()
.如果真 (集_莊家位置 ＝ 0) ' 第一局置隨機(jī)位置莊家
集_莊家位置 ＝ 取隨機(jī)數(shù) (1, 6)
.判斷開始 (集_莊家位置 ＞ 0 且 集_莊家位置 ≤ 5)
子_插入公告 (“【系統(tǒng)】”, “恭喜，電腦” ＋ 數(shù)值到大寫 (集_莊家位置, 真) ＋ “吉星高照，第一局隨機(jī)坐莊！”)
子_插入公告 (“【系統(tǒng)】”, “發(fā)牌完畢，請(qǐng)各位閑家開始下注！”)
子_插入公告 (“【系統(tǒng)】”, “買定離手，請(qǐng)玩家六開始下注！”)
.判斷 (集_莊家位置 ＝ 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，玩家六吉星高照，第一局隨機(jī)坐莊！”)
.默認(rèn)
.判斷結(jié)束
透_莊家.左邊 ＝ 局_坐標(biāo)x [集_莊家位置]
透_莊家.頂邊 ＝ 局_坐標(biāo)y [集_莊家位置]
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
.如果真 (局_計(jì)次 ＝ 集_莊家位置)
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 4, “◆”)
跳出循環(huán) ()
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
返回 ()
.如果真結(jié)束
局_數(shù)組 ＝ 集_各家分值
數(shù)組排序 (局_數(shù)組, 假)
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
.如果真 (集_各家分值 [局_計(jì)次] ＝ 局_數(shù)組 [1] 且 局_數(shù)組 [1] ≥ 10) ' 最大牌為牛?；蛞陨希瑒t換莊
集_莊家位置 ＝ 局_計(jì)次
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 4, “◆”)
透_莊家.左邊 ＝ 局_坐標(biāo)x [集_莊家位置]
透_莊家.頂邊 ＝ 局_坐標(biāo)y [集_莊家位置]
.判斷開始 (集_莊家位置 ＞ 0 且 集_莊家位置 ≤ 5)
子_插入公告 (“【系統(tǒng)】”, “恭喜，電腦” ＋ 數(shù)值到大寫 (集_莊家位置, 真) ＋ “上局拿到牛牛，開始坐莊！”)
.判斷 (集_莊家位置 ＝ 6)
子_插入公告 (“【系統(tǒng)】”, “恭喜，玩家六上局拿到牛牛，開始坐莊！”)
.默認(rèn)
.判斷結(jié)束
跳出循環(huán) ()
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
超級(jí)列表框1.置標(biāo)題 (集_莊家位置 － 1, 4, “◆”)
.子程序 子_開始下注
.局部變量 局_計(jì)次, 整數(shù)型
置隨機(jī)數(shù)種子 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
.如果真 (局_計(jì)次 ≠ 集_莊家位置) ' 非莊家才能下注，下注金額10 20 30 40 50隨機(jī)
集_下注金額 [局_計(jì)次] ＝ 10 × 取隨機(jī)數(shù) (1, 5)
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 1, 到文本 (集_下注金額 [局_計(jì)次]))
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.如果 (集_莊家位置 ≠ 6)
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
集_下注按鈕 [局_計(jì)次].可視 ＝ 真
.計(jì)次循環(huán)尾 ()
.否則
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
動(dòng)畫框_底圖.置圖片 (集_動(dòng)畫物體 [局_計(jì)次 ＋ 25], 子_返回?fù)淇?(子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計(jì)次]).花色, 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計(jì)次]).牌點(diǎn)), )
.計(jì)次循環(huán)尾 ()
集_開始算牌 ＝ 真
按鈕1.標(biāo)題 ＝ “開 牌”
按鈕1.可視 ＝ 真
.如果結(jié)束
.子程序 子_語音播報(bào)
.參數(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é)束
.子程序 子_計(jì)算牛型, 文本型
.參數(shù) 參_分值, 小數(shù)型
.局部變量 局_返回文本, 文本型
.判斷開始 (取整 (參_分值) ＝ 12)
局_返回文本 ＝ “全小”
.判斷 (取整 (參_分值) ＝ 11)
局_返回文本 ＝ “四炸”
.判斷 (取整 (參_分值) ＝ 10)
局_返回文本 ＝ “牛?！?
.判斷 (取整 (參_分值) ＝ 0)
局_返回文本 ＝ “沒牛”
.默認(rèn)
局_返回文本 ＝ “?！?＋ 數(shù)值到大寫 (取整 (參_分值), 真)
.判斷結(jié)束
返回 (局_返回文本)
.子程序 _按鈕_下注_被單擊
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_臨時(shí)按鈕, 按鈕
局_臨時(shí)按鈕 ＝ 取事件組件 ()
.判斷開始 (局_臨時(shí)按鈕.標(biāo)題 ＝ “$10”)
集_下注金額 [6] ＝ 10
.判斷 (局_臨時(shí)按鈕.標(biāo)題 ＝ “$20”)
集_下注金額 [6] ＝ 20
.判斷 (局_臨時(shí)按鈕.標(biāo)題 ＝ “$30”)
集_下注金額 [6] ＝ 30
.判斷 (局_臨時(shí)按鈕.標(biāo)題 ＝ “$40”)
集_下注金額 [6] ＝ 40
.判斷 (局_臨時(shí)按鈕.標(biāo)題 ＝ “$50”)
集_下注金額 [6] ＝ 50
.默認(rèn)
.判斷結(jié)束
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
集_下注按鈕 [局_計(jì)次].可視 ＝ 假
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
動(dòng)畫框_底圖.置圖片 (集_動(dòng)畫物體 [局_計(jì)次 ＋ 25], 子_返回?fù)淇?(子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計(jì)次]).花色, 子_轉(zhuǎn)換牌點(diǎn) (集_牌型數(shù)據(jù) [6] [局_計(jì)次]).牌點(diǎn)), )
.計(jì)次循環(huán)尾 ()
集_開始算牌 ＝ 真
按鈕1.標(biāo)題 ＝ “開 牌”
按鈕1.可視 ＝ 真
子_插入公告 (“【公告】”, “請(qǐng)選擇3張牌計(jì)算牛型，計(jì)算完畢點(diǎn)擊[開牌]！”)
超級(jí)列表框1.置標(biāo)題 (5, 1, 到文本 (集_下注金額 [6]))
.子程序 子_資金結(jié)算, , , 此段代碼有點(diǎn)啰嗦，還沒理清
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_各家經(jīng)驗(yàn), 整數(shù)型, , "6", 經(jīng)過計(jì)算后保存的6家經(jīng)驗(yàn)值
.局部變量 局_各家盈虧, 整數(shù)型, , "6"
.判斷開始 (集_莊家位置 ＝ 1)
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
局_各家盈虧 [局_計(jì)次 ＋ 1] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [局_計(jì)次 ＋ 1], 集_各家分值 [1], 集_下注金額 [局_計(jì)次 ＋ 1])
.計(jì)次循環(huán)尾 ()
局_各家盈虧 [1] ＝ 0 － (局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 2)
局_各家盈虧 [1] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [1], 集_各家分值 [2], 集_下注金額 [1])
.計(jì)次循環(huán)首 (4, 局_計(jì)次)
局_各家盈虧 [局_計(jì)次 ＋ 2] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [局_計(jì)次 ＋ 2], 集_各家分值 [2], 集_下注金額 [局_計(jì)次 ＋ 2])
.計(jì)次循環(huán)尾 ()
局_各家盈虧 [2] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 3)
局_各家盈虧 [1] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [1], 集_各家分值 [3], 集_下注金額 [1])
局_各家盈虧 [2] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [2], 集_各家分值 [3], 集_下注金額 [2])
.計(jì)次循環(huán)首 (3, 局_計(jì)次)
局_各家盈虧 [局_計(jì)次 ＋ 3] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [局_計(jì)次 ＋ 3], 集_各家分值 [3], 集_下注金額 [局_計(jì)次 ＋ 3])
.計(jì)次循環(huán)尾 ()
局_各家盈虧 [3] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 4)
.計(jì)次循環(huán)首 (3, 局_計(jì)次)
局_各家盈虧 [局_計(jì)次] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [局_計(jì)次], 集_各家分值 [4], 集_下注金額 [局_計(jì)次])
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)首 (2, 局_計(jì)次)
局_各家盈虧 [局_計(jì)次 ＋ 4] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [局_計(jì)次 ＋ 4], 集_各家分值 [4], 集_下注金額 [局_計(jì)次 ＋ 4])
.計(jì)次循環(huán)尾 ()
局_各家盈虧 [4] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [5] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 5)
.計(jì)次循環(huán)首 (4, 局_計(jì)次)
局_各家盈虧 [局_計(jì)次] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [局_計(jì)次], 集_各家分值 [5], 集_下注金額 [局_計(jì)次])
.計(jì)次循環(huán)尾 ()
局_各家盈虧 [6] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [6], 集_各家分值 [5], 集_下注金額 [6])
局_各家盈虧 [5] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [6])
.判斷 (集_莊家位置 ＝ 6)
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
局_各家盈虧 [局_計(jì)次] ＝ 子_浮動(dòng)盈虧 (集_各家分值 [局_計(jì)次], 集_各家分值 [6], 集_下注金額 [局_計(jì)次])
.計(jì)次循環(huán)尾 ()
局_各家盈虧 [6] ＝ 0 － (局_各家盈虧 [1] ＋ 局_各家盈虧 [2] ＋ 局_各家盈虧 [3] ＋ 局_各家盈虧 [4] ＋ 局_各家盈虧 [5])
.默認(rèn)
.判斷結(jié)束
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 3, 到文本 (局_各家盈虧 [局_計(jì)次]))
' 保存數(shù)據(jù)到資金項(xiàng)
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 1]) ＋ 局_各家盈虧 [局_計(jì)次]) ' 2 6 10 14 18 22
.如果 (局_各家盈虧 [局_計(jì)次] ＜ 0)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 2
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 2”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 0 且 局_各家盈虧 [局_計(jì)次] ＜ 25)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 5
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 5”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 25 且 局_各家盈虧 [局_計(jì)次] ＜ 50)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 8
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 8”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 50 且 局_各家盈虧 [局_計(jì)次] ＜ 75)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 10
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 10”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 75 且 局_各家盈虧 [局_計(jì)次] ＜ 110)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 12
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 12”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 110 且 局_各家盈虧 [局_計(jì)次] ＜ 150)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 15
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 15”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 150 且 局_各家盈虧 [局_計(jì)次] ＜ 200)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 18
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 18”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 200 且 局_各家盈虧 [局_計(jì)次] ＜ 300)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 25
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 25”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 300 且 局_各家盈虧 [局_計(jì)次] ＜ 400)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 30
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 30”)
.否則
.如果 (局_各家盈虧 [局_計(jì)次] ≥ 400)
局_各家經(jīng)驗(yàn) [局_計(jì)次] ＝ 40
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次 － 1, 5, “+ 40”)
.否則
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
.如果結(jié)束
' 保存數(shù)據(jù)到資金項(xiàng)
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3]) ＋ 局_各家經(jīng)驗(yàn) [局_計(jì)次]) ' 4 8 12 16 20 24
' 如果 經(jīng)驗(yàn) >= 等級(jí) * 所需經(jīng)驗(yàn)，則等級(jí)+1，經(jīng)驗(yàn)為減去當(dāng)前等級(jí)所需經(jīng)驗(yàn)后的剩余
.如果真 (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3]) ≥ 到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3]) × 50)
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3 ＋ 3]) － 到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3]) × 50)
集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3] ＝ 到文本 (到數(shù)值 (集_保存數(shù)據(jù) [局_計(jì)次 ＋ (局_計(jì)次 － 1) × 3]) ＋ 1) ' 等級(jí)+1
.如果真結(jié)束
.計(jì)次循環(huán)尾 ()
子_保存存檔文件 ()
.子程序 子_浮動(dòng)盈虧, 整數(shù)型, , 比較閑家與莊家的牌的大小，根據(jù)閑家的下注判斷盈虧
.參數(shù) 參_A分值, 小數(shù)型, , 閑家
.參數(shù) 參_B分值, 小數(shù)型, , 莊家
.參數(shù) 參_閑家下注, 整數(shù)型
.局部變量 局_浮動(dòng)盈虧, 整數(shù)型
.局部變量 局_贏家分, 小數(shù)型
.局部變量 局_倍率, 整數(shù)型
.如果 (參_A分值 ＞ 參_B分值)
局_贏家分 ＝ 參_A分值
.否則
局_贏家分 ＝ 參_B分值
.如果結(jié)束
.判斷開始 (取整 (局_贏家分) ＞ 11)
局_倍率 ＝ 5
.判斷 (取整 (局_贏家分) ≥ 10 且 取整 (局_贏家分) ＜ 11)
局_倍率 ＝ 3
.判斷 (取整 (局_贏家分) ≥ 8 且 取整 (局_贏家分) ＜ 10)
局_倍率 ＝ 2
.判斷 (取整 (局_贏家分) ≥ 0 且 取整 (局_贏家分) ＜ 8)
局_倍率 ＝ 1
.默認(rèn)
.判斷結(jié)束
.如果 (參_A分值 ＞ 參_B分值)
局_浮動(dòng)盈虧 ＝ 局_倍率 × 參_閑家下注
.否則
局_浮動(dòng)盈虧 ＝ 0 － 局_倍率 × 參_閑家下注
.如果結(jié)束
返回 (局_浮動(dòng)盈虧)
.子程序 _按鈕1_被單擊
.局部變量 局_計(jì)次, 整數(shù)型
.局部變量 局_計(jì)次2, 整數(shù)型
.局部變量 局_臨時(shí)數(shù)組, 整數(shù)型, , "5"
.判斷開始 (按鈕1.標(biāo)題 ＝ “開始游戲”)
播放音樂 (#開始音, )
超級(jí)列表框1.可視 ＝ 假
.計(jì)次循環(huán)首 (6, 局_計(jì)次)
集_牛型標(biāo)簽 [局_計(jì)次].可視 ＝ 假
.計(jì)次循環(huán)尾 ()
按鈕1.可視 ＝ 假
集_點(diǎn)出牌數(shù) ＝ 0
集_開始算牌 ＝ 假
集_是否點(diǎn)出 ＝ { 假, 假, 假, 假, 假 }
子_讀取存檔文件 ()
子_數(shù)據(jù)洗牌 ()
子_動(dòng)畫發(fā)牌 ()
集_是否強(qiáng)退 ＝ 真
子_置莊家位置 ()
子_開始下注 ()
.判斷 (按鈕1.標(biāo)題 ＝ “開 牌”)
集_開始算牌 ＝ 假
按鈕1.可視 ＝ 假
.如果 (集_點(diǎn)出牌數(shù) ＜ 3)
集_各家分值 [6] ＝ 0
.否則
集_各家分值 [6] ＝ 集_玩家算分
.如果結(jié)束
子_語音播報(bào) (集_各家分值 [6], 真)
集_牛型標(biāo)簽 [6].可視 ＝ 真
集_牛型標(biāo)簽 [6].標(biāo)題 ＝ 子_計(jì)算牛型 (集_各家分值 [6])
超級(jí)列表框1.置標(biāo)題 (5, 2, 子_計(jì)算牛型 (集_各家分值 [6]))
延遲 (1000)
.計(jì)次循環(huán)首 (5, 局_計(jì)次2)
.計(jì)次循環(huán)首 (5, 局_計(jì)次)
局_臨時(shí)數(shù)組 [局_計(jì)次] ＝ 集_牌型數(shù)據(jù) [局_計(jì)次2] [局_計(jì)次]
.計(jì)次循環(huán)尾 ()
集_各家分值 [局_計(jì)次2] ＝ 子_計(jì)算分值 (局_臨時(shí)數(shù)組, 真, 局_計(jì)次2)
.如果 (局_計(jì)次2 ＝ 2 或 局_計(jì)次2 ＝ 4)
子_語音播報(bào) (集_各家分值 [局_計(jì)次2], 真) ' 男聲
.否則
子_語音播報(bào) (集_各家分值 [局_計(jì)次2], 假) ' 女聲
.如果結(jié)束
集_牛型標(biāo)簽 [局_計(jì)次2].可視 ＝ 真
集_牛型標(biāo)簽 [局_計(jì)次2].標(biāo)題 ＝ 子_計(jì)算牛型 (集_各家分值 [局_計(jì)次2])
超級(jí)列表框1.置標(biāo)題 (局_計(jì)次2 － 1, 2, 子_計(jì)算牛型 (集_各家分值 [局_計(jì)次2]))
延遲 (1000)
.計(jì)次循環(huán)尾 ()
子_資金結(jié)算 ()
集_是否強(qiáng)退 ＝ 假
超級(jí)列表框1.可視 ＝ 真
按鈕1.可視 ＝ 真
按鈕1.標(biāo)題 ＝ “開始游戲”
.默認(rèn)
.判斷結(jié)束
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部?jī)?nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接
相關(guān)文章
在本文中我們給大家分享一篇關(guān)于易語言怎么調(diào)用百度文字識(shí)別api的詳細(xì)說明內(nèi)容，有此需要的朋友們參考下吧。2019-06-06
今天小編就為大家分享一篇關(guān)于易語言局域網(wǎng)控制系統(tǒng)，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2018-12-12
在本篇文章中我們給大家分享了解決易語言編程亂碼的問題的具體方法，對(duì)此有需要的朋友們可以學(xué)習(xí)下。2018-11-11
在本篇文章里小編給大家整理了關(guān)于易語言讀寫文件操作的相關(guān)代碼知識(shí)點(diǎn)，需要的朋友們參考一下。2018-11-11
在本篇內(nèi)容中小編給大家整理了關(guān)于保護(hù)殼易語言的sdk代碼內(nèi)容，有需要的朋友們可以參考下。2018-11-11
在本篇文章里小編給大家分享的是關(guān)于易語言關(guān)于變量的知識(shí)點(diǎn)內(nèi)容，有興趣的朋友們可以參考下。2020-03-03
易語言超級(jí)列表框表項(xiàng)關(guān)鍵字搜索代碼示例
今天小編就為大家分享一篇關(guān)于易語言超級(jí)列表框表項(xiàng)關(guān)鍵字搜索代碼示例，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2019-02-02
在本篇文章里我們給大家詳細(xì)分享了易語言軟件加VMProtect殼的方法以及具體步驟，需要的朋友們參考下。2018-11-11
在本篇文章里我們給大家分享了關(guān)于易語言的冒泡算法相關(guān)知識(shí)點(diǎn)內(nèi)容，有興趣的朋友們還可以學(xué)習(xí)下。2018-11-11
易語言超級(jí)列表框?qū)隩XT內(nèi)容的方法
在本篇文章里小編給大家整理的是關(guān)于易語言超級(jí)列表框?qū)隩XT內(nèi)容的方法，需要的朋友們可以學(xué)習(xí)參考下。2020-02-02