#SetArgsOnCompile

#誅仙基址搜索工具腳本。此腳本用于幫助一些使用不了官方發(fā)布的基址的朋友。
#使用方法：
#首先在參數(shù)中填入自己角色的HP和MP值，需要的話適合修改搜索范圍。然后在誅仙游戲中啟動腳本。
#當(dāng)輸出"搜索到可能的基址"字樣時，記下輸出的基址，在誅仙打怪腳本中設(shè)置參數(shù)"基地址"。
#如果輸出多個基址，那么退出游戲多搜索幾次，找一個不變的地址使用。
#如果沒有輸出，調(diào)整范圍再搜索，但是不要一次搜索的范圍太大，速度會很慢。

dim myHP, myMP

function LogPrint(msg)
Print(msg)
WriteLog("搜索結(jié)果.txt", msg)
end function

function HexStr(num)
str=""
while num>0
n=num mod 16
if n<10 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("當(dāng)前血值")
myMP=GetConfigNumber("當(dāng)前MP值")
startAddr=CNum(GetConfigString("搜索起始地址"))
endAddr=CNum(GetConfigString("搜索結(jié)束地址"))
Print("起始地址：&H"& HexStr(startAddr))
Print("結(jié)束地址：&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