Dla Znajomych ... :p

[kokosz]

Opis:

Bot do usuwania, zakladania postaci

Sprawdza czy cheatach elixir dropnal i jakas tam rozowa butelka. Special request dla znajomych z SUNa

kupuje tego boxa z ostatniego eventa... itd itp, nie kumam ;D

 

Przed startem zaloguj sie na 3 postac.

 

rozdzialka 1024x768 - w oknie.

Odpalac z autoita przez F5

 

;;
; Alpine 
;
WinActivate("SUN Online")
AutoItSetOption ( "MouseCoordMode" , 2 )
AutoItSetOption ( "MouseClickDownDelay" , 1000 )
AutoItSetOption ( "PixelCoordMode" , 2 )
HotKeySet("{F10}", "Terminate")
HotKeySet("{F1}", "Start")
Sleep(1000)

Func Terminate()
   Exit 0
EndFunc

Func iCreate()
Mousemove(240,720)
MouseClick("left");create
Sleep(3000)
MouseMove(240,720);postac wybor
MouseClick("left")
Sleep(3000)
Send("klapoluch")
Send(Round(Random(5,64),0))
;	MouseMove(796,713);accept
Sleep(500)	
MouseMove(790,720);accept
MouseClick("left")

EndFunc

Func iDelete()
MouseMove(453,430)
MouseClick("left") ; wybor postaci
Sleep(500)
MouseMove (405,722)
MouseClick("left") ; delete
Sleep(500)
MouseMove(452,460)
MouseClick("left")
Sleep(500)
Send("Delete")
MouseMove(500,440)
MouseClick("left")
Sleep(500)
EndFunc

Func iToMenu()
Send("{ESC}")
MouseMove(537,290)
MouseClick("left")

Dim $c = 1
;ConsoleWrite($c)
While $c <> 0 

	$c = PixelGetColor(475,68)
	Sleep(500)
Wend
Sleep(3000)
EndFunc

Func iToGame()
Sleep(1000)
MouseMove(453,430)
MouseClick("left") ; wybor postaci
MouseMove(610,718)
MouseClick("left")

EndFunc
;jestem w panelu

Func iBuy()

	Dim $c = 1
;ConsoleWrite($c)
While $c <> 1314827

	$c = PixelGetColor(940,15)
	Sleep(500)
Wend
Mousemove(934,736);shop
MouseClick("left")
Sleep(1500)
MouseMove(378,204);boxbuy
MouseClick("left")
Sleep(1500)
MouseMove(342,342);1
MouseClick("left")
Sleep(1500)
MouseMove(660,564)
MouseClick("left");kup
Sleep(1500)
MouseMove(520,523)
MouseClick("left") ;ok
Sleep(1000)
MouseMove(590,481)
MouseClick("left") ;ok summary
Sleep(1000)
Send("{ESC}")
;MouseMove(797,91)
;MouseClick("left"); zamknij cash shop
Sleep(1000)
Send("i")
MouseMove(975,592)
MouseClick("right")
Sleep(5500)
MouseMove(450,450)
MouseClick("left")
Sleep(500)


EndFunc

Func iWhatItem()
$k = 0
$c = PixelGetColor(786,637) ;cheetach
ConsoleWrite($c & @CRLF)
If $c = 11705242 Then

	$k = 1

EndIf
$c = PixelGetColor(786,637) ;cheetach
ConsoleWrite($c & @CRLF)
If $c = 10255241 Then

	$k = 1

EndIf

$c = PixelGetColor(786,637) ;imperioum
ConsoleWrite($c & @CRLF)
If $c = 3617553 Then

	$k = 1

EndIf



ConsoleWrite($k & @CRLF)
Send("i")
return $k


EndFunc

Func Start()
TrayTip("Info", "Started...",5)

iToMenu()
iDelete()
iCreate()
iToGame()
iBuy()
;TrayTip("Info","Finished...",5)
EndFunc


;iBuy()
;Start()
$boom = 1
$step = 1

