升级
   100%
UID1
金钱23755988
交易币0
贡献262
|
发表于 2023-4-16 11:47:58
|
显示全部楼层
.版本 2
.子程序 材料初始化
.局部变量 空白地址, 长整数型
.局部变量 代码开始, 长整数型
.局部变量 代码结束, 长整数型
.局部变量 材料地址, 长整数型
.局部变量 材料开关, 逻辑型, 静态
空白地址 ＝ 全局空白 ＋ 1800
代码开始 ＝ 空白地址 ＋ 100
代码结束 ＝ 代码开始 ＋ 32
.如果真 (读内存长整数型 (进程ID, 读内存长整数型 (进程ID, 读内存长整数型 (进程ID, 读内存长整数型 (进程ID, 人物基址) ＋ #物品栏) ＋ #物品栏偏移) ＋ #物品栏1) ＝ 0)
公告 (“请先在物品栏1放置材料后再初始化”)
返回 ()
.如果真结束
材料地址 ＝ 获取物品数据call (读偏移型 (人物基址, { #物品栏, #物品栏偏移, #物品栏1, -56, #物品代码, 0 })) ' -72+16=-56
.如果 (材料开关 ＝ 假)
材料开关 ＝ 真
写内存长整数型 (进程ID, 材料地址 ＋ #材料开始, 代码开始)
写内存长整数型 (进程ID, 材料地址 ＋ #材料结束, 代码结束)
写内存整数型 (进程ID, 代码开始, 到整数 (窗口1.编辑框2.内容)) ' 触发代码
公告 (“材料激活成功”)
.否则
材料开关 ＝ 假
写内存长整数型 (进程ID, 材料地址 ＋ #材料开始, 0)
写内存长整数型 (进程ID, 材料地址 ＋ #材料结束, 0)
写内存整数型 (进程ID, 代码开始, 0)
公告 (“材料激活取消”)
|
|
发表于 2023-4-15 17:04:09
楼主
