AutoIT szukam kogos ogarnietego do napisania bota

robertniewin · 20 Listopada 2018

potrzebuje scryptu ktory wykrywa zmiane PIXELA na ekranie i reaguje na to wcisnieciem kLawiasza by pixel zmienil sie w zadanym miejscu na dAny kolor

znalazlem cos takiego ale nie dziala mi to wyszukiwalem pixel poprzez AutoIT info>Mouse ( po najechaniu na dany pixel pobieralem Posiition i color

Global $Paused
HotKeySet('{Insert}','TogglePause')

Sleep(3000) ;Delay na uruchomienie sie heala
WinActivate("Tibia")
While True
	;Heal high
	If (PixelGetColor(1860, 40) <> 0xDB4F4F) Then
		ControlSend('Tibia','','','{F1}')
	;Heal low
	ElseIf (PixelGetColor(795,41) <> 0x6D9E04) Then
		ControlSend('Tibia','','','{F2}')
	EndIf
	Sleep(200)
$Mana = PixelGetColor(1798,53)
If $Mana = 0x5350DA Then
	ControlSend('Tibia','','','{F3}')
	Sleep(200)
EndIf
WEnd


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Heal zatrzymany!',10,70)
    WEnd
	ToolTip('Heal dziala!',10,70)
EndFunc

Prosze o pomoc.

robertniewin · 21 Listopada 2018

Dziekuje Ci bardzo smiga elegancko !

58 minut temu, Pawellek napisał:

Powinno działać, edytuj tylko zmienne w konfiguracji.

https://pastebin.com/0DdRU17V


;================= [KONFIGURACJA] =======================
HotKeySet("{HOME}", "_START")
HotKeySet("{END}", "_EXIT")
HotKeySet('{Insert}','TogglePause')

Global $TIBIA_WINDOW_NAME = "MasterCores"

Global $HP_PIXEL_COLOR = 0xCB423B					; Kolor HP
Global $HP_PIXEL_POS = [1840, 190]					; POZYCJA PIXELA HP

Global $MANA_PIXEL_COLOR = 0x7260FF					; Kolor MANY
Global $MANA_PIXEL_POS = [1842, 201]				; POZYCJA PIXELA MANY
;================= [KONFIGURACJA] =======================

Global $Paused

While 1
	Sleep(100)
WEnd

Func _START()
	ToolTip('Czekamy az okno tibi bedzie aktywne',10,70)
	While  WinGetTitle("[ACTIVE]") <> $TIBIA_WINDOW_NAME
		Sleep(100)
	WEnd


	Local $HWND = WinGetHandle("[ACTIVE]")
	Local $HP_COLOR = Int($HP_PIXEL_COLOR)
	Local $MANA_COLOR = Int($MANA_PIXEL_COLOR)

	ToolTip('Heal dziala',10,70)
	While True
		If PixelGetColor($HP_PIXEL_POS[0], $HP_PIXEL_POS[1]) <> $HP_COLOR Then
			ControlSend($HWND,'','','{F2}')
			Sleep(250)
		EndIf

		If PixelGetColor($MANA_PIXEL_POS[0], $MANA_PIXEL_POS[1]) <> $MANA_COLOR Then
			ControlSend($HWND,'','','{F3}')
			Sleep(250)
		EndIf
		Sleep(10)
	WEnd
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Heal zatrzymany!',10,70)
    WEnd
	ToolTip('Heal dziala!',10,70)
EndFunc

Func _EXIT()
	Exit
EndFunc

32 minuty temu, robertniewin napisał:

Dziekuje Ci bardzo smiga elegancko !

58 minut temu, Pawellek napisał:

Powinno działać, edytuj tylko zmienne w konfiguracji.

https://pastebin.com/0DdRU17V


;================= [KONFIGURACJA] =======================
HotKeySet("{HOME}", "_START")
HotKeySet("{END}", "_EXIT")
HotKeySet('{Insert}','TogglePause')

Global $TIBIA_WINDOW_NAME = "MasterCores"

Global $HP_PIXEL_COLOR = 0xCB423B					; Kolor HP
Global $HP_PIXEL_POS = [1840, 190]					; POZYCJA PIXELA HP

Global $MANA_PIXEL_COLOR = 0x7260FF					; Kolor MANY
Global $MANA_PIXEL_POS = [1842, 201]				; POZYCJA PIXELA MANY
;================= [KONFIGURACJA] =======================

Global $Paused

While 1
	Sleep(100)
WEnd

Func _START()
	ToolTip('Czekamy az okno tibi bedzie aktywne',10,70)
	While  WinGetTitle("[ACTIVE]") <> $TIBIA_WINDOW_NAME
		Sleep(100)
	WEnd


	Local $HWND = WinGetHandle("[ACTIVE]")
	Local $HP_COLOR = Int($HP_PIXEL_COLOR)
	Local $MANA_COLOR = Int($MANA_PIXEL_COLOR)

	ToolTip('Heal dziala',10,70)
	While True
		If PixelGetColor($HP_PIXEL_POS[0], $HP_PIXEL_POS[1]) <> $HP_COLOR Then
			ControlSend($HWND,'','','{F2}')
			Sleep(250)
		EndIf

		If PixelGetColor($MANA_PIXEL_POS[0], $MANA_PIXEL_POS[1]) <> $MANA_COLOR Then
			ControlSend($HWND,'','','{F3}')
			Sleep(250)
		EndIf
		Sleep(10)
	WEnd
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Heal zatrzymany!',10,70)
    WEnd
	ToolTip('Heal dziala!',10,70)
EndFunc

Func _EXIT()
	Exit
EndFunc

a moglbys dodac mi jeszcze jeden hotkey taki ? 3 na wciskanie "spacji" ?

Pawellek · 21 Listopada 2018

Kiedy mialby wciskac spacje? Co ile sekund? Musisz cos wiecej napisac. Ogolnie im wiecej ten bot bedzie mial w sobie funkcji tym wieksza szansa na dyntke podczas expa. ;)

