Tibianic Fishbot by Wenrzu 0.1

Opt("MouseClickDragDelay", 0)
Opt("GUIOnEventMode", 1)
HotKeySet ("{HOME}", "mysz" )
HotKeySet ( "{END}", "zamykamy")
#NoTrayIcon

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$Tibianic = GUICreate("Tibianic Fishbot 0.1 by Wenrzu", 328, 199, 284, 278)
GUISetIcon("C:\Users\Piotrek\Downloads\favicon.ico", -1)
$start = GUICtrlCreateButton("Start", 24, 24, 89, 33)
GUICtrlCreateLabel("Koordynaty wody_1 ( lewy górny róg)", 24, 112, 177, 17)
GUICtrlCreateLabel("Koordynaty wody_1 ( lewy górny róg)", 24, 80, 177, 17)
$X = GUICtrlCreateInput("X", 208, 80, 49, 21)
$Y = GUICtrlCreateInput("Y", 272, 80, 41, 21)
$X2 = GUICtrlCreateInput("X2", 208, 112, 49, 21)
$Y2 = GUICtrlCreateInput("Y2", 272, 112, 41, 21)
$Label1 = GUICtrlCreateLabel("Nacisnij 'HOME' aby odczytac aktualne koordynaty myszy", 24, 144, 282, 17)
$Label2 = GUICtrlCreateLabel("Koordynaty wedki ", 24, 168, 91, 17)
$XW = GUICtrlCreateInput("XWedki", 208, 168, 49, 21)
$YW = GUICtrlCreateInput("YWedki", 272, 168, 41, 21)
GUISetOnEvent($GUI_EVENT_CLOSE, "zamykamy")
GUICtrlSetOnEvent($start, "rybak")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
   Sleep(1000)
   WEnd

   Func zamykamy()
    Exit
EndFunc

   	Func rybak()
	    Dim $box[4] = [GuiCtrlRead($X), GuiCtrlRead($Y), GuiCtrlRead($X2), GuiCtrlRead($Y2)]
	   While 1

		 ControlClick ("[CLASS:TibianicCli]", "", "", "right",1 , GuiCtrlRead($XW), GuiCtrlRead($YW))
 		 Sleep(800)
 		 ControlClick ("[CLASS:TibianicCli]", "", "", "left", 1,  Random($box[0], $box[2]), Random($box[1], $box[3]))
		 Sleep(1000)

		 WEnd
	  EndFunc


	Func mysz()
	   $xmyszy = MouseGetPos(0)
       $ymyszy = MouseGetPos(1)
    MsgBox ( 0, "Pozycja myszki", "Pozycja myszki: "& $xmyszy &", " & $ymyszy)
	EndFunc