AutoIT łowienie

[odyn29]

Witajcie.

Czy ma ktoś stworzony skrypt na łowienie dla nowego klienta Tibia 11?

 

Pozdrawiam i z góry dzięki za pomoc

[odyn29]

; Includes section
#include <File.au3>
#include <Date.au3>

; Stop macro on Escape
HotKeySet("{ESC}","Quit")

; Get Tibia window as Active Window (bring to front)
Local $getTibiaWindow = WinActivate("[REGEXPTITLE:(?i)(.*Tibia.*)]")

; Wait 1 second until Tibia window will bring up
WinWait($getTibiaWindow, "", 1)

; Infinity loop until ESCAPE button pressed
While True

   Local $maxLoops = 10; 10 iterations of fishing
   Local $currentLoop = 0; 0 for current iteration

   While $currentLoop <= $maxLoops
	    PerformFishing() ; Perform fishing in loop
		Sleep(200)
		$currentLoop += 1
		_FileWriteLog(@ScriptDir & "\Example.log", "Iteration: "+$currentLoop)
   WEnd

   Sleep(200)
   RuneMaker() ; Cast some spell to burn mana
   Sleep(200)
   EatFood() ; Eat some food
   Sleep(200)
   MoveCharacter() ; Move Character as AntyIdle
   Sleep(200)
WEnd

; Move character as antyidle
; To prevent auto log off
Func MoveCharacter()
     Send("{left}") ;MOVE LEFT ARROW
	 Send("{right}") ; MOVE RIGHT ARROW
	 Sleep(6000)
EndFunc

; Eat some food to regen mana
; F4 - button where food is assigned as hotkey
Func EatFood()
	Send("{F4}")
	Send("{F4}")
	Send("{F4}")
EndFunc

; START FISHING PROCESS MAIN FUNCTION
Func PerformFishing()
	;RANDOMIZE OFFSET OF PIXELS (FROM 0 TO 90)
	Local $randomizer = Random(0, 90, 1)

	Send("{F3}") ; PRESS F3
	; WHERE FISHING ROD ASSIGNED AS HOTKEY
	; USE ON CROSSHAIR
	Sleep(500)
	; USE MOUSE TO CLICK LEFT BUTTON ONCE (1 - ONE CLICK)
	; 800+$randomizer, 500+$randomizer IS x AND y AXIS
	MouseClick("left", 800+$randomizer, 500+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 810+$randomizer, 450+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 820+$randomizer, 400+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 830+$randomizer, 350+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 840+$randomizer, 300+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 850+$randomizer, 250+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 860+$randomizer, 200+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 870+$randomizer, 150+$randomizer, 1)
	Sleep(500)
	Send("{F3}")
	Sleep(500)
	MouseClick("left", 880+$randomizer, 100+$randomizer, 1)
EndFunc

; BURN SOME MANA TO MAKE M LVL
; F2 - button where spell assigned
Func ManaBurner()
	Send("{F2}")
	 Sleep(2000)
EndFunc

Func RuneMaker()
	Send("{F5}")
	Sleep(4000)
EndFunc

; Stop macro when ESC button pressed
Func Quit()
    Exit
EndFunc

Udało mi się napisać coś takiego, niestety chwilowo kordynaty są zahardkodowane (trzeba łowić na prawo :P)