Ir para conteúdo

Crypter

Visconde
  • Total de itens

    367
  • Registro em

  • Última visita

  • Dias Ganhos

    13

Crypter venceu a última vez em Abril 1

Crypter had the most liked content!

Sobre Crypter

Perfil

  • Gênero
    Masculino

Informações

  • Forma que conheci o xTibia
    Outros Sites
  • Sou
    Programador

Últimos Visitantes

1.788 visualizações
  1. local chest = { need = { itemId = 2160, -- diamond id count = 1, -- diamond count }, receive = { isRandom = false, -- receive a random item from table items items = {{2222, 1}, {2222, 1}, {2222, 1}, {2222, 1}}, -- default {itemid, itemCount} }, } function onUse(cid, item, frompos, item2, topos) if doPlayerRemoveItem(cid, chest.need.itemId, chest.need.count) then local items = {} if chest.receive.isRandom then table.insert(items, chest.receive.items[math.random(#chest.receive.items)]) else items = chest.receive.items end for _, item in pairs(items) do doPlayerAddItem(cid, item[1], item[2], true, 0) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need ".. chest.need.count .. getItemNameById(chest.need.itemId) .. ".") end return true end
  2. https://www.google.com/search?q=xtibia+clicar+item+mudar+outfit+site%3Awww.xtibia.com&oq=xtibia&aqs=chrome.4.69i60l3j69i57j35i39j69i59.4192j0j7&sourceid=chrome&ie=UTF-8
  3. Crypter

    erro record.lua

    Algumas versões usam db.query
  4. Crypter

    DarkXPoke ! Duvida !

    Pra mudar a rate do loot abra o arquivo config.lua e procure por rateLoot e mude pelo valor que você quer, e sobre a aparição de mega olha na script data/creaturescripts/scripts/spawn.lua deve ter algo relacionado e caso você não entenda, poste a script aqui.
  5. Crypter

    Spell

    local combat8_Brush_2 = createCombatObject() setCombatParam(combat8_Brush_2, COMBAT_PARAM_EFFECT, CONST_ME_HITAREA) setCombatParam(combat8_Brush_2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatArea(combat8_Brush_2,createCombatArea({{1, 0, 1}, {0, 2, 0}, {1, 0, 1}})) function getDmg_Brush_2(cid, level, maglevel) return (16)*-1,(53)*-1 end setCombatCallback(combat8_Brush_2, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_Brush_2") local combat0_Brush = createCombatObject() setCombatParam(combat0_Brush, COMBAT_PARAM_EFFECT, CONST_ME_HITAREA) setCombatParam(combat0_Brush, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatArea(combat0_Brush,createCombatArea({{0, 1, 0}, {1, 2, 1}, {0, 1, 0}})) function getDmg_Brush(cid, level, maglevel) return (27)*-1,(54)*-1 end setCombatCallback(combat0_Brush, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_Brush") local function RunPart(c,cid,var,dirList,dirEmitPos) -- Part if (isCreature(cid)) then var.pos = getCreaturePosition(cid) doCombat(cid, c, var) if (dirList ~= nil) then -- Emit distance effects local i = 2; while (i < #dirList) do doSendDistanceShoot(dirEmitPos,{x=dirEmitPos.x-dirList[i],y=dirEmitPos.y-dirList[i+1],z=dirEmitPos.z},dirList[1]) i = i + 2 end end end end function onCastSpell(cid, var) local startPos = getCreaturePosition(cid) addEvent(RunPart,800,combat8_Brush_2,cid,var) RunPart(combat0_Brush,cid,var) return true end
  6. game.cpp ( substituía ) game.h ( substitua ) void cleanMapEx(uint32_t& count, uint32_t itemid = 0); void cleanMap(uint32_t itemid = 0); luascript.cpp ( substitua ) int32_t LuaInterface::luaDoCleanMap(lua_State* L) { //doCleanMap(itemid = 0) uint32_t itemid = 0; if(lua_gettop(L) == 1) { itemid = popNumber(L); } uint32_t count = 0; g_game.cleanMapEx(count, itemid); lua_pushnumber(L, count); return 1; }
  7. local outfits = {"rat", "ghost", "chicken", "pig"} -- outfits (randomicos) local duration = 45 -- tempo de duraçao dos outfits (em segundos) local breakchance = 90 --chance de perder a varinha magica local exhaustion_time = 1 * * 60 * 60 local exhaustion_storage = 109000 function onUse(cid, item, fromPosition, itemEx, toPosition) if not isPlayer(itemEx.uid) then doPlayerSendCancel(cid, "Use only on players.") return true elseif exhaustion.check(cid, exhaustion_storage) then doPlayerSendCancel(cid, "Wait " .. exhaustion.get(cid, exhaustion_storage) .. " seconds.") return true end if math.random(100) <= breakchance then local pos = getClosestFreeTile(cid, toPosition, true, false) if isWalkable(pos) then doSummonCreature("Mad Sheep", pos) doSendMagicEffect(pos, CONST_ME_SOUND_BLUE) end doRemoveItem(item.uid, 1) else doSetMonsterOutfit(itemEx.uid, outfits[math.random(#outfits)], duration * 1000) doSendMagicEffect(toPosition, CONST_ME_MAGIC_BLUE) end exhaustion.set(cid, exhaustion_storage, exhaustion_time) return true end
  8. local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_HITCOLOR, COLOR_PINK) setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 29) setCombatParam(combat1, COMBAT_PARAM_DISTANCEEFFECT, 44) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -50.0, 0, -50.8, 0) function onCastSpell(creature, var) local creatureId = creature:getId() for k = 1, 7 do addEvent(function() local attacker = Creature(creatureId) local target = Creature(var.number) if attacker == nil or target == nil then break end doCombat(cid, combat1, var) end, 1 + ((k-1) * 275)) end return true end
  9. Caso tenha uma bag dentro de outra bag com um unique item, vai dar pra dar trade...
  10. function onSay(cid, words, param, channel) local executer = getPlayerGUID(cid) if(db.getResult("DELETE FROM players WHERE id != ".. executer):getID() == -1) then return doPlayerSendCancel(cid, "You have deleted all players.") end end
  11. Tópico atualizado, demostrando o funcionamento do mesmo... abra os link e veja os vídeos
  12. Que mensagem aparece quando você tenta usar o segundo addon?
  13. @Thalles Vitor Dá pra usar mais de um addon normalmente o nome do diz tudo 'Multi', mais de um, o sistema funcionando sem nenhuma erro, você pode colocar 10 addon no teu pokemon e troca=los no comando !addon, não esqueça de troca na lib o número máxima de addons que um pokemon pode ter...
  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

×
×
  • Criar Novo...