易语言坦克大战代码.docVIP

. 版本 2 .支持库 iext2 .程序集 窗口程序集1 .程序集变量 集坦克红, 整数型 .程序集变量 集炮弹红, 整数型 .程序集变量 集红方分数, 整数型 .程序集变量 集坦克蓝, 整数型 .程序集变量 集炮弹蓝, 整数型 .程序集变量 集蓝方分数, 整数型 .子程序 __启动窗口_创建完毕 置随机数种子 () 集坦克红 ＝ 动画框1.创建物体 (动画物体坦克红, 300, 200, , ) 集坦克蓝 ＝ 动画框1.创建物体 (动画物体坦克蓝, 取随机数 (1, 400), 取随机数 (1, 300), , ) .子程序 _时钟1_周期事件 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 这次的命令, 整数型 37 左 38 上 39 右 40 下 32 空格 红方移动 .如果 (动画框1.键是否被按下 (38)) 动画框1.置角度 (集坦克红, 0) 动画框1.前进 (集坦克红, 5) .否则 .如果 (动画框1.键是否被按下 (#下光标键)) 动画框1.置角度 (集坦克红, 180) 动画框1.前进 (集坦克红, 5) .否则 .如果 (动画框1.键是否被按下 (37)) 动画框1.置角度 (集坦克红, 270) 动画框1.前进 (集坦克红, 5) .否则 .如果 (动画框1.键是否被按下 (39)) 动画框1.置角度 (集坦克红, 90) 动画框1.前进 (集坦克红, 5) .否则 .如果 (动画框1.键是否被按下 (#空格键)) .如果真 (动画框1.是否存在 (集炮弹红) ＝ 假) x ＝ 动画框1.取物体左边 (集坦克红) ＋ 20 y ＝ 动画框1.取物体顶边 (集坦克红) ＋ 20 集炮弹红 ＝ 动画框1.创建物体 (动画物体炮弹红, x, y, , ) 播放音乐 (#发射1, ) 动画框1.置角度 (集炮弹红, 动画框1.取角度 (集坦克红)) 动画框1.自动前进 (集炮弹红, 10, 20, , , 真, 2, 真, , ) .如果真结束 .否则 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 1 左 2 上 3 右 4 下 5 空格 6 不动！ 这次的命令 ＝ 取随机数 (1, 100) 蓝方移动 .如果 (这次的命令 ＜ 70) 动画框1.前进 (集坦克蓝, 5) .否则 .如果 (这次的命令 ＞ 70 且 这次的命令 ＜ 80) 动画框1.转向 (集坦克蓝, -90) .否则 .如果 (这次的命令 ＞ 80 且 这次的命令 ＜ 95) 动画框1.转向 (集坦克蓝, 90) .否则 .如果 (这次的命令 ＞ 95) 动画框1.转向 (集坦克蓝, 180) .否则 .如果结束 .如果结束 .如果结束 .如果结束 .如果 (取随机数 (1, 10) ＝ 1) .如果真 (动画框1.是否存在 (集炮弹蓝) ＝ 假) x ＝ 动画框1.取物体左边 (集坦克蓝) ＋ 20 y ＝ 动画框1.取物体顶边 (集坦克蓝) ＋ 20 集炮弹蓝 ＝ 动画框1.创建物体 (动画物体炮弹蓝, x, y, , ) 播放音乐 (#发射1, ) 动画框1.置角度 (集炮弹蓝, 动画框1.取角度 (集坦克蓝)) 动画框1.自动前进 (集炮弹蓝, 10, 20, , , 真, 2, 真, , ) .如果真结束 .否则 .如果结束 .子程序 _动画框1_碰