aardio 写的扫雷小游戏

import win.ui;

/*DSG{{*/

mainForm = win.form(text="扫雷";right=494;bottom=556;bgcolor=12632256;border="dialog frame";max=false)

mainForm.add(

button={cls="button";text="开始";left=320;top=13;right=375;bottom=36;z=8};

button3={cls="button";text="随机";left=396;top=10;right=463;bottom=39;z=7};

crs={cls="edit";text="行数";left=102;top=11;right=156;bottom=35;edge=1;num=1;z=4};

ls={cls="edit";text="雷数";left=241;top=13;right=295;bottom=37;edge=1;num=1;z=6};

map={cls="plus";left=5;top=43;right=489;bottom=527;bgcolor=15780518;clipBk=false;edge=1;notify=1;z=1};

static={cls="static";text="行/列：";left=51;top=14;right=103;bottom=39;transparent=1;z=3};

static3={cls="static";text="最大雷数：";left=171;top=14;right=236;bottom=35;transparent=1;z=5};

sts={cls="static";text="Static";left=3;top=527;right=491;bottom=553;border=1;db=1;dl=1;dr=1;edge=1;transparent=1;z=2}

)

/*}}*/

import win.timer;

import math;

mtimer=win.timer(mainForm);

math.randomize();

var dflag=false;//画图标志位

var mflag=true;//随机标志位

var map={};//初始图表

var slm={};//已选中图表id

var crs=24;//行列数

var lei=math.floor(crs*crs/6);//雷数 .floor下取整，.ceil 上取整

var tlei={};//雷位id

var ylei={};//已排出雷位id

var tspace={};//空位id

var step=20;//步长

mainForm.crs.text=crs;

mainForm.ls.text=lei;

var argb={//0xAARRGGBB

red=0xFFFF0000;

green=0xFF00FF00;

blue=0xFF0000FF;

yellow=0xFFFFFF00;

black=0xFF000000;

white=0xFFFFFFFF;

};//定义几个常用色

