制作回收脚本遇到的问题

qq6652131 · 发表于 2024-9-11 11:49:58

1428764923 发表于 2024-9-11 11:38
可以不用标识可以勾选存入t变量展示的时候检查包含在t变量里面就显示打勾直接拾取回收 ...

确实只能用T，但是操作起来也是没有想象中的简单

qq6652131 · 发表于 2024-9-11 11:51:24

jwan28345 发表于 2024-9-10 20:17
但还用的老方法写了个自动回收用的QM 个人计时器
打勾的 100 0 1的情况下勾上
弄了1个小时，累呀

老办法确实直接点，但是太费劲，后面增加或者修改都不怎么方便

1428764923 · 发表于 2024-9-11 12:48:12

本帖最后由 1428764923 于 2024-9-11 12:52 编辑

看看这个不知道耗时高不高反正脚本是简单了

[@main]
#IF
#ACT
mov N1 1
While N1 < 30
goto @test(<$STR(N1)>|S$返回值1)
INC N1 1
EndWhile
#SAY
<套装1/@套装勾选(1)> <套装2/@套装勾选(2)>
;使用NPC脚本点击触发带参数
[@test]
#IF
CheckCacheTextList ..\QuestDiary\套装<$scriptparam1>.txt <$STR(T1)>
#ACT
MOV S$套装<$scriptparam1>开关开
return <$STR(S$套装<$scriptparam1>开关)>
#ELSEACT
MOV S$套装<$scriptparam1>开关关
return <$STR(S$套装<$scriptparam1>开关)>
[@套装勾选]
#OR
CHECKSCRIPTPARAM 1
....
....
....
....
CHECKSCRIPTPARAM 30
#ELSEACT
SENDMSG 6 非法的参数
break
#IF
CheckCacheTextList ..\QuestDiary\套装<$scriptparam1>.txt <$STR(T1)>
#ACT
GetListString ..\QuestDiary\套装<$scriptparam1>.txt 0 S$套装<$scriptparam1>
MOV S$读取装备 <$STR(S$套装<$scriptparam1>)>
ExtractStringEx ，<$STR(S$读取装备)> S1
MOV N2 1
While N2 < 10
DEC T1 ,<$STR(S<$STR(N2)>)>
INC N2 1
EndWhile
#ELSEACT
GetListString ..\QuestDiary\套装<$scriptparam1>.txt 0 S$套装<$scriptparam1>
MOV S$读取装备 <$STR(S$套装<$scriptparam1>)>
ExtractStringEx , <$STR(S$读取装备)> S1
MOV N2 1
While N2 < 10
INC T1 ,<$STR(S<$STR(N2)>)>
INC N2 1
EndWhile
文本内容
,装备1,装备2,装备3,装备4,装备5,装备6,装备7,装备8,装备9,装备10
套装内装备分个勾选
<套装详情1(1)> <套装详情1(1)><套装详情1(1)><套装详情1(1)>
[@套装详情]
#OR
CHECKSCRIPTPARAM 1
....
....
....
....
CHECKSCRIPTPARAM 20
#ELSEACT
SENDMSG 6 非法的参数
break
#IF
#ACT
GetListString ..\QuestDiary\套装<$scriptparam1>.txt 0 S$套装<$scriptparam1>
MOV S$读取装备 <$STR(S$套装<$scriptparam1>)>
ExtractStringEx ，<$STR(S$读取装备)> S1
MOV N3 1
MOV S$套装内展示
While N3 < 10
goto @test1(<$scriptparam1>,<$STR(N3)>|S$返回值<$STR(N3)>)
INC S$套装内展示 <<$STR(S<$STR(N3)>)>当前状态<$STR(S$返回值<$STR(N3)>)>/@套装内装备位置(<$scriptparam1>,<$STR(N3)>)>
INC N3 1
EndWhile
#SAY
<$STR(S$套装内展示)>
[@tset1]
#IF
CheckContainsText T1 <$STR(S<$scriptparam1>)>
#ACT
MOV S$套装<$scriptparam1>内装备<$scriptparam2>开关开
return <$STR(S$套装<$scriptparam1>内装备<$scriptparam2>开关)>
#ELSEACT
MOV S$套装<$scriptparam1>内装备<$scriptparam2>开关关
return <$STR(S$套装<$scriptparam1>内装备<$scriptparam2>开关)>
[@套装内装备位置]
#OR
CHECKSCRIPTPARAM 1,1
....
....
....
....
CHECKSCRIPTPARAM 1,10
#ELSEACT
SENDMSG 6 非法的参数
break
#IF
#ACT
GetListString ..\QuestDiary\套装<$scriptparam1>.txt 0 S$套装<$scriptparam1>
MOV S$读取装备 <$STR(S$套装<$scriptparam1>)>
ExtractStringEx , <$STR(S$读取装备)> S1
#IF
CheckContainsText T1 <$STR(S<$scriptparam2>)>
#ACT
DEC T1 ,<$STR(S<$scriptparam2>)>
#ELSEACT
INC T1 ,<$STR(S<$scriptparam2>)>
回收脚本直接捡取触发套个表格就行了

复制代码

442671 · 发表于 2024-9-13 21:08:06

qq6652131 发表于 2024-9-11 11:49
你这个还是要写配置项，我已经想到更好的办法了

循环脚本+缓存读取
脚本不超过30行.ini写个**,建立个空文本就可以了

		自动登录	找回密码
密码			立即注册

奇速版本论坛	推荐一分钱服务器活动	吾爱传奇论坛	链接失效申报
超级稳定服务器抗攻击	趣素材网	可做微端38元/年起	点击金币投放广告

[已解决] 制作回收脚本遇到的问题