机器猫-初级程序-极语言教程

//窗体代码:

整数 窗体;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-560)>>1,上=(桌面.高-560)>>1;
窗体=创建窗口($200,程序.名称,"机器猫",$10C80000,左,上,560,560,0,0,0,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{}

 

//程序代码:

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

整数 红刷,蓝刷,白刷,黑刷,蓝笔,红笔,黑笔,设备,分数,下落,速度=80,左边,上边=300,宽度=800,高度=600
绘制区类 绘区;

程序段 窗体启动
    设备=取设备(窗体)
    黑刷=创建画刷(0)
    红刷=创建画刷($FF)
    蓝刷=创建画刷($FF0000)
    白刷=创建画刷($FFFFFF)
    黑笔=创建画笔(0,1,0)
    红笔=创建画笔(0,1,$FF)
    蓝笔=创建画笔(0,1,$FF0000)
    选择对象(设备,蓝刷)选择对象(设备,蓝笔)//脑袋
    画椭圆(设备,100, 100, 400, 400)
    选择对象(设备,白刷)//脸
    画椭圆(设备,120, 160, 380, 400)
    选择对象(设备,黑笔)//眼白
    画椭圆(设备,185, 105, 250, 200)
    画椭圆(设备,250, 105, 315, 200)
    选择对象(设备,黑刷)//眼珠
    画椭圆(设备,230, 150, 250, 175)
    画椭圆(设备,250, 150, 270, 175)
    移到(设备, 250, 220,0)
    画线(设备, 250, 260)//人中
    选择对象(设备, 红笔)
    选择对象(设备, 红刷)
    画椭圆(设备, 230, 180, 270, 220)// 鼻子
    画和弦(设备, 140, 120, 360, 380, 140, 260, 360, 260)// 嘴巴
    // 左边的胡子
    选择对象(设备, 黑笔)
    移到(设备, 150, 205,0)
    画线(设备, 210, 215)
    移到(设备, 140, 230,0)
    画线(设备, 210, 230)
    移到(设备, 150, 255,0)
    画线(设备, 210, 245)
    // 右边的胡子
    移到(设备, 350, 205,0)
    画线(设备, 290, 215)
    移到(设备, 360, 230,0)
    画线(设备, 290, 230)
    移到(设备, 350, 255,0)
    画线(设备, 290, 245)
结束