[Source] AutoIt fishbot metin2

[kris006]

Witam

 

Daje wam source mojego FishBota v 0.1

myślę że komuś się przyda

 

Screen

 

Source

 

 

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

;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, "") 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("img\logo.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("img\mkaras.bmp", 1, $x, $y, 10)

If $result = 1 Then

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

MouseClick("",349,331,1)

$result = _ImageSearch("img\ok.bmp", 1, $x, $y, 10)

If $result = 1 Then

MouseClick("", $x, $y)

$result = _ImageSearch("img\ok2.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("img\karas.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("img\robak.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

http://www.speedyshare.com/JzTuY/Source-fishbot-by-kris006-0.1.rar

Source Skan

https://www.virustotal.com/file/8ddc0c7962b70399e36dc6377e7c107f2f9ce754aae3f8afc990ce32524faa35/analysis/1340910366/

[wojtek333314]

#include

#include

#include

#include

#include

#include

 

WTF ?

Wklej jeszcze raz

[kris006]

#include

#include

#include

#include

#include

#include

 

WTF ?

Wklej jeszcze raz

Poprawione

[Nygol]

no ciekawe ciekawe ... Prawde mówiąc nie widziałem twojego Fisha w akcji ale działa chyba poprawnie na pixelach Takie Fishe to często na priv sie przydaje ;p

A co do Source bardzo przemyślane i widać ze wiesz co robisz

[ByczekXde]

4d 61 6d 20 6e 61 64 7a 69 65 6a 65 20 7a 65 20 64 7a 69 61 6c 61 20 64 6f 62 72 7a 65 20 3a 44

[TraV]

Wow ;[ mi pokazuje że " najpierw uruchom gre " a mam włączoną ;// Już 3x fush bot tak samo ... Co robić ?

[Sopelek997]

@up.

okno musi mieć nazwę 'METIN2'

lub zmień gdzieś na początku ten string na coś innego

albo całkiem wywal to

 

if not WinExists($okno, "") then
Msg()
Exit
endif

[Phoenix_PL]

Ładnie :P

 

I zamiast $aktywność = 1 i $aktywność = 0, mogłeś dać tej zmiennej wartości true/false i zrobić jedną funkcję zawierającą

$aktywnosc = Not $aktywnosc

 

Ale to szczegół

[TraV]

Ale z kąd to wywalić ?? Bo nwm jak t ozrobić ani troszke. Nazwałem plik METIN2 Ale jak uruchomie okno to i tak pisze nazwa serwera .

 

ok znalazłem i skasowałem to co napisałeś ale nei pomogło ;[