Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Błąd przy pisaniu bota

NetroPL

Przez NetroPL
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

NetroPL Nowicjusz

NetroPL

Opublikowano
Nowicjusz

NetroPL

Opublikowano

Witam, Mam problem, ponieważ przy pisaniu bota (do gry pokewalki) Pojawia się taki oto błąd :

 

"C:\Users\HP\Desktop\Bot próba 1.au3" (104) : ==> "Wend" statement with no matching "While" statement.:

WEnd

Cały kod :

 

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

 
 
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\hp\desktop\bot v1.kxf
Global $Form1_1 = GUICreate("Pokebot v1.0 (by NetrO)", 610, 344, 194, 140)
Global $In_gdzie = GUICtrlCreateGroup("Gdzie isc ? (od lewej)", 16, 8, 257, 193)
Global $M_1 = GUICtrlCreateRadio("Miejsce 1", 24, 32, 113, 17)
Global $M_2 = GUICtrlCreateRadio("Miejsce 2", 24, 48, 113, 17)
Global $M_3 = GUICtrlCreateRadio("Miejsce 3", 24, 64, 113, 17)
Global $M_4 = GUICtrlCreateRadio("Miejsce 4", 24, 80, 113, 17)
Global $M_5 = GUICtrlCreateRadio("Miejsce 5", 24, 96, 113, 17)
Global $M_6 = GUICtrlCreateRadio("Miejsce 6", 24, 112, 113, 17)
Global $M_7 = GUICtrlCreateRadio("Miejsce 7", 24, 128, 113, 17)
Global $M_8 = GUICtrlCreateRadio("Miejsce 8", 24, 144, 113, 17)
Global $M_9 = GUICtrlCreateRadio("Miejsce 9", 24, 160, 113, 17)
Global $M_10 = GUICtrlCreateRadio("Miejsce 10", 24, 176, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $In_ktorym = GUICtrlCreateGroup("Którym pokemonem isc ?? (od lewej)", 16, 208, 257, 129)
Global $P_1 = GUICtrlCreateRadio("Pierwszym", 24, 232, 113, 17)
Global $P_2 = GUICtrlCreateRadio("Drugim", 24, 248, 113, 17)
Global $P_3 = GUICtrlCreateRadio("Trzecim", 24, 264, 113, 17)
Global $P_4 = GUICtrlCreateRadio("Czwartym", 24, 280, 113, 17)
Global $P_5 = GUICtrlCreateRadio("Piątym", 24, 296, 113, 17)
Global $P_6 = GUICtrlCreateRadio("Szóstym", 24, 312, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $In_dodatkowe = GUICtrlCreateGroup("Dodatkowe", 376, 8, 225, 193)
Global $D_1 = GUICtrlCreateCheckbox("Czy leczyć ?", 384, 32, 97, 17)
Global $D_2 = GUICtrlCreateCheckbox("Czy odnawiać energię ?", 384, 48, 137, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $In_lapac = GUICtrlCreateGroup("Czym łapać pokemony ??", 376, 208, 225, 129)
Global $K_1 = GUICtrlCreateRadio("Pokeballem", 384, 232, 113, 17)
Global $K_2 = GUICtrlCreateRadio("Nestballem", 384, 248, 113, 17)
Global $K_3 = GUICtrlCreateRadio("Greatballem", 384, 264, 113, 17)
Global $K_4 = GUICtrlCreateRadio("Levelballem", 384, 280, 113, 17)
Global $K_5 = GUICtrlCreateRadio("Lureballem", 384, 296, 113, 17)
Global $K_Nie = GUICtrlCreateRadio("Nie łap", 384, 312, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $In_control = GUICtrlCreateGroup("Panel Kontrolny", 280, 8, 89, 329)
Global $B_start = GUICtrlCreateButton("START !", 288, 32, 73, 41)
Global $B_stop = GUICtrlCreateButton("STOP !", 288, 80, 73, 41)
Global $B_wyjdz = GUICtrlCreateButton("WYJSCIE", 288, 128, 73, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Global $m1 = PixelSearch(314, 823,365, 854,0x90C6C0,5)
Global $m2 = PixelSearch(368, 823,419, 857,0x58635F,5)
Global $m3 = PixelSearch(422, 823,473, 856,0x0D1908,5)
Global $m4 = PixelSearch(476, 823,527, 856,0x1EC880,5)
Global $m5 = PixelSearch(530, 823,581, 856,0x675958,5)
Global $m6 = PixelSearch(584, 823,635, 856,0xD1C0A4,5)
Global $m7 = PixelSearch(638, 823,689, 856,0x164E31,5)
Global $m8 = PixelSearch(692, 823,742, 856,0x1F9F66,5)
Global $m9 = PixelSearch(746, 823,797, 856,0xF59433,5)
Global $m10 = PixelSearch(800, 823,851, 856,0x3A3F2B,5)
WEnd
 
 
 
 
 
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
 
 
Case $B_wyjdz
           Exit
 
 
 
 
Case $B_start
If GUICtrlRead($M_1) = 1 Then
  Local $m1 = $Miejsce
If GUICtrlRead($M_2) = 1 Then
  Local $m2 = $Miejsce
If GUICtrlRead($M_3) = 1 Then
  Local $m3 = $Miejsce
If GUICtrlRead($M_4) = 1 Then
  Local $m4 = $Miejsce
If GUICtrlRead($M_5) = 1 Then
  Local $m5 = $Miejsce
If GUICtrlRead($M_6) = 1 Then
  Local $m6 = $Miejsce
If GUICtrlRead($M_7) = 1 Then
  Local $m7 = $Miejsce
If GUICtrlRead($M_8) = 1 Then
  Local $m8 = $Miejsce
If GUICtrlRead($M_9) = 1 Then
  Local $m9 = $Miejsce
If GUICtrlRead($M_10) = 1 Then
  Local $m10 = $Miejsce
  EndIf
WinActivate("PokeWalki.pl - gra pokemon online - Google Chrome")
_Bot()
 
 
WEnd
 
 
 
 
 
 While 1
sleep(100)
 WEnd
 
Func Stop()
   Exit
EndFunc
 
 
 
 
 
 
 
Func _Bot()
   _Chodzenie()
   Sleep(2200)
   _Pokemon()
   sleep(2200)
   _Przekierowanie()
   EndFunc
 
Func _Chodzenie()
   MouseMove($Miejsce[0], $Miejsce[1],0)
   MouseClick('left')
   Sleep(1000)
 
EndFunc
 
Func _Pokeball()
 
$pokeball = PixelSearch(320, 352,988, 813,0xC90908,5)
If Not @error Then
   MouseMove($pokeball[0],$pokeball[1],0)
   MouseClick('left')
   Sleep(2500)
   _Bot()
 
ElseIf @error Then
   MouseWheel("down",2)
   Sleep(500)
   _Pokeball()
 
EndIf
EndFunc
 
Func _Pokemon()
     MouseMove(380, 695,0)
   MouseClick('left')
   EndFunc
 
Func _Przekierowanie()
   _leczenie()
   PixelSearch(322, 254,975, 315, 0xFF4444,5)
   If Not @error Then
 _Odnawianie()
 Sleep(800)
 
 _Bot()
 
   ElseIf @error Then
 _Pokeball()
   EndIf
 
PixelSearch(322, 254,975, 315,0x33CCFF,5)
If Not @error Then
 Sleep(500)
   _Chodzenie()
EndIf
EndFunc
 
Func _leczenie()
      MouseMove(982, 845,0)
   MouseClick('left')
   EndFunc
 
Func _Odnawianie()
   PixelSearch(1191, 385,205, 397,0x000000,5)
   If @error Then
 MouseMove(1140, 840)
 MouseClick('left')
 sleep(500)
 EndIf
 EndFunc
 

 Proszę o szybką pomoc !!

giphy.gif

NetroPL Nowicjusz

NetroPL

Opublikowano
Nowicjusz

NetroPL

  • Autor
Opublikowano

Dobra znalazłem odpowiedź po prostu tutaj:

 

Case $B_start

If GUICtrlRead($M_1) = 1 Then
  Local $m1 = $Miejsce
If GUICtrlRead($M_2) = 1 Then
  Local $m2 = $Miejsce
If GUICtrlRead($M_3) = 1 Then
  Local $m3 = $Miejsce
If GUICtrlRead($M_4) = 1 Then
  Local $m4 = $Miejsce
If GUICtrlRead($M_5) = 1 Then
  Local $m5 = $Miejsce
If GUICtrlRead($M_6) = 1 Then
  Local $m6 = $Miejsce
If GUICtrlRead($M_7) = 1 Then
  Local $m7 = $Miejsce
If GUICtrlRead($M_8) = 1 Then
  Local $m8 = $Miejsce
If GUICtrlRead($M_9) = 1 Then
  Local $m9 = $Miejsce
If GUICtrlRead($M_10) = 1 Then
  Local $m10 = $Miejsce
  EndIf
WinActivate("PokeWalki.pl - gra pokemon online - Google Chrome")
_Bot()
 

Nie może być "EndIf" Temat do zamknięcia :)

giphy.gif

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...