|
2精币
.版本 2
.支持库 EThread
.子程序 _选择框1_被单击
.如果 (选择框1.选中 = 真)
启动线程 (&读取NPC列表, , npc句柄)
.否则
关闭线程句柄 (npc句柄)
=================================================
.版本 2
.支持库 iext
.子程序 读取NPC列表
.局部变量 怪物首地址, 整数型
.局部变量 怪物尾地址, 整数型
.局部变量 怪物索引
超级列表框1.全部删除 ()
怪物1 = 读内存整数型 (选中id, 十六到十 (#人物基址))
怪物首地址 = 读内存整数型 (选中id, 怪物1 + 十六到十 (#怪物首偏移))
怪物尾地址 = 读内存整数型 (选中id, 怪物1 + 十六到十 (#怪物尾偏移))
.判断循环首 (怪物首地址 < 怪物尾地址)
怪物地址 = 读内存整数型 (选中id, 怪物首地址)
怪物属性.怪物id = 读内存整数型 (选中id, 怪物地址 + 十六到十 (#怪物id偏移))
怪物属性.怪物名 = 读内存文本型 (选中id, 怪物地址 + 4)
怪物属性.怪物等级 = 读内存整数型 (选中id, 怪物地址 + 十六到十 (#怪物等级偏移))
怪物属性.怪物X坐标 = 读内存整数型 (选中id, 怪物地址 + 十六到十 (#怪物X坐标))
怪物属性.怪物Y坐标 = 读内存整数型 (选中id, 怪物地址 + 十六到十 (#怪物Y坐标))
怪物索引 = 超级列表框1.插入表项 (, 到文本 (怪物属性.怪物id), , , , 怪物地址)
超级列表框1.置标题 (怪物索引, 1, 怪物属性.怪物名)
超级列表框1.置标题 (怪物索引, 2, 到文本 (怪物属性.怪物等级))
超级列表框1.置标题 (怪物索引, 3, 到文本 (怪物属性.怪物X坐标))
超级列表框1.置标题 (怪物索引, 4, 到文本 (怪物属性.怪物Y坐标))
怪物首地址 = 怪物首地址 + 4
.判断循环尾 ()
延时 (1000)
我启动这个线程之后,并没有实现自动1秒刷新一次列表,请问是哪点出错?需要怎样修改啊
|
|