Results 1 to 2 of 2
  1. #1
    lirikmel
    lirikmel is offline
    New member
    Join Date
    2010 Jul
    Location
    tver
    Posts
    41
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    67
    Thanked in
    2 Posts
    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]

  2. #2
    brigadir777
    brigadir777 is offline
    New member
    Join Date
    2010 Aug
    Posts
    8
    Thanks Thanks Given 
    3
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    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
  •