function 通关(z1)--读取数据
if(z1>=zbssl)then
bsss=zbssl
zbssl=0
else
bsss=z1
zbssl=zbssl-z1
end
if(bsss<=0)then
return "0"
end
if((bsss>=1))then
return I2S(bsss)
end
end

存档增加("IZGTGND",1)
存档增加("ISHPZ2",1)
存档增加("IJNTX2",1)
存档增加("ITGZCS",1)
存档保存("IJLLDDC","999999")
存档增加("IMRTGCS",1)
存档增加("IMRBSCD1",1)
存档增加("IMRBSCD2",1)
存档增加("IMRBSCD3",1)
存档增加("IMRBSCD4",1)
存档增加("IMRBSCD5",1)
存档增加("IMRBSCD21",1)
存档增加("IMRBSCD22",1)
存档增加("IMRBSCD23",1)
存档增加("IBSCD1",1)
存档增加("IBSCD2",1)
存档增加("IBSCD3",1)
存档增加("IBSCD4",1)
存档增加("IBSCD5",1)
存档增加("IBSCD21",1)
存档增加("IBSCD22",1)
存档增加("IBSCD23",1)
存档保存("IQLB","1")
存档保存("maptest2020","1")
存档保存("prebook2023","1")


总通关数=整数读取("ITGZCS")
ztgcs=总通关数
zbssl=总通关数

gktj={}

难度=4

if(总通关数<难度)then--10
for i=1,难度 do
x=难度+1-i
gktj[x]=通关(1)
end
输出信息("各1次")
else
if(总通关数<难度*10)then--10
zbssl=zbssl-难度
for i=1,难度 do
x=难度+1-i
gktj[x]=1+通关(9)
end
输出信息("各10次")
else
zbssl=zbssl-难度*10
for i=1,难度 do
x=难度+1-i
gktj[x]=10+通关(10)
end
输出信息("各20次")
end
end

gkA={}
gkA[101]=""

for a=1,4,1 do
gktj[a]=string.format("%04d",gktj[a])
gkA[101]=gkA[101]..gktj[a]
end

存档保存("STGZF1",""..gkA[101])
输出信息("131")