vista var bende yönetici olarak çalıştır dedim oldu gerçekten güzel bir bot takır takır kasıyor
 |
Opt("TrayMenuMode", 1)
Dim $state[7] = ['Freeze','Frostbyte','Burn','Electric Shock','Poison','Zombie','Darkness']
Dim $type[3] = ['HP', 'MP', 'Vigor']
Dim $dif=70, $y=40, $run=0, $pot_pill=0
Const $pointer = 0xA9DE64, $Charname = 0xA9CBB8, $pill = 0x228, $curhp = 0x3BC, $maxhp = 0x3B4, $curmp = 0x3B0, $maxmp = 0x3B8
$GUI = GUICreate('AutoPot', 335, 300)
GUICtrlCreateLabel('Charname:', 10, 13)
$char_input = GUICtrlCreateInput('', 70, 10, 150)
$start_button = GUICtrlCreateButton('Start Autopot', 235, 9, 85, 23)
For $i=0 To 2
GUICtrlCreateGroup($type[$i], 5, $y+$i*$dif, 325, 70)
Assign($type[$i]&'_check', GUICtrlCreateCheckbox('Use '&$type[$i]&' Pots', 10, $y+15+$i*$dif))
GUICtrlCreateLabel('Belt:', 100, $y+19+$i*$dif)
Assign($type[$i]&'_belt', GUICtrlCreateCombo('', 125, $y+15+$i*$dif, 40, -1, 3))
GUICtrlSetData(-1, 'F1|F2|F3|F4', 'F1')
GUICtrlCreateLabel('Slot:', 180, $y+19+$i*$dif)
Assign($type[$i]&'_slot', GUICtrlCreateCombo('', 205, $y+15+$i*$dif, 35, -1, 3))
GUICtrlSetData(-1, '0|1|2|3|4|5|6|7|8|9', 1)
GUICtrlCreateLabel('Delay:', 255, $y+19+$i*$dif)
Assign($type[$i]&'_delay', GUICtrlCreateInput('1000', 290, $y+15+$i*$dif, 35, -1, 3))
Assign($type[$i]&'_slider', GUICtrlCreateSlider(5, $y+40+$i*$dif, 295))
Assign($type[$i]&'_input', GUICtrlCreateInput(0, 300, $y+40+$i*$dif, 25, -1, 1))
Next
GUICtrlCreateGroup('Universal Pills', 5, 250, 325, 45)
$pill_check = GUICtrlCreateCheckbox('Use Abnormal State Recovery', 10, 265)
GUICtrlCreateLabel('Belt:', 180, 270)
$pill_belt = GUICtrlCreateCombo('', 205, 265, 40, -1, 3)
GUICtrlSetData(-1, 'F1|F2|F3|F4', 'F1')
GUICtrlCreateLabel('Slot:', 255, 270)
$pill_slot = GUICtrlCreateCombo('', 280, 265, 35, -1, 3)
GUICtrlSetData(-1, '0|1|2|3|4|5|6|7|8|9', 1)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $char_input Then
Ini('read')
EndIf
If $msg = -3 Then Exit
For $i=0 To 2
If $msg = Eval($type[$i]&'_slider') Then GUICtrlSetData(Eval($type[$i]&'_input'), GUICtrlRead(Eval($type[$i]&'_slider')))
If $msg = Eval($type[$i]&'_input') Then GUICtrlSetData(Eval($type[$i]&'_slider'), GUICtrlRead(Eval($type[$i]&'_input')))
Next
If $msg = $start_button Then
If GUICtrlRead($start_button) = 'Start Autopot' Then
GUICtrlSetData($start_button, 'Stop Autopot')
$run = True
ini()
ElseIf GUICtrlRead($start_button) = 'Stop Autopot' Then
GUICtrlSetData($start_button, 'Start Autopot')
$run = False
EndIf
EndIf
If $run Then
$mid = memopen(WinGetProcess(GetHandle(GUICtrlRead($char_input))))
$HP_percent = memreaddynamic($mid, $pointer, $curhp) / memreaddynamic($mid, $pointer, $maxhp) *100
$MP_percent = memreaddynamic($mid, $pointer, $curmp) / memreaddynamic($mid, $pointer, $maxmp) *100
$Vigor_percent = memreaddynamic($mid, $pointer, $curhp) / memreaddynamic($mid, $pointer, $maxhp) *100
$status = memreaddynamic($mid, $pointer, $pill, "byte")
For $i=0 To 5
If BitAND($status, 2^$i) Then $pot_pill=1
Next
For $i=0 To 2
If GUICtrlRead(Eval($type[$i]&'_check'))=1 And Eval($type[$i]&'_percent') <= GUICtrlRead(Eval($type[$i]&'_input')) Then
Pot(GUICtrlRead($char_input), GUICtrlRead(Eval($type[$i]&'_belt')), GUICtrlRead(Eval($type[$i]&'_slot')), GUICtrlRead(Eval($type[$i]&'_delay')))
EndIf
Next
If GUICtrlRead($pill_check)=1 And $pot_pill Then
Pot(GUICtrlRead($char_input), GUICtrlRead($pill_belt), GUICtrlRead($pill_slot), 1000)
EndIf
memclose($mid)
$pot_pill = 0
EndIf
Switch TrayGetMsg()
Case - 13
Tray()
EndSwitch
WEnd
Func Tray()
If BitAND(WinGetState($GUI), 2) Then
WinSetState($GUI, "", @SW_HIDE)
Else
WinSetState($GUI, "", @SW_SHOW)
EndIf
EndFunc
Func SendSro($handle, $key)
Switch $key
Case "F1"
$k = 0x70
Case "F2"
$k = 0x71
Case "F3"
$k = 0x72
Case "F4"
$k = 0x73
Case Else
$k = 0x30+$key
EndSwitch
For $i=1 To 5
DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x100, "int", $k, "int", 0)
DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x101, "int", $k, "int", 0)
Next
EndFunc
Func GetHandle($charname)
Local $list = WinList("[CLASS]")
For $i=1 To $list[0][0]
Local $mid = memopen(WinGetProcess($list[$i][1]))
Local $title = StringSplit(memread($mid, 0xCEB2B0, 'char[25]'), ':')
If $title[2] = $charname Then
memclose($mid)
Return $list[$i][1]
EndIf
memclose($mid)
Next
EndFunc
Func ini($action = 'write')
If $action = 'write' Then
For $i=0 To 2
IniWrite('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_check', GUICtrlRead(Eval($type[$i]&'_check')))
IniWrite('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_belt', GUICtrlRead(Eval($type[$i]&'_belt')))
IniWrite('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_slot', GUICtrlRead(Eval($type[$i]&'_slot')))
IniWrite('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_input', GUICtrlRead(Eval($type[$i]&'_input')))
IniWrite('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_slider', GUICtrlRead(Eval($type[$i]&'_slider')))
Next
IniWrite('pot_config.ini', GUICtrlRead($char_input), 'pill_check', GUICtrlRead($pill_check))
IniWrite('pot_config.ini', GUICtrlRead($char_input), 'pill_belt', GUICtrlRead($pill_belt))
IniWrite('pot_config.ini', GUICtrlRead($char_input), 'pill_slot', GUICtrlRead($pill_slot))
Else
For $i=0 To 2
GUICtrlSetState(Eval($type[$i]&'_check'), IniRead('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_check', GUICtrlRead(Eval($type[$i]&'_check'))))
GUICtrlSetData(Eval($type[$i]&'_belt'), IniRead('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_belt', GUICtrlRead(Eval($type[$i]&'_belt'))))
GUICtrlSetData(Eval($type[$i]&'_slot'), IniRead('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_slot', GUICtrlRead(Eval($type[$i]&'_slot'))))
GUICtrlSetData(Eval($type[$i]&'_input'), IniRead('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_input', GUICtrlRead(Eval($type[$i]&'_input'))))
GUICtrlSetData(Eval($type[$i]&'_slider'), IniRead('pot_config.ini', GUICtrlRead($char_input), $type[$i]&'_slider', GUICtrlRead(Eval($type[$i]&'_slider'))))
Next
GUICtrlSetState($pill_check, IniRead('pot_config.ini', GUICtrlRead($char_input), 'pill_check', GUICtrlRead($pill_check)))
GUICtrlSetData($pill_belt, IniRead('pot_config.ini', GUICtrlRead($char_input), 'pill_belt', GUICtrlRead($pill_belt)))
GUICtrlSetData($pill_slot, IniRead('pot_config.ini', GUICtrlRead($char_input), 'pill_slot', GUICtrlRead($pill_slot)))
EndIf
EndFunc
Func Pot($charname, $bar, $slot, $delay = 1000)
If Not IsDeclared($charname&"pot" & $slot) Then
SendSro(GetHandle($charname), $bar)
SendSro(GetHandle($charname), $slot)
Assign($charname&"pot" & $slot, TimerInit(), 2)
ElseIf TimerDiff(Eval($charname&"pot" & $slot)) > $delay Then
SendSro(GetHandle($charname), $bar)
SendSro(GetHandle($charname), $slot)
Assign($charname&"pot" & $slot, TimerInit(), 2)
EndIf
EndFunc
Func memopen($pid)
Local $mid = DllCall('kernel32.dll', 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', 1, 'int', $pid)
Return $mid[0]
EndFunc
Func memread($mid, $adress, $type = 'dword')
Local $struct = DllStructCreate($type)
DllCall('kernel32.dll', 'int', 'ReadProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', '')
Return DllStructGetData($struct, 1)
EndFunc
Func memreaddynamic($mid, $pointer, $offset, $type = "dword")
$newadress = memread($mid, $pointer) + $offset
Return memread($mid, $newadress, $type)
EndFunc
Func memclose($mid)
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $mid)
EndFunc
Türkçe olduğuna dikkat et..freeturc demiş ki:
