257 lines
7.1 KiB
Lua
257 lines
7.1 KiB
Lua
-- Mine Sweeper Game
|
|
-- Author: Github/Kiritow
|
|
|
|
require("libgpu")
|
|
require("libevent")
|
|
require("queue")
|
|
local component=require("component")
|
|
local shell=require("shell")
|
|
|
|
local args=shell.parse(...)
|
|
local argc=#args
|
|
|
|
local gpu=GetGPU()
|
|
|
|
local function generateMap(line,col,all)
|
|
local t={}
|
|
for i=0,line+1,1 do
|
|
t[i]={}
|
|
end
|
|
|
|
local cnt=0
|
|
while(cnt<all) do
|
|
local cl=math.random(1,line)
|
|
local cc=math.random(1,col)
|
|
if(t[cl][cc]==nil) then
|
|
t[cl][cc]=-1
|
|
cnt=cnt+1
|
|
end
|
|
end
|
|
local function val(xl,xc)
|
|
if(t[xl][xc]==nil) then return 0
|
|
elseif(t[xl][xc]<0) then return 1
|
|
else return 0
|
|
end
|
|
end
|
|
for i=1,line,1 do
|
|
for j=1,col,1 do
|
|
if(t[i][j]==nil) then
|
|
t[i][j]=val(i-1,j-1)+val(i-1,j)+val(i-1,j+1)+
|
|
val(i,j-1)+val(i,j+1)+
|
|
val(i+1,j-1)+val(i+1,j)+val(i+1,j+1)
|
|
end
|
|
end
|
|
end
|
|
|
|
t.line=line
|
|
t.col=col
|
|
t.all=all
|
|
return t
|
|
end
|
|
|
|
local function debugPrintMap(t)
|
|
gpu:clear()
|
|
for i=1,t.line,1 do
|
|
for j=1,t.col,1 do
|
|
if(t[i][j]>=0) then
|
|
gpu:set(i,j,tostring(t[i][j]))
|
|
else
|
|
gpu:set(i,j,"X")
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
local function generateBlankMask(line,col,val)
|
|
local t={}
|
|
for i=1,line,1 do
|
|
t[i]={}
|
|
for j=1,col,1 do
|
|
t[i][j]=val
|
|
end
|
|
end
|
|
t.line=line
|
|
t.col=col
|
|
return t
|
|
end
|
|
|
|
local function printMap(base,mask)
|
|
gpu:clear()
|
|
for i=1,base.col+2,1 do
|
|
gpu:set(1,i,"-")
|
|
end
|
|
|
|
for i=1,base.line,1 do
|
|
gpu:set(i+1,1,"|")
|
|
|
|
for j=1,base.col,1 do
|
|
if(mask[i][j]>0) then
|
|
if(base[i][j]>=0) then
|
|
if(base[i][j]>0) then
|
|
gpu:pushfg(0x0000FF)
|
|
gpu:pushbg(0xFFFFFF)
|
|
gpu:set(i+1,j+1,tostring(base[i][j]))
|
|
gpu:popbg()
|
|
gpu:popfg()
|
|
end
|
|
else
|
|
gpu:pushfg(0xFF0000)
|
|
gpu:set(i+1,j+1,"X")
|
|
gpu:popfg()
|
|
end
|
|
elseif(mask[i][j]<0) then
|
|
gpu:pushfg(0xFFFF00)
|
|
gpu:set(i+1,j+1,"?")
|
|
gpu:popfg()
|
|
else
|
|
gpu:pushbg(0xFFFFFF)
|
|
gpu:set(i+1,j+1," ")
|
|
gpu:popbg()
|
|
end
|
|
end
|
|
|
|
gpu:set(i+1,base.col+2,"|")
|
|
end
|
|
|
|
for i=1,base.col+2,1 do
|
|
gpu:set(base.line+2,i,"-")
|
|
end
|
|
end
|
|
|
|
local function SetStatus(mp,str)
|
|
gpu:set(mp.line+3,1,">>" .. str .. "<<")
|
|
end
|
|
|
|
-- Game
|
|
local function main()
|
|
-- printMap(generateMap(10,10,5),generateBlankMask(10,10,true))
|
|
local maxline=10
|
|
local maxcol=10
|
|
local maxmine=5
|
|
if(argc==3) then
|
|
maxline=tonumber(args[1])
|
|
maxcol=tonumber(args[2])
|
|
maxmine=tonumber(args[3])
|
|
end
|
|
|
|
local mp=generateMap(maxline,maxcol,maxmine)
|
|
local mask=generateBlankMask(maxline,maxcol,0)
|
|
local marked=0
|
|
local marked_right=0
|
|
|
|
printMap(mp,mask)
|
|
|
|
while true do
|
|
SetStatus(mp,"Marked " .. marked .. "/" .. maxmine)
|
|
|
|
local e=WaitMultipleEvent("touch","interrupted")
|
|
if(e.event=="interrupted") then
|
|
SetStatus(mp,"Game stopped. Click to exit.")
|
|
return
|
|
end
|
|
|
|
local line=e.y-1
|
|
local col=e.x-1
|
|
|
|
if(not (line<1 or col<1 or line>mp.line or col>mp.col) ) then
|
|
if(e.button==0) then
|
|
if(mp[line][col]<0) then
|
|
-- Game over
|
|
mask=generateBlankMask(mp.line,mp.col,1)
|
|
|
|
printMap(mp,mask)
|
|
SetStatus(mp,"Game Over! Click to exit.")
|
|
return
|
|
elseif(mask[line][col]==0) then
|
|
if(mp[line][col]>0) then
|
|
mask[line][col]=1
|
|
else
|
|
-- If click on 0, then try to unlock other blocks with 0 (BFS)
|
|
local bus=Queue.new()
|
|
local x={}
|
|
x.line=line
|
|
x.col=col
|
|
bus:push(x)
|
|
|
|
local cnt=1
|
|
while(not bus:empty()) do
|
|
SetStatus(mp,"Counting " .. cnt)
|
|
--os.sleep(0)
|
|
|
|
local x=bus:pop()
|
|
cnt=cnt+1
|
|
|
|
if(x.line>1 and
|
|
mp[x.line-1][x.col]==0 and mask[x.line-1][x.col]==0) then
|
|
local t={}
|
|
t.line=x.line-1
|
|
t.col=x.col
|
|
mask[x.line-1][x.col]=1
|
|
bus:push(t)
|
|
end
|
|
|
|
if(x.line<mp.line and
|
|
mp[x.line+1][x.col]==0 and mask[x.line+1][x.col]==0) then
|
|
local t={}
|
|
t.line=x.line+1
|
|
t.col=x.col
|
|
mask[x.line+1][x.col]=1
|
|
bus:push(t)
|
|
end
|
|
|
|
if(x.col>1 and
|
|
mp[x.line][x.col-1]==0 and mask[x.line][x.col-1]==0) then
|
|
local t={}
|
|
t.line=x.line
|
|
t.col=x.col-1
|
|
mask[x.line][x.col-1]=1
|
|
bus:push(t)
|
|
end
|
|
|
|
if(x.col<mp.col and
|
|
mp[x.line][x.col+1]==0 and mask[x.line][x.col+1]==0) then
|
|
local t={}
|
|
t.line=x.line
|
|
t.col=x.col+1
|
|
mask[x.line][x.col+1]=1
|
|
bus:push(t)
|
|
end
|
|
end
|
|
end
|
|
|
|
printMap(mp,mask)
|
|
end
|
|
else
|
|
if(mask[line][col]==0) then
|
|
mask[line][col]=-1
|
|
marked=marked+1
|
|
if(mp[line][col]<0) then
|
|
marked_right=marked_right+1
|
|
end
|
|
elseif(mask[line][col]==-1) then
|
|
mask[line][col]=0
|
|
marked=marked-1
|
|
if(mp[line][col]<0) then
|
|
marked_right=marked_right-1
|
|
end
|
|
end
|
|
|
|
printMap(mp,mask)
|
|
|
|
if(marked_right==maxmine and marked==maxmine) then
|
|
SetStatus(mp,"Game Finish. Thank you for playing. Click to exit.")
|
|
return
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
print("Mine Sweeper")
|
|
print("Author: Github/Kiritow")
|
|
main()
|
|
|
|
WaitEvent("touch")
|
|
gpu:clear()
|