110 lines
2.3 KiB
Lua
110 lines
2.3 KiB
Lua
local ins=table.insert
|
|
return{
|
|
color=COLOR.red,
|
|
env={
|
|
drop=20,lock=60,
|
|
sequence=function(P)
|
|
for _=1,3 do P:getNext(7)end
|
|
while true do
|
|
YIELD()
|
|
if not P.nextQueue[1]then
|
|
local height=FREEROW.get(0)
|
|
local max=#P.field
|
|
if max>0 then
|
|
--Get heights
|
|
for x=1,10 do
|
|
local h=max
|
|
while P.field[h][x]==0 and h>1 do
|
|
h=h-1
|
|
end
|
|
height[x]=h
|
|
end
|
|
else
|
|
for x=1,10 do
|
|
height[x]=0
|
|
end
|
|
end
|
|
height[11]=999
|
|
|
|
local wei={1,1,2,2,3,4}
|
|
local d=0
|
|
for i=1,10 do
|
|
d=d+height[i]
|
|
end
|
|
if d<40 or P.stat.row>2*42 then--Low field or almost win, give SZO
|
|
for _=1,4 do
|
|
ins(wei,1)
|
|
ins(wei,2)
|
|
ins(wei,6)
|
|
end
|
|
else
|
|
--Give I when no hole
|
|
local tempDeltaHei=-999--Height difference
|
|
for x=2,11 do
|
|
local deltaHei=height[x]-height[x-1]
|
|
if tempDeltaHei<-2 and deltaHei>2 then
|
|
break
|
|
elseif x==11 then
|
|
for _=1,3 do ins(wei,7)end
|
|
else
|
|
tempDeltaHei=deltaHei
|
|
end
|
|
end
|
|
|
|
--Give O when no d=0/give T when no d=1
|
|
local flatCount=0--d=0 count
|
|
local stairCount=0--d=1 count
|
|
for x=2,10 do
|
|
local _=height[x]-height[x-1]
|
|
if _==0 then
|
|
flatCount=flatCount+1
|
|
elseif _==1 or _==-1 then
|
|
stairCount=stairCount+1
|
|
end
|
|
end
|
|
if flatCount<3 then
|
|
for _=1,3 do ins(wei,6)end
|
|
end
|
|
if stairCount<3 then
|
|
for _=1,4 do ins(wei,5)end
|
|
end
|
|
end
|
|
|
|
FREEROW.discard(height)
|
|
P:getNext(wei[P.seqRND:random(#wei)])
|
|
end
|
|
end
|
|
end,
|
|
dropPiece=function(P)if P.stat.row>=100 then P:win('finish')end end,
|
|
nextCount=1,holdCount=0,
|
|
ospin=false,
|
|
freshLimit=15,
|
|
bg='blockfall',bgm='reason',
|
|
},
|
|
mesDisp=function(P)
|
|
setFont(55)
|
|
local r=100-P.stat.row
|
|
if r<0 then r=0 end
|
|
mStr(r,63,265)
|
|
PLY.draw.drawTargetLine(P,r)
|
|
end,
|
|
score=function(P)return{math.min(P.stat.row,100),P.stat.time}end,
|
|
scoreDisp=function(D)return D[1].." Lines "..STRING.time(D[2])end,
|
|
comp=function(a,b)return a[1]>b[1]or a[1]==b[1]and a[2]<b[2]end,
|
|
getRank=function(P)
|
|
local L=P.stat.row
|
|
if L>=100 then
|
|
local T=P.stat.time
|
|
return
|
|
T<=110 and 5 or
|
|
T<=126 and 4 or
|
|
T<=160 and 3 or
|
|
T<=240 and 2 or
|
|
1
|
|
else
|
|
return
|
|
L>=50 and 1 or
|
|
L>=10 and 0
|
|
end
|
|
end,
|
|
} |