易语言开发小游戏实例
1.程序部分
.程序集 窗口程序集1 .程序集变量 数组, 整数型, , "3" .程序集变量 冠军, 整数型 .程序集变量 终点, 整数型 .程序集变量 到终点个数, 整数型 .子程序 显示物体 动画物体.缩放比 = 212 动画物体.类型值 = 0 数组 [1] = 动画框.创建物体 (动画物体, 10, 30, 真, “1”) 动画框.置层次 (数组 [1], 1) 动画框.置图片 (数组 [1], #兔子一号, ) 动画物体.缩放比 = 500 数组 [2] = 动画框.创建物体 (动画物体, 10, 100, 真, “2”) 动画框.置层次 (数组 [2], 1) 动画框.置图片 (数组 [2], #乌龟一号, ) 数组 [3] = 动画框.创建物体 (动画物体, 10, 170, 真, “3”) 动画框.置层次 (数组 [3], 1) 动画框.置图片 (数组 [3], #小猪一号, ) 动画物体.缩放比 = 1500 动画物体.类型值 = 1 终点 = 动画框.创建物体 (动画物体, 666, -10, 假, “终点”) 动画框.置图片 (终点, #终点线, 0) 动画框.置层次 (终点, 1) .子程序 __启动窗口_创建完毕 显示物体 () .子程序 _按钮1_被单击 冠军 = 0 终点 = 0 动画框.播放动画 (数组 [1], 0, , , ) 动画框.播放动画 (数组 [2], 0, , , ) 动画框.播放动画 (数组 [3], 0, , , ) 动画框.自动前进 (数组 [1], 到数值 (编辑框1.内容), 30, , , 真, , 真, , ) 动画框.自动前进 (数组 [2], 到数值 (编辑框2.内容), 30, , , 真, , 真, , ) 动画框.自动前进 (数组 [3], 到数值 (编辑框3.内容), 30, , , 真, , 真, , ) .子程序 _按钮2_被单击 动画框.销毁所有物体 () 显示物体 () .子程序 显示冠军 .参数 冠军号, 整数型 .局部变量 标识值_临时1, 整数型 .局部变量 标识值_临时2, 整数型 .判断开始 (冠军号 = 数组 [1]) 标识值_临时1 = 动画框.创建物体 (动画物体, 200, 200, 真, ) 动画框.置图片 (标识值_临时1, #兔子一号, ) 动画框.播放动画 (标识值_临时1, 0, , , ) 标识值_临时2 = 动画框.创建物体 (动画物体, 200, 200, 真, ) 动画框.置文本 (标识值_临时2, “兔子赢了!”, , ) .判断 (冠军号 = 数组 [2]) 标识值_临时1 = 动画框.创建物体 (动画物体, 200, 200, 真, ) 动画框.置图片 (标识值_临时1, #乌龟一号, ) 动画框.播放动画 (标识值_临时1, 0, , , ) 标识值_临时2 = 动画框.创建物体 (动画物体, 200, 200, 真, ) 动画框.置文本 (标识值_临时2, “乌龟赢了!”, , ) .判断 (冠军号 = 数组 [3]) 标识值_临时1 = 动画框.创建物体 (动画物体, 200, 200, 真, ) 动画框.置图片 (标识值_临时1, #小猪一号, ) 动画框.播放动画 (标识值_临时1, 0, , , ) 标识值_临时2 = 动画框.创建物体 (动画物体, 200, 200, 真, ) 动画框.置文本 (标识值_临时2, “小猪赢了!”, , ) .默认 .判断结束 .子程序 _动画框_碰撞到物体 .参数 碰撞物体标识值, 整数型 .参数 碰撞前横坐标, 整数型 .参数 碰撞前纵坐标, 整数型 .参数 被碰撞物体标识值, 整数型 到终点个数 = 到终点个数 + 1 .如果真 (冠军 = 0) 冠军 = 碰撞物体标识值 .如果真结束 .如果真 (到终点个数 = 3) 显示冠军 (冠军) .如果真结束
2.图片资源表
.图片 终点线
.图片 兔子一号
.图片 乌龟一号
.图片 小猪一号
3.前台画面
以上就是开发小游戏用到的代码,图片等易语言写法,感谢大家对我们的支持。
赞 (0)