-
New member
- Rep Power
- 0
Martial Empires Bot Source
если надо вот костяк для бота , офсеты некоторые поменялись но найти не проблема , так же есть затруднения с waypoint но это тоже реализуемо ,(неделю убил на нахождения ротации камеры,а оказалось все таакк просто)
[autoit]#include <nomadmemory.au3>
#Include <HotKey.au3>
Opt("SendKeyDelay", 0)
Opt("SendKeyDownDelay", 10)
TrayTip("Сервис готов",0,0)
Global $ProcessName = "Martial Empires"
Global $ProcessID = WinGetProcess($ProcessName,"")
Global $DllInformation = _MemoryOpen($ProcessID)
SetPrivilege("SeDebugPrivilege", 1)
Global $HP = 0x0CBDFB8
Global $OffsetMHP = 0x00CC6DF8
Global $MxHP = 0x0CC0A40
Global Const $VK_F11 = 0x7A
Global Const $VK_F12 = 0x7B
Global $Proverka
Global $Current1
Global $Current
Global $MbHP1
Global $MbHP
_HotKeyAssign($VK_F12, 'TogglePause')
_HotKeyAssign($VK_F11, 'Terminate')
Opt("SendKeyDownDelay", 300)
WinActive ("Martial Empires")
WinActivate ("Martial Empires")
Global $CurrentmHP = (_MemoryRead($OffsetMHP, $DllInformation, 'ptr'))
Global $MHP = $CurrentmHP + 356
target()
Func target()
$hWnd1 = WinGetHandle('Martial Empires')
Opt("SendKeyDownDelay", 100)
$DllInformation = _MemoryOpen($ProcessID)
$CurrentHP = (_MemoryRead($HP, $DllInformation, 'ptr'))
$CurrentHP = dec(StringTrimLeft($CurrentHP, 10))
Sleep (100)
if $CurrentHP < 1700 Then
sleep (1000)
regen()
EndIf
Do
Send ("{TAB}")
sleep (300)
$MobHP = (_MemoryRead($MHP, $DllInformation, 'ptr'))
$MobHP = dec(StringTrimLeft($MobHP, 10))
Send ("6")
sleep (300)
Send ("{x}")
Until $MobHP < 2000
$Current = (_MemoryRead($MHP, $DllInformation, 'ptr'))
$Current1 = dec(StringTrimLeft($Current , 10))
While $MobHP = $Current1
Send("1")
sleep (10)
$Current = (_MemoryRead($MHP, $DllInformation, 'ptr'))
$Current1 = dec(StringTrimLeft($Current , 10))
WEnd
$DllInformation = _MemoryClose($ProcessID)
ataka()
EndFunc
Func ataka()
Do
$DllInformation = _MemoryOpen($ProcessID)
$MobHP1 = (_MemoryRead($MHP, $DllInformation, 'ptr'))
$MbHP1 = dec(StringTrimLeft($MobHP1, 10))
$DllInformation = _MemoryClose($ProcessID)
TrayTip("атака",$MbHP1 ,0)
send ("0")
Send ("4")
Sleep (300)
Send("2")
Sleep (300)
Send("5")
Sleep (300)
Send ("1")
send ("7")
$DllInformation = _MemoryOpen($ProcessID)
$MobHP = (_MemoryRead($MHP, $DllInformation, 'ptr'))
$MbHP = dec(StringTrimLeft($MobHP, 10))
$DllInformation = _MemoryClose($ProcessID)
Sleep (400)
Until $MbHP1 = $MbHP
loot ()
EndFunc
Func loot()
TrayTip("подбираем",0,0)
Send("3")
sleep (200)
Send ("3")
sleep (100)
target()
EndFunc
func regen()
sleep (1000)
send ("9")
sleep (1000)
Do
$DllInformation = _MemoryOpen($ProcessID)
$CurrentHP = (_MemoryRead($HP, $DllInformation, 'ptr'))
$CurrentHP = dec(StringTrimLeft($CurrentHP, 10))
$hp1 = $CurrentHP
$DllInformation = _MemoryClose($ProcessID)
TrayTip("Хилимся",$hp1,0)
sleep (1000)
$DllInformation = _MemoryOpen($ProcessID)
$MaxHP = (_MemoryRead($MxHP, $DllInformation, 'ptr'))
$MaxHP = dec(StringTrimLeft($MaxHP, 10))
$hp2 = $MaxHP
$DllInformation = _MemoryClose($ProcessID)
TrayTip("Хилимся",$hp2,0)
sleep (2000)
Until $hp1 = $hp2
target()
EndFunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("продолжить",0,0)
target ()
EndFunc
Func Terminate()
Exit 0
EndFunc[/autoit]
-
-
-
New member
- Rep Power
- 0
Re: Martial Empires Bot Source
DWAR скажи пож-та ,Бот ожидается или в перспективе?
-
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules