ajuda com script

Postado Abril 21, 2016 9 anos
Falaa galera do tibiaking, desculpe ta pedindo ajuda de vcs em pleno feriado, mais estou com dificuldades de adicionar novas conditions nesse scripts
eu queria adicionar essas conditions abaixo e um condition que aumente 50% de speed do player
CONDITION_PARAM_HEALTHGAIN
CONDITION_PARAM_HEALTHTICKS
CONDITION_PARAM_MANAGAIN
CONDITION_PARAM_MANATICKS
---Script by mock the bear!
local conditionMP,conditionHP,conditionML,conditionCLUB,conditionSHI,conditionDIST,conditionAMP = {},{},{},{},{},{},{}
for i=1,100 do ---Carrega as conditions
    --- HP
    conditionHP[i] = createConditionObject(CONDITION_ATTRIBUTES)
    setConditionParam(conditionHP[i], CONDITION_PARAM_TICKS, -1)
    setConditionParam(conditionHP[i], CONDITION_PARAM_STAT_MAXHEALTHPERCENT, 100+i)
    setConditionParam(conditionHP[i], CONDITION_PARAM_BUFF, true)
    setConditionParam(conditionHP[i], CONDITION_PARAM_SUBID, 50)
    --MANA
    conditionMP[i] = createConditionObject(CONDITION_ATTRIBUTES)
    setConditionParam(conditionMP[i], CONDITION_PARAM_TICKS, -1)
    setConditionParam(conditionMP[i], CONDITION_PARAM_STAT_MAXMANAPERCENT, 100+i)
    setConditionParam(conditionMP[i], CONDITION_PARAM_BUFF, true)
    setConditionParam(conditionMP[i], CONDITION_PARAM_SUBID, 51)
    --Magic level
    conditionML[i] = createConditionObject(CONDITION_ATTRIBUTES)
    setConditionParam(conditionML[i], CONDITION_PARAM_TICKS, -1)
    setConditionParam(conditionML[i], CONDITION_PARAM_STAT_MAGICLEVEL, i)
    setConditionParam(conditionML[i], CONDITION_PARAM_BUFF, true)
    setConditionParam(conditionML[i], CONDITION_PARAM_SUBID, 52)
    --club axe sword
    conditionCLUB[i] = createConditionObject(CONDITION_ATTRIBUTES)
    setConditionParam(conditionCLUB[i], CONDITION_PARAM_TICKS, -1)
    setConditionParam(conditionCLUB[i], CONDITION_PARAM_SKILL_CLUB, i)
    setConditionParam(conditionCLUB[i], CONDITION_PARAM_SKILL_SWORD, i)
    setConditionParam(conditionCLUB[i], CONDITION_PARAM_SKILL_AXE, i)
    setConditionParam(conditionCLUB[i], CONDITION_PARAM_BUFF, true)
    setConditionParam(conditionCLUB[i], CONDITION_PARAM_SUBID, 53)
    --- shield
    conditionSHI[i] = createConditionObject(CONDITION_ATTRIBUTES)
    setConditionParam(conditionSHI[i], CONDITION_PARAM_TICKS, -1)
    setConditionParam(conditionSHI[i], CONDITION_PARAM_SKILL_SHIELD, i)
    setConditionParam(conditionSHI[i], CONDITION_PARAM_BUFF, true)
    setConditionParam(conditionSHI[i], CONDITION_PARAM_SUBID, 54)
    --- dist
    conditionDIST[i] = createConditionObject(CONDITION_ATTRIBUTES)
    setConditionParam(conditionDIST[i], CONDITION_PARAM_TICKS, -1)
    setConditionParam(conditionDIST[i], CONDITION_PARAM_SKILL_DISTANCE, i)
    setConditionParam(conditionDIST[i], CONDITION_PARAM_BUFF, true)
    setConditionParam(conditionDIST[i], CONDITION_PARAM_SUBID, 55)
end
function getSlotType(n) --By mock the bear
    if not n then
        return false
    end
    if n:match('%[(.+)%]') then
        n = n:match('%[(.+)%]')
        if n == '?' then
            return 0,n
        else
            return n:match('(.-)%.([+-])(%d+)%%')
        end
    else
        return false
    end
 
end
local function loadSet(cid)
    local t = {}
    for slot=1,9 do
        t[slot] = ''
 
        local s = getPlayerSlotItem(cid,slot).uid
        if s ~= 0 then
            t[slot] = getItemName(s)
        end
    end
    return t
end
function isInArray2(arr,var) -- Because in some servers it return 1 and 0 and others true and false
    for i,b in pairs(arr) do
        if var == b then
            return true
        end
    end
    return false
end
function check2(cid,i)
    if i == 5 or i == 6 then
        if isInArray({'head','necklace','backpack','body','legs','feet','ring'},getItemValue(getPlayerSlotItem(cid,i).itemid,'slotType') or '') then
            return false
        end
    end
    return true
