油猴5-10 读取分析窗体消息、飞盘游戏

程序段 窗体消息(窗口,消息,参数,数据)
文本 内容[32]

判断(消息)为 窗口关闭{停止(0)}
为 单击左键{左键点击(参数)}
否则 处理窗口(窗口,消息,参数,数据)

如果(消息>$100){组合式(内容,"%X %d %X",消息,参数,数据)发送消息(列表,列表添加,0,内容)}
结束
///
程序段 窗体启动

信息框(0,"中国","你好",信息图标)

结束

程序段 窗体消息(窗口,消息,参数,数据)

判断(消息)为 窗口关闭{停止(0)}
为 单击左键{左键点击(参数)}
为 窗口重绘 重绘图像
为 释放左键 左键释放(数据 & $FFFF,数据>>16)
否则 处理窗口(窗口,消息,参数,数据)

结束
/*这是我自己瞎想的游戏,代码出自樱花树和兔子游戏
飞盘从左边飞出速度会逐渐加快
离左边越远,点击到飞盘得分越高
未点中飞盘会扣除相应的分数
点击次数越多飞盘也会加速*/
整数 粉刷,粉笔,设备,分数,下落,速度=80,左边,上边=300,宽度=800,高度=600
绘制区类 绘区;
程序段 窗体启动
粉刷=创建画刷($9966FF)
粉笔=创建画笔(0,1,$FF00FF)
结束
程序段 左键释放(左,上)
文本 内容[16]=分数

如果(左>左边 而且 上> 上边 而且 左-左边<35 而且 上边-上<25)分数+左边
否则 分数-左边; 左边=0;上边=300;下落=0;如果(速度>0)速度--;窗体~内容

结束
程序段 重绘图像
设备=开始绘图(窗体,绘区)
选择对象(设备,粉刷)选择对象(设备,粉笔)
画椭圆(设备,左边,上边,左边+35,上边+25)
结束绘制(窗体,绘区)延时(速度)左边+8;左边+左边>>4;如果(上边<10)下落++;
如果(下落)上边+6;否则 上边-6;如果(左边>800)
{左边=0;上边=300;下落=0}重绘矩形(窗体,0,1)
结束