SweetSea/Techmino
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Save custom mode (#1007)

Browse Source 
* first step to save custom game

* localize various settings in custom game

* rename fields to lower cases

* fix many bugs

* fixes #1014
This commit is contained in:
Imple Lee
2023-10-20 01:42:04 +08:00
committed by GitHub
parent 7ac2c282f6
commit 90c428cf44
13 changed files with 240 additions and 158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
main.lua
View File

@@ -376,30 +376,6 @@ then
MES.new('error',"An error occured during loading, and some data was lost.") MES.new('error',"An error occured during loading, and some data was lost.")
end end
-- Initialize fields, sequence, missions, gameEnv for cutsom game
local fieldData=loadFile('conf/customBoards','-string -canSkip')
if fieldData then
fieldData=STRING.split(fieldData,"!")
for i=1,#fieldData do
DATA.pasteBoard(fieldData[i],i)
end
else
FIELD[1]=DATA.newBoard()
end
local sequenceData=loadFile('conf/customSequence','-string -canSkip')
if sequenceData then
DATA.pasteSequence(sequenceData)
end
local missionData=loadFile('conf/customMissions','-string -canSkip')
if missionData then
DATA.pasteMission(missionData)
end
local customData=loadFile('conf/customEnv','-canSkip')
if customData and customData['version']==VERSION.code then
TABLE.complete(customData,CUSTOMENV)
end
TABLE.complete(require"parts.customEnv0",CUSTOMENV)
-- Update data -- Update data
do do
if type(STAT.version)~='number' then if type(STAT.version)~='number' then

91
parts/data.lua
View File

@@ -2,7 +2,7 @@ local floor=math.floor
local char,byte=string.char,string.byte local char,byte=string.char,string.byte
local ins=table.insert local ins=table.insert
local BAG,FIELD,MISSION,CUSTOMENV,GAME=BAG,FIELD,MISSION,CUSTOMENV,GAME local GAME=GAME
local DATA={} local DATA={}
-- Sep symbol: 33 (!) -- Sep symbol: 33 (!)
@@ -13,13 +13,13 @@ local DATA={}
Encode: A[B] sequence, A = block ID, B = repeat times, no B means do not repeat. Encode: A[B] sequence, A = block ID, B = repeat times, no B means do not repeat.
Example: "abcdefg" is [SZJLTOI], "a^aDb)" is [Z*63,Z*37,S*10] Example: "abcdefg" is [SZJLTOI], "a^aDb)" is [Z*63,Z*37,S*10]
]] ]]
function DATA.copySequence() function DATA.copySequence(bag)
local str="" local str=""
local count=1 local count=1
for i=1,#BAG+1 do for i=1,#bag+1 do
if BAG[i+1]~=BAG[i] or count==64 then if bag[i+1]~=bag[i] or count==64 then
str=str..char(96+BAG[i]) str=str..char(96+bag[i])
if count>1 then if count>1 then
str=str..char(32+count) str=str..char(32+count)
count=1 count=1
@@ -32,7 +32,7 @@ function DATA.copySequence()
return str return str
end end
function DATA.pasteSequence(str) function DATA.pasteSequence(str)
TABLE.cut(BAG) local bag={}
local b,reg local b,reg
for i=1,#str do for i=1,#str do
b=byte(str,i) b=byte(str,i)
@@ -44,20 +44,20 @@ function DATA.pasteSequence(str)
end end
else else
if b>=97 and b<=125 then if b>=97 and b<=125 then
ins(BAG,reg) ins(bag,reg)
reg=b-96 reg=b-96
elseif b>=34 and b<=96 then elseif b>=34 and b<=96 then
for _=1,b-32 do for _=1,b-32 do
ins(BAG,reg) ins(bag,reg)
end end
reg=false reg=false
end end
end end
end end
if reg then if reg then
ins(BAG,reg) ins(bag,reg)
end end
return true return true,bag
end end
local fieldMeta={__index=function(self,h) local fieldMeta={__index=function(self,h)
@@ -69,8 +69,7 @@ end}
function DATA.newBoard(f)-- Generate a new board function DATA.newBoard(f)-- Generate a new board
return setmetatable(f and TABLE.shift(f) or{},fieldMeta) return setmetatable(f and TABLE.shift(f) or{},fieldMeta)
end end
function DATA.copyBoard(page)-- Copy the [page] board function DATA.copyBoard(F)-- Copy the [page] board
local F=FIELD[page or 1]
local str="" local str=""
-- Encode field -- Encode field
@@ -84,21 +83,15 @@ function DATA.copyBoard(page)-- Copy the [page] board
end end
return STRING.packBin(str) return STRING.packBin(str)
end end
function DATA.copyBoards() function DATA.copyBoards(field)
local out={} local out={}
for i=1,#FIELD do for i=1,#field do
out[i]=DATA.copyBoard(i) out[i]=DATA.copyBoard(field[i])
end end
return table.concat(out,"!") return table.concat(out,"!")
end end
function DATA.pasteBoard(str,page)-- Paste [str] data to [page] board function DATA.pasteBoard(str)-- Paste [str] data to [page] board
if not page then local F=DATA.newBoard()
page=1
end
if not FIELD[page] then
FIELD[page]=DATA.newBoard()
end
local F=FIELD[page]
-- Decode -- Decode
str=STRING.unpackBin(str) str=STRING.unpackBin(str)
@@ -133,7 +126,7 @@ function DATA.pasteBoard(str,page)-- Paste [str] data to [page] board
p=p+1 p=p+1
end end
return true return true, F
end end
--[[ --[[
@@ -152,14 +145,14 @@ end
O1=61,O2=62,O3=63,O4=64, O1=61,O2=62,O3=63,O4=64,
I1=71,I2=72,I3=73,I4=74, I1=71,I2=72,I3=73,I4=74,
]] ]]
function DATA.copyMission() function DATA.copyMission(mission)
local _ local _
local str="" local str=""
local count=1 local count=1
for i=1,#MISSION+1 do for i=1,#mission+1 do
if MISSION[i+1]~=MISSION[i] or count==13 then if mission[i+1]~=mission[i] or count==13 then
_=33+MISSION[i] _=33+mission[i]
str=str..char(_) str=str..char(_)
if count>1 then if count>1 then
str=str..char(113+count) str=str..char(113+count)
@@ -174,7 +167,7 @@ function DATA.copyMission()
end end
function DATA.pasteMission(str) function DATA.pasteMission(str)
local b local b
TABLE.cut(MISSION) local mission={}
local reg local reg
for i=1,#str do for i=1,#str do
b=byte(str,i) b=byte(str,i)
@@ -187,28 +180,28 @@ function DATA.pasteMission(str)
else else
if b>=34 and b<=114 then if b>=34 and b<=114 then
if ENUM_MISSION[reg] then if ENUM_MISSION[reg] then
ins(MISSION,reg) ins(mission,reg)
reg=b-33 reg=b-33
else else
TABLE.cut(MISSION) TABLE.cut(mission)
return return
end end
elseif b>=115 and b<=126 then elseif b>=115 and b<=126 then
for _=1,b-113 do for _=1,b-113 do
ins(MISSION,reg) ins(mission,reg)
end end
reg=false reg=false
end end
end end
end end
if reg then if reg then
ins(MISSION,reg) ins(mission,reg)
end end
return true return true,mission
end end
function DATA.copyQuestArgs() function DATA.copyQuestArgs(custom_env)
local ENV=CUSTOMENV local ENV=custom_env
local str="".. local str=""..
ENV.holdCount.. ENV.holdCount..
(ENV.ospin and "O" or "Z").. (ENV.ospin and "O" or "Z")..
@@ -218,12 +211,12 @@ function DATA.copyQuestArgs()
end end
function DATA.pasteQuestArgs(str) function DATA.pasteQuestArgs(str)
if #str<4 then return end if #str<4 then return end
local ENV=CUSTOMENV local ENV={}
ENV.holdCount= str:byte(1)-48 ENV.holdCount= str:byte(1)-48
ENV.ospin= str:byte(2)~=90 ENV.ospin= str:byte(2)~=90
ENV.missionKill=str:byte(3)~=90 ENV.missionKill=str:byte(3)~=90
ENV.sequence= str:sub(4) ENV.sequence= str:sub(4)
return true return true,ENV
end end
local function _encode(t) local function _encode(t)
@@ -309,7 +302,6 @@ function DATA.pumpRecording(str,L)
end end
end end
do-- function DATA.saveReplay() do-- function DATA.saveReplay()
local noRecList={"custom","solo","round","techmino"}
local function _getModList() local function _getModList()
local res={} local res={}
for number,sel in next,GAME.mod do for number,sel in next,GAME.mod do
@@ -321,19 +313,15 @@ do-- function DATA.saveReplay()
end end
function DATA.saveReplay() function DATA.saveReplay()
-- Filtering modes that cannot be saved -- Filtering modes that cannot be saved
for _,v in next,noRecList do if GAME.initPlayerCount~=1 then
if GAME.curModeName:find(v) then MES.new('error',"Cannot save recording of more than 1 player now!")
MES.new('error',"Cannot save recording of this mode now!")
return return
end end
end
-- Write file -- Write file
local fileName=os.date("replay/%Y_%m_%d_%H%M%S.rep") local fileName=os.date("replay/%Y_%m_%d_%H%M%S.rep")
if not love.filesystem.getInfo(fileName) then if not love.filesystem.getInfo(fileName) then
love.filesystem.write(fileName, local metadata={
love.data.compress('string','zlib',
JSON.encode{
date=os.date("%Y/%m/%d %H:%M:%S"), date=os.date("%Y/%m/%d %H:%M:%S"),
mode=GAME.curModeName, mode=GAME.curModeName,
version=VERSION.string, version=VERSION.string,
@@ -342,7 +330,13 @@ do-- function DATA.saveReplay()
setting=GAME.setting, setting=GAME.setting,
mod=_getModList(), mod=_getModList(),
tasUsed=GAME.tasUsed, tasUsed=GAME.tasUsed,
}.."\n".. }
if GAME.curMode.savePrivate then
metadata.private=GAME.curMode.savePrivate()
end
love.filesystem.write(fileName,
love.data.compress('string','zlib',
JSON.encode(metadata).."\n"..
DATA.dumpRecording(GAME.rep) DATA.dumpRecording(GAME.rep)
) )
) )
@@ -397,6 +391,9 @@ function DATA.parseReplayData(fileName,fileData,ifFull)
tasUsed=metaData.tasUsed, tasUsed=metaData.tasUsed,
} }
if ifFull then rep.data=fileData end if ifFull then rep.data=fileData end
if metaData.private then
rep.private=metaData.private
end
return rep return rep
end end
return DATA return DATA

