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

优化自定义序列/任务编码

Browse Source
This commit is contained in:
MrZ626
2020-09-22 00:33:45 +08:00
parent ad957ca488
commit 1ddb665583
2 changed files with 23 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
parts/gametoolfunc.lua
View File

@@ -79,11 +79,11 @@ function pasteQuestArgs(str)
ENV.sequence= sub(str,4) ENV.sequence= sub(str,4)
end end
--Encoding Functions --Encoding Functions
--Safe char: 33~94, 96~126 --Sep symbol: 33 (!)
--Safe char: 34~126
--[[ --[[
Count: 33~94 Count: 34~96
Block: 97~125 Block: 97~125
Encode: [A] or [AB] sequence, A = block ID, B = repeat times, no B means do not repeat. Encode: [A] or [AB] 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]
@@ -94,10 +94,10 @@ function copySequence()
local count=1 local count=1
for i=1,#preBag+1 do for i=1,#preBag+1 do
if preBag[i+1]~=preBag[i]or count==63 then if preBag[i+1]~=preBag[i]or count==64 then
str=str..char(96+preBag[i]) str=str..char(96+preBag[i])
if count>1 then if count>1 then
str=str..char(31+count) str=str..char(32+count)
count=1 count=1
end end
else else
@@ -124,8 +124,8 @@ function pasteSequence(str)
if _>=97 and _<=125 then if _>=97 and _<=125 then
ins(bag,reg) ins(bag,reg)
reg=_-96 reg=_-96
elseif _>=33 and _<=94 then elseif _>=34 and _<=96 then
for i=1,_-31 do for i=1,_-32 do
ins(bag,reg) ins(bag,reg)
end end
reg=nil reg=nil
@@ -215,8 +215,8 @@ function pasteBoard(str)
end end
--[[ --[[
mission: 33~94,96~115 Mission: 33~114
Count: 116~126 Count: 115~126
Encode: [A] or [AB] sequence, A = mission ID, B = repeat times, no B means do not repeat. Encode: [A] or [AB] sequence, A = mission ID, B = repeat times, no B means do not repeat.
_1=01,_2=02,_3=03,_4=04, _1=01,_2=02,_3=03,_4=04,
@@ -237,12 +237,11 @@ function copyMission()
local count=1 local count=1
for i=1,#preMission+1 do for i=1,#preMission+1 do
if preMission[i+1]~=preMission[i]or count==11 then if preMission[i+1]~=preMission[i]or count==12 then
_=32+preMission[i] _=32+preMission[i]
if _>=95 then _=_+1 end
str=str..char(_) str=str..char(_)
if count>1 then if count>1 then
str=str..char(115+count) str=str..char(114+count)
count=1 count=1
end end
else else
@@ -259,17 +258,17 @@ function pasteMission(str)
for i=1,#str do for i=1,#str do
_=byte(str,i) _=byte(str,i)
if not reg then if not reg then
if _>=33 and _<=115 and _~=95 then if _>=33 and _<=114 then
reg=_<95 and _-32 or _-33 reg=_-32
else else
return return
end end
else else
if _>=33 and _<=115 and _~=95 then if _>=33 and _<=114 then
ins(mission,reg) ins(mission,reg)
reg=_<95 and _-32 or _-33 reg=_-32
elseif _>=116 and _<=126 then elseif _>=116 and _<=126 then
for i=1,_-114 do for i=1,_-113 do
ins(mission,reg) ins(mission,reg)
end end
reg=nil reg=nil

14
parts/scenes.lua
View File

@@ -1261,24 +1261,24 @@ do--custom_basic
SCN.swapTo("custom_rule","swipeL") SCN.swapTo("custom_rule","swipeL")
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
local str="Techmino Quest:"..copyQuestArgs().."_" local str="Techmino Quest:"..copyQuestArgs().."!"
if #preBag>0 then str=str..copySequence()end if #preBag>0 then str=str..copySequence()end
str=str.."_"..copyBoard().."_" str=str.."!"..copyBoard().."!"
if #preMission>0 then str=str..copyMission()end if #preMission>0 then str=str..copyMission()end
sys.setClipboardText(str.."_") sys.setClipboardText(str.."!")
LOG.print(text.copySuccess,color.green) LOG.print(text.copySuccess,color.green)
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 p1,p2,p3,p4,p5--ptr* local p1,p2,p3,p4,p5--ptr*
while true do while true do
p1=find(str,":")or 0 p1=find(str,":")or 0
p2=find(str,"_",p1+1) p2=find(str,"!",p1+1)
if not p2 then break end if not p2 then break end
p3=find(str,"_",p2+1) p3=find(str,"!",p2+1)
if not p3 then break end if not p3 then break end
p4=find(str,"_",p3+1) p4=find(str,"!",p3+1)
if not p4 then break end if not p4 then break end
p5=find(str,"_",p4+1)or #str+1 p5=find(str,"!",p4+1)or #str+1
pasteQuestArgs(sub(str,p1+1,p2-1)) pasteQuestArgs(sub(str,p1+1,p2-1))
if p2+1~=p3 then if p2+1~=p3 then