[Erlang] 纯文本查看 复制代码 .版本 2
.子程序 遍历背包, 整数型
.参数 参_物品, 文本型, 可空, 返回找到的数量;为空返回背包剩余空格数
.参数 操作_使用, 逻辑型, 可空, 默认为假;真,成功返回位置,失败返回 0
.参数 操作_丢出, 逻辑型, 可空, 默认为假;真,成功返回位置,失败返回 0
.参数 操作_穿戴, 逻辑型, 可空, 默认为假;真,成功返回部位+1,失败返回 0
.参数 参_部位, 整数型, 可空, 穿戴位置;0衣服,1武器,2勋章,3项链,4头盔,5-6手镯,7-8戒指,9靴子,10腰带,11宝石,12护符,13盾,14魂珠,19面具
.局部变量 局_背包jz, 整数型
.局部变量 局_物品名, 文本型
.局部变量 局_对象, 整数型
.局部变量 局_返回值, 整数型
.局部变量 局_背包大小, 整数型, , , 不包含快捷栏
.局部变量 i, 整数型
局_背包jz = 内存.读整数1 (进程句柄, 游戏jz + 进制_十六到十 (“0C5C”))
局_对象 = 局_背包jz
局_背包大小 = 内存.读整数1 (进程句柄, 进制_十六到十 (“010B9638”))
.计次循环首 (局_背包大小 + 6, i)
局_物品名 = 内存.读文本1 (进程句柄, 局_对象 + 1, )
.判断开始 (局_物品名 = “” 且 参_物品 = “”)
局_返回值 = 局_返回值 + 1
.判断 (局_物品名 = 参_物品)
.如果真 (操作_使用)
使用物品CALL (i - 1, 局_对象)
返回 (i)
.如果真结束
.如果真 (操作_丢出)
丢出物品 (i - 1)
返回 (i)
.如果真结束
.如果真 (操作_穿戴)
选择物品CALL (i - 1)
穿戴装备CALL (参_部位)
返回 (i)
.如果真结束
局_返回值 = 局_返回值 + 1
.默认
.判断结束
局_对象 = 局_背包jz + 进制_十六到十 (“688”) × i
.计次循环尾 ()
返回 (局_返回值)
补充内容 (2025-10-13 21:53):
这是我以前写的传世的你可以参考下 |