易语言制作王校长吃热狗游戏的源码

王校长吃热狗游戏

.版本 2
.支持库 iext2
.支持库 OPenGL
.支持库 spec
.支持库 EThread
.程序集 窗口程序集_启动窗口
.程序集变量 人物标识, 整数型
.程序集变量 热狗标识, 整数型, , "0"
.程序集变量 死亡, 逻辑型
.程序集变量 得分, 整数型
.子程序 _开始按钮_被单击
动画物体2.图片 = #人物
人物标识 = 动画框1.创建物体 (动画物体2, 取鼠标水平位置 () - _启动窗口.左边 - 25, 取鼠标垂直位置 () - _启动窗口.顶边 - 26, 真, )
得分 = 0
显示光标 (假)
开始按钮.可视 = 假
死亡 = 假
开始游戏 ()
.子程序 开始游戏
.局部变量 热狗, 整数型
.局部变量 移动速度, 整数型
.局部变量 新增速度, 整数型
.局部变量 i, 整数型
动画物体1.图片 = #热狗
移动速度 = 50
新增速度 = 500
.判断循环首 (死亡 = 假)
  热狗 = 动画框1.创建物体 (动画物体1, 取随机数 (24, 368), 38, 真, )
  动画框1.置角度 (热狗, 180)
  .如果真 (得分 % 20 = 0 且 移动速度 > 10 且 新增速度 > 200)
    移动速度 = 移动速度 - 1
    新增速度 = 新增速度 - 20
  .如果真结束
  动画框1.自动前进 (热狗, 5, 移动速度, , , 真, 1, 真, { 0 }, )
  延迟 (新增速度)
.判断循环尾 ()
.子程序 _动画框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
动画框1.置物体位置 (人物标识, 取鼠标水平位置 () - _启动窗口.左边 - 25, 取鼠标垂直位置 () - _启动窗口.顶边 - 26, 真)
.子程序 _动画框1_碰撞到物体
.参数 碰撞物体标识值, 整数型
.参数 碰撞前横坐标, 整数型
.参数 碰撞前纵坐标, 整数型
.参数 被碰撞物体标识值, 整数型
.如果真 (被碰撞物体标识值 > 得分 + 1 或 碰撞物体标识值 > 得分 + 1)
  得分 = 得分 + 1
  启动线程 (&显示成功图, , )
  _启动窗口.标题 = “王校长吃热狗  得分:” + 到文本 (得分)
