Universalbot- Pełen Kod

[AndrzejGrubba]

Witam. Stwierdziłem iż nie warto grac w tą grę więc udostępniam wam kod ExpBot'a którego jestem współtwórcą. Dodatkową motywacją do udostępnienia wam kodu było to że emilo16 (drugi współtwórca) chce zrobić tego bota płatnego.

 

kod:

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("UniversalBot by Emilo16 i AndrzejGrubba", 404, 373, 280, 166)
$Label1 = GUICtrlCreateLabel("UniversalBot", 8, 8, 390, 57)
GUICtrlSetFont(-1, 35, 400, 0, "Narnia BLL")
$Group1 = GUICtrlCreateGroup("Hotkey", 40, 280, 129, 73)
$Label2 = GUICtrlCreateLabel("ESC- Zamykanie bota", 48, 304, 107, 17)
$Label3 = GUICtrlCreateLabel("HOME- Start bota", 48, 320, 88, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Potowanie", 32, 80, 345, 89)
$Input4 = GUICtrlCreateInput("Czas", 199, 105, 145, 21)
$Label7 = GUICtrlCreateLabel("Czerwone potki", 40, 112, 77, 17)
$Label8 = GUICtrlCreateLabel("Niebieski potki", 40, 132, 77, 17)
$Czas = GUICtrlCreateInput("Czas", 199, 133, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Skille", 35, 180, 193, 97)
$Label4 = GUICtrlCreateLabel("1", 48, 200, 10, 17)
$Label5 = GUICtrlCreateLabel("2", 48, 232, 10, 17)
$Label6 = GUICtrlCreateLabel("3", 48, 256, 10, 17)
$Input1 = GUICtrlCreateInput("Czas", 64, 192, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input2 = GUICtrlCreateInput("Czas", 65, 223, 145, 21)
$Input3 = GUICtrlCreateInput("Czas", 65, 252, 145, 21)
$Button1 = GUICtrlCreateButton("start lub przycisk HOME", 232, 184, 145, 89)
$Button2 = GUICtrlCreateButton("Stop lub przycisk ESC", 184, 288, 201, 65)
$Label9 = GUICtrlCreateLabel("By Emilo16 i AndrzejGrubba dla MPC Forum", 184, 352, 209, 17)
GUISetState(@SW_SHOW)	
#EndRegion ### END Koda GUI section ###



HotKeySet("{HOME}","start")
HotKeySet("{ESC}","stop")



MsgBox(1, "Info","Czerwone Poty:F1,Niebieskie Poty:F2,Skille odpowiednie:1,2,3")
MsgBox(0,"UniwersalBot","Zaloguj się na postać i kliknij Ok,bym sam się skonfigurował i Czekaj na Komunikat,nic nie robiąc")


While 1
$zmienna = PixelSearch(7,68,315, 532,0xDCB386,5)
if not @error Then
Send("{LCTRL}")
Send("{Q}")

Else

EndIf
WEnd

ToolTip("Konfiguracja pomyslna")




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
Potowanie()
skill()
start()


EndSwitch
WEnd






while 1
sleep(100)
WEnd
func stop()
Exit
EndFunc

Func Potowanie ()

$pot = GUICtrlRead($Czas)

Send("{F1}")
Sleep($pot)

$pot2 = GUICtrlRead($Input1)

Send("{F2}")
Sleep($pot2)

EndFunc

Func skill ()
$skill = GUICtrlRead($Input2)
Send("{1}")
Sleep($skill)
$skill2 = GUICtrlRead($Input3)
Send("{2}")
Sleep($skill2)
$skill3 = GUICtrlRead($Input4)
Send("{3}")
Sleep($skill3)

EndFunc
func start()
while 1
$zmienna = PixelSearch(43, 71,599, 576,0xEB1609,5)
if not @error Then
mousemove($zmienna[0],$zmienna[1],0)
MouseClick("left", $zmienna [0] +15, $zmienna[1],3)
Sleep(300)
$pot = GUICtrlRead($Czas)

Send("{F1}")
Sleep($pot)
skill()

EndIf




WEnd
EndFunc

 

[C.J]

Hah bota w autoit płatnego już to widze

[1ooPrOYT2]

I dobrze zrobiłeś

Ale.. zeby ktoś za niego płacił to musiałby :

a)Kupować poty

b)Sellać lota jak w em2

c)Mieć speedhacka

