Delete game.lua
This commit is contained in:
parent
a4781e008f
commit
c5e46162eb
194
game.lua
194
game.lua
|
|
@ -1,194 +0,0 @@
|
||||||
local game={}
|
|
||||||
game.__index=game
|
|
||||||
local sounds=require"sounds"
|
|
||||||
local gemtypes=require"gemtypes"
|
|
||||||
|
|
||||||
local gem_type_max=#gemtypes
|
|
||||||
|
|
||||||
function game:new(w,h)
|
|
||||||
local obj=setmetatable({
|
|
||||||
w=w,h=h,
|
|
||||||
gem_tc=3,
|
|
||||||
board={},
|
|
||||||
falling={},
|
|
||||||
tofall={},
|
|
||||||
fpcache={},
|
|
||||||
pfx={},
|
|
||||||
dbg={},
|
|
||||||
toenerg=0,
|
|
||||||
batt={display=1,real=1},
|
|
||||||
grabs={},
|
|
||||||
},self)
|
|
||||||
for x=1,w do
|
|
||||||
for y=1,h do
|
|
||||||
self:spawn_gem(x)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
return obj
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:pti(x,y)
|
|
||||||
return y+(x-1)*self.h
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:get(x,y)
|
|
||||||
if not self.board[x] then return end
|
|
||||||
return self.board[x][y]
|
|
||||||
end
|
|
||||||
|
|
||||||
local function eqgem(a,b)
|
|
||||||
if not a or not b then return end
|
|
||||||
return a.t==b.t
|
|
||||||
end
|
|
||||||
|
|
||||||
local scandirs={
|
|
||||||
{-1,0,1},{1,0,1},
|
|
||||||
{0,-1,2},{0,1,2}
|
|
||||||
}
|
|
||||||
|
|
||||||
local function scanrows(hot,get,o)
|
|
||||||
local rows={}
|
|
||||||
local seen={}
|
|
||||||
for _,pos in pairs(hot) do
|
|
||||||
local row={hot=pos}
|
|
||||||
local gem = get(o,x,y)
|
|
||||||
local i=pti(x,y)
|
|
||||||
if not seen[i] then
|
|
||||||
seen[i]=true
|
|
||||||
for _,dir in pairs(scandirs) do
|
|
||||||
local axis=dirs[3]
|
|
||||||
row[axis]=row[axis] or {}
|
|
||||||
local off=0
|
|
||||||
local ox,oy=x,y
|
|
||||||
repeat
|
|
||||||
off=off+1
|
|
||||||
ox=ox+dir[1]*off
|
|
||||||
oy=oy+dir[2]*off
|
|
||||||
seen[pti(ox,oy)]=true
|
|
||||||
until not eqgem(gem,get(o,ox,oy))
|
|
||||||
row[axis][dir[axis]*0.5+1.5]=pos[axis]+(off-1)*dir[axis]
|
|
||||||
end
|
|
||||||
end
|
|
||||||
for _,axis in ipairs(row) do
|
|
||||||
axis[3]=axis[2]-axis[1]+1
|
|
||||||
end
|
|
||||||
rows[row]=true
|
|
||||||
end
|
|
||||||
local finrows={}
|
|
||||||
for row,_ in pairs(rows) do
|
|
||||||
local mar=0
|
|
||||||
for i,axis in ipairs(row) do
|
|
||||||
mar=math.max(mar,axis[3])
|
|
||||||
row[i]=axis[3]>=3 and axis
|
|
||||||
end
|
|
||||||
row.mar=mar
|
|
||||||
if mar<3 then
|
|
||||||
rows[row]=nil
|
|
||||||
end
|
|
||||||
end
|
|
||||||
return rows
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:init_fpcache(x)
|
|
||||||
if self.fpcache[x] then return end
|
|
||||||
local falls={}
|
|
||||||
local dead={}
|
|
||||||
for fall,_ in pairs(self.falling) do
|
|
||||||
if not fall.die then
|
|
||||||
falls[#falls+1]=fall
|
|
||||||
else
|
|
||||||
dead[fall]=true
|
|
||||||
end
|
|
||||||
end
|
|
||||||
table.sort(falls,function(a,b)
|
|
||||||
return a.y<b.y
|
|
||||||
end)
|
|
||||||
self.fpcache[x]={gems={},falls=falls,dead=dead}
|
|
||||||
local miy=self.h
|
|
||||||
for y=1,self.h do
|
|
||||||
if game:get(x,y) then
|
|
||||||
miy=y-1
|
|
||||||
break
|
|
||||||
end
|
|
||||||
end
|
|
||||||
fpcache.miy=miy
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:get_fall_predict(x,y)
|
|
||||||
local a=game:get(x,y)
|
|
||||||
if a then return a end
|
|
||||||
self:init_fpcache(x)
|
|
||||||
local miy=self.fpcache[x].miy
|
|
||||||
for _,fall in ipairs(self.fpcache[x].falls) do
|
|
||||||
if miy>=y and miy-#fall.gems<y then
|
|
||||||
return fall.gems[1+miy-y]
|
|
||||||
end
|
|
||||||
miy=miy-#fall.gems
|
|
||||||
end
|
|
||||||
return self.fpcache[x].gems[y]
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:spawn_gem(x,n)
|
|
||||||
self:init_fpcache(x)
|
|
||||||
local falls=self.fpcache[x].falls
|
|
||||||
topfall=fpf[#fpf]
|
|
||||||
if not topfall or topfall.y-#topfall.gems>0 then
|
|
||||||
local fall={y=0,vel=0,gems={}}
|
|
||||||
self.falling[x][fall]=true
|
|
||||||
self.fpcache[x]=nil
|
|
||||||
self:init_fpcache(x)
|
|
||||||
end
|
|
||||||
local i=#topfall.gems+1
|
|
||||||
local gtc=math.floor(self.gem_tc)
|
|
||||||
local infgem=math.random(1,gtc)
|
|
||||||
local fgem=infgem
|
|
||||||
repeat
|
|
||||||
fgem=(fgem)%gtc+1
|
|
||||||
topfall.gems[i]=fgem
|
|
||||||
until fgem==infgem or not next(scanrows({{x,y}},self.get_fall_predict,o))
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:kill(posl)
|
|
||||||
local kc=0
|
|
||||||
for _,pos in pairs(posl) do
|
|
||||||
self.board[pos.x][pos.y]=nil
|
|
||||||
self.tofall[pos.x]=math.min(self.tofall[pos.x] or self.h,pos.y)
|
|
||||||
kc=kc+1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:check(hot,swaps)
|
|
||||||
local rows=scanrows(hot,get,self)
|
|
||||||
local
|
|
||||||
for row,_ in pairs(rows) do
|
|
||||||
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:grab(id,x,y)
|
|
||||||
grabs[id]={
|
|
||||||
pos={x,y},
|
|
||||||
ipos={math.floor(x+.5),math.floor(y+.5)},
|
|
||||||
off={0,0},
|
|
||||||
}
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:grabmove(id,x,y)
|
|
||||||
local g=grabs[id]
|
|
||||||
if not grabs[id] then return end
|
|
||||||
local dx,dy=x-g.pos[1],y-g.pos[2]
|
|
||||||
if math.abs(dx)>math.abs(dy) then
|
|
||||||
dy=0 else dx=0
|
|
||||||
end
|
|
||||||
dx=math.min(1,math.max(-1,math.floor(dx+.5)))
|
|
||||||
dy=math.min(1,math.max(-1,math.floor(dy+.5)))
|
|
||||||
off[1],off[2]=dx,dy
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:ungrab(id,x,y)
|
|
||||||
|
|
||||||
end
|
|
||||||
|
|
||||||
function game:update(dt)
|
|
||||||
dt=math.min(dt,0.2)
|
|
||||||
end
|
|
||||||
Loading…
Reference in a new issue