[Source] AutoIt fishbot działa na PL

W
i
t
a
m

D
a
j
e

w
a
m

s
o
u
r
c
e

m
o
j
e
g
o

F
i
s
h
B
o
t
a

v

0
.
1

myślę że komuś się przyda

Screen



Source



;####################################

;Author's####Kris006 & MrDeska#######

;####################################

#include

#include

#include

#include

#include

#include

HotKeySet("{End}","wyjdz")

HotKeySet("{Home}","start")

HotKeySet("{Pause}","pauza")

$okno = "METIN2"

if not WinExists($okno, "") then

Msg()

Exit

endif

Global Const $SC_DRAGMOVE = 0xF012

Global $aktywnosc

Global $papka = 0

Global $x, $y

$GUI = GUICreate("LightFish", 180, 170, 192, 124)

GUISetBkColor(0xFFFFFF)

$logo_pic = GUICtrlCreatePic("imglogo.bmp", 15, 5, 152, 56)

$Napis_1 = GUICtrlCreateLabel("Opóźnienie wędki", 19, 65, 90, 20)

$opoznieniewedki = GUICtrlCreateInput("2700", 107, 63, 33, 20)

$slot1 = GUICtrlCreateCheckbox("Zabijaj karasie", 19, 84, 135, 17)

$slot2 = GUICtrlCreateCheckbox("Wyrzucaj martwe karasie", 19, 100, 135, 17)

$Label3 = GUICtrlCreateLabel("Home - Start Pause - pauza", 14, 125, 999, 17)

$libon_1 = GUICtrlCreateLabel("FishBot v0.1 by kris006", 14, 148, 218, 28)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x008000)

GUICtrlCreateTabItem("")

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Func smieci()

If $aktywnosc = 1 Then

If GUICtrlRead($slot2) = $GUI_CHECKED Then

$result = _ImageSearch("imgmkaras.bmp", 1, $x, $y, 10)

If $result = 1 Then

MouseClick("Left", $x, $y)

MouseClick("",349,331,1)

$result = _ImageSearch("imgok.bmp", 1, $x, $y, 10)

If $result = 1 Then

MouseClick("", $x, $y)

$result = _ImageSearch("imgok2.bmp", 1, $x, $y, 10)

If $result = 1 Then

MouseClick("right", $x, $y)

EndIf

EndIf

endif

endif

EndIf

EndFunc

Func Msg()

$metin=MsgBox(320,"LightFish 0.1","Przed otworzeniem programu uruchom grę!")

EndFunc

Func karas()

If $aktywnosc = 1 Then

If GUICtrlRead($slot1) = $GUI_CHECKED Then

ToolTip("zabijam karasie"&@LF&"", Default, Default,"LightFish 0.1",1,1+2+4)

$result = _ImageSearch("imgkaras.bmp", 1, $x, $y, 10)

If $result = 1 Then

MouseClick("right", $x, $y)

EndIf

EndIf

EndIf

EndFunc

Func przyneta()

If $aktywnosc = 1 Then

$result = _ImageSearch("imgrobak.bmp", 1, $x, $y, 10)

If $result = 1 Then

MouseClick("right", $x, $y)

low()

EndIf

EndIf

EndFunc

func low()

If $aktywnosc = 1 Then

sleep(500)

$szukam_2 = _ImageSearch("img/low.bmp",1,$x,$y,5)

If Not @error Then

sleep(100)

MouseClick("Right",$x,$y)

chmurka()

endif

endif

EndFunc

func chmurka()

while 1

ToolTip("Czekam na rybe..."&@LF&"", Default, Default,"LightFish 0.1",1,1+2+4)

$zmienna = PixelSearch( 500, 150, 501, 151, 0xFFFFFF , 30 ,2)

if not @error Then

ToolTip("Mam cos na chaczyku"&@LF&"", Default, Default,"LightFish 0.1",1,1+2+4)

Sleep(GUICtrlRead($opoznieniewedki))

$szukam_2 = _ImageSearch("img/low.bmp",1,$x,$y,5)

If Not @error Then

MouseClick("Right",$x,$y)

mousemove($zmienna[0],$zmienna[1],0)

sleep(2800)

smieci()

karas()

przyneta()

EndIf

endif

WEnd

EndFunc

Func start()

$aktywnosc = 1

przyneta()

EndFunc

Func wyjdz()

Exit

EndFunc

Func pauza()

$aktywnosc = 0

EndFunc


Source Download
Source Skan


Prosze o lajki!

[Source] AutoIt fishbot działa na PL

Na pewno komuś kto się tym zajmuje, przyda się.

Za to dostajesz LIKE.

[Source] AutoIt fishbot działa na PL

Przyda się. Like. Ale na PL i tak każdy FB działa Dziennie około 30 małży