[AutoIT] Source FishBot metin2

15.12.2012 17:06

[AutoIT] Source FishBot metin2

Yo, udostępniam wam source mojego bardzo starego bota do gry metin2 Smile

Screen:

Source:

Kod:
;####################################;Author's####Kris006 & MrDeska#######;#####################################include <ButtonConstants.au3>#include <GUIConstantsEx.au3>#include <WindowsConstants.au3>#include <SendMessage.au3>#include <TabConstants.au3>#include <ImageSearch.au3>HotKeySet("{End}","wyjdz")HotKeySet("{Home}","start")HotKeySet("{Pause}","pauza")$okno = "METIN2"if not WinExists($okno, "") thenMsg()ExitendifGlobal Const $SC_DRAGMOVE = 0xF012Global $aktywnoscGlobal $papka = 0Global $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    EndSwitchWEndFunc 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          endifEndIf    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     EndIfEndIf    EndFuncFunc przyneta()    If $aktywnosc = 1 Then$result = _ImageSearch("imgrobak.bmp", 1, $x, $y, 10)If $result = 1 Then        MouseClick("right", $x, $y)        low()             EndIf     EndIf    EndFuncfunc 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()endifendifEndFunc    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()EndIfendifWEndEndFuncFunc start()    $aktywnosc = 1    przyneta()    EndFunc Func wyjdz()ExitEndFuncFunc pauza()   $aktywnosc = 0   EndFunc

Source Download

Kod:
[url=https://good-games.pl/member.php?action=register][img]https://good-games.pl/attachment.php?aid=719[/img][/url]

www.Heveris.pl

Podobne wątki
[AutoIT] Source Nostale ExpBot Started by Kris006 0 Replies - 350 Views 16.12.2012 03:33 Ostatni post: Kris006
[AutoIT] Source Expbot Metin2 LightFish Started by Kris006 0 Replies - 294 Views 16.12.2012 03:29 Ostatni post: Kris006