1.         令 Xoffset = CInt(MyArray(0))
  2.         令 Yoffset = CInt(MyArray(1))
  3.         如果 Abs(Xoffset) <= Abs(Xstep * RecoupY) 则
  4.             注释：具体怎么补偿,需要看不同游戏自己分析一下
  5.             令 XOrigin = XOrigin - (Abs(Xstep * RecoupY) - Abs(Xoffset))
  6.         条件结束
  7.     条件结束
  8.     注释：右框补偿计算开始,这里是把X轴向左推
  9.     如果 MapRight <> "," 并且 InStr(MapRight,",") 则
  10.         令 MyArray = split(MapYoffset,",")
  11.         令 Xstep = MyArray(0)
  12.         令 MyArray = Split(Offset(MapRight,MapPos,MapXoffset,MapYoffset),",")
  13.         令 Xoffset = CInt(MyArray(0))
  14.         令 Yoffset = CInt(MyArray(1))
  15.         如果 Abs(Xoffset) <= Abs(Xstep * RecoupY) 则
  16.             注释：具体怎么补偿,需要看不同游戏自己分析一下
  17.             令 XOrigin = XOrigin + (Abs(Xstep * RecoupY) - Abs(Xoffset))
  18.         条件结束
  19.     条件结束
  20.     令 GetOriginPos = XOrigin & "," & YOrigin
  21.     标记 EndOfFun(函数 GetOriginPos)
  22. 函数结束
  23. 函数 Offset(CurrentMapPos,NextMapPos,Xoffset,Yoffset)
  24.     注释：制作人员:xxchuchu
  25.     注释：制作时间:2011.01.09
  26.     注释：功能说明:[英雄无敌在线]中,计算2个游戏[地图坐标]之间的屏幕距离
  27.     注释：参数说明:
  28.     注释：Offset 返回值, 格式:X,Y 字符型,例如"-100,100"
  29.     注释：CurrentMapPos 出发点, 格式:X,Y 字符型
  30.     注释：NextMapPos 到达点, 格式:X,Y 字符型
  31.     注释：Xoffset 游戏坐标X+1时屏幕坐标位移值,格式:X,Y 字符型
  32.     注释：Yoffset 游戏坐标Y+1时屏幕坐标位移值,格式:X,Y 字符型
  33.     定义变量 MyArray, Rx, Ry
  34.     定义变量 intX, intY
  35.     定义变量 x1, y1, x2, y2
  36.     令 MyArray = Split(CurrentMapPos,",")
  37.     令 x1 = CInt(MyArray(0))
  38.     令 y1 = CInt(MyArray(1))
  39.     令 MyArray = Split(NextMapPos,",")
  40.     令 x2 = CInt(MyArray(0))
  41.     令 y2 = CInt(MyArray(1))
  42.     注释：地图坐标X轴变化进行补偿开始
  43.     令 MyArray = Split(Xoffset,",")
  44.     令 intX = CInt(MyArray(0))
  45.     令 intY = CInt(MyArray(1))
  46.     令 Rx = (x2 - x1) * intX
  47.     令 Ry = (x2 - x1) * intY
  48.     注释：地图坐标Y轴变化进行补偿开始
  49.     令 MyArray = Split(Yoffset,",")
  50.     令 intX = CInt(MyArray(0))
  51.     令 intY = CInt(MyArray(1))
  52.     令 Rx = Rx + (y2 - y1) * intX
  53.     令 Ry = Ry + (y2 - y1) * intY
  54.     注释：对返回值进行赋值
  55.     令 Offset = Rx & "," & Ry
  56. 函数结束