Hp mp bot for Hero online. : Hero Online Submissions

Code: Select all

Opt("GUIOnEventMode", 1)

Opt("WinTitleMatchMode", 2)
$Form1 = GUICreate("Auto HP/MP refill Bot 1.1", 622, 441, 192, 125)
;$Group1 = GUICtrlCreateGroup("Hero Online Auto HP/MP refill Bot", 50, 45, 546, 361)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$time = IniRead(@ScriptDir&"\attsetting.ini", "settings", "timer", "NotFound")
$time2 = IniRead(@ScriptDir&"\attsetting.ini", "settings", "timerpickup", "NotFound")
$potkey = IniRead(@ScriptDir&"\attsetting.ini", "settings", "potkey", "NotFound")
Dim $i
$Button1 = GUICtrlCreateButton("Start", 70, 345, 146, 51)
GUICtrlSetOnEvent(-1, "Start")
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Exit", 430, 345, 146, 51)
GUICtrlSetOnEvent(-1, "Close")
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Edit1 = GUICtrlCreateEdit("", 105, 90, 441, 236, $ES_CENTER, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "This is the Auto HP/MP refill bot =) "&@CRLF&"Created for taultunleashed.com"&@CRLF&"make sure to fight mobs that don"&Chr(39)&"t make you loose health  "&@CRLF&""&@CRLF&""&@CRLF&""&@CRLF&""&@CRLF&"The program will approximately heal u when ur hp pots "&@CRLF&""&@CRLF&""&@CRLF&""&@CRLF&""&@CRLF&"are half and mp pots are one third.")
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case Else
		;;;;;;;
	EndSelect
WEnd
Exit

Func Start()
	#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
;MsgBox(64,"Note..","Make sure vmware is already running .. " & @CRLF & "And make sure you are already at the spot in the game you want to bot at.." & @CRLF & @CRLF & "Script will start 10 seconds after you press OK")
#EndRegion --- CodeWizard generated code End ---
WinSetState("Auto HP/MP Bot 1.0", "", @SW_HIDE)
WinActivate("VMware Workstation", "")
Sleep(10000)
AutoItSetOption ( "Pixelcoordmode", 0 )
While 1
	If 	PixelGetColor ( 200 , 70 )= 13041664 Then
		Sleep(1000)
	Else
		Send("1")
		Opt("SendKeyDownDelay", 100)
		Sleep(1000)
	EndIf
	If 	PixelGetColor ( 150 , 85 )= 72 Then
		Sleep(1000)
	Else
		Send("2")
		Opt("SendKeyDownDelay", 100)
		Sleep(1000)
	EndIf
;Send($potkey)
;Opt("SendKeyDownDelay", 100)
;Sleep($time)
WEnd
EndFunc

Func Close()
Exit
EndFunc