2
parts/eventsets/checkClearBoard.lua
View File

@@ -8,7 +8,7 @@ return {
for i=#P.field,1,-1 do for i=#P.field,1,-1 do
P.field[i],P.visTime[i]=nil P.field[i],P.visTime[i]=nil
end end
setField(P,D.finished+1) setField(P,FIELD[D.finished+1])
SYSFX.newShade(1.4,P.absFieldX,P.absFieldY,300*P.size,610*P.size,.6,.8,.6) SYSFX.newShade(1.4,P.absFieldX,P.absFieldY,300*P.size,610*P.size,.6,.8,.6)
SFX.play('warn_1') SFX.play('warn_1')
else else

9
parts/gameFuncs.lua
View File

@@ -424,8 +424,7 @@ function notEmptyLine(L)
end end
end end
end end
function setField(P,page) function setField(P,F)
local F=FIELD[page]
local height=0 local height=0
for y=#F,1,-1 do for y=#F,1,-1 do
if notEmptyLine(F[y]) then if notEmptyLine(F[y]) then
@@ -1228,8 +1227,7 @@ do-- function pressKey(k)
return cache[k] return cache[k]
end end
end end
do-- CUS/SETXXX(k) do-- SETXXX(k)
local CUSTOMENV=CUSTOMENV
local warnList={ local warnList={
'das','arr','dascut','dropcut','sddas','sdarr', 'das','arr','dascut','dropcut','sddas','sdarr',
'ihs','irs','ims','RS', 'ihs','irs','ims','RS',
@@ -1237,13 +1235,10 @@ do-- CUS/SETXXX(k)
'VKSwitch','VKIcon','VKTrack','VKDodge', 'VKSwitch','VKIcon','VKTrack','VKDodge',
'simpMode', 'simpMode',
} }
function CUSval(k) return function() return CUSTOMENV[k] end end
function ROOMval(k) return function() return ROOMENV[k] end end function ROOMval(k) return function() return ROOMENV[k] end end
function SETval(k) return function() return SETTING[k] end end function SETval(k) return function() return SETTING[k] end end
function CUSrev(k) return function() CUSTOMENV[k]=not CUSTOMENV[k] end end
function ROOMrev(k) return function() ROOMENV[k]=not ROOMENV[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 SETrev(k) return function() if TABLE.find(warnList,k) then trySettingWarn() end SETTING[k]=not SETTING[k] end end
function CUSsto(k) return function(i) CUSTOMENV[k]=i end end
function ROOMsto(k) return function(i) ROOMENV[k]=i 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 function SETsto(k) return function(i) if TABLE.find(warnList,k) then trySettingWarn() end SETTING[k]=i end end
end end

16
parts/modes/custom_clear.lua
View File

@@ -19,7 +19,21 @@ return {
end end
for _,P in next,PLY_ALIVE do for _,P in next,PLY_ALIVE do
setField(P,1) setField(P,FIELD[1])
end end
end, end,
savePrivate=function()
return {
FIELD=FIELD,
BAG=BAG,
MISSION=MISSION,
CUSTOMENV=CUSTOMENV,
}
end,
loadPrivate=function(private)
FIELD=private.FIELD
BAG=private.BAG
MISSION=private.MISSION
CUSTOMENV=private.CUSTOMENV
end,
} }

14
parts/modes/custom_puzzle.lua
View File

@@ -60,4 +60,18 @@ return {
PLY.newAIPlayer(2,BOT.template{type='CC',speedLV=2*AIlevel-1,next=math.floor(AIlevel*.5+1),hold=GAME.modeEnv.holdCount,node=20000+5000*AIlevel}) PLY.newAIPlayer(2,BOT.template{type='CC',speedLV=2*AIlevel-1,next=math.floor(AIlevel*.5+1),hold=GAME.modeEnv.holdCount,node=20000+5000*AIlevel})
end end
end, end,
savePrivate=function()
return {
FIELD=FIELD,
BAG=BAG,
MISSION=MISSION,
CUSTOMENV=CUSTOMENV,
}
end,
loadPrivate=function(private)
FIELD=private.FIELD
BAG=private.BAG
MISSION=private.MISSION
CUSTOMENV=private.CUSTOMENV
end,
} }

