.版本 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.图片 .默认 .判断结束