成都麻将单机版，纯代码，无模块 - 精易论坛

子程序名	返回值类型	公开	备注
玩家定缺

变量名	类型	静态	数组	备注
I	整数型
T	整数型
坐标	坐标型
J	整数型
A	整数型

如果 (游戏窗口.电脑托管)

J ＝ 1

J ＝ 2

变量循环首 (J, #玩家个数, 1, I)
T ＝判断是否为立手缺 (I)

如果 (T ≥ 0)

游戏窗口.游戏数据.麻将定缺 [I] ＝ T

游戏窗口.游戏数据.麻将定缺 [I] ＝计算定缺花色 (I)

变量循环尾 ()

如果真 (游戏窗口.电脑托管＝假)

显示碰杠胡按钮 (, #碰杠胡按钮_正常 )

A ＝判断是否为立手缺 (1)

如果 (A ≥ 0)

游戏窗口.游戏数据.麻将定缺 [1] ＝ A

坐标＝取玩家暗牌坐标 (1, 13)

游戏窗口.气球提示框.弹出提示框 (换算游戏坐标 (坐标.X ＋游戏窗口.牌背.宽度 ÷ 4) ＋游戏窗口.左边＋游戏窗口.游戏.左边, 换算游戏坐标 (坐标.Y) ＋游戏窗口.顶边＋游戏窗口.游戏.顶边＋ 25, “请点击一张麻将定缺！”, -1, 假)

判断循环首 (真)

T ＝等待操作事件 (游戏设置.等待时间)

判断 (T ＝ #游戏事件_托管 )

如果真 (游戏窗口.电脑托管)

显示碰杠胡按钮 (, #碰杠胡按钮_正常 )

游戏窗口.游戏数据.麻将定缺 [1] ＝计算定缺花色 (1)

跳出循环 ()

判断 (T ＝ #游戏事件_屏幕 )

I ＝取点击的麻将序号 (假)

调试输出 (“取点击的麻将序号 (假)”, I)

如果真 (I ＞ 0)

游戏窗口.游戏数据.麻将定缺 [1] ＝游戏窗口.游戏数据.暗牌 [1] [I].花色

跳出循环 ()

游戏窗口.游戏数据.麻将定缺 [1] ＝计算定缺花色 (1)

跳出循环 ()

判断循环尾 ()

定缺动画 ()
绘制屏幕 (游戏窗口.游戏数据.当前玩家编号)

i支持库列表	支持库注释
iext5	扩展界面支持库五
spec	特殊功能支持库

.版本 2<br />
.支持库 iext5<br />
.支持库 spec<br />
<br />
.子程序 玩家定缺<br />
.局部变量 I, 整数型<br />
.局部变量 T, 整数型<br />
.局部变量 坐标, 坐标型<br />
.局部变量 J, 整数型<br />
.局部变量 A, 整数型<br />
<br />
.如果 (游戏窗口.电脑托管)<br />
    J ＝ 1<br />
.否则<br />
    J ＝ 2<br />
.如果结束<br />
.变量循环首 (J, #玩家个数, 1, I)<br />
    T ＝ 判断是否为立手缺 (I)<br />
    .如果 (T ≥ 0)<br />
        游戏窗口.游戏数据.麻将定缺 [I] ＝ T<br />
    .否则<br />
        游戏窗口.游戏数据.麻将定缺 [I] ＝ 计算定缺花色 (I)<br />
    .如果结束<br />
<br />
.变量循环尾 ()<br />
.如果真 (游戏窗口.电脑托管 ＝ 假)<br />
    显示碰杠胡按钮 (, #碰杠胡按钮_正常)<br />
    A ＝ 判断是否为立手缺 (1)<br />
    .如果 (A ≥ 0)<br />
        游戏窗口.游戏数据.麻将定缺 [1] ＝ A<br />
    .否则<br />
        坐标 ＝ 取玩家暗牌坐标 (1, 13)<br />
        游戏窗口.气球提示框.弹出提示框 (换算游戏坐标 (坐标.X ＋ 游戏窗口.牌背.宽度 ÷ 4) ＋ 游戏窗口.左边 ＋ 游戏窗口.游戏.左边, 换算游戏坐标 (坐标.Y) ＋ 游戏窗口.顶边 ＋ 游戏窗口.游戏.顶边 ＋ 25, “请点击一张麻将定缺！”, -1, 假)<br />
        .判断循环首 (真)<br />
            T ＝ 等待操作事件 (游戏设置.等待时间)<br />
            .判断开始 (T ＝ #游戏事件_托管)<br />
                .如果真 (游戏窗口.电脑托管)<br />
                    显示碰杠胡按钮 (, #碰杠胡按钮_正常)<br />
                    游戏窗口.游戏数据.麻将定缺 [1] ＝ 计算定缺花色 (1)<br />
                    跳出循环 ()<br />
                .如果真结束<br />
<br />
            .判断 (T ＝ #游戏事件_屏幕)<br />
                I ＝ 取点击的麻将序号 (假)<br />
                调试输出 (“取点击的麻将序号 (假)”, I)<br />
                .如果真 (I ＞ 0)<br />
                    游戏窗口.游戏数据.麻将定缺 [1] ＝ 游戏窗口.游戏数据.暗牌 [1] [I].花色<br />
                    跳出循环 ()<br />
                .如果真结束<br />
<br />
            .默认<br />
                游戏窗口.游戏数据.麻将定缺 [1] ＝ 计算定缺花色 (1)<br />
                跳出循环 ()<br />
            .判断结束<br />
<br />
        .判断循环尾 ()<br />
<br />
    .如果结束<br />
<br />
.如果真结束<br />
<br />
定缺动画 ()<br />
绘制屏幕 (游戏窗口.游戏数据.当前玩家编号)