极语言7-10 马里奥

整数 地面,中线,跳高,管线,跳跃,间距,游戏,马,里,奥,左边(10);矩形类 大框;
小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)
为 窗口关闭 {停止(0)}
为 窗口缩放{调整图片}
为 单击左键{开始游戏}
为 键盘松开{跳跃=2;}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
小程序 窗体启动
马=载入位图($400000,7)
里=载入位图($400000,8)
奥=载入位图($400000,9)
调整图片;读取消息
结束;
小程序 调整图片
整数 数=1;
取客户区(窗体,大框);
中线=大框.宽/2;
间距=大框.宽/6;
循环{左边(数)=间距*数;数++}(数>=7)
地面=大框.高 *78/100;
跳高=地面-23
管线=地面-48
大框.宽=大框.高/12 * 10
左边(7)=0;左边(8)=大框.宽
左边(9)=大框.宽*2
移动窗口(标题,300,5,340,160,假)
移动窗口(开始,中线-100,地面+30,200,80,假)
移动窗口(终结,中线-208,80,416,54,假)
刷新图片
结束;
小程序 刷新图片
移动窗口(管道1,左边(1),管线,50,50,假)
移动窗口(管道2,左边(2),管线,50,50,假)
移动窗口(砖块1,左边(3),管线,50,50,假)
移动窗口(管道3,左边(4),管线,50,50,假)
移动窗口(砖块2,左边(5),管线,50,50,假)
移动窗口(管道4,左边(6),管线,50,50,假)
移动窗口(云彩1,左边(7),0,大框.宽,大框.高,假)
移动窗口(云彩2,左边(8),0,大框.宽,大框.高,假)
移动窗口(云彩3,左边(9),0,大框.宽,大框.高,假)
移动窗口(马里奥,20,跳高,25,25,假)
重绘矩形(窗体,0,假);
结束;
小程序 开始游戏
如果(游戏){游戏=假;
显隐窗口(标题,窗口显示)
显隐窗口(开始,窗口显示)
定时器(1,0)}
否则{游戏=真;
显隐窗口(标题,窗口隐藏)
显隐窗口(开始,窗口隐藏)
定时器(1,120)}
结束;
小程序 定时器(整数 编号,整数 时间);
如果(时间=0){删除定时(窗体,编号)}
否则{设置定时(窗体,编号,时间,@定时事件)}
结束;
小程序 定时事件(整数 窗口,整数 消息,整数 编号,整数 时间);
判断(跳跃)
为 0{跳跃=1;窗口=里;}
为 1{跳跃=0;窗口=马;}
为 2{跳起来;窗口=奥;}
为 3{落下去;窗口=里;}
发送消息(马里奥,$172,0,窗口)
循环{
向左移动(编号)
编号++}(编号>=10)
刷新图片
结束;
小程序 跳起来
如果(地面-跳高<150){跳高-15}
否则{跳高+5;跳跃=3;}
结束;
小程序 落下去
如果(地面-跳高<24){跳跃=0;跳高=地面-23}
否则{跳高+5}
结束;
小程序 向左移动(整数 编号)
左边(编号)=左边(编号)-5;
如果(编号>6){
如果(左边(编号)+大框.宽<0){左边(编号)=大框.宽*2}}
否则{
如果(左边(编号)+50<0){左边(编号)=间距*6;}}
结束;