While $boom = 1
Start()
Sleep(1000)
$boom = iWhatItem()
Sleep(3000)
$step = $step +1
ConsoleWrite("Cykl : " & $step & @CRLF )
Wend

[/home]

yyy, ale o co wlasciwie chodzi :>? bo ja nic nie rozumiem, kod jak kod, ale co ten bot ma robic?

[MrBloody]

tez nie bardzo kumam oc o ci wlasciwie chodzi bo jakos malos kaldnie mowisz

[kokosz]

Bot był tworzony na szybkie zamówienie pewenej gildii.... obecnie nie gram w suna.

Chodziło o zalozenie postaci, kupno jakiegos itemku z item shopa, uzycie go.

.

.

Jesli dobry item wyszedl to stop, jesli nie to ...

.

.

.

Wyjscie z gry, skasowanie tej postaci, utworzenie nowej i tak w kolko.

 

Aktualnie jest nic nie warty, bo event się skończył.

[/home]

a to dobrze wiedziec, co ma robic, przyda sie kod, jak zmodyfikuje i wymysle cos konstruktywnego to wrzuce . A tak z programistycznego punktu widzenia - nazwy funkcji i zmiennych, ze sie tak wyraze - typowe .

$dupa = 'owned';

[kokosz]

a to dobrze wiedziec, co ma robic, przyda sie kod, jak zmodyfikuje i wymysle cos konstruktywnego to wrzuce . A tak z programistycznego punktu widzenia - nazwy funkcji i zmiennych, ze sie tak wyraze - typowe .

$dupa = 'owned';

 

Kiedyś na zaliczenie w pascalu oddałem program w pascalu...

 

program dupa;

 

;]

 

Ogólnie chciałbym aby to forum się rozwijało w kierunku wymiany wiedzy z zakresu tworzenia w autoicie... i nie tylko. Z mojej strony mogę zaoferować pełne wsparcie...

To co wrzuciłem w poprzednich postach należałoby poprawić, bo tworzone było do rozdzielczosci 640x480. Namierzanie mobow, pickup, wszystko dzialalo. Niestety nie mam czasu na dalszą grę... jednak napisanie pierwszego bota ze stajni mpc, byłoby nielada wyczynem.

[/home]

kod szczegolnie trudny nie jest, jak widze, fakt nie mialem do czynienia z pisaniem w autoit, blizej mi do jezykow kompilowanych, albo skryptowych, w kazdym razie oop, o kod rozumiem poza 3miejscami wlasciwie jedynym. Mianowicie co oznacza

 If $c = 11705242 Then

ta liczba podstawiona pod zmienna $c? Bo nie kumam kontekstu tego warunku. Czy jest to return zwracany z funkcji PixelGetColor() ?

//Edit

Hmm no wychodzi, ze tak;). Tylko czy tak wlasnie intepretuje sie wartosci wyswietlane na ekranie?Bo jesli tak to lapie

[kokosz]

kod szczegolnie trudny nie jest, jak widze, fakt nie mialem do czynienia z pisaniem w autoit, blizej mi do jezykow kompilowanych, albo skryptowych, w kazdym razie oop, o kod rozumiem poza 3miejscami wlasciwie jedynym. Mianowicie co oznacza

 If $c = 11705242 Then

ta liczba podstawiona pod zmienna $c? Bo nie kumam kontekstu tego warunku. Czy jest to return zwracany z funkcji PixelGetColor() ?

//Edit

Hmm no wychodzi, ze tak;). Tylko czy tak wlasnie intepretuje sie wartosci wyswietlane na ekranie?Bo jesli tak to lapie

Dokladnie PixelGetColor() zwraca Ci wartosc koloru, ktory jest wyswietlany na danych coordynatach. Jesli dany pixel pojawia sie na ekranie mozna zaczac wykonywac jakies akcje. Ponadto autoit ma mozliwosc analizowania fragmentow bitmap, mialem przyjemnosc pisac kiedys bota do pokerstars, w ktorym cos takiego bylo wygodniejsze. W przypadku gierek online, raczej sie stosuje analize pojedynczych pixeli ze wzgledu na szybkosc.