Skocz do zawartości
  • 0

AutoIT szukam kogos ogarnietego do napisania bota


robertniewin
 Udostępnij

Pytanie

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. 

Odnośnik do komentarza
Udostępnij na innych stronach

14 odpowiedzi na to pytanie

Rekomendowane odpowiedzi

  • 0
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.

 

Odnośnik do komentarza
Udostępnij na innych stronach

  • 0

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:4_joy:

 

 

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

 

Do programu Wazne!.png

MOZE SCREEN Z GRY ROWNIEZ MOZE POMOC

 

 

SCREN_Z_GRY.png

Edytowane przez robertniewin
Odnośnik do komentarza
Udostępnij na innych stronach

  • 0

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

 

 

 

Odnośnik do komentarza
Udostępnij na innych stronach

  • 0

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" ?

Odnośnik do komentarza
Udostępnij na innych stronach

  • 0

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 

 

Edytowane przez robertniewin
Odnośnik do komentarza
Udostępnij na innych stronach

  • 0

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 ;) 

Kocham mpcforum.pl!!!

18706.png

Odnośnik do komentarza
Udostępnij na innych stronach

  • 0

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. 

Mózg to nie mydło; nie ubędzie Ci go, gdy go użyjesz.

Odnośnik do komentarza
Udostępnij na innych stronach

  • 0
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

 

Odnośnik do komentarza
Udostępnij na innych stronach

  • 0

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?

 

 

Edytowane przez robertniewin
Odnośnik do komentarza
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Zaloguj się poniżej.

Zaloguj się
 Udostępnij

  • Ostatnio przeglądający forum AutoIT szukam kogos ogarnietego do napisania bota   0 użytkowników
    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...