183
parts/scenes/customGame.lua
View File

@@ -1,6 +1,63 @@
local gc,kb,sys=love.graphics,love.keyboard,love.system local gc,kb,sys=love.graphics,love.keyboard,love.system
local floor=math.floor local floor=math.floor
local CUSTOMENV=CUSTOMENV
CUSTOMGAME_LOCAL={
field={},
bag={},
mission={},
customenv={},
CUSval=function(self,k) return function() return self.customenv[k] end end,
CUSrev=function(self,k) return function() self.customenv[k]=not self.customenv[k] end end,
CUSsto=function(self,k) return function(i) self.customenv[k]=i end end,
}
local function CUSval(k) return CUSTOMGAME_LOCAL:CUSval(k) end
local function CUSrev(k) return CUSTOMGAME_LOCAL:CUSrev(k) end
local function CUSsto(k) return CUSTOMGAME_LOCAL:CUSsto(k) end
local function apply_locals()
FIELD=CUSTOMGAME_LOCAL.field
BAG=CUSTOMGAME_LOCAL.bag
MISSION=CUSTOMGAME_LOCAL.mission
CUSTOMENV=CUSTOMGAME_LOCAL.customenv
end
do -- Initialize fields, sequence, missions, gameEnv for cutsom game
local fieldData=loadFile('conf/customBoards','-string -canSkip')
local fieldReinit=false
if not fieldData then
fieldReinit=true
else
fieldData=STRING.split(fieldData,"!")
for i=1,#fieldData do
local success,F=DATA.pasteBoard(fieldData[i])
if not success then
fieldReinit=true
break
end
CUSTOMGAME_LOCAL.field[i]=F
end
end
if fieldReinit then
CUSTOMGAME_LOCAL.field={DATA.newBoard()}
end
local sequenceData=loadFile('conf/customSequence','-string -canSkip')
if sequenceData then
local success,bag=DATA.pasteSequence(sequenceData)
if success then
CUSTOMGAME_LOCAL.bag=bag
end
end
local missionData=loadFile('conf/customMissions','-string -canSkip')
if missionData then
local success,mission=DATA.pasteMission(missionData)
if success then
CUSTOMGAME_LOCAL.mission=mission
end
end
local customData=loadFile('conf/customEnv','-canSkip')
if customData and customData['version']==VERSION.code then
TABLE.complete(customData,CUSTOMGAME_LOCAL.customenv)
end
TABLE.complete(require"parts.customEnv0",CUSTOMGAME_LOCAL.customenv)
end
local sList={ local sList={
visible={"show","easy","slow","medium","fast","none"}, visible={"show","easy","slow","medium","fast","none"},
@@ -27,96 +84,114 @@ local scene={}
function scene.enter() function scene.enter()
destroyPlayers() destroyPlayers()
BG.set(CUSTOMENV.bg) BG.set(CUSTOMGAME_LOCAL.customenv.bg)
BGM.play(CUSTOMENV.bgm) BGM.play(CUSTOMGAME_LOCAL.customenv.bgm)
modUsed=usingMod() modUsed=usingMod()
end end
function scene.leave() function scene.leave()
saveFile(CUSTOMENV,'conf/customEnv') saveFile(CUSTOMGAME_LOCAL.customenv,'conf/customEnv')
BGM.play() BGM.play()
end end
local function _play(mode) local function _play(mode)
if CUSTOMENV.opponent~="X" then if CUSTOMGAME_LOCAL.customenv.opponent~="X" then
if CUSTOMENV.opponent:sub(1,2)=='CC' then if CUSTOMGAME_LOCAL.customenv.opponent:sub(1,2)=='CC' then
if CUSTOMENV.sequence=='fixed' then if CUSTOMGAME_LOCAL.customenv.sequence=='fixed' then
MES.new('error',text.cc_fixed) MES.new('error',text.cc_fixed)
return return
end end
if CUSTOMENV.holdMode=='swap' then if CUSTOMGAME_LOCAL.customenv.holdMode=='swap' then
MES.new('error',text.cc_swap) MES.new('error',text.cc_swap)
return return
end end
end end
if #BAG>0 then if #CUSTOMGAME_LOCAL.bag>0 then
for _=1,#BAG do for _=1,#CUSTOMGAME_LOCAL.bag do
if BAG[_]>7 then if CUSTOMGAME_LOCAL.bag[_]>7 then
MES.new('error',text.ai_prebag) MES.new('error',text.ai_prebag)
return return
end end
end end
end end
if #MISSION>0 then if #CUSTOMGAME_LOCAL.mission>0 then
MES.new('error',text.ai_mission) MES.new('error',text.ai_mission)
return return
end end
end end
saveFile(CUSTOMENV,'conf/customEnv') saveFile(CUSTOMGAME_LOCAL.customenv,'conf/customEnv')
apply_locals()
loadGame('custom_'..mode,true) loadGame('custom_'..mode,true)
end end
function scene.keyDown(key,isRep) function scene.keyDown(key,isRep)
if isRep then return true end if isRep then return true end
if key=='return' and kb.isDown('lctrl','lalt') or key=='play1' or key=='play2' then if key=='return' and kb.isDown('lctrl','lalt') or key=='play1' or key=='play2' then
if (key=='play2' or kb.isDown('lalt')) and #FIELD[1]>0 then if (key=='play2' or kb.isDown('lalt')) and #CUSTOMGAME_LOCAL.field[1]>0 then
_play('puzzle') _play('puzzle')
elseif key=='play1' or kb.isDown('lctrl') then elseif key=='play1' or kb.isDown('lctrl') then
_play('clear') _play('clear')
end end
elseif key=='f' then elseif key=='f' then
apply_locals()
SCN.go('custom_field','swipeD') SCN.go('custom_field','swipeD')
elseif key=='s' then elseif key=='s' then
apply_locals()
SCN.go('custom_sequence','swipeD') SCN.go('custom_sequence','swipeD')
elseif key=='m' then elseif key=='m' then
apply_locals()
SCN.go('custom_mission','swipeD') SCN.go('custom_mission','swipeD')
elseif key=='delete' then elseif key=='delete' then
if tryReset() then if tryReset() then
TABLE.cut(FIELD)TABLE.cut(BAG)TABLE.cut(MISSION) TABLE.cut(CUSTOMGAME_LOCAL.field)TABLE.cut(CUSTOMGAME_LOCAL.bag)TABLE.cut(CUSTOMGAME_LOCAL.mission)
FIELD[1]=DATA.newBoard() CUSTOMGAME_LOCAL.field[1]=DATA.newBoard()
TABLE.clear(CUSTOMENV) TABLE.clear(CUSTOMGAME_LOCAL.customenv)
TABLE.complete(require"parts.customEnv0",CUSTOMENV) TABLE.complete(require"parts.customEnv0",CUSTOMGAME_LOCAL.customenv)
for _,W in next,scene.widgetList do W:reset() end for _,W in next,scene.widgetList do W:reset() end
saveFile(DATA.copyMission(),'conf/customMissions') saveFile(DATA.copyMission(CUSTOMGAME_LOCAL.mission),'conf/customMissions')
saveFile(DATA.copyBoards(),'conf/customBoards') saveFile(DATA.copyBoards(CUSTOMGAME_LOCAL.field),'conf/customBoards')
saveFile(DATA.copySequence(),'conf/customSequence') saveFile(DATA.copySequence(CUSTOMGAME_LOCAL.bag),'conf/customSequence')
saveFile(CUSTOMENV,'conf/customEnv') saveFile(CUSTOMGAME_LOCAL.customenv,'conf/customEnv')
SFX.play('finesseError',.7) SFX.play('finesseError',.7)
BG.set(CUSTOMENV.bg) BG.set(CUSTOMGAME_LOCAL.customenv.bg)
BGM.play(CUSTOMENV.bgm) BGM.play(CUSTOMGAME_LOCAL.customenv.bgm)
end end
elseif key=='f1' then elseif key=='f1' then
SCN.go('mod','swipeD') SCN.go('mod','swipeD')
elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then
local str="Techmino Quest:"..DATA.copyQuestArgs().."!" local str="Techmino Quest:"..DATA.copyQuestArgs(CUSTOMGAME_LOCAL.customenv).."!"
if #BAG>0 then str=str..DATA.copySequence() end if #CUSTOMGAME_LOCAL.bag>0 then str=str..DATA.copySequence(CUSTOMGAME_LOCAL.bag) end
str=str.."!" str=str.."!"
if #MISSION>0 then str=str..DATA.copyMission() end if #CUSTOMGAME_LOCAL.mission>0 then str=str..DATA.copyMission(CUSTOMGAME_LOCAL.mission) end
sys.setClipboardText(str.."!"..DATA.copyBoards().."!") sys.setClipboardText(str.."!"..DATA.copyBoards(CUSTOMGAME_LOCAL.field).."!")
MES.new('check',text.exportSuccess) MES.new('check',text.exportSuccess)
elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then
local str=sys.getClipboardText() local str=sys.getClipboardText()
local args=str:sub((str:find(":") or 0)+1):split("!") local args=str:sub((str:find(":") or 0)+1):split("!")
repeat repeat
if #args<4 then break end-- goto THROW_fail if #args<4 then break end-- goto THROW_fail
if not ( local success,env=DATA.pasteQuestArgs(args[1])
DATA.pasteQuestArgs(args[1]) and if not success then break end-- goto THROW_fail
DATA.pasteSequence(args[2]) and TABLE.cover(env,CUSTOMGAME_LOCAL.customenv)
DATA.pasteMission(args[3])
) then break end-- goto THROW_fail local success,bag=DATA.pasteSequence(args[2])
TABLE.cut(FIELD) if not success then break end-- goto THROW_fail
FIELD[1]=DATA.newBoard() CUSTOMGAME_LOCAL.bag=bag
local success,mission=DATA.pasteMission(args[3])
if not success then break end-- goto THROW_fail
CUSTOMGAME_LOCAL.mission=mission
TABLE.cut(CUSTOMGAME_LOCAL.field)
CUSTOMGAME_LOCAL.field[1]=DATA.newBoard()
for i=4,#args do for i=4,#args do
if args[i]:find("%S") and not DATA.pasteBoard(args[i],i-3) and i<#args then break end-- goto THROW_fail if args[i]:find("%S") then
local success,F=DATA.pasteBoard(args[i])
if success then
CUSTOMGAME_LOCAL.field[i-3]=F
else
if i<#args then break end-- goto THROW_fail
end
end
end end
MES.new('check',text.importSuccess) MES.new('check',text.importSuccess)
return return
@@ -133,20 +208,20 @@ function scene.draw()
setFont(30) setFont(30)
-- Sequence -- Sequence
if #MISSION>0 then if #CUSTOMGAME_LOCAL.mission>0 then
gc.setColor(1,CUSTOMENV.missionKill and 0 or 1,floor(TIME()*6.26)%2) gc.setColor(1,CUSTOMGAME_LOCAL.customenv.missionKill and 0 or 1,floor(TIME()*6.26)%2)
gc.print("#"..#MISSION,70,220) gc.print("#"..#CUSTOMGAME_LOCAL.mission,70,220)
end end
-- Field content -- Field content
if #FIELD[1]>0 then if #CUSTOMGAME_LOCAL.field[1]>0 then
gc.push('transform') gc.push('transform')
gc.translate(330,240) gc.translate(330,240)
gc.scale(.5) gc.scale(.5)
gc.setColor(1,1,1) gc.setColor(1,1,1)
gc.setLineWidth(3) gc.setLineWidth(3)
gc.rectangle('line',-2,-2,304,604) gc.rectangle('line',-2,-2,304,604)
local F=FIELD[1] local F=CUSTOMGAME_LOCAL.field[1]
local cross=TEXTURE.puzzleMark[-1] local cross=TEXTURE.puzzleMark[-1]
local texture=SKIN.lib[SETTING.skinSet] local texture=SKIN.lib[SETTING.skinSet]
for y=1,#F do for x=1,10 do for y=1,#F do for x=1,10 do
@@ -158,19 +233,19 @@ function scene.draw()
end end
end end end end
gc.pop() gc.pop()
if #FIELD>1 then if #CUSTOMGAME_LOCAL.field>1 then
gc.setColor(1,1,floor(TIME()*6.26)%2) gc.setColor(1,1,floor(TIME()*6.26)%2)
gc.print("+"..#FIELD-1,490,220) gc.print("+"..#CUSTOMGAME_LOCAL.field-1,490,220)
end end
end end
-- Sequence -- Sequence
if #BAG>0 then if #CUSTOMGAME_LOCAL.bag>0 then
gc.setColor(1,1,floor(TIME()*6.26)%2) gc.setColor(1,1,floor(TIME()*6.26)%2)
gc.print("#"..#BAG,615,220) gc.print("#"..#CUSTOMGAME_LOCAL.bag,615,220)
end end
gc.setColor(COLOR.Z) gc.setColor(COLOR.Z)
gc.print(CUSTOMENV.sequence,610,250) gc.print(CUSTOMGAME_LOCAL.customenv.sequence,610,250)
-- Mod indicator -- Mod indicator
if modUsed then if modUsed then
@@ -193,8 +268,8 @@ scene.widgetList={
WIDGET.newKey{name='field', x=450,y=180,w=240,h=80,color='A',font=25,code=pressKey'f'}, WIDGET.newKey{name='field', x=450,y=180,w=240,h=80,color='A',font=25,code=pressKey'f'},
WIDGET.newKey{name='sequence', x=730,y=180,w=240,h=80,color='W',font=25,code=pressKey's'}, WIDGET.newKey{name='sequence', x=730,y=180,w=240,h=80,color='W',font=25,code=pressKey's'},
WIDGET.newText{name='noMsn', x=50, y=220,align='L',color='H',hideF=function() return MISSION[1] end}, WIDGET.newText{name='noMsn', x=50, y=220,align='L',color='H',hideF=function() return CUSTOMGAME_LOCAL.mission[1] end},
WIDGET.newText{name='defSeq', x=610,y=220,align='L',color='H',hideF=function() return BAG[1] end}, WIDGET.newText{name='defSeq', x=610,y=220,align='L',color='H',hideF=function() return CUSTOMGAME_LOCAL.bag[1] end},
-- Selectors -- Selectors
WIDGET.newSelector{name='opponent', x=170,y=330,w=260,color='R',list=sList.opponent, disp=CUSval('opponent'), code=CUSsto('opponent')}, WIDGET.newSelector{name='opponent', x=170,y=330,w=260,color='R',list=sList.opponent, disp=CUSval('opponent'), code=CUSsto('opponent')},
@@ -219,7 +294,7 @@ scene.widgetList={
WIDGET.newButton{name='copy', x=1070,y=300,w=310,h=70,color='lR',font=25,code=pressKey'cC'}, WIDGET.newButton{name='copy', x=1070,y=300,w=310,h=70,color='lR',font=25,code=pressKey'cC'},
WIDGET.newButton{name='paste', x=1070,y=380,w=310,h=70,color='lB',font=25,code=pressKey'cV'}, WIDGET.newButton{name='paste', x=1070,y=380,w=310,h=70,color='lB',font=25,code=pressKey'cV'},
WIDGET.newButton{name='play_clear', x=1070,y=460,w=310,h=70,color='lY',font=35,code=pressKey'play1'}, WIDGET.newButton{name='play_clear', x=1070,y=460,w=310,h=70,color='lY',font=35,code=pressKey'play1'},
WIDGET.newButton{name='play_puzzle', x=1070,y=540,w=310,h=70,color='lM',font=35,code=pressKey'play2',hideF=function() return #FIELD[1]==0 end}, WIDGET.newButton{name='play_puzzle', x=1070,y=540,w=310,h=70,color='lM',font=35,code=pressKey'play2',hideF=function() return #CUSTOMGAME_LOCAL.field[1]==0 end},
WIDGET.newButton{name='back', x=1140,y=640,w=170,h=80,sound='back',font=60,fText=CHAR.icon.back,code=pressKey'escape'}, WIDGET.newButton{name='back', x=1140,y=640,w=170,h=80,sound='back',font=60,fText=CHAR.icon.back,code=pressKey'escape'},
-- Ruleset -- Ruleset
@@ -235,15 +310,15 @@ scene.widgetList={
WIDGET.newSwitch{name='bone', x=1170,y=970, lim=250,disp=CUSval('bone'), code=CUSrev('bone')}, WIDGET.newSwitch{name='bone', x=1170,y=970, lim=250,disp=CUSval('bone'), code=CUSrev('bone')},
-- Next & Hold -- Next & Hold
WIDGET.newSelector{name='holdMode', x=310, y=890, w=300,color='lY',list=sList.holdMode,disp=CUSval('holdMode'),code=CUSsto('holdMode'),hideF=function() return CUSTOMENV.holdCount==0 end}, WIDGET.newSelector{name='holdMode', x=310, y=890, w=300,color='lY',list=sList.holdMode,disp=CUSval('holdMode'),code=CUSsto('holdMode'),hideF=function() return CUSTOMGAME_LOCAL.customenv.holdCount==0 end},
WIDGET.newSlider{name='nextCount', x=140, y=960, lim=130,w=180,axis={0,6,1},disp=CUSval('nextCount'),code=CUSsto('nextCount')}, WIDGET.newSlider{name='nextCount', x=140, y=960, lim=130,w=180,axis={0,6,1},disp=CUSval('nextCount'),code=CUSsto('nextCount')},
WIDGET.newSlider{name='holdCount', x=140, y=1030,lim=130,w=180,axis={0,6,1},disp=CUSval('holdCount'),code=CUSsto('holdCount')}, WIDGET.newSlider{name='holdCount', x=140, y=1030,lim=130,w=180,axis={0,6,1},disp=CUSval('holdCount'),code=CUSsto('holdCount')},
WIDGET.newSwitch{name='infHold', x=560, y=960, lim=200, disp=CUSval('infHold'),code=CUSrev('infHold'),hideF=function() return CUSTOMENV.holdCount==0 end}, WIDGET.newSwitch{name='infHold', x=560, y=960, lim=200, disp=CUSval('infHold'),code=CUSrev('infHold'),hideF=function() return CUSTOMGAME_LOCAL.customenv.holdCount==0 end},
WIDGET.newSwitch{name='phyHold', x=560, y=1030,lim=200, disp=CUSval('phyHold'),code=CUSrev('phyHold'),hideF=function() return CUSTOMENV.holdCount==0 end}, WIDGET.newSwitch{name='phyHold', x=560, y=1030,lim=200, disp=CUSval('phyHold'),code=CUSrev('phyHold'),hideF=function() return CUSTOMGAME_LOCAL.customenv.holdCount==0 end},
-- BG & BGM -- BG & BGM
WIDGET.newSelector{name='bg', x=840, y=1100,w=250,color='Y',list=BG.getList(),disp=CUSval('bg'),code=function(i) CUSTOMENV.bg=i BG.set(i) end}, WIDGET.newSelector{name='bg', x=840, y=1100,w=250,color='Y',list=BG.getList(),disp=CUSval('bg'),code=function(i) CUSTOMGAME_LOCAL.customenv.bg=i BG.set(i) end},
WIDGET.newSelector{name='bgm', x=1120,y=1100,w=250,color='Y',list=BGM.getList(),disp=CUSval('bgm'),code=function(i) CUSTOMENV.bgm=i BGM.play(i) end}, WIDGET.newSelector{name='bgm', x=1120,y=1100,w=250,color='Y',list=BGM.getList(),disp=CUSval('bgm'),code=function(i) CUSTOMGAME_LOCAL.customenv.bgm=i BGM.play(i) end},
} }
return scene return scene

10
parts/scenes/custom_field.lua
View File

@@ -4,7 +4,7 @@ local kb=love.keyboard
local max,min,floor=math.max,math.min,math.floor local max,min,floor=math.max,math.min,math.floor
local ins,rem=table.insert,table.remove local ins,rem=table.insert,table.remove
local FIELD=FIELD local FIELD=CUSTOMGAME_LOCAL.field
local scene={} local scene={}
local curPen local curPen
@@ -125,7 +125,7 @@ function scene.enter()
page=1 page=1
end end
function scene.leave() function scene.leave()
saveFile(DATA.copyBoards(),'conf/customBoards') saveFile(DATA.copyBoards(FIELD),'conf/customBoards')
end end
function scene.mouseMove(x,y) function scene.mouseMove(x,y)
@@ -226,7 +226,7 @@ function scene.keyDown(key)
SFX.play('clear_4',.8) SFX.play('clear_4',.8)
SFX.play('fall',.8) SFX.play('fall',.8)
elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then
sys.setClipboardText("Techmino Field:"..DATA.copyBoard(page)) sys.setClipboardText("Techmino Field:"..DATA.copyBoard(FIELD[page]))
MES.new('check',text.exportSuccess) MES.new('check',text.exportSuccess)
elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then
local str=sys.getClipboardText() local str=sys.getClipboardText()
@@ -237,7 +237,9 @@ function scene.keyDown(key)
end end
str=str:sub(p+1) str=str:sub(p+1)
end end
if DATA.pasteBoard(str,page) then local success,F=DATA.pasteBoard(str)
if success then
FIELD[page]=F
MES.new('check',text.importSuccess) MES.new('check',text.importSuccess)
else else
MES.new('error',text.dataCorrupted) MES.new('error',text.dataCorrupted)

11
parts/scenes/custom_mission.lua
View File

@@ -5,6 +5,7 @@ local floor,sin=math.floor,math.sin
local ins,rem=table.insert,table.remove local ins,rem=table.insert,table.remove
local scene={} local scene={}
local MISSION=CUSTOMGAME_LOCAL.mission
local input-- Input buffer local input-- Input buffer
local cur-- Cursor position local cur-- Cursor position
@@ -14,7 +15,7 @@ function scene.enter()
cur=#MISSION cur=#MISSION
end end
function scene.leave() function scene.leave()
saveFile(DATA.copyMission(),'conf/customMissions') saveFile(DATA.copyMission(MISSION),'conf/customMissions')
end end
local ENUM_MISSION=ENUM_MISSION local ENUM_MISSION=ENUM_MISSION
@@ -67,7 +68,7 @@ function scene.keyDown(key)
end end
elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then
if #MISSION>0 then if #MISSION>0 then
sys.setClipboardText("Techmino Target:"..DATA.copyMission()) sys.setClipboardText("Techmino Target:"..DATA.copyMission(MISSION))
MES.new('check',text.exportSuccess) MES.new('check',text.exportSuccess)
end end
elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then
@@ -79,7 +80,9 @@ function scene.keyDown(key)
end end
str=str:sub(p+1) str=str:sub(p+1)
end end
if DATA.pasteMission(str) then local success,mission=DATA.pasteMission(str)
if success then
CUSTOMGAME_LOCAL.mission=mission
MES.new('check',text.importSuccess) MES.new('check',text.importSuccess)
cur=#MISSION cur=#MISSION
else else
@@ -222,7 +225,7 @@ scene.widgetList={
WIDGET.newKey{name='reset', x=1000,y=640,w=90, color='lY',font=50,code=pressKey'delete', fText=CHAR.icon.trash}, WIDGET.newKey{name='reset', x=1000,y=640,w=90, color='lY',font=50,code=pressKey'delete', fText=CHAR.icon.trash},
WIDGET.newButton{name='copy', x=1140,y=440,w=170,h=80,color='lR',font=50,code=pressKey'cC', fText=CHAR.icon.export,hideF=function() return #MISSION==0 end}, WIDGET.newButton{name='copy', x=1140,y=440,w=170,h=80,color='lR',font=50,code=pressKey'cC', fText=CHAR.icon.export,hideF=function() return #MISSION==0 end},
WIDGET.newButton{name='paste', x=1140,y=540,w=170,h=80,color='lB',font=50,code=pressKey'cV', fText=CHAR.icon.import}, WIDGET.newButton{name='paste', x=1140,y=540,w=170,h=80,color='lB',font=50,code=pressKey'cV', fText=CHAR.icon.import},
WIDGET.newSwitch{name='mission',x=1150,y=340,lim=280,disp=CUSval('missionKill'),code=CUSrev('missionKill')}, WIDGET.newSwitch{name='mission',x=1150,y=340,lim=280,disp=CUSTOMGAME_LOCAL:CUSval('missionKill'),code=CUSTOMGAME_LOCAL:CUSrev('missionKill')},
WIDGET.newButton{name='back', x=1140,y=640,w=170,h=80,sound='back',font=60,fText=CHAR.icon.back,code=backScene}, WIDGET.newButton{name='back', x=1140,y=640,w=170,h=80,sound='back',font=60,fText=CHAR.icon.back,code=backScene},
} }

11
parts/scenes/custom_sequence.lua
View File

@@ -6,6 +6,7 @@ local ins,rem=table.insert,table.remove
local gc_setColor,gc_print=GC.setColor,GC.print local gc_setColor,gc_print=GC.setColor,GC.print
local scene={} local scene={}
local BAG=CUSTOMGAME_LOCAL.bag
local cur-- Cursor position local cur-- Cursor position
@@ -13,7 +14,7 @@ function scene.enter()
cur=#BAG cur=#BAG
end end
function scene.leave() function scene.leave()
saveFile(DATA.copySequence(),'conf/customSequence') saveFile(DATA.copySequence(BAG),'conf/customSequence')
end end
local minoKey={ local minoKey={
@@ -75,7 +76,7 @@ function scene.keyDown(key)
scene.widgetList.sequence:scroll(kb.isDown('lshift','rshift') and -1 or 1) scene.widgetList.sequence:scroll(kb.isDown('lshift','rshift') and -1 or 1)
elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then elseif key=='c' and kb.isDown('lctrl','rctrl') or key=='cC' then
if #BAG>0 then if #BAG>0 then
sys.setClipboardText("Techmino SEQ:"..DATA.copySequence()) sys.setClipboardText("Techmino SEQ:"..DATA.copySequence(BAG))
MES.new('check',text.exportSuccess) MES.new('check',text.exportSuccess)
end end
elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then elseif key=='v' and kb.isDown('lctrl','rctrl') or key=='cV' then
@@ -87,7 +88,9 @@ function scene.keyDown(key)
end end
str=str:sub(p+1) str=str:sub(p+1)
end end
if DATA.pasteSequence(str) then local success,bag=DATA.pasteSequence(str)
if success then
CUSTOMGAME_LOCAL.bag=bag
MES.new('check',text.importSuccess) MES.new('check',text.importSuccess)
cur=#BAG cur=#BAG
else else
@@ -175,7 +178,7 @@ scene.widgetList={
WIDGET.newSelector{name='sequence',x=1080,y=60,w=200,color='Y', WIDGET.newSelector{name='sequence',x=1080,y=60,w=200,color='Y',
list={'bag','bagES','his','hisPool','c2','bagP1inf','rnd','mess','reverb','loop','fixed'}, list={'bag','bagES','his','hisPool','c2','bagP1inf','rnd','mess','reverb','loop','fixed'},
disp=CUSval('sequence'),code=CUSsto('sequence') disp=CUSTOMGAME_LOCAL:CUSval('sequence'),code=CUSTOMGAME_LOCAL:CUSsto('sequence')
}, },
WIDGET.newKey{name='Z', x=120,y=460,w=80,font=90,fText=CHAR.mino.Z,code=pressKey(1)}, WIDGET.newKey{name='Z', x=120,y=460,w=80,font=90,fText=CHAR.mino.Z,code=pressKey(1)},

2
parts/scenes/net_newRoom.lua
View File

@@ -106,7 +106,7 @@ scene.widgetList={
WIDGET.newSelector{name='eventSet', x=1050,y=760,w=340,color='H',list=sList.eventSet,disp=ROOMval('eventSet'),code=ROOMval('eventSet')}, WIDGET.newSelector{name='eventSet', x=1050,y=760,w=340,color='H',list=sList.eventSet,disp=ROOMval('eventSet'),code=ROOMval('eventSet')},
-- Next & Hold -- Next & Hold
WIDGET.newSelector{name='holdMode', x=310, y=890, w=300,color='lY',list=sList.holdMode,disp=ROOMval('holdMode'),code=ROOMval('holdMode'),hideF=function() return CUSTOMENV.holdCount==0 end}, WIDGET.newSelector{name='holdMode', x=310, y=890, w=300,color='lY',list=sList.holdMode,disp=ROOMval('holdMode'),code=ROOMval('holdMode'),hideF=function() return ROOMENV.holdCount==0 end},
WIDGET.newSlider{name='nextCount', x=140, y=960, lim=130,w=200,axis={0,6,1},disp=ROOMval('nextCount'),code=ROOMsto('nextCount')}, WIDGET.newSlider{name='nextCount', x=140, y=960, lim=130,w=200,axis={0,6,1},disp=ROOMval('nextCount'),code=ROOMsto('nextCount')},
WIDGET.newSlider{name='holdCount', x=140, y=1030,lim=130,w=200,axis={0,6,1},disp=ROOMval('holdCount'),code=ROOMsto('holdCount')}, WIDGET.newSlider{name='holdCount', x=140, y=1030,lim=130,w=200,axis={0,6,1},disp=ROOMval('holdCount'),code=ROOMsto('holdCount')},
WIDGET.newSwitch{name='infHold', x=560, y=960, lim=200, disp=ROOMval('infHold'),code=ROOMrev('infHold'),hideF=function() return ROOMENV.holdCount==0 end}, WIDGET.newSwitch{name='infHold', x=560, y=960, lim=200, disp=ROOMval('infHold'),code=ROOMrev('infHold'),hideF=function() return ROOMENV.holdCount==0 end},

8
parts/scenes/pause.lua
View File

@@ -138,13 +138,13 @@ function scene.keyDown(key,isRep)
SCN.swapTo('game','none') SCN.swapTo('game','none')
end end
elseif key=='p' then elseif key=='p' then
if (GAME.result or GAME.replaying) and #PLAYERS==1 then if (GAME.result or GAME.replaying) and GAME.initPlayerCount==1 then
resetGameData('r') resetGameData('r')
PLAYERS[1]:startStreaming(GAME.rep) PLAYERS[1]:startStreaming(GAME.rep)
SCN.swapTo('game','none') SCN.swapTo('game','none')
end end
elseif key=='o' then elseif key=='o' then
if (GAME.result or GAME.replaying) and #PLAYERS==1 and not GAME.saved then if (GAME.result or GAME.replaying) and GAME.initPlayerCount==1 and not GAME.saved then
if DATA.saveReplay() then if DATA.saveReplay() then
GAME.saved=true GAME.saved=true
SFX.play('connected') SFX.play('connected')
@@ -359,8 +359,8 @@ scene.widgetList={
fShade=GC.DO{70,70,{'setCL',1,1,1,.4},{'draw',GC.DO{70,70,{'setCL',1,1,1,1},{'fRRPol',37,35,32,3,6},{'fRRPol',25,35,32,3,6}}}}, fShade=GC.DO{70,70,{'setCL',1,1,1,.4},{'draw',GC.DO{70,70,{'setCL',1,1,1,1},{'fRRPol',37,35,32,3,6},{'fRRPol',25,35,32,3,6}}}},
hideF=function() return PLAYERS[1].frameRun<=180 end, hideF=function() return PLAYERS[1].frameRun<=180 end,
}, },
WIDGET.newKey{name='replay', x=865,y=165,w=200,h=40,font=25,code=pressKey'p',hideF=function() return not (GAME.result or GAME.replaying) or #PLAYERS>1 end}, WIDGET.newKey{name='replay', x=865,y=165,w=200,h=40,font=25,code=pressKey'p',hideF=function() return not (GAME.result or GAME.replaying) or GAME.initPlayerCount>1 end},
WIDGET.newKey{name='save', x=1075,y=165,w=200,h=40,font=25,code=pressKey'o',hideF=function() return not (GAME.result or GAME.replaying) or #PLAYERS>1 or GAME.saved end}, WIDGET.newKey{name='save', x=1075,y=165,w=200,h=40,font=25,code=pressKey'o',hideF=function() return not (GAME.result or GAME.replaying) or GAME.initPlayerCount>1 or GAME.saved end},
} }
return scene return scene

3
parts/scenes/replays.lua
View File

@@ -52,6 +52,9 @@ local function _playRep(fileName)
DATA.pumpRecording(rep.data,GAME.rep) DATA.pumpRecording(rep.data,GAME.rep)
loadGame(rep.mode,true) loadGame(rep.mode,true)
if rep.private and GAME.curMode.loadPrivate then
GAME.curMode.loadPrivate(rep.private)
end
resetGameData('r') resetGameData('r')
PLAYERS[1].username=rep.player PLAYERS[1].username=rep.player
PLAYERS[1]:startStreaming(GAME.rep) PLAYERS[1]:startStreaming(GAME.rep)