1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
D:10 10 /dimensions
C:15 /bomb count
W:1 /0=lose 1=win
`prng 0
N:(!*/2+D)+/:(~~:)#(2+D)/+,/,/:\:/2#,-1+!3 /neighbour cells
gen:{-,/4(+|0N,)/D#@[2+&d;(-C)?-1+d:*/D;:;1]} /generate a grid
fld:{@[x;&(~^x)&|/((~0>x)&~+/(0>n)&2=3!n:x N)N;:;0]} /one level of flood fill
cnt:{+/(+/(0>n)&2=3!n:x N;x)*~:\~0>x}
tick:{G::cnt fld G;$[~+/-2=G;tick::(::);]}
b:0.9*B:1%*D /inner(b) and outer(B) box size
u:0.3 0.6 /position of win/lose message
c:{"g.fillStyle='",($x),"';"} /set colour
w:{"g.fillText(",(","/(,`j x),$y),");"} /write text
q:{"g.fillRect(",(","/$(B*x),2#b),");"} /draw box
/mousedown event handler
md:{$[~tick;:tick
~0>s:G[i::(2+D)/1+I::_x[`xy]%B];
2=x`buttons; G::cnt@@[G;i;:;s+-3 3s<-2]
2~s:3!s; [W::0;tick::(::)]
1~s;G::cnt@@[G;i;:;0]]}
d:{$[-2>i:G[(2+D)/1+x];(c`brown;q x)
0>i:G[(2+D)/1+x];(c`green;q x)
(c`blue;q x;c`white;w[(~i)_$i;B*u+x])]}
draw:{m:"you ",("lost";"won")W
`js@,//("g.clearRect(0,0,1,1);";d'+!D)
$[tick;:tick;~W;`js@,//(c`red;q I)]
b:(c`white),/:w["X"]'+B*u+-1+(2+D)\&(0>G)&2=3!G
`js@,//(b;c`yellow;w[m;1%2.7 2.4])}
`js"tickPeriod=150"; /how often tick[] will be called
`js"hgr()"; /enter graphics mode
G:gen[] /grid (including 1-cell padding around it)
/thanks @hermetian
|
