Autoit Pixel HP AND MP Bot Help

EviLcLoWnS™ · 09/24/2013, 14:16

Well Its for Scarlet Blade, I just wanted the script to auto heal and fill my mp when ever function(HP or MP) is low. I know tons of people ask for this kind of stuff all the time, or so i thought. Most post are not up to date and old. I know Auto has changed thew the years. I tried Lawliet script but it didnt seem to work for me. I know this just may not work because SB has themida in it. I use macroGamer 2.7.5 by Toady for repeat 1-7 Key strokes, for skills to repeat. I was thinking well be nice too have auto hp/mp.

So Full hp would be all Red course.

Code:

Position 222,33
Color [COLOR="Red"]0xED4542[/COLOR]

Do nothing, but when HP gets low(color changes..Is not 0xED4542) Spam F9 Key until its back too 0xED4542.

--------------------------------------------------------------------

So Full mp would be all Blue course

Code:

Position 216,76
Color [COLOR="Blue"]0x5C83D8[/COLOR]

Do nothing, but when mp gets low(color changes..Is not 0x5C83D8) Spam F10 Key until its back too 0x5C83D8.

Wondering if someone could help me with a script that would do that. I do wanna learn and would post more in my thread. Just easier for me to have something basic then, learn how to add other functions. Thank you for your time.

butter123 · 09/24/2013, 15:33

While Sleep(10)
If pixelgetcolor(222,33) <> 0xED4542 then
send(f9)
endif
If pixelgetcolor(216,76)<> 0x5C83D8then
send(f10)
endif
wend

EviLcLoWnS™ · 09/24/2013, 18:41

Its really that simple, ahhhh! I was trying to do something else. Thinking Guess i didn't have to do all the other includes and stuff for something simple. Ty i will try it out.

DjNanos · 02/14/2014, 10:41

Could u share your program ? cuz the one im using can spam only 1 pot when colour changes

butter123 · 02/25/2014, 18:45

While Sleep(10)
If pixelgetcolor(222,33) <> 0xED4542 then
send(f9)
endif
If pixelgetcolor(216,76)<> 0x5C83D8then
send(f10)
endif
wend

DjNanos · 02/27/2014, 12:42

eh..is there a chance someone made it happen and send it to us too ? :3

mlukac89 · 02/27/2014, 18:56

Are you too lazy to compile it ?

DjNanos · 02/28/2014, 19:01

no..i just have no clue about how doing it and if i search about how to do it id spend whole day while someone from here could spend 5min making it.

alpines · 02/28/2014, 19:09

It looks like a hard day for you.

mlukac89 · 02/28/2014, 19:30

It's not so hard you play in window mode or full screen ?

Here is a example, but you must find position and color alone

its not same for all desktop height and width.

If you don't understand it then go learn

here is link how to make bot with Autoit it have 8 videos

Code:

HotKeySet("{HOME}", "_run") ; HOME key calls function _run
HotKeySet("{ESC}", "_quit") ; ESC key calls function _run

Dim $run = False

While 1
	Sleep(20)
WEnd

; Function that runs bot
Func _run()
	; check if process exist
	If ProcessExists("calc.exe") Then

		$run = Not $run

		While $run
			If PixelGetColor(222, 33) <> 0xED4542 Then
				Send("{F9}")
				Sleep(500)
			EndIf
			If PixelGetColor(216,76) <> 0x5C83D8 Then
				Send("{F10}")
				Sleep(500)
			EndIf
		WEnd

	EndIf

EndFunc

; Function that exit bot
Func _quit()
	Exit
EndFunc

DjNanos · 03/01/2014, 14:11

Quote:

Originally Posted by alpines

It looks like a hard day for you.

Most useful tip ive ever seen. Thank you

Quote:
Originally Posted by mlukac89
It's not so hard you play in window mode or full screen ?

Here is a example, but you must find position and color alone its not same for all desktop height and width.

If you don't understand it then go learn

here is link how to make bot with Autoit it have 8 videos
Code:
HotKeySet("{HOME}", "_run") ; HOME key calls function _run
HotKeySet("{ESC}", "_quit") ; ESC key calls function _run

Dim $run = False

While 1
	Sleep(20)
WEnd

; Function that runs bot
Func _run()
	; check if process exist
	If ProcessExists("calc.exe") Then

		$run = Not $run

		While $run
			If PixelGetColor(222, 33) <> 0xED4542 Then
				Send("{F9}")
				Sleep(500)
			EndIf
			If PixelGetColor(216,76) <> 0x5C83D8 Then
				Send("{F10}")
				Sleep(500)
			EndIf
		WEnd

	EndIf

EndFunc

; Function that exit bot
Func _quit()
	Exit
EndFunc

Quote:

Originally Posted by DjNanos

no..i just have no clue about how doing it and if i search about how to do it id spend whole day while someone from here could spend 5min making it.

*by next month ill over with it, even tho i guess the script you gave me makes it easier... thanks.

alpines · 03/01/2014, 17:04

Quote:

Originally Posted by DjNanos

Most useful tip ive ever seen. Thank you

Oh dear, you make me quite embarrassed...

Whatever, the parts of the script were all posted here so just find them and make a solid solution. It won't take longer than 5 minutes.

DjNanos · 03/04/2014, 15:27

i took the script mlukac89 gave me above, changed colour/pixel/Fkeys but its not working, and its says "script paused" at my taskbar

mlukac89 · 03/04/2014, 16:19

Post full code

DjNanos · 03/05/2014, 04:26

i tried to run this

Code:

HotKeySet("{HOME}", "_run") ; HOME key calls function _run
HotKeySet("{ESC}", "_quit") ; ESC key calls function _run

Dim $run = False

While 1
	Sleep(20)
WEnd

; Function that runs bot
Func _run()
	; check if process exist
	If ProcessExists("calc.exe") Then

		$run = Not $run

		While $run
			If PixelGetColor(165, 64) <> 0x5A4D39 Then
				Send("{F11}")
				Sleep(500)
			EndIf
			If PixelGetColor(140, 92) <> 0x184563 Then
				Send("{F12}")
				Sleep(500)
			EndIf
		WEnd

	EndIf

EndFunc

; Function that exit bot
Func _quit()
	Exit
EndFunc