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

    Re: Martial Empires Bot Source

    DWAR скажи пож-та ,Бот ожидается или в перспективе?

Visitors found this page by searching for:

martial empires bot

martial empires database

Martial Empires бот

бот для Martial Empires martial empires autoitMartial Empires Bot Sourcemartial empires серверасервера Martial Empiresautoit martial empiresmartial empire botbot martial empiresбот Martial Empiresсервер Martial Empiresсерверы Martial Empiresmartial empiresmartial empires serversMartial Empires top 100bot for martial empiresMartial Empires server top 100martial empires х 1000martial empires серверauti it martial empiresMartrial Empires botbot martial empires 2012autoit send source

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •