#SetArgsOnCompile

#诛仙基址搜索工具脚本。此脚本用于帮助一些使用不了官方发布的基址的朋友。
#使用方法：
#首先在参数中填入自己角色的HP和MP值，需要的话适合修改搜索范围。然后在诛仙游戏中启动脚本。
#当输出"搜索到可能的基址"字样时，记下输出的基址，在诛仙打怪脚本中设置参数"基地址"。
#如果输出多个基址，那么退出游戏多搜索几次，找一个不变的地址使用。
#如果没有输出，调整范围再搜索，但是不要一次搜索的范围太大，速度会很慢。

dim myHP, myMP

function LogPrint(msg)
Print(msg)
WriteLog("搜索结果.txt", msg)
end function

function HexStr(num)
str=""
while num>0
n=num mod 16
if n10 then
str=Chr(n+ASC("0"))str
else
str=Chr(n-10+ASC("A"))str
end if
num=num\16
wend
HexStr=str
end function

function TryAddr(byref addFirst)
TryAddr=false

if not SearchValidAddr(addFirst, H0000000, addResult) then
exit function
end if

addFirst=addResult

if not ReadMemoryEx(addFirst, 2, Number1, 1) then
exit function
end if

addSecond=Number1+40
if not ReadMemoryEx(addSecond, 2, Number3, 1) then
exit function
end if

addNowBlood=Number3+596
addAllBlood=addNowBlood+h18
addNowMP=addNowBlood+h4
addAllMP=addNowBlood+h1c

if not ReadMemoryEx(addNowBlood, 2, NowBlood, 1) then
exit function
end if
if NowBlood>myHP then
exit function
end if

if not ReadMemoryEx(addAllBlood, 2, AllBlood, 1) then
exit function
end if
if AllBlood>myHP then
exit function
end if

if not ReadMemoryEx(addNowMP, 2, NowMP, 1) then
exit function
end if
if NowMP>myMP then
exit function
end if

if not ReadMemoryEx(addAllMP, 2, AllMP, 1) then
exit function
end if
if AllMP>myMP then
exit function
end if

TryAddr=true
end function

function main
dim progress[11]
for i=1 to 11
progress[i]=false
next
myHP=GetConfigNumber("当前血值")
myMP=GetConfigNumber("当前MP值")
startAddr=CNum(GetConfigString("搜索起始地址"))
endAddr=CNum(GetConfigString("搜索结束地址"))
Print("起始地址：H" HexStr(startAddr))
Print("结束地址：H" HexStr(endAddr))
Print("搜索HP值："myHP)
Print("搜索MP值："myMP)
LogPrint("开始搜索.....")
for addr=startAddr to endAddr step 4
if TryAddr(addr) then
LogPrint("搜索到可能的基址： H" HexStr(addr))
end if
prg=Int((addr-startAddr)/(endAddr-startAddr)*10)
if prg>10 then
prg=10
end if
if not progress[prg+1] then
Print("已完成 %"(prg*10))
progress[prg+1]=true
end if
next
end function