Fishbot ^^

[MrOMGWTF]

Witam :mellow:

 

Nie miałem co robić to postanowiłem napisać FISHBOTa.

Gdy nacisnę "Start!" to pokazuje mi się okienko "METIN2" ale w ogóle nic się nie wysyła (F3,F4 itp.)

Tu macie kod:

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("FishBot v0.1 by MrOMGWTF  Created only for MPC Users!", 470, 179, 192, 124)
$Input1 = GUICtrlCreateInput("", 224, 96, 121, 21)
$Label1 = GUICtrlCreateLabel("Po jakim czasie wyciągać wędkę?: (w ms)", 16, 96, 202, 17)
$Label2 = GUICtrlCreateLabel("MrOMGWTF", 88, 24, 327, 54)
GUICtrlSetFont(-1, 28, 400, 0, "Matura MT Script Capitals")
GUICtrlSetColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Start!", 224, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

	Case $Button1

		$delay = GUICtrlRead($Input1)
		WinActivate("METIN2")
		SLEEP(2000)
		while 1
		Send("{F3}")
		Sleep(400)
		Send("{F4}")
		sleep(1000)

		while 2

		PixelSearch(0,0,800,600,0x95D9E2)
		If not @error Then
			SLEEP($delay)
			Send("{F4}")
                               ExitLoop
		EndIf
	WEnd
WEnd


EndSwitch
WEnd

Dziwne...

 

edit:

Wiem przez co możę to być:

Może przez tą pętle w pętli?

Pewnie tak jak tak to jak (xDDD)

[Strasburger_]

Tak, chodzi o pętle, które nigdy się nie kończą. Z dalszą częścią skryptu Ci nie pomogę, gdyż nie znam się na tym gUwnie, uważanym za grę: Metin 2.

[MrOMGWTF]

Mi poprostu chodzi aby skrypt:

aktywuje okno METIN2

czeka chwile

naciska F3

czeka chwile

naciska F4

szuka danego piksela za pomocą pixelsearch

szuka...

gdy znajdzie to czeka dany czas który został wpisany w input1

naciska F4

i od początku

 

może teraz coś zrozumiesz?

[Strasburger_]

$delay = GUICtrlRead($Input1)
While 1
If WinActivate ("METIN2") Then
	Sleep(chwilka)
	Send ("{F3}")
	Sleep(chwilka)
	Send ("{F4}")
	Do
		Sleep (100)
		PixelSearch(0,0,800,600,0x95D9E2)
	Until Not @error
	Sleep($delay)
	Send ("{F4}")
EndIf
WEnd

 

Możesz też mnożyć $delay *1000, tak, aby w inpucie wpisywało się wartość w sekundach.

[Ertam]

Dziwny ten twój skrypt mi raz tylko rzucił wędką.

[SouI]

Ertam - tylko zrobić niekończącą się pętle?

[kilcif]

Oto przykładowa pętla ,która robi wszystko w nieskończoność

#include <GUIConstantsEx.au3>

HotKeySet("{F6}", "Praca")
HotKeySet("{F7}", "Pauza")
GUICreate("Petla", 200, 200)
GUICtrlCreateLabel("F6 Start" & @CR &"F7 Stop" & @cr & "Petla", 10, 10, 180, 50)

GUISetState(@SW_SHOW)

Pauza()

func Pauza()
       While 1
               $Msg = GUIGetMsg()
               Switch $Msg
                       Case $GUI_EVENT_CLOSE
                               Exit
               EndSwitch
       WEnd
endfunc

func Praca()
       while 1





       wend
endfunc