易语言砸地鼠游戏源码

易语言砸地鼠游戏源码

@qq446537660

.版本 2
.支持库 iext2
.支持库 eAPI

.程序集 窗口程序集_启动窗口
.程序集变量 地鼠1, 整数型
.程序集变量 地鼠2
.程序集变量 地鼠3
.程序集变量 锤子
.程序集变量 x, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 标识2, 整数型
.程序集变量 碰撞标识值, 整数型
.程序集变量 a
.程序集变量 b

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

置随机数种子 ()
初始化 ()
a ＝ 1
b ＝ 3
' 动画框1.播放动画 (多项选择 (取随机数 (1, 3), 地鼠1, 地鼠2, 地鼠3), 1, , , )

.子程序 初始化

地鼠1 ＝ 动画框1.创建物体 (动画物体2, 68, 80, 真, )
地鼠2 ＝ 动画框1.创建物体 (动画物体4, 138, 80, 真, )
地鼠3 ＝ 动画框1.创建物体 (动画物体5, 208, 80, 真, )
锤子 ＝ 动画框1.创建物体 (动画物体1, 80, 80, 真, )
' 哭 ＝ 动画框1.创建物体 (动画物体3, 80, 80, 假, )


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

动画框1.播放动画 (锤子, 1, 假, -40, )

.子程序 _动画框1_动画框鼠标位置改变
.参数 横坐标, 整数型
.参数 纵坐标, 整数型
.参数 已被按下物体, 整数型

动画框1.置物体位置 (锤子, 横坐标 － 50, 纵坐标 － 50, 真)

.子程序 _时钟1_周期事件
.局部变量 次序, 整数型

置随机数种子 ()
次序 ＝ 取随机数 (a, b)
动画框1.播放动画 (多项选择 (次序, 地鼠1, 地鼠2, 地鼠3), 1, , -36, )
.判断开始 (次序 ＝ 1)
    a ＝ 2
    b ＝ 3

.判断 (次序 ＝ 2)
    a ＝ 1
    b ＝ 3
.判断 (次序 ＝ 3)
    a ＝ 2
    b ＝ 1
.默认

.判断结束


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

结束 ()

.子程序 _动画框1_物体左键被按下
.参数 物体标识值, 整数型


.判断开始 (物体标识值 ＞ 0)

    .判断开始 (动画框1.取物体左边 (物体标识值) ＞ 68 且 动画框1.取物体左边 (物体标识值) ＜ 138)
        动画框1.创建物体 (动画物体3, 68, 80, , )

    .判断 (动画框1.取物体左边 (物体标识值) ＞ 138 且 动画框1.取物体左边 (物体标识值) ＜ 208)
        动画框1.创建物体 (动画物体3, 138, 80, , )

    .判断 (动画框1.取物体左边 (物体标识值) ＞ 208)
        动画框1.创建物体 (动画物体3, 208, 80, , )
    .默认

    .判断结束

.默认

.判断结束


.子程序 _按钮1_被单击

打开指定网址 (“http://apps.wandoujia.com/apps/com.e4a.lx.yyybcjcdq?pos=w/search/list//%E6%98%93%E8%AF%AD%E8%A8%80/2”)  ' 推荐易语言学习软件→-→-→ ' 豌豆荚 下载“易语言编程教程大全”(安装到手机即可观看：易语言海量学习教程)