自由猎手具体要怎么改才能用

来源：百度知道 编辑：UC知道 时间：2024/05/11 12:27:35
我看有这么改的帖子
答案
因为新版的1.80，血条和城市字符显示位置，上调了一个像素，这就要修改猎手中读取血条和城市所起始的坐标，需要修改的代码有以下两处：
1 FindMon.vbs中

**********************************************************************************************************获取地理坐标*****
Function GetCurXY(ByRef tmpCurX, ByRef tmpCurY)
Dim n, i, strNum, strXY, strT
Dim Color, ColorR, ColorG, ColorB

tmpCurX = 0: tmpCurY = 0
x0 = ScreenWidth - 147
y0 = 24
strNum = "": strXY = ""
'自由猎手之打手全自动挂机脚本，免费发布
'博客地址：http://fhok.spaces.msn.com
Do While strNum <> "?" And strNum <> "]

/////注意y0=24 以前是25！

2FindMon.vbs

'********************************************************************************************************获取小地图名称*****
Function GetSmallMapName(ByVal lngStart)
Dim Color, ColorB, n, i, str

是不是回成后不自动去找NPC啊.我也是这个问题.回城后是不是老是用回城F.用完了就在那打转?
我是这样改的,改完就可以用了.不知道对你有没有效.你改看看
把FindMon.vbs文件里“获取地理坐标”原坐标判断的起点y0=25变y0=24,其他勿动，立刻OK。对于城镇的判断需要作一个大的改动，请把“获取小地图名称”改成：
**************获取小地图名称*****
Function GetSmallMapName(ByVal lngStart)
Dim Color, ColorB, n, i, strNum, strT, lngTmpFound
Dim x0, y0
x0 = ScreenWidth - 85
y0 = 4

strNum = 0: strT = ""
For n = 0 To 10
For i = 0 To 10
Color = objFM.GetPixelColor(x0 + i, y0 + n)
ColorB = Left(Color, 1)
If ColorB > "6" Then
Color = "1"
Else
Color = "0"
End If
strT = strT & Color
Next
Next
'自由猎手之打手全自动挂机脚本，免费发布
'博客地址：http://fhok.spaces.msn.com

Select Case strT
Case "00010001000111111010000001000100011111111111100001010010111100100100010001001000111010011111001