“易语言.飞扬”开发的彩球游戏，作者美女勿近，含源代码

飞扬彩球 V1.0

九江_美女勿近 2008年1月23日3时
2008年1月24日修正了点击分数区数组出界问题
其中声音及图片来自易语言的例程

美女勿近：“多普达手机上有一个彩球游戏，我用飞扬写了一个试试，请大家多多指教。点击选择，再击消除”。

请到EF论坛下载完整程序和源代码：http://bbs.dywt.com.cn/dispbbs.asp?boardID=148&ID=147131&page=1



（如果图片再仔细处理一下，界面会更美观）

以下是此游戏的核心EF源代码：

/*
飞扬彩球V1.0 九江_美女勿近 2008年1月23日3时
2008年1月24日修正了点击分数区数组出界问题
其中声音及图片来自易语言的例程
*/
引入 用户界面,工具;

公开 类 彩球<基类型=面板>
{
用户界面.窗口场景 彩球场景;
整数[] 数据;
图片组 彩球图片;
位图 位图1;
掩码 掩码1;
逻辑 是否已选择;
整数 得分;
声音 选择声音;
声音 消除声音;

公开 初始化()
{
本对象.宽度=369;
本对象.高度=369+25;
本对象.左边=10;
本对象.顶边=10;
本对象.提高层次();

彩球场景=创建 窗口场景(本对象);
数据=创建 整数[9][9];
彩球图片=创建 图片组;
彩球图片.初始化(39,39,真,15);
位图1=创建 位图;
掩码1=创建 掩码;
选择声音=创建 声音();
消除声音=创建 声音();
选择声音.创建("声音/选中.wav");
消除声音.创建("声音/消除.wav");

计次循环(15,整数 x)
{
位图1.加载("图片/"+(x+1).到文本()+".bmp",位图类型.BMP);//调试时请把更改目录
彩球图片.添加(位图1,颜色.品红());
}
重来();
}

刷新面板()
{
彩球场景.画矩形(0,0,369,369);
计次循环(8, 整数 x)
{
彩球场景.画线(0,x*41+41,369,x*41+41);
彩球场景.画线(x*41+41,0,x*41+41,369);
}

计次循环(9,整数 x)
{
计次循环(9,整数 y)
{
画图片(x,y);
}
}
彩球场景.画矩形(0,370,100,20);
彩球场景.画文本("得分："+得分.到文本(),0,370);
}

公开 重来()
{
数学运算.置随机数种子();
是否已选择=假;
得分=0;
计次循环(9,整数 x)
{
计次循环(9,整数 y)
{
数据[x][y]=数学运算.取随机数()%7+1;
}
}
刷新面板();

}

处理程序(整数 x,整数 y)
{
x/=41;
y/=41;
if(y>8)
{返回;}
if(数据[x][y]==0)
{返回;}
假如(是否已选择)
{
为 真:
已选择时处理(x,y);
为其他:
未选择时处理(x,y);
}
}

未选择时处理(整数 x,整数 y)
{
选择声音.播放(声音标记.异步);
数据[x][y]+=7;
画图片(x,y);
如果(x>0)
{
如果(数据[x-1][y]==数据[x][y]-7)
{
画图片(x-1,y);
未选择时处理(x-1,y);
}
}
如果(x<8)
{
如果(数据[x+1][y]==数据[x][y]-7)
{
画图片(x+1,y);
未选择时处理(x+1,y);
}
}
如果(y>0)
{
如果(数据[x][y-1]==数据[x][y]-7)
{
画图片(x,y-1);
未选择时处理(x,y-1);
}

}
如果(y<8)
{
如果(数据[x][y+1]==数据[x][y]-7)
{
画图片(x,y+1);
未选择时处理(x,y+1);
}
}
是否已选择=真;
}

已选择时处理(整数 x,整数 y)
{
如果(数据[x][y]>7)
{
如果(取多少被选择(x,y)>1)
{
消除声音.播放(声音标记.异步);
消球();
下落();
右移();
if(是否结束())
{界面程序.信息框("游戏结束！！！");}
}
否则
{
数据[x][y]-=7;
画图片(x,y);
是否已选择=假;
}
}
否则
{
取消选择();
未选择时处理( x, y);
}

}

整数 取多少被选择(整数 x,整数 y)
{
整数 n;
计次循环(9,整数 i)
{
计次循环(9,整数 j)
{
如果(数据[x][y]==数据[i][j])
{n++;}
}
}
返回 n;
}

取消选择()
{
计次循环(9,整数 x)
{
计次循环(9,整数 y)
{
如果(数据[x][y]>7)
{
数据[x][y]-=7;
画图片(x,y);
}
}
}
}

消球()
{
整数 消球个数;
计次循环(9,整数 x)
{
计次循环(9,整数 y)
{
如果(数据[x][y]>7)
{
数据[x][y]=0;
画图片(x,y);
消球个数++;
}
}
}
得分+=消球个数*(消球个数+1);
彩球场景.画矩形(0,370,100,20);
彩球场景.画文本("得分："+得分.到文本(),0,370);

}

画图片(整数 x,整数 y)
{
如果(数据[x][y]==0)
{
位图1=彩球图片.取图片(14);
彩球场景.画位图(位图1,x*41+1,y*41+1,真);
}
否则
{
位图1=彩球图片.取图片(数据[x][y]-1);
彩球场景.画位图(位图1,x*41+1,y*41+1,真);
}
}

下落()
{
整数 i;
for(整数 x=8;x>=0;x--)
{

for(整数 y=8;y>0;y--)
{

if(数据[x][y]==0)
{
i=y-1;
循环(数据[x][i]==0)
{
i--;
if(i<0)
{跳出;}
}
if(i>=0) //有下落的球
{
数据[x][y]<=>数据[x][i];
画图片(x,y);
画图片(x,i);
}
}
}
}

}

最左边补球()
{
数学运算.置随机数种子();
整数 y=数学运算.取随机数()%9+1;

for(整数 x=8;x>=y;x--)
{
数据[0][x]=数学运算.取随机数()%7+1;
画图片(0,x);
}
}

右移()
{
for(整数 x=8;x>=0;x--)
{
if(是否整列为空(x))
{右移一列(x);}

}
}

右移一列(整数 列号)
{
if(列号==0)
{最左边补球();}
else
{
if(列号-1>=0)
{
if(是否整列为空(列号-1))
{右移一列(列号-1);}
else
{
计次循环(9,整数 x)
{
数据[列号][x]<=>数据[列号-1][x];
画图片(列号,x);
画图片(列号-1,x);
}
}
}
}
}

逻辑 是否整列为空(整数 列)
{
计次循环(9,整数 x)
{
if(数据[列][x]!=0)
{返回 假;}
}
返回 真;
}

逻辑 是否结束()
{
计次循环(9,整数 x)
{
计次循环(9,整数 y)
{
if(数据[x][y]>0)
{
if(x>0)
{
if(数据[x][y]==数据[x-1][y])
{返回 假;}
}
if(x<8)
{
if(数据[x][y]==数据[x+1][y])
{返回 假;}
}
if(y>0)
{
if(数据[x][y]==数据[x][y-1])
{返回 假;}
}
if(y<8)
{
if(数据[x][y]==数据[x][y+1])
{返回 假;}
}
}
}
}
返回 真;
}

公开 事件处理 逻辑 绘画事件(绘画事件 事件)
{
刷新面板();
返回 真;
}

公开 事件处理 逻辑 鼠标左键被放开(鼠标左键被放开 事件)
{
处理程序(事件.横坐标(),事件.纵坐标());
返回 真;
}

}