If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)


Global $Paused, $counter = 0
HotKeySet("{F3}", "TogglePause")
HotKeySet("{F2}", "Terminate")
Fish()


Func Fish()
While 1
Local $coord = PixelSearch(695,451,728,451,0xD7D9D8,100)
If Not @error Then
Sleep(10)
MouseClick("Left")
Sleep(1100)
$nom = PixelSearch(color of break)
If Not @error Then
Send(f)
Sleep(10)
Send(f)
Sleep(10)
Send(q)
Sleep(10)
Send("{shiftdown}")
MouseClick("left", 1299, 752, 1)
Send(1)
Send(Enter)
Sleep(10)
MouseClick("left", 1294, 704, 1)
Sleep(10)
MouseClick("left", 1349, 756, 1)
Send(1)
Send(Enter)
Sleep(10)
MouseClick("left", 1347, 701, 1)
Sleep(10)
MouseClick("left", 1242, 751, 1)
Send(1)
Send(Enter)
Sleep(10)
MouseClick("left", 1244, 704, 1)
Sleep(10)
Send("{shiftup}")
Sleep(10)
MouseClick("left", 1294, 704, 1)
Sleep(10)
MouseClick("left", 225, 388, 1)
Sleep(10)
MouseClick("left", 1347, 701, 1)
Sleep(10)
MouseClick("left", 225, 438, 1)
Sleep(10)
MouseClick("left", 1294, 704, 1)
Sleep(10)
MouseClick("left", 225, 492, 1)
Sleep(10)
MouseClickDrag ("left", 195, 579, 241, 579)
Sleep(10)
MouseDown("left")
Sleep("4000")
MouseUp("left")
Sleep("2000")
Return


ElseIf @error Then
MouseDown("left")
Sleep("35000")
MouseUp("left")
Sleep(10)
$nom = PixelSearch(color of break)
If Not @error Then
Send(f)
Sleep(10)
Send(f)
Sleep(10)
Send(q)
Sleep(10)
Send("{shiftdown}")
MouseClick("left", 1299, 752, 1)
Send(1)
Send(Enter)
Sleep(10)
MouseClick("left", 1294, 704, 1)
Sleep(10)
MouseClick("left", 1349, 756, 1)
Send(1)
Send(Enter)
Sleep(10)
MouseClick("left", 1347, 701, 1)
Sleep(10)
MouseClick("left", 1242, 751, 1)
Send(1)
Send(Enter)
Sleep(10)
MouseClick("left", 1244, 704, 1)
Sleep(10)
Send("{shiftup}")
Sleep(10)
MouseClick("left", 1294, 704, 1)
Sleep(10)
MouseClick("left", 225, 388, 1)
Sleep(10)
MouseClick("left", 1347, 701, 1)
Sleep(10)
MouseClick("left", 225, 438, 1)
Sleep(10)
MouseClick("left", 1294, 704, 1)
Sleep(10)
MouseClick("left", 225, 492, 1)
Sleep(10)
MouseClickDrag ("left", 195, 579, 241, 579)
Sleep(10)
MouseDown("left")
Sleep("4000")
MouseUp("left")
Sleep("2000")
Return



EndIf
WEnd
EndFunc


While 1
$counter +=1
WEnd


Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
;ToolTip('Script is "Paused"',0,0, $counter, 1)
WEnd
ToolTip("")
EndFunc


Func Terminate()
Exit 0
EndFunc