【摩尔庄园】自动钓鱼源码

提供源代码目的仅限于学习交流之用，对使用代码内的信息随之而来的风险与本人无关。本人不作任何承诺。也不为代码所提供的信息错误、残缺、延时或因依靠此类信息或文件所采取的任何行动负责。访问者可将本代码提供的内容或服务用于个人学习、研究或欣赏，以及其他非商业性或非盈利性用途，但同时应遵守著作权法及其他相关法律的规定，不得侵犯本人及相关权利人的合法权利。

本来是想把插件打包你们下载再导入的，后来觉得比较麻烦，还是把插件内的函数拿出来把，所以就不止20行了。

适用分辨率：720*1280

Dim 上钩检测={0,"鱼以上钩，提竿",1,1,0,0,20,50,10000,199,1075,250,1128,"AFF1FF-202020|8BFFFF-202020",1,0.9}
Dim 钓鱼范围={0,"已生成绿色钓鱼范围",0,1,0,0,5,100,10000,263,586,298,650,"70C54A-050505",1,1.0}
Dim 提竿检测={0,"鱼已进入钓鱼范围，提竿",1,1,217,1099,20,50,10000,264,585,299,648,"795138-050505",1,1.0}
Dim 恭喜获得={1,"获得奖励",1,1,67,637,20,100,3000,546,585,604,632,"8CF0F8-050505","26|11|8CF0F8,38|-16|8CF0F8",0,0.9}
Dim 杂物检测={1,"获得奖励",1,1,67,637,20,100,1000,546,585,604,632,"8CF0F8-050505","26|11|8CF0F8,38|-16|8CF0F8",0,0.9}
自动钓鱼()
Sub 自动钓鱼()
    While true
        RandomTap 217,1099,20 //抛勾
        ShowMessage "抛勾", 1000, 0, 360
        Delay 300
        持续图色查找(上钩检测)
        If 持续图色查找(钓鱼范围) Then 
            持续图色查找 (提竿检测)
            持续图色查找(恭喜获得)
        End If
        持续图色查找 (杂物检测)
        Delay 1000
    Wend
End Sub

Function 持续图色查找(接收数组)
    Dim 数组()=接收数组
    Dim intX, intY
    Dim t=TickCount()
    While true
        Select Case 数组(0)
        Case 0
            FindColor 数组(9), 数组(10), 数组(11), 数组(12), 数组(13),数组(14), 数组(15), intX, intY	
        Case 1
            FindMultiColor 数组(9), 数组(10), 数组(11), 数组(12), 数组(13),数组(14), 数组(15),数组(16), intX, intY 
        End Select
        If intX > -1 Then 
            TracePrint 数组(1)
            ShowMessage 数组(1), 1000, 1, 320
            持续图色查找 = true
            Exit While
        End If
        Delay 数组(7)
        If TickCount() - t >= 数组(8) Then 
            持续图色查找 = false
            TracePrint "查找失败"
            Exit While
        End If
    Wend
    If 数组(2) = 1 Then 
        If 数组(4) = 0 or 数组(5) = 0 Then 
            数组(4) = intX
            数组(5) = intY
        End If
        For 数组(3)
            RandomTap(数组(4), 数组(5), 数组(6))
            Delay 50
        Next	
    End If
End Function