[分享源码] 超级大福利让一切图色脚本靠边站的按键memory脚本分享(千年网游m... [复制链接]

Call Lib.我的命令库.窗口识别("shenmo")
Hwndsm = Hwnd
for b=1 to 1000
Call 周边遍历("犀牛")//"大力兽魔王"
Delay 2000
Next
Sub 周边遍历(怪物名)
TracePrint "遍历 "&怪物名
Dim x(3000)
i = 0
For i = 0 to 80
x(i) = i * 4
怪物下标 = Plugin.Memory.Read32Bit(Hwndsm, val_2 + x(i))
怪物心跳 = Plugin.Memory.Read32Bit(Hwndsm, 怪物下标 + &H20)
怪物状态 = Plugin.Memory.Read8Bit(Hwndsm, 怪物下标 + &H41e)
怪物心跳 = int(怪物心跳) // TracePrint typename(怪物心跳)
怪物状态 = int(怪物状态) // TracePrint typename(怪物状态)
怪物状态 = Plugin.Memory.Read8Bit(Hwndsm, 怪物下标 + &H41e)
x2 = Plugin.Memory.Read16Bit(Hwndsm, 怪物下标 + &H138)//怪物X
y2 = Plugin.Memory.Read16Bit(Hwndsm, 怪物下标 + &H13C)//怪物Y
x1 = Plugin.Memory.Read32Bit(Hwndsm, &H00506670)
y1 = Plugin.Memory.Read32Bit(Hwndsm, &H00506674)
怪物name = Plugin.Memory.Read32Bit(Hwndsm, 怪物下标 + &H450)
name = Plugin.Memory.ReadString(Hwndsm, 怪物name, 16)
形态 = Plugin.Memory.Read32Bit(Hwndsm, 怪物下标 + &H40)
怪物ID = Plugin.Memory.Read32Bit(Hwndsm, 怪物下标 + &H414)
// TracePrint typename(怪物ID)
X线 = abs(x1 - x2) : Y线 = abs(y1 - y2) : 距离 = Sqr(X线 ^ 2 + Y线 ^ 2)
距离=Int(距离)
If name <> "" and 距离 < 5 and 距离 <> 0 then // = 怪物名
u = u + 1
TracePrint name & " 距离 " & 距离 & " 第" & u & " 个 " & x2 & " , " & y2 & " 下标i " & i & " 状态 " & 怪物状态 & " 型态 " & 形态
End If
i = i + 1
Next
End Sub