Half working new fishing bot

[Wreyth]

well here is something i been playing around with see what you think and wondering how i can get this into AT.... it is working like 60% of the time with the new fishing setup.


HotKeySet("^0", "Terminate")
WinWaitActive("FFXiApp")
sleep(10000)

While 1
AutoItSetOption("SendKeyDelay", 6)
AutoItSetOption("SendKeyDownDelay", 3)
Send("!1")
Send("!1")
$event = 0


Do
Sleep(250)

If PixelGetColor(928 ,705 ) < 16800000 AND PixelGetColor( 928 ,705 ) > 16700000 Then
reelin()
$event = 1
EndIf

Until $event = 1
WEnd

Func checkfishstatus()

$Pixel_928 = PixelGetColor(928,705)
$Pixel_934 = PixelGetColor(934,705)
$Pixel_940 = PixelGetColor(940,705)
$Pixel_946 = PixelGetColor(946,705)
$Pixel_952 = PixelGetColor(952,705)
$Pixel_964 = PixelGetColor(964,705)
$Pixel_958 = PixelGetColor(958,705)
$Pixel_970 = PixelGetColor(970,705)
$Pixel_976 = PixelGetColor(976,705)
$Pixel_982 = PixelGetColor(982,705)
$Pixel_988 = PixelGetColor(988,705)
$Pixel_991 = PixelGetColor(991,705)
$s_1 = 16600000
$s_2 = 16700000
$s_3 = 16800000

If $Pixel_928 < $s_3 AND $Pixel_928 > $s_2 Then
If $Pixel_991 < $s_3 AND $Pixel_991 > $s_2 Then $status1= 120
If $Pixel_988 < $s_3 AND $Pixel_988 > $s_2 AND $Pixel_991 < $s_1 Then $status1= 110
If $Pixel_982 < $s_3 AND $Pixel_982 > $s_2 AND $Pixel_988 < $s_1 Then $status1= 100
If $Pixel_976 < $s_3 AND $Pixel_976 > $s_2 AND $Pixel_982 < $s_1 Then $status1= 90
If $Pixel_970 < $s_3 AND $Pixel_970 > $s_2 AND $Pixel_976 < $s_1 Then $status1= 80
If $Pixel_964 < $s_3 AND $Pixel_964 > $s_2 AND $Pixel_970 < $s_1 Then $status1= 70
If $Pixel_958 < $s_3 AND $Pixel_958 > $s_2 AND $Pixel_964 < $s_1 Then $status1= 60
If $Pixel_952 < $s_3 AND $Pixel_952 > $s_2 AND $Pixel_958 < $s_1 Then $status1= 50
If $Pixel_946 < $s_3 AND $Pixel_946 > $s_2 AND $Pixel_952 < $s_1 Then $status1= 40
If $Pixel_940 < $s_3 AND $Pixel_940 > $s_2 AND $Pixel_946 < $s_1 Then $status1= 30
If $Pixel_934 < $s_3 AND $Pixel_934 > $s_2 AND $Pixel_940 < $s_1 Then $status1= 20
If $Pixel_934 < $s_1 Then $status1= 10
ElseIf $Pixel_928 < $s_1 Then
$status1= 0
EndIf

Return $status1
EndFunc

Func checkfishstatus2()
$t = TimerInit()


$Pixel_928 = PixelGetColor(928,705)
$Pixel_934 = PixelGetColor(934,705)
$Pixel_940 = PixelGetColor(940,705)
$Pixel_946 = PixelGetColor(946,705)
$Pixel_952 = PixelGetColor(952,705)
$Pixel_964 = PixelGetColor(964,705)
$Pixel_958 = PixelGetColor(958,705)
$Pixel_970 = PixelGetColor(970,705)
$Pixel_976 = PixelGetColor(976,705)
$Pixel_982 = PixelGetColor(982,705)
$Pixel_988 = PixelGetColor(988,705)
$Pixel_991 = PixelGetColor(991,705)
$s_1 = 16600000
$s_2 = 16700000
$s_3 = 16800000

Do
Sleep(50)
If $Pixel_928 < $s_3 AND $Pixel_928 > $s_2 Then
If $Pixel_991 < $s_3 AND $Pixel_991 > $s_2 Then $status2= 120
If $Pixel_988 < $s_3 AND $Pixel_988 > $s_2 AND $Pixel_991 < $s_1 Then $status2= 110
If $Pixel_982 < $s_3 AND $Pixel_982 > $s_2 AND $Pixel_988 < $s_1 Then $status2= 100
If $Pixel_976 < $s_3 AND $Pixel_976 > $s_2 AND $Pixel_982 < $s_1 Then $status2= 90
If $Pixel_970 < $s_3 AND $Pixel_970 > $s_2 AND $Pixel_976 < $s_1 Then $status2= 80
If $Pixel_964 < $s_3 AND $Pixel_964 > $s_2 AND $Pixel_970 < $s_1 Then $status2= 70
If $Pixel_958 < $s_3 AND $Pixel_958 > $s_2 AND $Pixel_964 < $s_1 Then $status2= 60
If $Pixel_952 < $s_3 AND $Pixel_952 > $s_2 AND $Pixel_958 < $s_1 Then $status2= 50
If $Pixel_946 < $s_3 AND $Pixel_946 > $s_2 AND $Pixel_952 < $s_1 Then $status2= 40
If $Pixel_940 < $s_3 AND $Pixel_940 > $s_2 AND $Pixel_946 < $s_1 Then $status2= 30
If $Pixel_934 < $s_3 AND $Pixel_934 > $s_2 AND $Pixel_940 < $s_1 Then $status2= 20
If $Pixel_934 < $s_1 Then $status2= 10
ElseIf $Pixel_928 < $s_1 Then
$status2= 5
EndIf
Until TimerDiff($t) > 1500

Return $status2
EndFunc



Func reelin()
$t = TimerInit()

Do
Send("{NUMPAD4 down}")
if checkfishstatus() > checkfishstatus2() then
Send("{NUMPAD4 up}")
Do
Send("{NUMPAD6 down}")
Until checkfishstatus() < checkfishstatus2()
Send("{NUMPAD6 up}")
endif
Until checkfishstatus() = 0




If checkfishstatus() = 0 Then
Send("{NUMPAD6 up}")
Send("{NUMPAD4 up}")
Sleep(1000)
Send ("{ENTER}")
Send ("{ENTER}")
Sleep(4000)
EndIf

EndFunc

[Wreyth]

oha nd since the AT and most of AutoIT is down due to the new updates (Curse you SE) i am unable to currently play with this anymore ... it was working before the updates.

[TinyTerror]

Do you think you could reduce the size of your sig? No need to have one more than 1024 pixels wide. You are breaking the tables on the forum. >_<

[Wreyth]

sorry tiniy forgot it was still on i was testing it to size it my bad >< forgot to take it off when i was done.

[TinyTerror]

Its ok.