VIP会员 - 免回复查看隐藏内容

//以下是我个人坐标，不建议使用
//以下所有坐标和文件位置还有图片位置请自行修，图片自己取按键精灵抓抓截取。
//----------------------血量是否达到10%--由于测试，写在了最前面--------------------------------------------------------------------------
Rem 血条
//252,123  462A21
FindPic 0, 0, 252, 123, "Z:\imge\xt.bmp", 0.7, xtx,xty//get
If xtx > 0 And xty > 0 Then
Delay "100"
Goto 清除各种坐标
Else
Goto 原地复活
End If
//----------------------钓鱼准备----------------------------------------------------------------------------
Rem 清除各种坐标
nqzbx泥鳅 = 0
nqzby泥鳅 = 0
qyzbx蚯蚓 = 0
qyzby蚯蚓 = 0
qgzbx启杆 = 0
qgzby启杆 = 0
i = 0
intX = 0
intY = 0
buffx = 0
buffy = 0
ylx = 0
yly = 0
xtx = 0
xty = 0
Goto buff
//--------------------------寻找鱼篓的位置-------------------------------------------------------------------------
Rem 鱼篓
//869,513  272A16
//926,560  3D545B
FindPic 869, 513, 926, 560, "Z:\imge\yl.bmp", 0.7, ylx, yly//get
If ylx > 0 And yly > 0 Then
MoveTo ylx + 2, yly + 2
Delay "100"
RightClick 1
Delay "5000"//获得钓鱼buff后等待5秒,不然有可能鼠标按下过快导致停止
Goto buff
End If
//--------------------------判断是否有垂钓buff标记-------------------------------------------------------------------------
Rem buff
//805,748  3C504B
//868,802  4A605C
FindPic 805, 748, 868, 802, "Z:\imge\buff.bmp", 0.7, buffx, buffy//get
If buffx > 0 And buffy > 0 Then
Goto 泥鳅
Else
Goto 鱼篓
End If
//--------------------------找到泥鳅的位置-------------------------------------------------------------------------
//839,968  1F443A
//1032,1036  66613C
Rem 泥鳅
FindPic 839, 968, 1032, 1036, "Z:\imge\nq.bmp", 0.7, nqzbx泥鳅, nqzby泥鳅//get
If nqzbx泥鳅 > 0 And nqzby泥鳅 > 0 Then
MoveTo nqzbx泥鳅 + 2, nqzby泥鳅 + 2
Delay "100"
RightClick 1
Goto 垂钓
Else
goto 蚯蚓
End If
//----------------------------找到蚯蚓的位置-----------------------------------------------------------------------
Rem 蚯蚓
FindPic 839, 968, 1032, 1036, "Z:\imge\qiuyin.bmp", 0.7, qyzbx蚯蚓, qyzby蚯蚓//get
If qyzbx蚯蚓 > 0 And qyzby蚯蚓 > 0 Then
MoveTo qyzbx蚯蚓 + 2, qyzby蚯蚓 + 2
Delay "100"
RightClick 1
Goto 垂钓
Else
MessageBox "没有鱼饵了阿喂！！！"//这里本来应该写关机的，暂时没找到命令！！
End If
//---------------------------------找到收杆的位置------------------------------------------------------------------
Rem 启杆
FindPic 839, 968, 1032, 1036, "Z:\imge\qigan.bmp", 0.7, qgzbx启杆, qgzby启杆//get
If qgzbx启杆 > 0 And qgzby启杆 > 0 Then
MoveTo qgzbx启杆 + 2, qgzby启杆 + 2
Delay "100"
RightClick 1
Delay "2000"//等待公共cd建议2000毫秒。不然容易出现停止钓鱼。
Goto 清除各种坐标
End If
//--------------------------------------判断系统提示中的小点-------------------------------------------------------------
Rem 垂钓
i = i + 1
Delay "100"
FindPic 827, 663, 897, 780, "Z:\imge\tis.bmp", 0.7, intX, intY//get
If intX > 0 And intY > 0 Then
Goto 启杆
End If
If i > 1800 Then
Goto 血条
End If
Goto 垂钓
//-------------------------------判断是否有原地复活按钮--------------------------------------------------------------------
Rem 原地复活
//823,444  1F2A20
//1097,519  292716
FindPic 823, 444, 1097, 519, "Z:\imge\fuhuo.bmp", 0.7, intXz, intYz//get
If intXz > 0 And intYz > 0 Then
MoveTo intXz + 2, intYz + 2
Delay "100"
LeftClick 1
Goto 清除各种坐标
End If
Goto 原地复活