robertniewin · 21 Listopada 2018

na zasadzie gdy piksel w danym miejscu o danym kolorze pojawi sie to wciska spacje a jak dany kolor zniknie w tym miejscu to wciska LEWY przycisk myszy w wybrane miejsce ?

chyba ze prostrzym wyjsciem bedzie zamiana spacji na LPM

czyli

gdy pixel o danym kolorze i wspolrzednych pojawia sie wciska LPM w wybrane miejsce, gdy ten pixel ginie ponownie wciska LPM w to samo miejsce

to by mi bardziej pasowalo bo za pewne dzialalo by bez zastrzezen

robertniewin · 8 Grudnia 2018

Mianowicie potrzebne mi jest to do skillowania postaci, są pewne stworki ktore lecza sie. Chodzi o to by zaznaczal stworka gdy ma np zielone HP, a gdy spada do czerwonego by przestawal

a w tibi wystarczy w Battle kliknac LPM by zaatakowac, i ponownie LPM by przestac atakowac

Przepraszam ze po tak dlugim czasie nie odpisalem ale nie mialem dostepu do internetu z powodu wyjazdu w delegacje ;)

Licze ze ktos pomoze

EDIT.

ktos cos?

m4rcin93 · 20 Listopada 2018

Cytat

by pixel zmienil sie w zadanym miejscu na dAny kolor

10 minut temu, robertniewin napisał:
potrzebuje scryptu ktory wykrywa zmiane PIXELA na ekranie i reaguje na to wcisnieciem kLawiasza by pixel zmienil sie w zadanym miejscu na dAny kolor

znalazlem cos takiego ale nie dziala mi to wyszukiwalem pixel poprzez AutoIT info>Mouse ( po najechaniu na dany pixel pobieralem Posiition i color
Global $Paused
HotKeySet('{Insert}','TogglePause')

Sleep(3000) ;Delay na uruchomienie sie heala
WinActivate("Tibia")
While True
	;Heal high
	If (PixelGetColor(1860, 40) <> 0xDB4F4F) Then
		ControlSend('Tibia','','','{F1}')
	;Heal low
	ElseIf (PixelGetColor(795,41) <> 0x6D9E04) Then
		ControlSend('Tibia','','','{F2}')
	EndIf
	Sleep(200)
$Mana = PixelGetColor(1798,53)
If $Mana = 0x5350DA Then
	ControlSend('Tibia','','','{F3}')
	Sleep(200)
EndIf
WEnd


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Heal zatrzymany!',10,70)
    WEnd
	ToolTip('Heal dziala!',10,70)
EndFunc
Nie da się czegoś takiego zrobić.

Chyba, że napiszesz jeszcze raz i to po polsku.

Pawellek · 22 Listopada 2018

Ja odpadam w takim razie, za duzo roboty. Moze ktos inny sie skusi. :)

Pawellek · 21 Listopada 2018

PixelGetColor zwraca decimal, a nie hexadecimal, wiec zaczalbym od sprawdzenia tego.

robertniewin · 26 Listopada 2018

nawet za oplata brak chetnych ?

robertniewin · 21 Listopada 2018

problem w tym że Ja nie mam zielonego pojęcia jak sie uzywa tego auto it, dlatego szukam kogos kto mi pomoze czyli ze zrobi to za mnie