end
function chk(cid,f)
    if not isPlayer(cid) then return end
    local t = loadSet(cid)
    for i=1,#f do
        if f[i] ~= t[i] then
            equip(cid,nil,slot)
            break
        end
    end
    addEvent(chk,100,cid,t)
end
items = { ---- Only to get attr: slotType because getItemName dont return it -.-'
    _VERSION='1.0 By mock',
    XML_DIR='data/items/items.xml',
    }
do
    local ia = os.clock()
    io.write('Loading items')
    local i = io.open(items.XML_DIR,'r')
    local u = i:read(-1)
    i:close()
    local u = u:match('<items>(.+)</items>')
    for mi,id,mid,name,data,me in u:gmatch('<(%a-)%s*id%s*=%s*"(%d+)"%s*(.-)%s*name%s*=%s*"(.-)"%s*>(.-)</(%a*)>') do
        if mi == 'item' and me == 'item' then
            local td = {name=name,id=id,type=1}
            for key,value in data:gmatch('<attribute key="(.-)" value="(.-)"/>') do
                td[key] = value
            end
            for key,value in mid:gmatch('(.-)="(.-)"') do
                td[key] = value
            end
            items[tonumber(id)] = td
 
            items[name] = td
        end
    end
    for mi,id,mid,name,data in u:gmatch('<(%a-)%s*id%s*=%s*"(%d*)"%s*(.-)%s*name%s*=%s*"(%a+)"%s*/>') do
        if mi == 'item' then
            local td = {name=name,id=id,type=2}
            for key,value in mid:gmatch('(.-)="(.-)"') do
                td[key] = value
            end
            items[tonumber(id)] = td
            items[name] = td
        end
    end
    io.write('[done '..os.clock()-ia..']\n')
end
function getItemValue(item,value)
    return items[item] and items[item][value]
end
function equip(cid,item,slot) --By mock the bear
    local HP = getCreatureHealth(cid)
    local MP = getCreatureMana(cid)
    local t = {}
    if item then
        local mm,sinal,qto = getSlotType(getItemName(item.uid))
        t[mm] = tonumber(qto)
    end
    
for i=1,9 do 
   if i ~= 5 and i ~= 6 then
        if i ~= slot then
            if getPlayerSlotItem(cid,i).itemid ~= 0 then
                local aab = getPlayerSlotItem(cid,i).uid
                if aab and check2(cid,i) then
                    for _ in getItemName(aab):gmatch('(%[.-%])') do
                        local mm,sinal,qto2 = getSlotType(_)
                        if mm then
                            if not t[mm] then
                                t[mm] = 0
                            end
                            t[mm] = t[mm]+tonumber(qto2)
 
                            t[mm] = t[mm] > 100 and 100 or t[mm]
                        end
                    end
                end
            end
        end
    end
  end
    local fu = 0
    local ca = {}
    local s = ''
    for sl,n in pairs(t) do
        fu = fu+1
        s = s..''..n..'% more of '..sl..'\n'
        if sl == 'Health'  then
            doAddCondition(cid,conditionHP[tonumber(n)])
            ca[50] = 1
        elseif sl == 'Mana' then
            doAddCondition(cid,conditionMP[tonumber(n)])
            ca[51] = 1
        elseif sl == 'Magically' and getPlayerVocation(cid) == 1 or getPlayerVocation(cid) == 2 or getPlayerVocation(cid) == 5 or getPlayerVocation(cid) == 6 or getPlayerVocation(cid) == 11 or getPlayerVocation(cid) == 12 then
            doAddCondition(cid,conditionML[tonumber(n)])
            ca[52] = 1
        elseif sl == 'cas' and getPlayerVocation(cid) == 3 or getPlayerVocation(cid) == 4 or getPlayerVocation(cid) == 7 or getPlayerVocation(cid) == 8 or getPlayerVocation(cid) == 13 or getPlayerVocation(cid) == 14  then
            doAddCondition(cid,conditionCLUB[tonumber(n)])
            doAddCondition(cid,conditionDIST[tonumber(n)])
            doAddCondition(cid,conditionSHI[tonumber(n)])
            ca[53] = 1
            ca[55] = 1
            ca[54] = 1
        elseif sl == 'shield' then
            doAddCondition(cid,conditionSHI[tonumber(n)])
            ca[54] = 1
        elseif sl == 'Distance' and getPlayerVocation(cid) == 3 then
            doAddCondition(cid,conditionDIST[tonumber(n)])
            ca[55] = 1
        end
    end
    if fu > 0 then
        for i=50,55 do
            if not ca[i] then
                doRemoveCondition(cid,CONDITION_ATTRIBUTES,i)
            end
        end
    else
        for i=50,55 do
            doRemoveCondition(cid,CONDITION_ATTRIBUTES,i)
        end
    end
    return true
end
function onLogin(cid) ---Script by mock the bear!
        equip(cid,nil,slot)
        addEvent(chk,100,cid,loadSet(cid)) -- Here we check!
        return TRUE
end