|
|
楼主 |
发表于 2026-3-27 12:24:49
|
显示全部楼层
Sunny 发表于 2023-3-7 11:32 难搞难搞难搞难搞难搞 瞎鸡巴写都可以写一个,有什么难搞的
;获取背包所有物品数量
GetPlayInfo BAGITEMCOUNT N$背包物品数量
MOV P1 0
;循环支持背包物品数量次数
loopgoto @获取物品ID N$背包物品数量
[@获取物品ID]
#IF
large P1 <$str(N$背包物品数量)>
#ACT
endloop
Break
#or
;检测物品基础属性极品是否大于0
CheckItemAddValueEx bagitem<$STR(P1)> > 0 0
;检测物品元素属性极品是否大于0
CheckItemAddValueEx bagitem<$STR(P1)> > 0 1
#ACT
;如有极品,跳过此物品,继续循环
INC P1 1
Break
#ELSEACT
MOV N$唯一ID 0
;无极品属性,获取此物品唯一ID
GetItemFieldValue bagitem<$STR(P1)> makeindex N$唯一ID
;获取物品名字
;GetItemFieldValue bagitem<$STR(P1)> name S$物品名字
此处可写脚本检测你的回收名单之类的
进行加货币操作
;删除此物品,既回收此物品
LinkBagItem N$唯一ID<$STR(P2)>
DelLinkItem
#IF
#ACT
;继续循环脚本
INC P1 1 |
|