[Kod] Problemy z kodem

[Gość]

Witam.

Mam kod do bota, który wykonuje dane czynności w nieskończoność.

1. Czy dobrze mam zrobioną pętle?

2. Chcę aby F6 zatrzymywało mi pętlę a F7 przywracało do momentu w którym się zatrzymała. TZN:

Pisze A, B, C, D (robie pauze F6) Klikam F7 i pisze mi dalej E, F, G.

 

3. Ważne więc prosiłbym o szybką realizację

 

 

 

HotKeySet("{F5}","start");
HotKeySet("{F6}","pauza");
HotKeySet("{END}","stop");

While 1
   Sleep(10)
WEnd

Func start()
   $a = 1

   Do

Sleep(1000)
MouseMove(408, 221) ; wybranie potyczki
MouseClick("left")
Sleep(4000)
MouseMove(738, 548) ;wybieranie  boha
Mouseclick("left")
Sleep(2000)
MouseMove(242,70) ; wybor mapy
Sleep(100)
Mouseclick("left")
Sleep(1000)

MouseMove(146,239) ; niebieski
Sleep(200)
MouseClick("right")
Sleep(100)
MouseMove(542,278)	;okienko klasy nieb.
Mouseclick("left")
Sleep(100)
MouseMove(618,125)	; pogr. smok.
Mouseclick("left")
Sleep(100)
MouseMove(638,228)
Sleep(100)
Send("{F2}")
Sleep(11000)
MouseMove(576,460)
MouseClick("left")
Sleep(200)	; niebieski zakonczony


MouseMove(146,271) ;zielony		#tylko to sie zmienia
Sleep(200)
MouseClick("right")
Sleep(100)
MouseMove(542,278)	;okienko klasy ziel.
Mouseclick("left")
Sleep(100)
MouseMove(618,125)	; pogr. smok.
Mouseclick("left")
Sleep(100)
MouseMove(638,228)
Sleep(100)
Send("{F2}")
Sleep(11000)
MouseMove(576,460)	;OK
MouseClick("left")
Sleep(200)	; ziel. zakonczony


MouseMove(146,302)
Sleep(200)
MouseClick("right")
Sleep(100)
MouseMove(542,278)
Mouseclick("left")
Sleep(100)
MouseMove(618,125)
Mouseclick("left")
Sleep(100)
MouseMove(638,228)
Sleep(100)
Send("{F2}")
Sleep(11000)
MouseMove(576,460)
MouseClick("left")
Sleep(200)


MouseMove(146,333)
Sleep(200)
MouseClick("right")
Sleep(100)
MouseMove(542,278)
Mouseclick("left")
Sleep(100)
MouseMove(618,125)
Mouseclick("left")
Sleep(100)
MouseMove(638,228)
Sleep(100)
Send("{F2}")
Sleep(11000)
MouseMove(576,460)
MouseClick("left")
Sleep(200)


MouseMove(146,364)
Sleep(200)
MouseClick("right")
Sleep(100)
MouseMove(542,278)
Mouseclick("left")
Sleep(100)
MouseMove(618,125)
Mouseclick("left")
Sleep(100)
MouseMove(638,228)
Sleep(100)
Send("{F2}")
Sleep(11000)
MouseMove(576,460)
MouseClick("left")
Sleep(200)

;Start Mapy;

MouseMove(735, 551)
MouseClick("left")
Sleep(9000)
MouseClick("left")
Sleep(4000)
MouseMove(519,358)
MouseClick("left")
Sleep(100)
Send("{NUMPADADD}")
Sleep(100)
Send("{NUMPADADD}")
Sleep(125000)
MouseClick("left")
Sleep(3000)
MouseMove(740,553) ;twoja postac awansowala lub nie
MouseClick("left")
sleep(1000)
MouseMove(408,455)
MouseClick("left")
Sleep(500) ;ok staty
MouseClick("left")
Sleep(500) ;Ok staty
MouseMove(733,549)
MouseClick("left")
Sleep(2000)


EndFunc

Func pauza()  ;pauza
	$b = 1

	Do
	Sleep(500000)

EndFunc

Func stop() ;wyłączenie bota
	Exit
EndFunc

 

 

 

[hehe7]

Skoro dajesz Do to na końcu musisz dać Until. Nie będzie to działać tak jak chcesz - z tym powrotem.