d)Wallhacka

e)Automatyczne aktualizacje..

itd itp

[Pitererx]

Wątpie że ktoś kupi ;/

[AndrzejGrubba]

I dobrze zrobiłeś

Ale.. zeby ktoś za niego płacił to musiałby :

a)Kupować poty

b)Sellać lota jak w em2

c)Mieć speedhacka

d)Wallhacka

e)Automatyczne aktualizacje..

itd itp

 

Sellac lot i kupować poty oraz auto-aktualizaje da się zrobić tylko komu się to chce , bot nadal byłby do niczego bo działałby na zminimalizowanym.

[DoktorHause]

Czyli lekko się pokłóciłeś z emilio???

Jak dajesz kod do expbota

[AndrzejGrubba]

UP@

Nie, on napisał posta w temacie o swoim exp bocie że będzie on płatny (ja o niczym nie wiedziałem) teraz dobijam się do niego na GG a on milczy.

[Piteruum]

Mozna wiedziec jakie opcje sa zawarte w tym kodzie?

Chodzi mi o to co robi w grze.

+ Za udostepnienie.

[adwi32]

om, 100 linijek kodu - nie wstydzisz się czegoś takiego zamieszczac publicznie ?

 

PS.

Podczas pracy klinij czasem "CTRL+T" w SciTe. Znacznie polepsza czytelność

[AndrzejGrubba]

UP@

Może być krócej :P

 

while 1
$zmienna = PixelSearch(43, 71,599, 576,0xEB1609,5)
if not @error Then
mousemove($zmienna[0],$zmienna[1],0)
MouseClick("left", $zmienna [0] +15, $zmienna[1],3)
Sleep(300)
WEnd

[Fli_PL]

No nieźle, takie coś płatne ;P

Subiektywnie przeczuwałem, ze osoby pokroju emilo16 czy ps19 to napki ale, żeby aż tak...

 

Rozumiem, gdyby choć działał na zminimalizowanym albo nie jeździł myszką, reszta funkcji wymieniona powyżej, a tak toe byście zrobili "konkurencję" em2

[Newcity]

wszystko się da przerobić ale jak już robić to np. opłaty dobrowolne na cel projektu to można kto chce ten te 1.22 symboliczne wpłaci i tyle

[RaVneS]

Andrzej będziesz coś dalej kombinował z Botem??

[AndrzejGrubba]

UP@

Dzisiaj spróbuję dodać nową wersję z FB

[kilcif]

I żeby mógłby pójść na sprzedaż musi chociarz trafiać w potworki myszką Pozdro

[RaVneS]

#2UP

Coś andrzej nie dodajesz tego nowego Bota ???

Problemy techniczne

[AndrzejGrubba]

I żeby mógłby pójść na sprzedaż musi chociarz trafiać w potworki myszką Pozdro

A co ma gówno do banana? Żebyś mógł się udzielić w tym temacie musisz zrobić własnego bota (moje zdanie nie różni się od twojego tylko układem graficznym)

 

UP

Mam inny projekt

[Niebieska Erka]

AutoIt płatny ? Jakbym miał to kupić to wolałbym dać 2x tle i kupić pewnego exp bota Easy Metin2, który jest również najlepszym hakiem "pod słońcem".

 

Jak zrobisz tego exp bota w .dll czy jak to się tam zwie ( nie znam się na programowaniu ) to oke, ludzie kupią

[MrOMGWTF]

pfff

[Kalasznikov123]

Hmm, mogę wyjść na głupiego, ale jak to odpalić ?

[MrOMGWTF]

@up

fail

google.pl ---> autoit