Files
Techmino/parts/gameFuncs.lua

1255 lines
40 KiB
Lua

local gc_push,gc_pop=GC.push,GC.pop
local gc_origin,gc_replaceTransform=GC.origin,GC.replaceTransform
local gc_setLineWidth,gc_setColor=GC.setLineWidth,GC.setColor
local gc_setShader=GC.setShader
local gc_draw,gc_rectangle,gc_printf=GC.draw,GC.rectangle,GC.printf
local ins,rem=table.insert,table.remove
local floor,rnd=math.floor,math.random
local approach=MATH.expApproach
local SETTING,GAME,SCR=SETTING,GAME,SCR
local PLAYERS=PLAYERS
------------------------------[System]------------------------------
do-- function tryBack()
local sureTime=-1e99
function tryBack()
if TIME()-sureTime<1 then
sureTime=-1e99
return true
else
sureTime=TIME()
MES.new('warn',text.sureQuit)
end
end
end
do-- function tryReset()
local sureTime=-1e99
function tryReset()
if TIME()-sureTime<1 then
sureTime=-1e99
return true
else
sureTime=TIME()
MES.new('warn',text.sureReset)
end
end
end
do-- function tryDelete()
local sureTime=-1e99
function tryDelete()
if TIME()-sureTime<1 then
sureTime=-1e99
return true
else
sureTime=TIME()
MES.new('warn',text.sureDelete)
end
end
end
do-- function loadFile(name,args), function saveFile(data,name,args)
local t=setmetatable({},{__index=function() return "'$1' loading failed: $2" end})
function loadFile(name,args)
local text=text or t
if not args then args='' end
local res,mes=pcall(FILE.load,name,args)
if res then
return mes
else
if mes:find'open error' then
MES.new('error',text.loadError_open:repD(name,""))
elseif mes:find'unknown mode' then
MES.new('error',text.loadError_errorMode:repD(name,args))
elseif mes:find'no file' then
if not args:sArg'-canSkip' then
MES.new('error',text.loadError_noFile:repD(name,""))
end
elseif mes then
MES.new('error',text.loadError_other:repD(name,mes))
else
MES.new('error',text.loadError_unknown:repD(name,""))
end
end
end
function saveFile(data,name,args)
local text=text or t
local res,mes=pcall(FILE.save,data,name,args)
if res then
return true
else
MES.new('error',
mes:find'duplicate' and
text.saveError_duplicate:repD(name) or
mes:find'encode error' and
text.saveError_encode:repD(name) or
mes and
text.saveError_other:repD(name,mes) or
text.saveError_unknown:repD(name)
)
end
end
end
function saveStats()
return saveFile(STAT,'conf/data')
end
function saveProgress()
return saveFile(RANKS,'conf/unlock')
end
function saveSettings()
if WS.status('game')=='running' then
NET.player_updateConf()
end
return saveFile(SETTING,'conf/settings')
end
function saveUser()
return saveFile(USER.__data,'conf/user')
end
do-- function applySettings()
local saturateValues={
normal={0,1},
soft={.2,.7},
gray={.4,.4},
light={.2,.8},
color={-.2,1.2},
}
function applySettings(reason)
-- Apply language
text=LANG.get(SETTING.locale)
WIDGET.setLang(text.WidgetText)
for k,v in next,TEXTOBJ do
if rawget(text,k) then
v:set(text[k])
end
end
-- Apply cursor
love.mouse.setVisible(SETTING.sysCursor)
-- Apply fullscreen
love.window.setFullscreen(SETTING.fullscreen)
love.resize(GC.getWidth(),GC.getHeight())
-- Apply Zframework setting
Z.setClickFX(SETTING.clickFX)
Z.setFrameMul(SETTING.frameMul)
Z.setPowerInfo(SETTING.powerInfo)
Z.setCleanCanvas(SETTING.cleanCanvas)
-- Apply VK shape
VK.setShape(SETTING.VKSkin)
-- Apply sound
love.audio.setVolume(SETTING.mainVol)
BGM.setVol(SETTING.bgm)
SFX.setVol(SETTING.sfx)
VOC.setVol(SETTING.voc)
-- Apply saturs
local m
m=saturateValues[SETTING.blockSatur] or saturateValues.normal
SHADER.blockSatur:send('b',m[1])
SHADER.blockSatur:send('k',m[2])
m=saturateValues[SETTING.fieldSatur] or saturateValues.normal
SHADER.fieldSatur:send('b',m[1])
SHADER.fieldSatur:send('k',m[2])
-- Apply BG
if reason=='fullscreen' then return end
if SETTING.bg=='on' then
BG.unlock()
BG.setDefault(SETTING.defaultBG)
BG.set()
if SETTING.lockBG then
BG.lock()
elseif reason=='lockBG' then -- We only reload theme again when at settings scene.
THEME.set(THEME.calculate(),GAME.playing)
end
elseif SETTING.bg=='off' then
BG.unlock()
BG.set('fixColor',SETTING.bgAlpha,SETTING.bgAlpha,SETTING.bgAlpha)
BG.lock()
elseif SETTING.bg=='custom' then
if love.filesystem.getInfo('conf/customBG') then
local res,image=pcall(GC.newImage,love.filesystem.newFile('conf/customBG'))
if res then
BG.unlock()
GC.setDefaultFilter('linear','linear')
BG.set('custom',SETTING.bgAlpha,image)
GC.setDefaultFilter('nearest','nearest')
BG.lock()
else
MES.new('error',text.customBGloadFailed)
end
else-- Switch off when custom BG not found
SETTING.bg='off'
BG.unlock()
BG.set('fixColor',SETTING.bgAlpha,SETTING.bgAlpha,SETTING.bgAlpha)
BG.lock()
end
end
end
end
------------------------------[Generate Grades]------------------------------
local smallDigits={[0]="","","","","","","","","",""}
local function getSmallNum(num)
local str=tostring(num)
local out=""
for i=1,#str do
out=out..smallDigits[tonumber(str:sub(i,i))]
end
return out
end
do -- Secret Grade
local r={"GM","GM+","TM","TM+"}
function getConstructGrade(index)
if index<11 then -- rank 10 - 1
return tostring(11-index)
elseif index<20 then -- S1 - S9 ranks
return "S"..index-10
elseif index<24 then -- GM, GM+, TM, TM+ ranks
return r[index-19]
else
return "TM+"..getSmallNum(index-22)
end
end
end
function getConstructGradeText(index)
if index<11 then
return "Grade "..tostring(11-index)
else
return getConstructGrade(index)
end
end
do -- Master GRADED
local master_postm_grades={"M","MK","MV","MO","MM-","MM","MM+","GM-","GM","GM+","TM-","TM","TM+"}
function getMasterGrade(index)
if index<10 then
return tostring(10-index)
elseif index<19 then
return "S"..index-9
elseif index<28 then
return "m"..index-18
elseif index<41 then
return master_postm_grades[index-27]
else
return master_postm_grades[#master_postm_grades]..getSmallNum(index-39)
end
end
local master_postm_grades_text={
"Master","MasterK","MasterV","MasterO","MasterM-","MasterM","MasterM+",
"Grand Master-","Grand Master","Grand Master+",
"Tech Master-","Tech Master","Tech Master+"
}
function getMasterGradeText(index)
if index<10 then
return "Grade "..tostring(10-index)
elseif index<19 then
return "S"..index-9
elseif index<28 then
return "m"..index-18
elseif index<41 then
return master_postm_grades_text[index-27]
else
return master_postm_grades_text[#master_postm_grades]..index-39
end
end
end
------------------------------[Royale mode]------------------------------
function randomTarget(P)-- Return a random opponent for P
local l=TABLE.shift(PLY_ALIVE,0)
local count=0
for i=1,#l do
if P.group==0 and l[i]~=P or P.group~=l[i].group then
count=count+1
end
end
if count==0 then return end
count=rnd(count)
for i=1,#l do
if P.group==0 and l[i]~=P or P.group~=l[i].group then
count=count-1
if count==0 then
return l[i]
end
end
end
end
function freshMostDangerous()
GAME.mostDangerous,GAME.secDangerous=false,false
local m,m2=0,0
for i=1,#PLY_ALIVE do
local h=#PLY_ALIVE[i].field
if h>=m then
GAME.mostDangerous,GAME.secDangerous=PLY_ALIVE[i],GAME.mostDangerous
m,m2=h,m
elseif h>=m2 then
GAME.secDangerous=PLY_ALIVE[i]
m2=h
end
end
for i=1,#PLY_ALIVE do
if PLY_ALIVE[i].atkMode==3 then
PLY_ALIVE[i]:freshTarget()
end
end
end
function freshMostBadge()
GAME.mostBadge,GAME.secBadge=false,false
local m,m2=0,0
for i=1,#PLY_ALIVE do
local P=PLY_ALIVE[i]
local b=P.badge
if b>=m then
GAME.mostBadge,GAME.secBadge=P,GAME.mostBadge
m,m2=b,m
elseif b>=m2 then
GAME.secBadge=P
m2=b
end
end
for i=1,#PLY_ALIVE do
if PLY_ALIVE[i].atkMode==4 then
PLY_ALIVE[i]:freshTarget()
end
end
end
function royaleLevelup()
GAME.stage=GAME.stage+1
local spd
TEXT.show(text.royale_remain:repD(#PLY_ALIVE),640,200,40,'beat',.3)
if GAME.stage==2 then
spd=30
elseif GAME.stage==3 then
spd=15
for _,P in next,PLY_ALIVE do
P.gameEnv.garbageSpeed=.6
end
if PLAYERS[1].alive then
BGM.play('cruelty')
end
elseif GAME.stage==4 then
spd=8
for _,P in next,PLY_ALIVE do
P.gameEnv.pushSpeed=3
end
elseif GAME.stage==5 then
spd=4
for _,P in next,PLY_ALIVE do
P.gameEnv.garbageSpeed=1
end
elseif GAME.stage==6 then
spd=2
if PLAYERS[1].alive then
BGM.play('final')
end
end
for _,P in next,PLY_ALIVE do
P.gameEnv.drop=spd
end
if GAME.curMode.name:find("_u") then
for i=1,#PLY_ALIVE do
local P=PLY_ALIVE[i]
P.gameEnv.drop=floor(P.gameEnv.drop*.4)
if P.gameEnv.drop==0 then
P.curY=P.ghoY
P:set20G(true)
end
end
end
end
------------------------------[Sound shortcuts]------------------------------
function playClearSFX(cc)
if cc<=0 or cc%1~=0 then return end
if cc<=4 then
SFX.play('clear_'..cc)
elseif cc<=6 then
SFX.play('clear_4')
elseif cc<=12 then
SFX.play('clear_4',.8)
if cc<=9 then
Snd('bass','A3','E4')
else
Snd('bass','A3','E4','A4')
end
elseif cc<=16 then
SFX.play('clear_5',.7)
if cc<=14 then
Snd('bass',.8,'A3','E4')Snd('lead','A4','E5')
else
Snd('bass',.8,'A3','G4')Snd('lead','B4','G5')
end
else
SFX.play('clear_6',.6)
if cc==17 then Snd('bass',.8,'A3','A4')Snd('lead','E5','G5')
elseif cc==18 then Snd('bass',.7,'A4')Snd('lead',.8,'C4','G5')Snd('bell','D5')
elseif cc==19 then Snd('bass',.7,'A4')Snd('lead',.8,'A4','E5')Snd('bell','B5')
elseif cc==20 then Snd('bass',.7,'A4')Snd('lead',.8,'A4','E4')Snd('bell','D5','B5','G6')
else Snd('bass',.7,'A4')Snd('lead',.8,'A4','E4')Snd('bell','B5','E6','A6')
end
end
end
function playReadySFX(i,vol)
if i==3 then
Snd('bass','A3',vol)
Snd('lead','A4',vol)
elseif i==2 then
Snd('bass','F3',vol)
Snd('lead','A4',vol)
Snd('lead','D5',vol)
elseif i==1 then
Snd('bass','G3',vol)
Snd('lead','B4',vol)
Snd('lead','E5',vol)
elseif i==0 then
Snd('bass','A3',vol)
Snd('lead','A4',vol)
Snd('lead','E5',vol)
Snd('lead','A5',vol)
end
end
------------------------------[Game]------------------------------
function getItem(itemName,amount)
STAT.item[itemName]=STAT.item[itemName]+(amount or 1)
end
function generateLine(hole)
return 1023-2^(hole-1)
end
function notEmptyLine(L)
for i=1,10 do
if L[i]>0 then
return true
end
end
end
function setField(P,F)
local height=0
for y=#F,1,-1 do
if notEmptyLine(F[y]) then
height=y
break
end
end
local t=P.showTime*3
for y=1,height do
local notEmpty=notEmptyLine(F[y])
P.field[y]=LINE.new(0,notEmpty)
P.visTime[y]=LINE.new(t)
if notEmpty then
for x=1,10 do
P.field[y][x]=F[y][x]
end
P.garbageBeneath=P.garbageBeneath+1
end
end
end
function freshDate(args)
if not args then
args=""
end
local date=os.date("%Y/%m/%d")
if STAT.date~=date then
STAT.date=date
STAT.todayTime=0
getItem('zTicket',1)
if not args:find'q' then
MES.new('info',text.newDay)
end
saveStats()
return true
end
end
function legalGameTime()-- Check if today's playtime is legal
if
SETTING.locale:find'zh' and
RANKS.sprint_10l<4 and
(not RANKS.sprint_40l or RANKS.sprint_40l<3)
then
if STAT.todayTime<7200 then
return true
elseif STAT.todayTime<14400 then
MES.new('warn',text.playedLong)
return true
else
MES.new('error',text.playedTooMuch)
return false
end
end
return true
end
do-- function trySettingWarn()
local lastWarnTime=0
function trySettingWarn()
if TIME()-lastWarnTime>2.6 then
MES.new('warn',text.settingWarn,5)
end
lastWarnTime=TIME()
end
end
function mergeStat(stat,delta)-- Merge delta stat. to global stat.
for k,v in next,delta do
if type(v)=='table' then
if type(stat[k])=='table' then
mergeStat(stat[k],v)
end
else
if stat[k] then
stat[k]=stat[k]+v
end
end
end
end
function scoreValid()-- Check if any unranked mods are activated
for _,sel in next,GAME.mod do
if sel>0 then return false end
end
if GAME.playing and GAME.tasUsed then
return false
end
return true
end
function destroyPlayers()-- Destroy all player objects, restore freerows and free CCs
for i=#PLAYERS,1,-1 do
local P=PLAYERS[i]
if P.canvas then
P.canvas:release()
end
while P.field[1] do
rem(P.field)
rem(P.visTime)
end
end
TABLE.cut(PLAYERS)
TABLE.cut(PLY_ALIVE)
end
function pauseGame()
if not SCN.swapping then
if not GAME.replaying then
for i=1,#PLAYERS do
local l=PLAYERS[i].keyPressing
for j=1,#l do
if l[j] then
PLAYERS[i]:releaseKey(j)
end
end
end
end
for i=1,20 do
VK.release(i)
end
if not (GAME.result or GAME.replaying) then
GAME.pauseCount=GAME.pauseCount+1
end
SCN.swapTo('pause','none')
end
end
function applyCustomGame()-- Apply CUSTOMENV, BAG, MISSION
for k,v in next,CUSTOMENV do
GAME.modeEnv[k]=v
end
if BAG[1] then
GAME.modeEnv.seqData=BAG
else
GAME.modeEnv.seqData=nil
end
if MISSION[1] then
GAME.modeEnv.mission=MISSION
else
GAME.modeEnv.mission=nil
end
end
function loadGame(mode,ifQuickPlay,ifNet)-- Load a mode and go to game scene
freshDate()
if legalGameTime() then
if not MODES[mode] and FILE.isSafe('parts/modes/'..mode) then
MODES[mode]=require('parts.modes.'..mode)
MODES[mode].name=mode
end
if MODES[mode].score then
STAT.lastPlay=mode
end
GAME.playing=true
GAME.init=true
GAME.fromRepMenu=false
GAME.curModeName=mode
GAME.curMode=MODES[mode]
GAME.modeEnv=GAME.curMode.env
GAME.net=ifNet
if ifNet then
SCN.go('net_game','swipeD')
else
local modeText=text.modes[mode] or{"["..MODES[mode].name.."]",""}
TEXTOBJ.modeName:set(modeText[1].." "..modeText[2])
SCN.go('game',ifQuickPlay and 'swipeD' or 'fade_togame')
SFX.play('enter')
end
end
end
function gameOver()-- Save record
if GAME.replaying then
local R=GAME.curMode.getRank
if R then
R=R(PLAYERS[1])
if R and R>0 then
GAME.rank=R
end
end
end
trySave()
local M=GAME.curMode
local R=M.getRank
if R then
local P=PLAYERS[1]
R=R(P)-- New rank
if R then
if R>0 then
GAME.rank=R
end
if not GAME.replaying and M.score and scoreValid() then
if RANKS[M.name] then-- Old rank exist
local needSave
if R>RANKS[M.name] then
RANKS[M.name]=R
needSave=true
end
if R>0 then
if M.unlock then
for i=1,#M.unlock do
local m=M.unlock[i]
local n=MODES[m].name
if not RANKS[n] then
if MODES[m].x then
RANKS[n]=0
end
needSave=true
end
end
end
end
if needSave then
saveProgress()
end
end
local D=M.score(P)
local L=M.records
local p=#L-- Rank-1
if p>0 then
while M.comp(D,L[p]) do-- If higher rank
p=p-1
if p==0 then break end
end
end
if p<10 then
if p==0 then
P:_showText(text.newRecord,0,-100,100,'beat',.5)
if SETTING.autoSave and DATA.saveReplay() then
GAME.saved=true
SFX.play('connected')
MES.new('check',text.saveDone)
end
end
D.date=os.date("%Y/%m/%d %H:%M")
ins(L,p+1,D)
if L[11] then L[11]=nil end
saveFile(L,('record/%s.rec'):format(M.name),'-luaon')
end
end
end
end
end
function trySave()
if not GAME.statSaved and PLAYERS[1] and PLAYERS[1].type=='human' and (PLAYERS[1].frameRun>300 or GAME.result) then
GAME.statSaved=true
STAT.game=STAT.game+1
mergeStat(STAT,PLAYERS[1].stat)
STAT.todayTime=STAT.todayTime+PLAYERS[1].stat.time
saveStats()
end
end
do-- function freshPlayerPosition(sudden)
local posLists=setmetatable({
alive={
[1]={main={340,75,1}},
[3]={main={340,75,1},
{25,210,.5},
{955,210,.5},
},
[4]={main={340,75,1},
{25,210,.5},
{970,90,.45},{970,410,.45},
},
[5]={main={340,75,1},
{40,90,.45},{40,410,.45},
{970,90,.45},{970,410,.45},
},
[6]={main={340,75,1},
{40,90,.45},{40,410,.45},
{1010,80,.305},{1010,290,.305},{1010,500,.305},
},
[7]={main={340,75,1},
{100,80,.305},{100,290,.305},{100,500,.305},
{1010,80,.305},{1010,290,.305},{1010,500,.305},
},
[10]={main={340,75,1},
{100,80,.305},{100,290,.305},{100,500,.305},
{935,90,.275},{935,300,.275},{935,510,.275},
{1105,90,.275},{1105,300,.275},{1105,510,.275},
},
[13]={main={340,75,1},
{10,90,.275},{10,300,.275},{10,510,.275},
{180,90,.275},{180,300,.275},{180,510,.275},
{935,90,.275},{935,300,.275},{935,510,.275},
{1105,90,.275},{1105,300,.275},{1105,510,.275},
},
[14]={main={340,75,1},
{10,90,.275},{10,300,.275},{10,510,.275},
{180,90,.275},{180,300,.275},{180,510,.275},
{935,90,.275},{935,300,.275},{935,510,.275},
{1120,80,.225},{1120,240,.225},{1120,400,.225},{1120,560,.225},
},
[15]={main={340,75,1},
{10,90,.275},{10,300,.275},{10,510,.275},
{180,90,.275},{180,300,.275},{180,510,.275},
{960,80,.225},{960,240,.225},{960,400,.225},{960,560,.225},
{1120,80,.225},{1120,240,.225},{1120,400,.225},{1120,560,.225},
},
[16]={main={340,75,1},
{10,90,.275},{10,300,.275},{10,510,.275},
{190,80,.225},{190,240,.225},{190,400,.225},{190,560,.225},
{960,80,.225},{960,240,.225},{960,400,.225},{960,560,.225},
{1120,80,.225},{1120,240,.225},{1120,400,.225},{1120,560,.225},
},
[17]={main={340,75,1},
{30,80,.225},{30,240,.225},{30,400,.225},{30,560,.225},
{190,80,.225},{190,240,.225},{190,400,.225},{190,560,.225},
{960,80,.225},{960,240,.225},{960,400,.225},{960,560,.225},
{1120,80,.225},{1120,240,.225},{1120,400,.225},{1120,560,.225},
},
[24]={main={340,75,1},
{30,80,.225},{30,240,.225},{30,400,.225},{30,560,.225},
{190,80,.225},{190,240,.225},{190,400,.225},{190,560,.225},
{940,80,.175},{940,205,.175},{940,330,.175},{940,455,.175},{940,580,.175},
{1050,80,.175},{1050,205,.175},{1050,330,.175},{1050,455,.175},{1050,580,.175},
{1160,80,.175},{1160,205,.175},{1160,330,.175},{1160,455,.175},{1160,580,.175},
},
[31]={main={340,75,1},
{10,80,.175},{10,205,.175},{10,330,.175},{10,455,.175},{10,580,.175},
{120,80,.175},{120,205,.175},{120,330,.175},{120,455,.175},{120,580,.175},
{230,80,.175},{230,205,.175},{230,330,.175},{230,455,.175},{230,580,.175},
{940,80,.175},{940,205,.175},{940,330,.175},{940,455,.175},{940,580,.175},
{1050,80,.175},{1050,205,.175},{1050,330,.175},{1050,455,.175},{1050,580,.175},
{1160,80,.175},{1160,205,.175},{1160,330,.175},{1160,455,.175},{1160,580,.175},
},
[33]=(function()
local l={main={340,75,1}}
for y=-1.5,1.5 do for x=0,3 do
table.insert(l,{265-85*x,310+160*y,.125})
table.insert(l,{940+85*x,310+160*y,.125})
end end
return l
end)(),
[51]=(function()
local l={main={340,75,1}}
for y=-2,2 do for x=0,4 do
table.insert(l,{275-65*x,315+125*y,.1})
table.insert(l,{945+65*x,315+125*y,.1})
end end
return l
end)(),
[75]=(function()
local l={main={340,75,1}}
for y=-2,2 do for x=0,4 do
table.insert(l,{275-65*x,310+125*y,.1})
end end
for y=-3,3 do for x=0,6 do
table.insert(l,{940+47*x,340+92*y,.075})
end end
return l
end)(),
[99]=(function()
local l={main={340,75,1}}
for y=-3,3 do for x=0,6 do
table.insert(l,{290-47*x,340+92*y,.075})
table.insert(l,{940+47*x,340+92*y,.075})
end end
return l
end)(),
[MATH.inf]={main={340,75,1}},
},
dead={
[1]={{340,75,1}},
[2]={
{50,130,.925},{670,130,.925},
},
[3]={
{25,160,.675},{440,160,.675},{855,160,.675},
},
[4]={
{13,200,.525},{328,200,.525},{643,200,.525},{948,200,.525},
},
[5]={
{8,230,.425},{260,230,.425},{512,230,.425},{764,230,.425},{1016,230,.425},
},
[10]={
{8,110,.425},{260,110,.425},{512,110,.425},{764,110,.425},{1016,110,.425},
{8,410,.425},{260,410,.425},{512,410,.425},{764,410,.425},{1016,410,.425},
},
[12]={
{10,120,.35},{220,120,.35},{430,120,.35},{640,120,.35},{850,120,.35},{1060,120,.35},
{10,400,.35},{220,400,.35},{430,400,.35},{640,400,.35},{850,400,.35},{1060,400,.35},
},
[18]={
{10,90,.305},{220,90,.305},{430,90,.305},{640,90,.305},{850,90,.305},{1060,90,.305},
{10,300,.305},{220,300,.305},{430,300,.305},{640,300,.305},{850,300,.305},{1060,300,.305},
{10,510,.305},{220,510,.305},{430,510,.305},{640,510,.305},{850,510,.305},{1060,510,.305},
},
[21]={
{10,90,.295},{190,90,.295},{370,90,.295},{550,90,.295},{730,90,.295},{910,90,.295},{1090,90,.295},
{10,300,.295},{190,300,.295},{370,300,.295},{550,300,.295},{730,300,.295},{910,300,.295},{1090,300,.295},
{10,510,.295},{190,510,.295},{370,510,.295},{550,510,.295},{730,510,.295},{910,510,.295},{1090,510,.295},
},
[24]={
{20,100,.25},{175,100,.25},{330,100,.25},{485,100,.25},{640,100,.25},{795,100,.25},{950,100,.25},{1105,100,.25},
{20,300,.25},{175,300,.25},{330,300,.25},{485,300,.25},{640,300,.25},{795,300,.25},{950,300,.25},{1105,300,.25},
{20,500,.25},{175,500,.25},{330,500,.25},{485,500,.25},{640,500,.25},{795,500,.25},{950,500,.25},{1105,500,.25},
},
[27]={
{10,100,.225},{150,100,.225},{290,100,.225},{430,100,.225},{570,100,.225},{710,100,.225},{850,100,.225},{990,100,.225},{1130,100,.225},
{10,300,.225},{150,300,.225},{290,300,.225},{430,300,.225},{570,300,.225},{710,300,.225},{850,300,.225},{990,300,.225},{1130,300,.225},
{10,500,.225},{150,500,.225},{290,500,.225},{430,500,.225},{570,500,.225},{710,500,.225},{850,500,.225},{990,500,.225},{1130,500,.225},
},
[36]={
{10,90,.225},{150,90,.225},{290,90,.225},{430,90,.225},{570,90,.225},{710,90,.225},{850,90,.225},{990,90,.225},{1130,90,.225},
{10,245,.225},{150,245,.225},{290,245,.225},{430,245,.225},{570,245,.225},{710,245,.225},{850,245,.225},{990,245,.225},{1130,245,.225},
{10,400,.225},{150,400,.225},{290,400,.225},{430,400,.225},{570,400,.225},{710,400,.225},{850,400,.225},{990,400,.225},{1130,400,.225},
{10,555,.225},{150,555,.225},{290,555,.225},{430,555,.225},{570,555,.225},{710,555,.225},{850,555,.225},{990,555,.225},{1130,555,.225},
},
[39]=(function()
local l={}
for y=0,2 do for x=0,12 do
table.insert(l,{13+97*x,110+190*y,.15})
end end
return l
end)(),
[42]=(function()
local l={}
for y=0,2 do for x=0,13 do
table.insert(l,{15+90*x,120+190*y,.135})
end end
return l
end)(),
[45]=(function()
local l={}
for y=0,2 do for x=0,14 do
table.insert(l,{8+85*x,120+190*y,.125})
end end
return l
end)(),
[60]=(function()
local l={}
for y=0,3 do for x=0,14 do
table.insert(l,{8+85*x,85+155*y,.125})
end end
return l
end)(),
[64]=(function()
local l={}
for y=0,3 do for x=0,15 do
table.insert(l,{13+79*x,85+155*y,.115})
end end
return l
end)(),
[68]=(function()
local l={}
for y=0,3 do for x=0,16 do
table.insert(l,{6+75*x,85+155*y,.115})
end end
return l
end)(),
[72]=(function()
local l={}
for y=0,3 do for x=0,17 do
table.insert(l,{15+70*x,95+155*y,.1})
end end
return l
end)(),
[90]=(function()
local l={}
for y=0,4 do for x=0,17 do
table.insert(l,{15+70*x,82+127*y,.1})
end end
return l
end)(),
[95]=(function()
local l={}
for y=0,4 do for x=0,18 do
table.insert(l,{15+66*x,82+127*y,.1})
end end
return l
end)(),
[100]=(function()
local l={}
for y=0,4 do for x=0,19 do
table.insert(l,{12+63*x,82+127*y,.1})
end end
return l
end)(),
[MATH.inf]={},
},
}, {
__call=function(self,alive,count)
local lastTested=MATH.inf
for k in next,self[alive and 'alive' or 'dead'] do
if k<lastTested and k>=count then
lastTested=k
end
end
return self[alive and 'alive' or 'dead'][lastTested]
end,
})
function freshPlayerPosition(mode)-- Set initial position for every player, mode: 'normal'|'quick'|'update'
assert(mode=='normal' or mode=='quick' or mode=='update',"Wrong freshPlyPos mode")
local L=PLY_ALIVE
if mode~='update' then
for i=1,#L do
L[i]:setPosition(640,#L<=5 and 360 or -62,0)
end
end
local alive=PLAYERS[1].alive
if mode=='update' then
if alive then
if #L<=31 then
for i=2,#L do
L[i].miniMode=false
L[i].draw=require"parts.player.draw".norm
end
end
else
if #L<=36 then
for i=1,#L do
L[i].miniMode=false
L[i].draw=require"parts.player.draw".norm
end
end
end
end
local posList=posLists(alive,#L)
local method=mode=='normal' and 'setPosition' or 'movePosition'
if alive then
for i=1,#L do
if i==1 then
if SETTING.portrait then-- WARNING: Brutly scaling up to 2x only for 1P, will cause many other visual issues.
L[i][method](L[i],36,-260,2)
else
L[i][method](L[i],unpack(posList['main']))
end
else
L[i][method](L[i],unpack(posList[i-1]))
end
end
else
for i=1,#L do
L[i][method](L[i],unpack(posList[i]))
end
end
end
end
do-- function dumpBasicConfig()
local gameSetting={
-- Tuning
'das','arr','dascut','irscut','dropcut','sddas','sdarr',
'ihs','irs','ims','RS',
-- System
'skin','face',
-- Graphic
'ghostType','block','ghost','center','bagLine',
'dropFX','moveFX','shakeFX',
'text','highCam','nextPos',
-- Unnecessary graphic
-- 'grid','smooth',
-- 'lockFX','clearFX','splashFX','atkFX',
-- 'score',
}
function dumpBasicConfig()
local S={}
for _,key in next,gameSetting do
S[key]=SETTING[key]
end
return JSON.encode(S)
end
end
do-- function resetGameData(args)
local function task_showMods()
coroutine.yield()
local counter=0
if usingMod() then
SFX.play('collect',.2)
TEXT.show(GAME.modApplyAt,640,26,45,'spin')
for _=1,90 do coroutine.yield() end
for number,sel in next,GAME.mod do
if sel>0 then
for _=1,20 do
coroutine.yield()
end
local M=MODOPT[number]
SFX.play('collect',.2)
TEXT.show(M.id,640+(counter%5-2)*80,26,45,'spin')
counter=counter+1
end
end
for _=1,(counter%5)*20+90 do coroutine.yield() end
if GAME.playing then PLAYERS[1].showUsername=true end
end
end
local gameSetting={
-- Tuning
'das','arr','dascut','irscut','dropcut','sddas','sdarr',
'ihs','irs','ims','RS',
-- System
'skin','face',
-- Graphic
'block','ghost','center','smooth','grid','bagLine',
'lockFX','dropFX','moveFX','clearFX','splashFX','shakeFX','atkFX',
'text','score','warn','highCam','nextPos',
}
local function _copyGameSetting()
local S={}
for _,key in next,gameSetting do
if type(SETTING[key])=='table' then
S[key]=TABLE.shift(SETTING[key])
else
S[key]=SETTING[key]
end
end
return S
end
function resetGameData(args,seed)
if not args then args="" end
trySave()
GAME.result=false
GAME.rank=0
GAME.warnLVL0=0
GAME.warnLVL=0
GAME.pauseCount=0
GAME.pauseTime=0
if args:find'r' then
GAME.frameStart=0
GAME.recording=false
GAME.replaying=true
else
GAME.frameStart=args:find'n' and 0 or 180-SETTING.reTime*60
GAME.seed=seed or math.random(1046101471)
GAME.saved=false
GAME.setting=_copyGameSetting()
GAME.tasUsed=false
GAME.rep={}
GAME.recording=true
GAME.statSaved=false
GAME.replaying=false
math.randomseed(TIME())
end
destroyPlayers()
if GAME.curMode.load then
GAME.curMode.load()
else
PLY.newPlayer(1)
end
GAME.initPlayerCount=#PLAYERS
freshPlayerPosition((args:find'q') and 'quick' or 'normal')
VK.restore()
local bg=GAME.modeEnv.bg
BG.set(type(bg)=='string' and bg or type(bg)=='table' and bg[math.random(#bg)])
local bgm=GAME.modeEnv.bgm
BGM.play(type(bgm)=='string' and bgm or type(bgm)=='table' and bgm[math.random(#bgm)])
TEXT.clear()
if GAME.modeEnv.eventSet=='royale' then
for i=1,#PLAYERS do
PLAYERS[i]:changeAtk(randomTarget(PLAYERS[i]))
end
GAME.stage=false
GAME.mostBadge=false
GAME.secBadge=false
GAME.mostDangerous=false
GAME.secDangerous=false
GAME.stage=1
end
TASK.removeTask_code(task_showMods)
if PLAYERS[1].gameEnv.allowMod then
TASK.new(task_showMods)
end
playReadySFX(3)
collectgarbage()
end
end
do-- function checkWarning(P,dt)
local max=math.max
function checkWarning(P,dt)
if P.alive then
if P.frameRun%26==0 then
local F=P.field
local height=0-- Max height of row 4~7
for x=4,7 do
for y=#F,1,-1 do
if F[y][x]>0 then
if y>height then
height=y
end
break
end
end
end
GAME.warnLVL0=math.log(height-(P.gameEnv.fieldH-5)+P.atkBufferSum*.8)
end
local _=GAME.warnLVL
if _<GAME.warnLVL0 then
_=approach(_,GAME.warnLVL0,dt*6)
elseif _>0 then
_=max(_-.026,0)
end
GAME.warnLVL=_
if GAME.warnLVL>1.126 and P.frameRun%30==0 then
SFX.fplay('warn_beep',SETTING.sfx_warn)
end
elseif GAME.warnLVL>0 then
GAME.warnLVL=max(GAME.warnLVL-.026,0)
end
end
end
function usingMod()
for _,sel in next,GAME.mod do
if sel>0 then
return true
end
end
return false
end
------------------------------[Graphics]------------------------------
do-- function drawSelfProfile()
local name
local textObj,scaleK,width,offY
function drawSelfProfile()
gc_push('transform')
gc_replaceTransform(SCR.xOy_ur)
-- Draw avatar
gc_setLineWidth(2)
gc_setColor(COLOR.X)gc_rectangle('fill',0,0,-300,80)
gc_setColor(1,1,1)gc_rectangle('line',-300,0,300,80,5)
gc_rectangle('line',-73,7,66,66,2)
gc_draw(USERS.getAvatar(USER.uid),-72,8,nil,.5)
-- Draw username
if name~=USERS.getUsername(USER.uid) then
name=USERS.getUsername(USER.uid)
textObj=GC.newText(getFont(30),name)
width=textObj:getWidth()
scaleK=210/math.max(width,210)
offY=textObj:getHeight()/2
end
gc_draw(textObj,-82,26,nil,scaleK,nil,width,offY)
gc_pop()
end
end
function drawOnlinePlayerCount()
setFont(20)
gc_setColor(1,1,1)
gc_push('transform')
gc_replaceTransform(SCR.xOy_ur)
gc_printf(text.onlinePlayerCount:repD(NET.onlineCount),-600,80,594,'right')
gc_pop()
end
function drawWarning()
if SETTING.warn and GAME.warnLVL>0 then
gc_push('transform')
gc_origin()
SHADER.warning:send('level',GAME.warnLVL)
gc_setShader(SHADER.warning)
gc_rectangle('fill',0,0,SCR.w,SCR.h)
gc_setShader()
gc_pop()
end
end
function setModBackgroundColor()
gc_setColor(.42,.26,.62,.62+.26*math.sin(TIME()*12.6))
end
------------------------------[Widget function shortcuts]------------------------------
function backScene() SCN.back() end
do-- function goScene(name,style)
local cache={}
function goScene(name,style)
local hash=style and name..style or name
if not cache[hash] then
cache[hash]=function() SCN.go(name,style) end
end
return cache[hash]
end
end
do-- function swapScene(name,style)
local cache={}
function swapScene(name,style)
local hash=style and name..style or name
if not cache[hash] then
cache[hash]=function() SCN.swapTo(name,style) end
end
return cache[hash]
end
end
do-- function pressKey(k)
local cache={}
function pressKey(k)
if not cache[k] then
cache[k]=function() love.keypressed(k) end
end
return cache[k]
end
end
do-- SETXXX(k) & ROOMXXX(k)
local warnList={
'das','arr','dascut','irscut','dropcut','sddas','sdarr',
'ihs','irs','ims','RS',
'frameMul','highCam',
'VKSwitch','VKIcon','VKTrack','VKDodge',
'simpMode',
}
function ROOMval(k) return function() return ROOMENV[k] end end
function SETval(k) return function() return SETTING[k] end end
function ROOMrev(k) return function() ROOMENV[k]=not ROOMENV[k] end end
function SETrev(k) return function() if TABLE.find(warnList,k) then trySettingWarn() end SETTING[k]=not SETTING[k] end end
function ROOMsto(k) return function(i) ROOMENV[k]=i end end
function SETsto(k) return function(i) if TABLE.find(warnList,k) then trySettingWarn() end SETTING[k]=i end end
end