Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GUIConstantsEx.au3>
- #include <ProgressConstants.au3>
- #include <WindowsConstants.au3>
- #include <nomadmemory.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("Form1", 500, 400, 192, 124)
- ;===========================================================================
- GUICtrlCreateLabel("Heal when hp is ", 5, 5, 80,12)
- $danger_notice = GUICtrlCreateInput("100", 85,0,50,20)
- GUICtrlCreateLabel("or lower.",140,5,40,12)
- ;=HP Button===
- GUICtrlCreateLabel("HP Slot", 300, 25, 50, 12)
- $HP_Slot_Number = GUICtrlCreateInput("=", 340, 20, 15, 20)
- ;===========================================================================
- GUICtrlCreateLabel("Your Characters Max HP ", 300, 5, 117,12)
- $Max_HP_Insert = GUICtrlCreateInput("", 420, 0, 50, 20)
- $progressbar1 = GUICtrlCreateProgress(5, 40, 200, 15,$PBS_SMOOTH)
- $HP_Bar = GUICtrlCreateLabel("????", 215, 41, 500, 15)
- $btn = GUICtrlCreateButton("START", 300, 50 , 50, 20)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- global $pid = ProcessExists("cabalhelix.exe")
- global $Value = ("0x0E1ECA54")
- While 1
- $data_to_set = GUICtrlSetData($HP_Bar, Read_currenthealthbytomasz($pid, $value))
- GUICtrlSetData($progressbar1, (((Read_currenthealthbytomasz($pid, $value))/1494())*100))
- If Read_currenthealthbytomasz($pid, $value) <GUICtrlRead($danger_notice) Then
- WinActivate("CABAL", "CABAL")
- Send(GUICtrlRead($HP_Slot_Number))
- EndIf
- $Msg = GUIGetMsg()
- Switch $Msg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $btn
- Auto_Healing()
- EndSwitch
- WEnd
- ;==============================
- Func Read_currenthealthbytomasz($pid, $value)
- $openmem = _MemoryOpen($pid)
- $Value = _MemoryRead(0x0E1ECA54, $openmem)
- _MemoryClose($openmem)
- Return $Value
- EndFunc ;==> Created by CE table converter!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement