易语言卡牌游戏原理源码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 火凤凰
.程序集变量 狼
.程序集变量 恐龙
.程序集变量 抽卡
.程序集变量 手牌凤凰
.程序集变量 手牌狼
.程序集变量 手牌恐龙

.子程序 __启动窗口_创建完毕

火凤凰 ＝ 2
狼 ＝ 1
恐龙 ＝ 1
手牌凤凰 ＝ 0
手牌狼 ＝ 0
手牌恐龙 ＝ 0
置随机数种子 ()

.子程序 _时钟1_周期事件

.如果 (到数值 (火凤凰 ＋ 狼 ＋ 恐龙) ＞ 0)
    标签1.标题 ＝ 到文本 (火凤凰 ＋ 狼 ＋ 恐龙)
.否则
    标签1.标题 ＝ “0”
.如果结束


.子程序 _抽牌_被单击

.如果 (标签1.标题 ＞ “0”)
    .判断开始 (火凤凰 ＞ 0 且 狼 ＞ 0 且 恐龙 ＞ 0)
        抽卡 ＝ 取随机数 (1, 3)
    .判断 (火凤凰 ＝ 0)
        .判断开始 (狼 ＝ 0)
            抽卡 ＝ 3
        .判断 (恐龙 ＝ 0)
            抽卡 ＝ 2
        .默认
            抽卡 ＝ 取随机数 (2, 3)
        .判断结束

    .判断 (狼 ＝ 0)
        .判断开始 (火凤凰 ＝ 0)
            抽卡 ＝ 3
        .判断 (恐龙 ＝ 0)
            抽卡 ＝ 1
        .判断 (取随机数 (1, 2) ＝ 2)
            抽卡 ＝ 3
        .默认
            抽卡 ＝ 1
        .判断结束

    .判断 (恐龙 ＝ 0)
        .判断开始 (狼 ＝ 0)
            抽卡 ＝ 1
        .判断 (火凤凰 ＝ 0)
            抽卡 ＝ 2
        .默认
            抽卡 ＝ 取随机数 (1, 2)
        .判断结束

    .默认

    .判断结束
    子程序1 (抽卡)
.否则
    信息框 (“卡组没牌了”, 0, , )
.如果结束


.子程序 子程序1
.参数 抽到卡

.判断开始 (图片框1.图片 ＝ {  })
    .判断开始 (抽到卡 ＝ 1)
        火凤凰 ＝ 火凤凰 － 1
        手牌凤凰 ＝ 手牌凤凰 ＋ 1
        图片框1.图片 ＝ #火凤凰
    .判断 (抽到卡 ＝ 2)
        狼 ＝ 狼 － 1
        手牌狼 ＝ 手牌狼 ＋ 1
        图片框1.图片 ＝ #狼
    .判断 (抽到卡 ＝ 3)
        恐龙 ＝ 恐龙 － 1
        手牌恐龙 ＝ 手牌恐龙 ＋ 1
        图片框1.图片 ＝ #恐龙
    .默认

    .判断结束

.判断 (图片框2.图片 ＝ {  })
    .判断开始 (抽到卡 ＝ 1)
        火凤凰 ＝ 火凤凰 － 1
        手牌凤凰 ＝ 手牌凤凰 ＋ 1
        图片框2.图片 ＝ #火凤凰
    .判断 (抽到卡 ＝ 2)
        狼 ＝ 狼 － 1
        手牌狼 ＝ 手牌狼 ＋ 1
        图片框2.图片 ＝ #狼
    .判断 (抽到卡 ＝ 3)
        恐龙 ＝ 恐龙 － 1
        手牌恐龙 ＝ 手牌恐龙 ＋ 1
        图片框2.图片 ＝ #恐龙

    .默认

    .判断结束

.判断 (图片框3.图片 ＝ {  })
    .判断开始 (抽到卡 ＝ 1)
        火凤凰 ＝ 火凤凰 － 1
        手牌凤凰 ＝ 手牌凤凰 ＋ 1
        图片框3.图片 ＝ #火凤凰
    .判断 (抽到卡 ＝ 2)
        狼 ＝ 狼 － 1
        手牌狼 ＝ 手牌狼 ＋ 1
        图片框3.图片 ＝ #狼
    .判断 (抽到卡 ＝ 3)
        恐龙 ＝ 恐龙 － 1
        手牌恐龙 ＝ 手牌恐龙 ＋ 1
        图片框3.图片 ＝ #恐龙

    .默认

    .判断结束

.判断 (图片框4.图片 ＝ {  })
    .判断开始 (抽到卡 ＝ 1)
        火凤凰 ＝ 火凤凰 － 1
        手牌凤凰 ＝ 手牌凤凰 ＋ 1
        图片框4.图片 ＝ #火凤凰
    .判断 (抽到卡 ＝ 2)
        狼 ＝ 狼 － 1
        手牌狼 ＝ 手牌狼 ＋ 1
        图片框4.图片 ＝ #狼
    .判断 (抽到卡 ＝ 3)
        恐龙 ＝ 恐龙 － 1
        手牌恐龙 ＝ 手牌恐龙 ＋ 1
        图片框4.图片 ＝ #恐龙

    .默认

    .判断结束

.判断 (图片框1.图片 ≠ {  } 且 图片框2.图片 ≠ {  } 且 图片框3.图片 ≠ {  } 且 图片框4.图片 ≠ {  })
    信息框 (“手牌已经满了”, 0, , )
.默认

.判断结束


.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.顶边 ＝ 175
图片框2.顶边 ＝ 192
图片框3.顶边 ＝ 192
图片框4.顶边 ＝ 192
.如果真 (图片框1.图片 ≠ {  })
    弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.如果真结束


.子程序 _图片框2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.顶边 ＝ 192
图片框2.顶边 ＝ 175
图片框3.顶边 ＝ 192
图片框4.顶边 ＝ 192
.如果真 (图片框2.图片 ≠ {  })
    弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.如果真结束



.子程序 _图片框3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.顶边 ＝ 192
图片框2.顶边 ＝ 192
图片框3.顶边 ＝ 175
图片框4.顶边 ＝ 192
.如果真 (图片框3.图片 ≠ {  })
    弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.如果真结束


.子程序 _图片框4_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.顶边 ＝ 192
图片框2.顶边 ＝ 192
图片框3.顶边 ＝ 192
图片框4.顶边 ＝ 175
.如果真 (图片框4.图片 ≠ {  })
    弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.如果真结束


.子程序 _出牌_被单击

.判断开始 (图片框1.顶边 ＝ 175)
    .判断开始 (图片框1.图片 ＝ #火凤凰)
        手牌凤凰 ＝ 手牌凤凰 － 1
    .判断 (图片框1.图片 ＝ #狼)
        手牌狼 ＝ 手牌狼 － 1
    .判断 (图片框1.图片 ＝ #恐龙)
        手牌恐龙 ＝ 手牌恐龙 － 1
    .默认

    .判断结束

    图片框1.图片 ＝ {  }
.判断 (图片框2.顶边 ＝ 175)
    .判断开始 (图片框2.图片 ＝ #火凤凰)
        手牌凤凰 ＝ 手牌凤凰 － 1
    .判断 (图片框2.图片 ＝ #狼)
        手牌狼 ＝ 手牌狼 － 1
    .判断 (图片框2.图片 ＝ #恐龙)
        手牌恐龙 ＝ 手牌恐龙 － 1
    .默认

    .判断结束

    图片框2.图片 ＝ {  }
.判断 (图片框3.顶边 ＝ 175)
    .判断开始 (图片框3.图片 ＝ #火凤凰)
        手牌凤凰 ＝ 手牌凤凰 － 1
    .判断 (图片框3.图片 ＝ #狼)
        手牌狼 ＝ 手牌狼 － 1
    .判断 (图片框3.图片 ＝ #恐龙)
        手牌恐龙 ＝ 手牌恐龙 － 1
    .默认

    .判断结束

    图片框3.图片 ＝ {  }
.判断 (图片框4.顶边 ＝ 175)
    .判断开始 (图片框4.图片 ＝ #火凤凰)
        手牌凤凰 ＝ 手牌凤凰 － 1
    .判断 (图片框4.图片 ＝ #狼)
        手牌狼 ＝ 手牌狼 － 1
    .判断 (图片框4.图片 ＝ #恐龙)
        手牌恐龙 ＝ 手牌恐龙 － 1
    .默认

    .判断结束

    图片框4.图片 ＝ {  }
.默认

.判断结束


.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.顶边 ＝ 192
图片框2.顶边 ＝ 192
图片框3.顶边 ＝ 192
图片框4.顶边 ＝ 192



.子程序 _洗牌_被单击

火凤凰 ＝ 2 － 手牌凤凰
狼 ＝ 1 － 手牌狼
恐龙 ＝ 1 － 手牌恐龙

.子程序 _召唤_被选择

.判断开始 (图片框1.顶边 ＝ 175)
    图片框5.图片 ＝ 图片框1.图片
.判断 (图片框2.顶边 ＝ 175)
    图片框5.图片 ＝ 图片框2.图片
.判断 (图片框3.顶边 ＝ 175)
    图片框5.图片 ＝ 图片框3.图片
.判断 (图片框4.顶边 ＝ 175)
    图片框5.图片 ＝ 图片框4.图片
.默认

.判断结束

@icesoulagito