[问题] 武林群侠传钓鱼脚本不灵 [复制链接]

钓鱼不灵，不能100%钓上来，求大佬修改
只设计了两种鱼，
选好鱼竿和鱼饵后运行



Dim XY,MyArray
Dim X, Y ,OldX,OldY

鱼饵位置 = array(535, 142, 560, 179)
Dim 鱼饵(2)'0是蚯蚓,1是红虫,2是蛇胆
鱼饵(0)=Array("BDBAB5","1|2|DEDBDE,3|-1|CED3CE,5|-1|B5B2AD,5|1|8C8A7B,3|-4|E7E3E7,3|5|9C9A94,0|6|BDBAB5,5|4|DEDBDE,10|-3|FFFFFF,7|0|FFFFFF,7|6|C6C3BD,11|1|A5A294,10|1|EFEBEF,10|6|948A84,5|6|949284,13|6|948A84")
鱼饵(1)=Array("CED3CE","-3|5|E7E3E7,0|5|D6D3CE,1|3|EFEBEF,-2|8|D6D3CE,-2|10|EFEBEF,0|9|C6C3BD,4|4|C6C3BD,5|4|EFEBEF,6|4|BDBAB5,5|8|FFFFFF,3|9|C6C3BD,8|8|B5B2AD")
鱼饵(2) = Array("", "")
''''''''''''''''''''''''''
渔场 = Array(149, 16, 456, 323)
渔场标志="18795A"
Dim 鱼(2)'0是鲤鱼，1是虹鲤，2是怪鲶鱼
'第一二个是特征，第三四个是钓鱼位置，第五个是抛竿力度
鱼(0)=Array("004131","0|1|084131,0|2|084939,0|3|185952,0|4|106152",400, 318,210)
鱼(1)=Array("52516B","0|1|4A415A,1|1|5A597B,1|2|42384A,2|2|636984,2|3|4A415A,3|3|6B718C,3|4|42415A,4|4|52496B,4|3|6B7194,5|4|6B6984,5|5|313042,6|5|52516B,6|4|636984,7|4|4A4963,7|5|52516B,6|5|52516B", 295, 321, 100)

按钮位置=Array(495, 262)
当前鱼饵=-1
'挣扎时间65，钓8跑2；70,7:3；75,5:5；
挣扎时间 =63
放松时间=105

Do



For 鱼饵序号=0 to 2


If Plugin.Color.FindMutiColor(鱼饵位置(0),鱼饵位置(1),鱼饵位置(2),鱼饵位置(3), 鱼饵(鱼饵序号)(0), 鱼饵(鱼饵序号)(1), 1)<> "-1|-1" Then


Exit For

End If


Next

If 鱼饵序号 <> 当前鱼饵 Then

当前鱼饵 = 鱼饵序号

当前鱼 = 鱼(鱼饵序号)

'按鼠标右键，调整在岸边的位置

MoveTo 当前鱼(2), 当前鱼(3)

RightDown 1

Delay 1200

RightUp 1

End If



'抛竿

MoveTo 按钮位置(0), 按钮位置(1)

LeftClick 1

Delay 当前鱼(4)

LeftClick 1

MoveTo 当前鱼(2), 当前鱼(3)



'检测是否跳离渔场，即找不到渔场的特有延时

Do

FindColor 渔场(0), 渔场(1), 渔场(2), 渔场(3), 渔场标志, X, Y

Loop While X > 0 And Y > 0


OldX=-1:OldY=-1

LeftDown 1



T=Timer()

Delay 挣扎时间-5

Do While True

XY=Plugin.Color.FindMutiColor(渔场(0),渔场(1),渔场(2),渔场(3),当前鱼(0),当前鱼(1),1)



MyArray = Split(XY, "|")

X = CInt(MyArray(0)) : Y = CInt(MyArray(1))

If X > 0 and Y > 0 Then



If OldX = X and OldY = Y Then

If Timer() - T > 挣扎时间/1000 Then

LeftUp 1

Delay 放松时间

LeftDown 1



OldX = - 1 : OldY = - 1 : T = Timer()

Delay 挣扎时间-5

End If



Else

OldX=X:OldY=Y:T=Timer()

End If



End If

FindColor 渔场(0), 渔场(1), 渔场(2), 渔场(3), 渔场标志, X, Y

If X > 0 and Y > 0 Then

LeftClick 1

Exit Do

End If

Loop



'查找时间条

FindColor 494,35,603,62,"FF0000",intX,intY
Loop While intX > 0 And intY