.如果真结束
.子程序 显示成功图
动画框1.置图片 (人物标识, #成功, )
延迟 (200)
动画框1.置图片 (人物标识, #人物, )
.子程序 __启动窗口_可否被关闭, 逻辑型
结束 ()
.子程序 _动画框1_碰撞到边界, 逻辑型
.参数 物体标识值, 整数型
.参数 碰撞前横坐标, 整数型
.参数 碰撞前纵坐标, 整数型
.参数 边界类型, 整数型
.如果真 (物体标识值 ≠ 人物标识 且 边界类型 = 8)
  显示光标 (真)
  死亡 = 真
  动画框1.销毁所有物体 ()
  信息框 (“游戏结束,得分:” + 到文本 (得分), 0, , )
  开始按钮.可视 = 真
  得分 = 0
  _启动窗口.标题 = “王校长吃热狗”
.如果真结束

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言超级列表框表项关键字搜索代码示例

    超级列表框表项关键字搜索示例 .版本 2 .支持库 iext .程序集 启动窗口程序集 .程序集变量 表项索引, 整数型 .子程序 _查找表项按钮_被单击 .局部变量 临时文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .如果真 (输入框 ("请输入需要查找的内容", "查找表项", "易语言7", 临时文本, ) = 真) 是否找到 = 假 .计次循环首 (超级列表框.取表项数 (), a)

  • 易语言制作DNF解封源码

    DNF解封源码 需要加载精易模块7.0 .版本 2 .支持库 HtmlView .支持库 spec .程序集 窗口程序集__启动窗口 .程序集变量 Cookie, 文本型 .程序集变量 浏览器组地址, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 ADD_数据包, 类_POST数据类 .局部变量 方式, 整数型 .局部变量 局_结果, 字节集 .局部变量 局_返回, 文本型 .局部变量 局_提交数据, 文本型 方式 = 1 浏览器组地址 = "https://act.gamesafe.q

  • 易语言制作黑客小程序源码

    DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn

  • 易语言用画板制作围猫游戏的源码

    DLL命令表 .版本 2 .DLL命令 系统关于对话框, , , "ShellAboutA" .参数 窗口句柄, 整数型 .参数 应用程序标题, 文本型 .参数 其他信息, 文本型 .参数 图标句柄, 整数型 图片资源表 .版本 2 .图片 圆点白色 .图片 圆点猫 .图片 圆点墙 .图片 圆点叉 围猫游戏 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 圆点状态, 整数型, , "121", 0空白1围墙2陷阱 .程序集变量 猫位置, 整数型 .程序集变

  • 易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec = sec + 1 .如果真 (sec = 60) sec = 0 min = min + 1 .如果真结束 .如果真 (min = 60) min = 0 hr = hr + 1 .如果真结束 状态条1.置文本 (0, "已运行:" + 取文本右边 ("

  • 易语言制作英雄联盟辅助的源码

    LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid = 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (

  • 易语言赋值定义多维数组的代码实例

    赋值定义多维数组示例 .版本 2 .程序集 窗口程序集1 .子程序 _按钮_显示_被单击 .局部变量 a, 整数型, , "0" .局部变量 c, 整数型, , "1,2" .局部变量 b, 整数型 a = { 1, 12, 2, 22, 3, 32, 4, 42 } .变量循环首 (1, 取整 (取数组成员数 (a) ÷ 2), 1, b) 重定义数组 (c, 真, b, 2) c [b] [1] = a [b × 2 - 1] 编辑框_显示.加入文本 (&quo

  • 易语言地下城与勇士辅助剧情类源码

    DNF辅助剧情类源码 仅供学习参考,禁止商业用途 .版本 2 .支持库 EThread .程序集 剧情 .子程序 跳过call .局部变量 任务地址, 整数型 .局部变量 跳过CALL, 整数型 任务地址 = #任务基址 跳过CALL = #跳过CALL 置入代码 ({ 139, 77, 252, 139, 9, 106, 255, 106, 1, 255, 85, 248 }) .子程序 匹配副本 .局部变量 角色等级, 整数型 角色等级 = 汇编_读整数型 (#角色等级) .判断开始 (角色

  • 易语言地下城与勇士辅助顺图类源码

    DNF辅助顺图类源码 仅供学习参考,禁止商业用途 .版本 2 .程序集 顺图 .子程序 顺图结构 .参数 方向ID, 整数型 .局部变量 一级偏移, 整数型 .局部变量 二级偏移, 整数型 .局部变量 临时数据, 整数型 .局部变量 坐标结构, 整数型 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 xF, 整数型 .局部变量 yF, 整数型 .局部变量 cx, 整数型 .局部变量 cy, 整数型 一级偏移 = 汇编_读整数型 (#人物基址) 二级偏移 = 汇编_读整数型 (一级

  • 易语言地下城与勇士拾取卖物功能类源码

    DNF辅助功能类 仅供学习参考,禁止商业用途 .版本 2 .程序集 功能 .子程序 自动攻击 .局部变量 A, 整数型 .局部变量 数值, 整数型 .判断循环首 (A = 0) 置随机数种子 () 数值 = 取随机数 (0, 2) .如果真 (是否有怪物 () = 真) .如果真 (数值 = 0) 内存按键 (#X键) .如果真结束 .如果真 (数值 = 1) 内存按键 (#Z键) .如果真结束 .如果真 (数值 = 2) 内存按键 (#X键) .如果真结束 .如果真结束 超级延时 (200)

随机推荐