showlei=function(mp,flag=true){//显示雷的位置

if(flag)

{

for(i=1;#tlei;1){

selmap(mp,tlei[i],argb.black);

}

} else {

for(i=1;#tlei;1){

unselmap(mp,tlei[i]);

}

}//显示所有雷

toxyline=function(mp,x,y,dx,dy,cl=0xFFFFFFFF){

import gdip;

var gph = gdip.graphics(mp)

var penrect = gdip.pen( cl, 1, 2/*_GdipUnitPixel*/ );//笔

gph.smoothingMode = 4/*_GdipSmoothingModeAntiAlias*/ ; //加上抗锯齿功能

gph.drawBezier(x,y,math.random(x,dx),math.random(y,dy),dx,dy);

}//没用得上

tadd=function(t,id,f=false){//f 默认过滤重复值

if(type(t)=="table"){

if(f){table.push(t,id);}

else{if(!table.find(t,id)){table.push(t,id);}}

}

}//

deltoo=function(tb,z=true){//删除table重复值,默认只保留非0值

var rtn={};

if(type(tb)=="table"){

for(i=1;#tb;1){

if(!table.find(rtn,tb[i])){

if(z){if(tb[i]!=0) table.push(rtn,tb[i]);}

else{table.push(rtn,tb[i]);}

}

return(rtn);

}

testlei=function(cid){//测试当前是否为雷

4 9 2

3 5 7

8 1 6

var rtn=0;

if(table.find(tlei,cid)){rtn=9;};//当前是雷

return(rtn);

}

testcr=function(cid){//测试四周雷 ID,并存入table返回

var leiRangle={};

var leiBit={cid-crs-1,cid-crs,cid-crs+1,//上面

cid-1,cid+1,//中间

cid+crs-1,cid+crs,cid+crs+1//下面

};

if(cid<=crs){//第一行

leiBit[1]=0;

leiBit[2]=0;

leiBit[3]=0;

}

if(cid>(crs*(crs-1))){//最后一行

leiBit[6]=0;

leiBit[7]=0;

leiBit[8]=0;

}

if(cid%crs==1){//第一列

leiBit[1]=0;

leiBit[4]=0;

leiBit[6]=0;

}

if(cid%crs==0){//最后一列

leiBit[3]=0;

leiBit[5]=0;

leiBit[8]=0;

}

for(i=1;#leiBit;1){

if(testlei(leiBit[i])){tadd(leiRangle,leiBit[i]);}

}

return(leiRangle);

}

testspace=function(mp,cid){//测试四周非雷 ID,并存入table返回，

var leiRangle={};

var leiBit={cid-crs-1,cid-crs,cid-crs+1,//上面

cid-1,cid+1,//中间

cid+crs-1,cid+crs,cid+crs+1//下面

};

if(cid<=crs){//第一行

leiBit[1]=0;

leiBit[2]=0;

leiBit[3]=0;

}

if(cid>(crs*(crs-1))){//最后一行

leiBit[6]=0;

leiBit[7]=0;

leiBit[8]=0;

}

if(cid%crs==1){//第一列

leiBit[1]=0;

leiBit[4]=0;

leiBit[6]=0;

}

if(cid%crs==0){//最后一列

leiBit[3]=0;

leiBit[5]=0;

leiBit[8]=0;

}

selmap(mp,cid,argb.white);

var tl=testcr(cid);

if(#tl){drawtext(mp,map[cid],#tl,12,argb.blue);}

for(i=1;#leiBit;1){

tl=testcr(leiBit[i]);

//import console;

if(leiBit[i]!=0){//没有超出地图范围

if(#tl>0 and #tl<9){//周围没有雷，或不全是雷

if(!testlei(leiBit[i]) and !table.find(ylei,leiBit[i])){//显示周围雷数

//console.log(leiBit[i]);

selmap(mp,leiBit[i],argb.white);

tadd(leiRangle,leiBit[i]);

drawtext(mp,map[leiBit[i]],#tl,12,argb.blue);

}

} else {

if(!testlei(leiBit[i]) and !table.find(slm,leiBit[i]) and !table.find(ylei,leiBit[i])){//未知区域且不是雷

selmap(mp,leiBit[i],argb.white);

tadd(leiRangle,testspace(mp,leiBit[i]));

}

return(leiRangle);

}

doudong=function(wf){//窗口抖动

var ox=wf.left;

var oy=wf.top;

var oh=wf.height;

var ow=wf.width;

for(i=1;2;1){

for(j=1;4;1){

wf.left=ox-j;

wf.top=oy-i;

wf.height=oh+i;

wf.width=ow+j;

sleep(100);

}

wf.left=ox;

wf.top=oy;

wf.height=oh;

wf.width=ow;

}

redraw(wf.map,,argb.black);

}//被雷炸得乱动

initmap=function(mp,ca=3){//ca<=10,大于10无变化

var xx;

crs=tonumber(mainForm.crs.text);

lei=tonumber(mainForm.ls.text);

map={};

slm={};

var mid=1;

tlei={};

ylei={};

tspace={};

mp.width=mp.height;

step=math.floor(mp.width-5)/(crs);

//fm.width=crs*step+4;

//fm.height=crs*step+4;

for(i=1;crs*step-step+1;step){// row*step-step+1

for(j=1;crs*step-step+1;step){// col*step-step+1

tadd(map,{j+ca,i+ca,j+step-ca,i+step-ca,"hz"++mid,mid,0});//x,y,w,h,name,id,flag=0

mid++;

}

for(i=1;lei;1){//初始化雷位

xx=math.random(1,mid-1);

tadd(tlei,xx);//雷位不能大于最大格子数

}

mainForm.sts.text="最大雷数："++ lei++" 已布置雷数："++ #tlei++ "";

} //初始化地图

drawup=function(mp,md,cl=0xFF0000FF){//左上影

drawrect(mp,{md[1]-2,md[2]-2,md[3],md[4]},cl);

}

drawdown=function(mp,md,cl=0xFF000000){// 右下影

drawrect(mp,{md[1],md[2],md[3]+2,md[4]+2},cl);

}

redraw=function(fm,argb1=0xFAFF0000,argb2=0xFA0000FF){

for(i=1;#map;1){//drawup drawdown,着色不同显示的立体效果不一样

if(map[i][7]!=0) {

drawup(fm,map[i],argb.black);

drawdown(fm,map[i],argb.yellow);

drawrect(fm,map[i],argb2);

}

else {

drawup(fm,map[i],argb.black);

drawdown(fm,map[i],argb.yellow);

drawrect(fm,map[i],argb1);

}

}//重画地图

drawrect=function(mp,xx,rgbs=0xFAFF0000,flag=true){//画矩形，xx为数组={x,y,w,h} ,mp为窗体或控件,fl:true空心或false实心

import gdip;

var graphics = gdip.graphics(mp)

var penrect = gdip.pen( rgbs, 1, 2/*_GdipUnitPixel*/ );//笔

graphics.drawRectangle( penrect, xx[1],xx[2],xx[3]-xx[1],xx[4]-xx[2]);

if(flag){

var brush = gdip.solidBrush(rgbs);

graphics.fillRectangle( brush, xx[1]+1,xx[2]+1,xx[3]-xx[1]-1,xx[4]-xx[2]-1);

brush.delete();

}

penrect.delete();

} //画矩形

drawtext=function(mp,xx,tt,ss,rgbs=0xFF000000,align=1,valign=1){//xx文字区域{x,y,dx,dy}，tt文字，ss大小

import gdip;

var graphics = gdip.graphics(mp)//图形对象graphics(可以看作是画板)

graphics.smoothingMode = 4/*_GdipSmoothingModeAntiAlias*/ ; //加上抗锯齿功能

var pentxt = gdip.pen( rgbs, 1,2/*_GdipUnitPixel*/ );//创建画笔,画笔pen只能画一个轮廓(画线描边)

var brushtxt = gdip.solidBrush(rgbs);//创建刷子,画刷可以对一个东西进行填充(刷子)

family = gdip.family( "Verdana" ); ////创建FontFamily字体

strformat = gdip.stringformat ( );//创建stringFormat

strformat.align =align;//1/*_StringAlignmentCenter*/; //设置样式水平居中

strformat.lineAlign =valign;// 1/*_StringAlignmentCenter*/ ; //设置样式垂直居中

rclayout = ..gdip.RECTF(xx[1],xx[2],xx[3]-xx[1]-1,xx[4]-xx[2]-1);//设置文字区域

path = gdip.path(); //创建一个文字路径

path.startFigure();

path.addstring( tt, family, 1/*_GdipFontStyleBold*/, ss, rclayout, strformat);

graphics.fillPath( brushtxt, path)//fillPath填充路径

//graphics.drawPath( pen, path)//drawPath描边

//删除所有GDI+对象

brushtxt.delete();

pentxt.delete() ;

strformat.delete();

family.delete();

path.delete();

} //写字

testxy=function(mx,my){

var id=0;

for(i=1;table.count(map);1){

if(mx>=map[i][1]&&mx<=map[i][3]&&my>=map[i][2]&&my<=map[i][4]){

id=tonumber(map[i][6]);

}

return(id);

} //测试 ID

selmap=function(mp,d,rrgbs=0xFA0000FF,trgbs=0x0022ff22){//选中

drawrect(mp,map[d],rrgbs);

tadd(slm,d);

map[d][7]=1;

}//点选

unselmap=function(mp,d,oargb=0xFAFF0000){

drawrect(mp,map[d],oargb);

map[d][7]=0;

}//取消选择

getid=function(nm){

var id=0;

for(i=1;#map;1){

if(nm==map[i][5]){id=map[i][6];}

}

return (id);

} //根据名称反查ID

hoho=function(mp){

if(#ylei==#tlei and #ylei+#slm==#map){

dflag=false;

drawrect(mp,{50,90,430,170},argb.blue);

drawtext(mp,{60,110,430,150},"You Are NO.1!",45,argb.yellow);

}

gameover=function(fm,mp,mid){

selmap(mp,mid,argb.black);

showlei(mp);

doudong(fm);

drawrect(mp,{70,80,430,170},argb.blue);

drawtext(mp,{70,110,430,130},"Game Over!!",45,argb.yellow);

dflag=false;

}

initline=function(graphics,ps=2,pm=2){

//import gdip;

var gh=graphics;//gdip.graphics(mp);

var pen=gdip.pen( 0xFF009900,ps/* 2*/, pm /* 2=_GdipUnitPixel*/ );

var icrs=crs*step+1;

for(i=1;icrs;step){

gh.drawLine(pen,i,1,i,icrs);

gh.drawLine(pen,1,i,icrs,i);

}

pen.delete();

}//画背景线

mainForm.onActivate = function(state,hwndOther,minimized){

if(state && dflag){//防止画布变成空白

redraw(mainForm.map);

}

}//窗口恢复显示

mainForm.map.onMouseDown = function(wParam,lParam){

var x,y = win.getMessagePos(lParam);

if( wParam & 0x1/*_MK_LBUTTON*/ ){

var mid =testxy(x,y) ;

if(mid!=0 && dflag){

if(testlei(mid)){//踩雷了，游戏结束。

gameover(mainForm,mainForm.map,mid);

}

else{

if(!table.find(slm,mid) and !table.find(ylei,mid)){//如果不是已经翻开的

var xspace=testspace(mainForm.map,mid);

hoho(owner);

}

}//鼠标左键点击

mainForm.map.onMouseMove = function(wParam,lParam){

mainForm.sts.text="已发现雷数："++#ylei++" 已发现非雷数："++#slm++" 共有雷数："++#tlei++" 总格子数："++#map++"";

}//鼠标移动

mainForm.button3.oncommand = function(id,event){

if(mflag){

mtimer.setInterval(100);

mtimer.enable();

mflag=false;

owner.text="停止";

} else {

//mtimer.setInterval(0);

mtimer.disable();

mflag=true;

owner.text="随机";

}

}//开启随机屏保

mtimer.onTimer = function(){

var sl=math.random(1,#map);

var argbx=tonumber(string.format("0x%2X%2X%2X%2X",math.random(0,255),math.random(0,255),math.random(0,255),math.random(1,255)));

mainForm.sts.text=argbx;

selmap(mainForm.map,sl,argbx);

var usl=math.random(1,#slm);

unselmap(mainForm.map,slm[usl]);

} //屏保。。

mainForm.map.onDrawContent = function(graphics,rc,txtColor,rcContent,foreColor){

if(dflag){

initline(graphics);

}

}//前景刷新

mainForm.button.oncommand = function(id,event){

var cr=tonumber(mainForm.crs.text);

var l=tonumber(mainForm.ls.text);

if(cr>24||cr<3) {

mainForm.crs.setFocus(0,-1);

return ;

}

if(l>math.floor(cr*cr/6)){ mainForm.ls.setFocus(0,-1);return ; }

dflag=true;//允许画画

initmap(mainForm.map);//初始化图块

mainForm.map.redraw();//画线

redraw(mainForm.map);//画块

}

mainForm.map.onMouseDoubleClick = function(wParam,lParam){

//var x,y = win.getMessagePos(lParam);

if(dflag){

showlei(mainForm.map);

}

}//显示所有雷

mainForm.map.wndproc = function(hwnd,message,wParam,lParam){

var x,y = win.getMessagePos(lParam);

if(wParam & 0x2/*_MK_RBUTTON*/){

var mid=testxy(x,y);

if(mid!=0 and dflag){

//mainForm.sts.text=wParam;

var yx=table.find(ylei,mid);

if(yx){

table.removeByValue(ylei,mid);

drawrect(owner,map[mid],argb.red);

} else {

drawtext(owner,map[mid],'@',11,argb.black);

tadd(ylei,mid);

hoho(owner);

}

//无返回值则继续调用默认回调函数

}//标记雷位

mainForm.crs.onChange = function(){

if(owner.onModified)owner.onModified(true);

crs=tonumber(owner.text);

mainForm.ls.text=math.floor(crs*crs/6);

}//地图行列

initmap(mainForm.map);

mainForm.show();

dflag=true;//窗体完全载入并显示后，设置为true，然后重画窗体内容

mainForm.map.redraw();

redraw(mainForm.map);

return win.loopMessage();

aardio 写的 扫雷 小游戏

推荐阅读更多精彩内容

aardio 写的扫雷小游戏