.程序集 窗口程序集_启动窗口 .程序集变量 人物标识, 整数型 .程序集变量 热狗标识, 整数型, , "0" .程序集变量 死亡, 逻辑型 .程序集变量 得分, 整数型 .子程序 _开始按钮_被单击 动画物体2.图片 = #人粅 人物标识 = 动画框1.创建物体 (动画物体2, 取鼠标水平位置 () - _启动窗口.左边 - 25, 取鼠标垂直位置 () - _启动窗口.顶边 - 26, 真, ) 开始按钮.可视 = 假 .局部变量 熱狗, 整数型 .局部变量 移动速度, 整数型 .局部变量 新增速度, 整数型 .局部变量 i, 整数型 动画物体1.图片 = #热狗 .判断循环首 (死亡 = 假) 移动速度 = 移动速喥 - 1 新增速度 = 新增速度 - 20 .子程序 _动画框1_鼠标位置被移动, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 动画框1.置粅体位置 (人物标识, 取鼠标水平位置 () - _启动窗口.左边 - 25, 取鼠标垂直位置 () - _启动窗口.顶边 - 26, 真) .子程序 _动画框1_碰撞到物体 .参数 碰撞物体标识值, 整數型 .参数 碰撞前横坐标, 整数型 .参数 碰撞前纵坐标, 整数型 .参数 被碰撞物体标识值, 整数型 .如果真 (被碰撞物体标识值 > 得分 + 1 或 碰撞物体标识值 > 得分 + 1) 得分 = 得分 + 1 _启动窗口.标题 = “王校长吃热狗 得分:” + 到文本 (得分) 动画框1.置图片 (人物标识, #成功, ) 动画框1.置图片 (人物标识, #人物, ) .子程序 __启动窗口_可否被关闭, 逻辑型 .子程序 _动画框1_碰撞到边界, 逻辑型 .参数 物体标识值, 整数型 .参数 碰撞前横坐标, 整数型 .参数 碰撞前纵坐标, 整数型 .参數 边界类型, 整数型 .如果真 (物体标识值 ≠ 人物标识 且 边界类型 = 8) 动画框1.销毁所有物体 () 信息框 (“游戏结束得分:” + 到文本 (得分), 0, , ) 开始按钮.可視 = 真 _启动窗口.标题 = “王校长吃热狗”