弹球游戏-初级程序-极语言教程

//窗体代码:

整数 窗体,小球,档板,游戏;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-350)>>1,上=(桌面.高-300)>>1;
窗体=创建窗口($200,程序.名称,"弹球游戏",$10480000,左,上,350,300,0,0,0,0);
小球=创建窗口($0,"Static","●",$40000000,150,30,25,25,窗体,1,2,0);
档板=创建窗口($0,"Static","",$40000005,120,250,100,10,窗体,2,2,0);
游戏=创建窗口($0,"Button","开始游戏",$50000000,125,125,80,30,窗体,3,3,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 3 游戏_点击
}

 

//程序代码:

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭 停止
    为 绘制静态 绘制颜色(参数)
    为 单击左键 左键点击(参数)
    为 键盘松开 获取键值(参数)
    否则 处理窗口(窗口,消息,参数,数据)
结束
整数  字体,得分,横向=5,竖向=5,球左=150,球顶=30,板左=120
逻辑字体类 字号(高度=-24,名字="微软雅黑")

程序段 窗体启动
    字体=新建字体(字号)
结束

程序段 绘制颜色(设备)
    选择对象(设备,字体)
    文本改色(设备,$FF00)
    固有对象(5)
结束

程序段 获取键值(键值)
    判断(键值)为 37{如果(板左>0)板左-10}
    为 39{如果(板左<240)板左+10}
    移动窗口(档板,板左,250,100,10,1)
结束

程序段 定时器事件(窗口,消息,编号,毫秒)
    文本 内容[16]
    如果(球左<=0 或者 球左>320)横向=-横向
    如果(球顶<=0)竖向=-竖向
    如果(球顶>220)
    {    如果(球左+10>板左 而且 球左-板左<110)
        {竖向=-竖向;得分+10;
        内容="游戏得分:"+得分;窗体~内容}
        否则{定时器(窗体,1,0)信息框(0,"游戏失败")
        显隐窗口(游戏,1)显隐窗口(小球,0)
        显隐窗口(档板,0)球左=150;球顶=30}
    }球左+横向;球顶+竖向;
移动窗口(小球,球左,球顶,25,25,1)
结束

程序段 游戏_点击
    显隐窗口(游戏,0)显隐窗口(小球,1)
    显隐窗口(档板,1)定时器(窗体,1,120)
结束