jezeli jest tutaj jakis zaufany forumowicz chetny pomoc to jestem sklonny $$ZAPŁACIĆ$$ nawet za zrobienie tego na gotowo by dzialalo

dam screena by wyjasnic bardziej na czym mi zalezy

Chialbym rowniez podziekowac za to ze tak szybko reagujecie na nowe posty ;)

MOZE SCREEN Z GRY ROWNIEZ MOZE POMOC

Marchwj · 26 Listopada 2018

Dnia 21.11.2018 o 21:39, robertniewin napisał:

chyba ze prostrzym wyjsciem bedzie zamiana spacji na LPM

czyli

gdy pixel o danym kolorze i wspolrzednych pojawia sie wciska LPM w wybrane miejsce, gdy ten pixel ginie ponownie wciska LPM w to samo miejsce

to by mi bardziej pasowalo bo za pewne dzialalo by bez zastrzezen

napisz podczas jakiej sytuacji w Tibii ma to robić, bo kompletnie nie umiem sobie wyobrazić, po co wciskać spacje w Tibii? xD

robertniewin · 22 Listopada 2018

nikt nie chce pomoc?

Adrstalik · 22 Listopada 2018

Pomóc... W zasadzie to prosisz o to, aby ktoś za Ciebie napisał cały program.

Akurat Twój problem jest dobrze wyjaśniony na niemieckim forum o autoit, gdzie użytkownik dał gotowe pliki. Polecam szukać w google - uwaga szok!! - nawet na drugiej i trzeciej stronie wyszukiwania. Powodzenia ;)

Ktosiu · 22 Listopada 2018

Może po prostu nie ma takich co by mogli i grają w Tibie. Zwykle nikomu nie chce sie pisać skryptu i tracić czas jak go potem sam nie używa.

Pawellek · 21 Listopada 2018

Powinno działać, edytuj tylko zmienne w konfiguracji.

https://pastebin.com/0DdRU17V

;================= [KONFIGURACJA] =======================
HotKeySet("{HOME}", "_START")
HotKeySet("{END}", "_EXIT")
HotKeySet('{Insert}','TogglePause')

Global $TIBIA_WINDOW_NAME = "MasterCores"

Global $HP_PIXEL_COLOR = 0xCB423B					; Kolor HP
Global $HP_PIXEL_POS = [1840, 190]					; POZYCJA PIXELA HP

Global $MANA_PIXEL_COLOR = 0x7260FF					; Kolor MANY
Global $MANA_PIXEL_POS = [1842, 201]				; POZYCJA PIXELA MANY
;================= [KONFIGURACJA] =======================

Global $Paused

While 1
	Sleep(100)
WEnd

Func _START()
	ToolTip('Czekamy az okno tibi bedzie aktywne',10,70)
	While  WinGetTitle("[ACTIVE]") <> $TIBIA_WINDOW_NAME
		Sleep(100)
	WEnd


	Local $HWND = WinGetHandle("[ACTIVE]")
	Local $HP_COLOR = Int($HP_PIXEL_COLOR)
	Local $MANA_COLOR = Int($MANA_PIXEL_COLOR)

	ToolTip('Heal dziala',10,70)
	While True
		If PixelGetColor($HP_PIXEL_POS[0], $HP_PIXEL_POS[1]) <> $HP_COLOR Then
			ControlSend($HWND,'','','{F2}')
			Sleep(250)
		EndIf

		If PixelGetColor($MANA_PIXEL_POS[0], $MANA_PIXEL_POS[1]) <> $MANA_COLOR Then
			ControlSend($HWND,'','','{F3}')
			Sleep(250)
		EndIf
		Sleep(10)
	WEnd
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Heal zatrzymany!',10,70)
    WEnd
	ToolTip('Heal dziala!',10,70)
EndFunc

Func _EXIT()
	Exit
EndFunc

Zaloguj się

👋 Witaj na MPCForum!

AutoIT szukam kogos ogarnietego do napisania bota

Pytanie

robertniewin

robertniewin

14 odpowiedzi na to pytanie

Rekomendowane odpowiedzi

robertniewin

robertniewin

Pawellek

Pawellek

robertniewin

robertniewin

robertniewin

robertniewin

m4rcin93

m4rcin93

Pawellek

Pawellek

Pawellek

Pawellek

robertniewin

robertniewin

robertniewin

robertniewin

Marchwj

Marchwj

robertniewin

robertniewin

Adrstalik

Adrstalik

Ktosiu

Ktosiu

Pawellek

Pawellek

Zarchiwizowany