Skocz do zawartości

[Pytanie] Dlaczegóż To Nie Trybi ?


Rekomendowane odpowiedzi

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Simple Exp Bot by Pow3r 0.2", 623, 442, 192, 127)
$Button1 = GUICtrlCreateButton("Auto Pelerynki", 88, 104, 153, 49)
$Button2 = GUICtrlCreateButton("Auto Attack", 88, 200, 153, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit  ;jesli klikne w X [zamknij] to aplikacja  zakonczy dzialanie.  -3  = X
	WEnd

While 2
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button1
		pelerynki()
	Case $Button2
		aa()
EndSwitch
WEnd

Func pelerynki()
       While 1
		Send("{F3 3}")
			Sleep(3500)
       WEnd
EndFunc

Func aa()
	  While 1
               Send("{SPACE}")
			Sleep(60)
       WEnd
EndFunc

 

I fajnie by było aby ktoś mi dodał pod Funkcje "pelerynki" 2 inputy (GuiCtrlread).

Pierwszy w którym wpisałbym co ile czasu ma klikać i Drugi co ma klikać. np co 10ms klikać F3

"W dzisiejszych czasach mamy nowych graczy metin'a.

Nie wiedza co to Oldschool, oni nie widzieli metina jaki był na początku.

Przyszli grać w niego w czasach DMG Hacka, EasyMetin, epików z epvp itd.

Nie doceniają serwerów Hard. " - Pewien user.

 

Pow3r / robo12 | Konto nieaktywne.

Odnośnik do komentarza
Udostępnij na innych stronach

Czlowieku o KOD mi chodzi a nie jakiegos " PL "

"W dzisiejszych czasach mamy nowych graczy metin'a.

Nie wiedza co to Oldschool, oni nie widzieli metina jaki był na początku.

Przyszli grać w niego w czasach DMG Hacka, EasyMetin, epików z epvp itd.

Nie doceniają serwerów Hard. " - Pewien user.

 

Pow3r / robo12 | Konto nieaktywne.

Odnośnik do komentarza
Udostępnij na innych stronach

Nie mozesz wprost odpisac co zle ? ; f

 

Pozniej tak czy siak bym looknal na przyszlosc,po prostu potrzebuje na teraz ;x

"W dzisiejszych czasach mamy nowych graczy metin'a.

Nie wiedza co to Oldschool, oni nie widzieli metina jaki był na początku.

Przyszli grać w niego w czasach DMG Hacka, EasyMetin, epików z epvp itd.

Nie doceniają serwerów Hard. " - Pewien user.

 

Pow3r / robo12 | Konto nieaktywne.

Odnośnik do komentarza
Udostępnij na innych stronach

Tak na logikę:

Jeśli wskoczy w pierwszą pętlę to już z niej nie wyskoczy, więc albo to dasz w jednej pętli albo jakieś exit loop - ale lepiej to dać w jednej pętli.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Simple Exp Bot by Pow3r 0.2", 623, 442, 192, 127)
$Button1 = GUICtrlCreateButton("Auto Pelerynki", 88, 104, 153, 49)
$Button2 = GUICtrlCreateButton("Auto Attack", 88, 200, 153, 49)
$Input1 = GUICtrlCreateInput("10", 0, 0, 100, 20)
$Input2 = GUICtrlCreateInput("F3", 0, 20, 100, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func pelerynki()
$co = GUICtrlRead($Input2)
$czas = GUICtrlRead($Input1)
                       Send("{"&$co&"}")
                               Sleep($czas)
       EndFunc

Func aa()
               Send("{SPACE down}")
                               Sleep(500)
			Send("{SPACE up}")
       EndFunc
While 1
       $nMsg = GUIGetMsg()
		Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       pelerynki()
               Case $Button2
                       aa()
		EndSwitch
WEnd

Myślę, że będziesz umiał dokończyć :)

roomy.png

Wczoraj do ciebie nie należy. Jutro niepewne... Tylko dziś jest twoje.

Odnośnik do komentarza
Udostępnij na innych stronach

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
HotKeySet("{END}", "quit")
$Form1 = GUICreate("Simple Exp Bot by Pow3r 0.2", 300, 200, 192, 127)
$Button1 = GUICtrlCreateButton("Auto Pelerynki", 16, 16, 153, 49)
$Button2 = GUICtrlCreateButton("Auto Attack", 16, 86, 153, 49)
$czasp = GUICtrlCreateInput("Czas", 180, 30, 100, 20, 0x2000)
$czasa = GUICtrlCreateInput("Czas", 180, 100, 100, 20, 0x2000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button1
		pelerynki()
	Case $Button2
		aa()                                  
EndSwitch
WEnd

Func pelerynki()
$timep = GUICtrlRead($czasp)
If GUICtrlRead($Czasp) = "Czas" Then
	MsgBox(16, "Błąd", "Błąd!")
Else
While 1
	Send("{F3}")
       Sleep($timep)
WEnd
EndIf
EndFunc 

Func aa()
$timea  = GUICtrlRead($Czasa)
If GUICtrlRead($Czasa) = "Czas" Then
	MsgBox(16, "Błąd", "Błąd!")
Else
While 1
	Send("{SPACE}")
	Sleep($timea)
WEnd
EndIf
EndFunc

Func quit()
Exit
EndFunc

 

Masz bo widze ze cieniutko

1352970251-U713459.png

By Maxiu
"Because limits, like fears, are often just an illusion"

Odnośnik do komentarza
Udostępnij na innych stronach

Dopiero zaczynam ;x

"W dzisiejszych czasach mamy nowych graczy metin'a.

Nie wiedza co to Oldschool, oni nie widzieli metina jaki był na początku.

Przyszli grać w niego w czasach DMG Hacka, EasyMetin, epików z epvp itd.

Nie doceniają serwerów Hard. " - Pewien user.

 

Pow3r / robo12 | Konto nieaktywne.

Odnośnik do komentarza
Udostępnij na innych stronach

a jeszcze 1, posklejałem sobie kody wedle uznania ,działa wszystko tylko że ...

 

Włączam np pierwsza funkcje ,ok dziala

Druga nie działa

 

Włączam Drugą dziala

Pierwsza nie działa

 

Czemu równoczesnie nie działają ;x

 

musze pisać osobny skrypt do każdej funkcji ? .__.

"W dzisiejszych czasach mamy nowych graczy metin'a.

Nie wiedza co to Oldschool, oni nie widzieli metina jaki był na początku.

Przyszli grać w niego w czasach DMG Hacka, EasyMetin, epików z epvp itd.

Nie doceniają serwerów Hard. " - Pewien user.

 

Pow3r / robo12 | Konto nieaktywne.

Odnośnik do komentarza
Udostępnij na innych stronach

AutoIT to język ktory moze wykonywac 1 operacje, ale jest coś takiego jak TO :)

 

 

hfała hfauie! xD

 

czwartkowy posmak w ustach przypomina
że nie ma sensu owijać w bawełnę
zmarzniętego truchła

przez latarnię ktoś przerzucił sznur
cumuje statek w bezpieczną przystań

czuję jak na skroniach zasycha sól
...

Odnośnik do komentarza
Udostępnij na innych stronach

I w tym momencie mój plan wzioł w łeb .

 

[*]

"W dzisiejszych czasach mamy nowych graczy metin'a.

Nie wiedza co to Oldschool, oni nie widzieli metina jaki był na początku.

Przyszli grać w niego w czasach DMG Hacka, EasyMetin, epików z epvp itd.

Nie doceniają serwerów Hard. " - Pewien user.

 

Pow3r / robo12 | Konto nieaktywne.

Odnośnik do komentarza
Udostępnij na innych stronach

 Udostępnij

  • Ostatnio przeglądający forum [Pytanie] Dlaczegóż To Nie Trybi ?   0 użytkowników
    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...