1. 调用插件命令 WinTop=Window.Foreground()
2. 调用插件命令 RectTop=Window.GetClientRect(WinTop)
3. TempArray=Split(RectTop,"|")
4. x1=CInt(TempArray(0)):y1=CInt(TempArray(1))
5. x=700:y=200
6. //移动距离
7. stepx=40
8. //精确度
9. accuracy=3
10. 标记 start
11. a1=x1:b1=y1:a2=x1:b2=y1:a3=x1:b3=y1
12. 延时20毫秒
13. //点到NPC身上鼠标型状
14. 标记 标2
15. 如果表达式 (a2=-1 and b2=-1) 为真,则
16.     跳转到标记 标3
17. 条件结束
18. 调用外部VBScript子程序 在屏幕区域里查找颜色(a2+1,b2,800+x1,600+y1,"f0dc48",a2,b2)
19. 如果 (a2+1,b2) 的颜色等于 #f0dc48 则
20.     gx=a2:gy=b2
21. 否则
22.     跳转到标记 标2
23. 条件结束
24. 跳转到标记 计算
25. //点到宝箱上鼠标型状
26. 标记 标3
27. 如果表达式 (a3=-1 and b3=-1) 为真,则
28.     跳转到标记 标1
29. 条件结束
30. 调用外部VBScript子程序 在屏幕区域里查找颜色(a2+1,b2,800+x1,600+y1,"f0dc48",a2,b2)
31. 如果 (a3+1,b3) 的颜色等于 #b88018 则
32.     gx=a3:gy=b3
33. 否则
34.     跳转到标记 标3
35. 条件结束
36. 跳转到标记 计算
37. //正常鼠标型状
38. 标记 标1
39. 如果表达式 (a1=-1 and b1=-1) 为真,则
40.     跳转到标记 start
41. 条件结束
42. 调用外部VBScript子程序 在屏幕区域里查找颜色(a2+1,b2,800+x1,600+y1,"f0dc48",a2,b2)
43. 如果 (a1+1,b1) 的颜色等于 #98f8f0 则
44.     如果 (a1+2,b1) 的颜色等于 #a8f8f0 则
45.         gx=a1:gy=b1
46.     否则
47.         跳转到标记 标1
48.     条件结束
49. 否则
50.     跳转到标记 标1
51. 条件结束
52. 延时8毫秒
53. 标记 计算
54. //得到目标坐标与当前鼠标的差值
55. tpx=x-gx
56. tpy=y-gy
57. //得到目标坐标与当前鼠标的差值(绝对值)
58. tpax=Abs(x-gx)
59. tpay=Abs(y-gy)
60. //算出X坐标的差值除以移动距离的等份
61. dengfen=tpax/stepx
62. //算出X坐标的差值每等份的值
63. ydengfenzhi=tpay/dengfen
64. 如果表达式 (ydengfenzhi>100) 为真,则
65.     ydengfenzhi=100
66. 条件结束
67. //当X或Y的差值大于20作相对移动
68. 如果表达式 (tpax>20 or tpay>20) 为真,则
69.     如果表达式 (tpx>stepx) 为真,则
70.         tpx=stepx
71.     条件结束
72.     如果表达式 (tpx<-stepx) 为真,则
73.         tpx=-stepx
74.     条件结束
75.     //以X的差值等份值算出Y移动距离作相对移动
76.     如果表达式 (tpy>ydengfenzhi) 为真,则
77.         tpy=ydengfenzhi
78.     条件结束
79.     如果表达式 (tpy<-ydengfenzhi) 为真,则
80.         tpy=-ydengfenzhi
81.     条件结束
82.     鼠标相对移动 tpx , tpy
83.     延时50毫秒
84.     跳转到标记 start
85. 条件结束
86. //差值小于精度值就直接结束子程序.不作处理
87. 如果表达式 (tpax<=accuracy and tpay<=accuracy) 为真,则
88.     //差值较小时.作相对微移
89. 否则
90.     如果表达式 (tpx>1) 为真,则
91.         tpx=1
92.     条件结束
93.     如果表达式 (tpx<-1) 为真,则
94.         tpx=-1
95.     条件结束
96.     如果表达式 (tpy>1) 为真,则
97.         tpy=1
98.     条件结束
99.     如果表达式 (tpy<-1) 为真,则
100.         tpy=-1