【天龙八部2】自动采集v1.0版 - 生活职业玩家的福音 [复制链接]

//使用说明：
//1、首先游戏人物走到指定采集地图
//2、定义15个采集点坐标（目前只支持15个坐标，需要可自行扩展）
//3、设置采集物（0、药材；1、矿石）
//设置说明：
//1、系统分辨率1024*768
//2、游戏全屏幕
//3、游戏角色需配置采集工具和包裹剩余空间

//设置采集物（0、药材；1、矿石）
cj=0

//定义15个采集点坐标（目前只支持15个坐标，需要可自行扩展）
//打开抓点抓色工具抓取大地图上15个采集点位置坐标
ax=579
ay=563
bx=328
by=331
cx=327
cy=317
dx=242
dy=433
ex=232
ey=499
fx=564
fy=562
gx=488
gy=450
hx=508
hy=434
ix=370
iy=503
jx=235
jy=603
kx=313
ky=346
lx=410
ly=309
mx=546
my=217
nx=565
ny=218
ox=650
oy=212

If cj=0

您所在的用户组无法下载或查看附件

//药材鼠标形状
sb=951748208
Else

您所在的用户组无法下载或查看附件

//矿石鼠标形状
sb=1825347698
End If
//采集点初始值
n=1

//打开大地图
i=0
While i=0
KeyPress 9, 1
Delay 1000

您所在的用户组无法下载或查看附件

FindPic 0,0,1024,768,"大地图.bmp",0.9,x,y
If x > 0
i=1
End If
Wend

您所在的用户组无法下载或查看附件

//点击缩小按钮
MoveToEx 710,85
LeftClick 1
Delay 500

//<>-------------------------------------[开始寻找采集点]
//n为采集点数量（目前只支持15个，需要可自行扩展）
//判断设定走路目的地
If n=1
px=ax
py=ay
End If
If n=2
px=bx
py=by
End If
If n=3
px=cx
py=cy
End If
If n=4
px=dx
py=dy
End If
If n=5
px=ex
py=ey
End If
If n=6
px=fx
py=fy
End If
If n=7
px=gx
py=gy
End If
If n=8
px=hx
py=hy
End If
If n=9
px=ix
py=iy
End If
If n=10
px=jx
py=jy
End If
If n=11
px=kx
py=ky
End If
If n=12
px=lx
py=ly
End If
If n=13
px=mx
py=my
End If
If n=14
px=nx
py=ny
End If
If n=15
px=ox
py=oy
End If
MoveToEx px,py
LeftDoubleClick 1

//首先获取小地图颜色
c1=GetPixelColor(910,155)
c2=GetPixelColor(950,150)

您所在的用户组无法下载或查看附件

//等待是否到达目的地
i=0
While i=0
Rem 等待人物停止
Delay 1000
//再次获取小地图颜色
c3=GetPixelColor(910,155)
c4=GetPixelColor(950,150)
//判断颜色不一样时，说明人物走到目的地，离开等待
If c3=c1
If c4=c2
Goto 到达目的地
End If
End If
c1=c3
c2=c4
Goto 等待人物停止
Wend

Rem 到达目的地
//到达目的地后关闭地图
i=0
While i=0
KeyPress 9, 1
Delay 500
FindPic 0,0,1024,768,"大地图.bmp",0.9,x,y
If x < 0
Delay 300
i=1
End If
Wend

//设置鼠标水平线扫描范围
sx2=730
sy2=540
//y坐标还原
sy1=200
//开始采集（水平线扫描鼠标形状）
While sy1<=sy2
//x坐标还原
sx1=330
While sx1<=sx2
MoveToEx sx1,sy1
Delay 10
sb2 = GetCursorShape(0)
If sb2=sb
LeftDoubleClick 1
Goto 采集
End If
sx1=sx1+20
Wend
sy1=sy1+20
Wend
//没有找到采集物
Goto 下一个采集点

Rem 采集
i=0
While i=0
Delay 1000
FindPic 0,0,1024,768,"全部拾取.bmp",1.0,x,y
If x > 0
MoveToEx x,y
LeftClick 1
Delay 500
i=1
End If
Wend

Rem 下一个采集点
n=n+1
//n为采集点数量（目前只支持15个，需要可自行扩展）
If n>15
n=1
End If