Page 1 of 2 12 LastLast
Results 1 to 10 of 15
  1. #1
    stirlitssss
    stirlitssss is offline
    New member
    Join Date
    2010 Sep
    Posts
    5
    Thanks Thanks Given 
    3
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0

    MM ReqBot Script.

    Добрый день! У меня есть просьба! Напишите Пожалуйста скрипт для ММ ReqBot что-бы бот убирал бафы которые мешают трансформации Героя в зверя! Я уверен что этот скрипт нужен не только мне от лица многих пользователей! Я бы и сам написал! но не знаю на чём пишется и вообще не разбираюсь в этом Жду помощь!

  2. #2
    TemTriss
    TemTriss is offline
    Senior Member TemTriss's Avatar
    Join Date
    2010 May
    Location
    Saint-Pitersburg
    Posts
    204
    Thanks Thanks Given 
    47
    Thanks Thanks Received 
    82
    Thanked in
    3 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    Халявы не будет! Сёня вечерком, напишу гайд, как это сделать, но делать придётся самим.
    MM PB Script - сделай сам хД
    Ну что ж начнём гайд)))
    Начнём с того, что нам нужно, нужен любой текстовый редактор, ММ Рек Бот.
    Поехали:
    для начала нам нужно модифицировать файл Core.mms
    Ищем в файле назначение клавиш, находим клавишу "Т" закоменчена как кнопка для
    тестов. Выглядит это так:
    [syntax]elseif ((KeyPress == tonumber(string.byte("t"))) or (KeyPress == tonumber(string.byte("T")))) then[/syntax]
    Нашли? Отлично, в тело функции(Место между выше приведённым кодом, и словом end)
    пишим]
    -- tyvm Sirmabus for this function.
    -- <3 MM ReqBOT
    -- http://macromonkey.com
    local tBuffs = Requiem.GetBuffs()
    if tBuffs then
    print("\n==== Buffs & Debuffs ====")
    for i,tBuff in ipairs(tBuffs) do
    printf("[%d] ID: %X, T: %d, CT: %.1f, CD: %.1f, TL: %.1f, N: \"%s\" \n", i, tBuff.ID, tBuff.Type, tBuff.CastTime, tBuff.CoolDown, tBuff.TimeLeft, tBuff.Name);
    end
    else
    print("** No buffs **")
    end[/syntax]
    Сохраняем, закрываем, запускаем рек, бафаем мешающий нам баф, запускаем бота, в консоли нажимаем букву "T"(В самой консоли искать букву "Т" бесполезно, искать нужно на клавиатуре)
    Получаем список бафов(В нашем случае 1 баф) смотрим код бафа, записываем его(На лоб лучше не записывать, стирать неудобно, и когда переписывать нужно будет, без зеркала не обойтись).
    И добавляем в файл BeastPossession.mms

    [syntax]Requiem.RemoveBuff(ИД_Нашего_бафа)[/syntax]

    Надеюсь куда добавить разберётесь.
    ADACH, Sirmabus, DWAR the BESSSSSSSSSST
    <3 MM REQBOT [Please, register to view links]
    love is in the air, blinding me with smoke, you are the air i breathe, when i choke.
    butterflies in the jar
    captured my heart, goodies in the basket, stuttering the ways, i love you honey.
    insect in your kiss.
    You are my sunshine.
    Get out of my rowboat, Get out of my rowboat, © Coal Chamber

  3. The Following 2 Users Say Thank You to TemTriss For This Useful Post:


  4. #3
    stirlitssss
    stirlitssss is offline
    New member
    Join Date
    2010 Sep
    Posts
    5
    Thanks Thanks Given 
    3
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    у меня получился такой id 2d55 вот куда я его вставил! по идеи тут!
    -- Beast mode active now?
    Requiem.RemoveBuff(2D55)
    if (bit.band(gtAvatar.HCFlags, Requiem.BEAST_ACTIVE) > 0) then

    -- Only continue if we have at least one skill enabled
    if (SkillEnabled() == true) then

    -- Try the first available beast skill if any, function
    local function TrySkills()
    local AttackersCount = gtCombat:GetPartyAttackersCount()
    local TargetHP = ((gtTarget.HP / gtTarget.MaxHP) * 100.0)
    for ix = 1,cBeastSkills do
    if (aBeastSkill[ix]oSkill(TargetHP, gtAvatar.MP, gtTarget, AttackersCount) == 0) then
    return(true)
    end
    end
    return(false)
    end
    -- 2010-11-04, 12:31 --
    И не убирается баф!
    -- 2010-11-04, 13:11 --
    или куда вставить?

  5. #4
    TemTriss
    TemTriss is offline
    Senior Member TemTriss's Avatar
    Join Date
    2010 May
    Location
    Saint-Pitersburg
    Posts
    204
    Thanks Thanks Given 
    47
    Thanks Thanks Received 
    82
    Thanked in
    3 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    Читай выше. полный гайд... ты его даже не дочитал.
    ADACH, Sirmabus, DWAR the BESSSSSSSSSST
    <3 MM REQBOT [Please, register to view links]
    love is in the air, blinding me with smoke, you are the air i breathe, when i choke.
    butterflies in the jar
    captured my heart, goodies in the basket, stuttering the ways, i love you honey.
    insect in your kiss.
    You are my sunshine.
    Get out of my rowboat, Get out of my rowboat, © Coal Chamber

  6. #5
    Kulspruta
    Kulspruta is offline
    Member-in-training
    Join Date
    2010 May
    Posts
    158
    Thanks Thanks Given 
    74
    Thanks Thanks Received 
    19
    Thanked in
    5 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    я например дочитал твой первый пост, но тоже не разобрался куды вставлять в beastpossession.mms

  7. #6
    TemTriss
    TemTriss is offline
    Senior Member TemTriss's Avatar
    Join Date
    2010 May
    Location
    Saint-Pitersburg
    Posts
    204
    Thanks Thanks Given 
    47
    Thanks Thanks Received 
    82
    Thanked in
    3 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    Ну а что там разбиратся то?
    в beaspossesion.mms после этих строк добавляеш
    -- If enabled do beast possession if it's enabled
    -- Returns 'true' if activated
    local function _CheckPossession()
    --
    -- If enabled
    if (gtSettings.PBHotbar[1] > 1) then
    --
    -- If ready to be, and not already activated
    ADACH, Sirmabus, DWAR the BESSSSSSSSSST
    <3 MM REQBOT [Please, register to view links]
    love is in the air, blinding me with smoke, you are the air i breathe, when i choke.
    butterflies in the jar
    captured my heart, goodies in the basket, stuttering the ways, i love you honey.
    insect in your kiss.
    You are my sunshine.
    Get out of my rowboat, Get out of my rowboat, © Coal Chamber

  8. The Following 2 Users Say Thank You to TemTriss For This Useful Post:


  9. #7
    stirlitssss
    stirlitssss is offline
    New member
    Join Date
    2010 Sep
    Posts
    5
    Thanks Thanks Given 
    3
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    вставил всё как ты сказал! И ничего не происходит!
    -- 2010-11-05, 04:51 --
    вставил всё как ты сказал! И ничего не происходит!
    -- 2010-11-05, 09:17 --
    --================================================== ===========================
    -- Beast possession support
    -- By Sirmabus
    --
    --================================================== ===========================

    -- Max beast skills supported
    local cBeastSkills = 6

    local LastActivationTime = -math.huge
    -- PB attack options
    local cPBAtkBeastPriority = SNum(1)
    local cPBAtkDefaultPriority = SNum()
    local cPBAtkBeastOnly = SNum()


    -- Init beast skill containers
    local aBeastSkill = {}
    for ix = 1,cBeastSkills do
    aBeastSkill[ix] = cAttackSkillR:New(gtSettings.tPBAttackSkill[ix])
    end

    -- If enabled do beast possession if it's enabled
    -- Returns 'true' if activated
    local function _CheckPossession()
    --
    -- If enabled
    if (gtSettings.PBHotbar[1] > 1) then
    --Requiem.RemoveBuff(2D55)
    -- If ready to be, and not already activated
    -- Requiem.RemoveBuff(2D55)
    if ((bit.band(gtAvatar.HCFlags, Requiem.BEAST_AVAILABLE) > 0) and (bit.band(gtAvatar.HCFlags, Requiem.BEAST_ACTIVE) == 0)) then
    -- Give the PB some time to activate
    if (time.Delta(LastActivationTime) > 15.0) then
    -- Use beast possesion action
    UseBeastPossession(gtSettings.PBHotbar[1], gtSettings.PBHotbar[2])
    LastActivationTime = time.Get()
    return(true)
    end
    end
    end
    return(false)
    end


    -- Reset beast skill counts
    local function _ResetSkills()
    for ix = 1,cBeastSkills do aBeastSkill[ix]:Reset() end
    end


    -- Private: Return "true" if any beast skill is enabled
    local function SkillEnabled()
    for ix = 1,cBeastSkills do
    if (aBeastSkill[ix]:IsEnabled() == true) then return(true) end
    end
    return(false)
    end

    -- Private: Return "true" if any beast skill enabled, and out of cooldown
    local function SkillAvailable()
    for ix = 1,cBeastSkills do
    if (aBeastSkill[ix]:IsCooledDown() == true) then return(true) end
    end
    return(false)
    end


    -- Do a beast skills cycle
    -- Returns 'true' if skill used, or if we should skip default attack skills
    local function _DoAttackSkills(SelfRef, iStage)
    assert((iStage == 1) or (iStage == 2))

    -- If Beast control enabled
    if (gtSettings.PBHotbar[1] > 1) then
    --[[Requiem.RemoveBuff(2D55)

    printf(" HC: %d, %d %d %d\n", gtAvatar.HC,
    bit.band(gtAvatar.HCFlags, Requiem.BEAST_EXISTS),
    bit.band(gtAvatar.HCFlags, Requiem.BEAST_AVAILABLE),
    bit.band(gtAvatar.HCFlags, Requiem.BEAST_ACTIVE)
    );
    --]]

    -- Beast mode active now?
    if (bit.band(gtAvatar.HCFlags, Requiem.BEAST_ACTIVE) > 0) then

    -- Only continue if we have at least one skill enabled
    if (SkillEnabled() == true) then

    -- Try the first available beast skill if any, function
    local function TrySkills()
    local AttackersCount = gtCombat:GetPartyAttackersCount()
    local TargetHP = ((gtTarget.HP / gtTarget.MaxHP) * 100.0)
    for ix = 1,cBeastSkills do
    if (aBeastSkill[ix]oSkill(TargetHP, gtAvatar.MP, gtTarget, AttackersCount) == 0) then
    return(true)
    end
    end
    return(false)
    end

    -- Do logic according to the attack option, use result and and stage
    if (iStage == 1) then
    -- Should we try our skills first?
    if ((gtSettings.PBSkillOption == cPBAtkBeastPriority) or (gtSettings.PBSkillOption == cPBAtkBeastOnly)) then
    --
    local bResult = TrySkills()
    -- If using the "cPBAtkBeastOnly" option, we'll force a 'true' return to make
    -- default attack skills skip
    if ((bResult == true) or (gtSettings.PBSkillOption == cPBAtkBeastOnly)) then
    return(true)
    end
    end
    --
    -- Stage 2
    elseif (gtSettings.PBSkillOption ~= cPBAtkBeastPriority) then
    return(TrySkills())
    end
    end
    end
    end

    return(false)
    end

    -- Return 'true' if we are in beast mode
    local function _IsBeastMode()
    if (bit.band(gtAvatar.HCFlags, Requiem.BEAST_ACTIVE) > 0) then
    return(true)
    else
    return(false)
    end
    end


    -- End of this module and declare publics
    module(...)

    CheckPossession = _CheckPossession
    IsBeastMode = _IsBeastMode
    ResetSkills = _ResetSkills
    DoAttackSkills = _DoAttackSkills
    -- 2010-11-05, 09:18 --
    Вот! В чём ошибка?

  10. #8
    Kulspruta
    Kulspruta is offline
    Member-in-training
    Join Date
    2010 May
    Posts
    158
    Thanks Thanks Given 
    74
    Thanks Thanks Received 
    19
    Thanked in
    5 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    как я , везде вставил чтоб наверняка

  11. #9
    TemTriss
    TemTriss is offline
    Senior Member TemTriss's Avatar
    Join Date
    2010 May
    Location
    Saint-Pitersburg
    Posts
    204
    Thanks Thanks Given 
    47
    Thanks Thanks Received 
    82
    Thanked in
    3 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    лол ты может хоть раскоментируеш свой код бггг Х)
    -- 2010-11-05, 14:01 --
    короче я вечером потестю, выложу готовый вариант!
    P.S. Это мой последний скрипт, мне в обшем лень писать что то для кого то, когда готовая дока лежит... да и сейчас написал довольно подробный гайд... и всё равно не сделать... =\
    Ну короче ждите, сёня вечером если будет свободное время я сделаю... а дальше читайте доки, и учитесь сами... а то притензии в ПМ достали, я тестер бота, и не чем не кому не обязан писать, у вас есть бот, есть гайд, остальное не мои проблемы, я выявляю ошибки и сообшаю о них автору, не более, в помощь не умеющим читать я не нанимался!
    ADACH, Sirmabus, DWAR the BESSSSSSSSSST
    <3 MM REQBOT [Please, register to view links]
    love is in the air, blinding me with smoke, you are the air i breathe, when i choke.
    butterflies in the jar
    captured my heart, goodies in the basket, stuttering the ways, i love you honey.
    insect in your kiss.
    You are my sunshine.
    Get out of my rowboat, Get out of my rowboat, © Coal Chamber

  12. The Following 2 Users Say Thank You to TemTriss For This Useful Post:


  13. #10
    stirlitssss
    stirlitssss is offline
    New member
    Join Date
    2010 Sep
    Posts
    5
    Thanks Thanks Given 
    3
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0

    Re: MM ReqBot Script.

    Хорошо сказано)))Ждём!

Page 1 of 2 12 LastLast

Posting Permissions

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