#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