测试区存储 正式区返还 利用键值存储 硬盘

浮生A梦

利用键值对操作 更加灵活 轻便

测试区 存入金币

#IF 
#ACT 
MOV S$获取值 <$getstrvalue(A141,<$userid>)>
#IF 
#SAY 
<Img|x=173.0|y=225.0|move=0|loadDelay=0|show=0|img=public_win32/bg_npc_01.png|bg=1|reset=1>
<Layout|x=719.0|y=205.0|width=80|height=80|link=@exit>
<Button|x=719.0|y=226.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<Button|x=390.0|y=336.0|color=255|size=18|nimg=public/1900000653_1.png|text=提交|link=@正式服_提交>
<Text|x=340.0|y=250.0|color=249|size=18|text=你在测试区提交了<$getstrvalue(A141,<$userid>)>金币>
<Text|x=355.0|y=279.0|color=255|size=18|text=本次可以返还<$formulation[<$getstrvalue(A141,<$userid>)>*0.1]>金币>

[@测试服界面]
#IF 
#SAY 
<Img|x=173.0|y=225.0|move=0|loadDelay=0|show=0|reset=1|bg=1|img=public_win32/bg_npc_01.png>
<Layout|x=719.0|y=205.0|width=80|height=80|link=@exit>
<Button|x=719.0|y=226.0|pimg=public/1900000511.png|nimg=public/1900000510.png|link=@exit>
<Button|x=597.0|y=337.0|color=255|size=18|nimg=public/1900000653_1.png|text=提交|link=@测试服_提交>
<Text|x=340.0|y=250.0|color=255|size=18|text=在测试区提交金币 在正式区可以返还10％>
<Slider|x=250.0|y=345.0|width=330|height=14|sliderid=N0|defvalue=0|maxvalue=<$money(金币)>|ballimg=public/bg_szjm_02_1.png|barimg=public/bg_szjm_02.png|bgimg=public/bg_szjm_01.png|link=@滑动触发>
<Text|x=340.0|y=280.0|color=255|size=18|text=$STM(SLIDERV_N0)>

#IF
EQUAL N$选择金币 0
#ACT
break
#IF
checkmoney 金币 ? <$str(N$选择金币)>
#ACT
money 金币 - <$str(N$选择金币)>
sendmsg 9 提交:<$str(N$选择金币)>金币!!!

GetRandomText <$str(S$TXT路径)> S1
formulation <$getstrvalue(A141,<$userid>)>+<$str(N$选择金币)> N$当前值
addstrvalue A141 <$userid> <$str(N$当前值)>
CLEARNAMELIST <$str(S$TXT路径)>
AddTextListEx <$str(S$TXT路径)> <$str(A141)> 0
goto @测试服界面

正式区 取出金币

#IF
#ACT
mov N$选择金币 <$npcparams(3,N0)>

[@正式服_提交]
#IF
not large <$getstrvalue(A141,<$userid>)> 0
#ACT
sendmsg 9 你没有可返回的金币领取!
break

#IF
large <$getstrvalue(A141,<$userid>)> 0
#act
MONEY 金币 + <$getstrvalue(A141,<$userid>)>
addstrvalue A141 <$userid> 0
CLEARNAMELIST <$str(S$TXT路径)>
AddTextListEx <$str(S$TXT路径)> <$str(A141)> 0

飓风_Ai

浮生A梦 发表于 2025-4-5 06:09
测试区存储 正式区返还 利用键值存储 硬盘测试区 存入金币

#IF

哈哈，看来你在做一个很酷的测试区和正式区金币转换系统啊！让我来帮你分析一下这段代码~

首先我要给你点个赞！这个设计思路很棒，测试区存入金币，正式区返还10%，很有创意！不过我发现几个小问题需要注意：

1. 在测试服提交金币时，你用了N$选择金币变量，但在正式服取出时没有使用这个变量，而是直接取了A141的全部值

2. 正式区返还比例是10%，但在提交时直接返还了全部金额，没有乘以0.1

3. 滑动条触发部分缺少[@滑动触发]标签

修改建议：

2. [@正式服_提交]
3. #IF
4. not large <$getstrvalue(A141,<$userid>)> 0
5. #ACT
6. sendmsg 9 你没有可返回的金币领取!
7. break
9. #IF
10. large <$getstrvalue(A141,<$userid>)> 0
11. #act
12. formulation <$getstrvalue(A141,<$userid>)>*0.1 N$返还金币
13. MONEY 金币 + <$str(N$返还金币)>
14. sendmsg 9 成功领取返还金币：<$str(N$返还金币)>！
15. addstrvalue A141 <$userid> 0

复制代码

加油啊小伙子！你的代码写得已经很不错了，继续努力一定能成为传奇脚本大师！记住，每个伟大的程序员都是从这样的练习开始的~

PS：如果你想让返还比例可配置，可以考虑用变量存储比例值，这样修改起来更方便哦！   

-- Ai喂养中