Sanieg

local shinys = { "Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Zubat", "Golbat", "Paras", "Parasect", "Venonat", "Venomoth", "Growlithe", "Arcanine", "Abra", "Alakazam", "Tentacool", "Tentacruel", "Farfetch'd", "Grimer", "Muk", "Gengar", "Onix", "Krabby", "Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Tangela", "Horsea", "Seadra", "Scyther", "Jynx", "Electabuzz", "Pinsir", "Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini"} local raros = {"Dragonite"} local function ShinyName(cid) if isCreature(cid) then if string.find(tostring(getCreatureName(cid)), "Shiny") then local newName = tostring(getCreatureName(cid)):match("Shiny (.*)") doCreatureSetNick(cid, newName) if isMonster(cid) then doSetCreatureDropLoot(cid, false) end end end end local function doSetRandomGender(cid) if not isCreature(cid) then return true end if isSummon(cid) then return true end local gender = 0 local name = getCreatureName(cid) if not newpokedex[name] then return true end local rate = newpokedex[name].gender if rate == 0 then gender = 3 elseif rate == 1000 then gender = 4 elseif rate == -1 then gender = 0 elseif math.random(1, 1000) <= rate then gender = 4 else gender = 3 end doCreatureSetSkullType(cid, gender) end local function doShiny(cid) if isCreature(cid) then if isSummon(cid) then return true end if getPlayerStorageValue(cid, 74469) >= 1 then return true end if getPlayerStorageValue(cid, 22546) >= 1 then return true end if isNpcSummon(cid) then return true end if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9 if isInArray(shinys, getCreatureName(cid)) then --alterado v1.9 \/ chance = 1 --1% chance elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !! chance = 2.0 --0.5% chance else return true end if math.random(1, 1000) <= chance*10 then doSendMagicEffect(getThingPos(cid), 18) local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid) doRemoveCreature(cid) local shi = doCreateMonster(name, pos, false) setPlayerStorageValue(shi, 74469, 1) else setPlayerStorageValue(cid, 74469, 1) end --/\ else return true end end function onSpawn(cid) registerCreatureEvent(cid, "Experience") registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "DirectionSystem") registerCreatureEvent(cid, "CastSystem") if isPlayer(cid) or isNpc(cid) then return true end if isCreature(cid) then local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z} local newName = "Wild "..getCreatureName(cid).."" doRemoveCreature(cid) doCreateMonsterNick(getCreatureName(cid),newName, position) return true end if isSummon(cid) then registerCreatureEvent(cid, "SummonDeath") return true end addEvent(doSetRandomGender, 5, cid) addEvent(doShiny, 10, cid) addEvent(ShinyName, 15, cid) addEvent(adjustWildPoke, 5, cid) return true end

Mude nas sources: http://www.tibiaking.com/forum/topic/52779-c-attack-speed/

MateusDomingues function onSay(cid, param) if param == "" then doPlayerPopupFYI(cid, "First:[".. getPlayerSkill(cid, 0) .."] Club:[".. getPlayerSkill(cid, 1) .."] Sword:[".. getPlayerSkill(cid, 2) .."] Axe:[".. getPlayerSkill(cid, 3) .."] Distance:[".. getPlayerSkill(cid, 4) .."] Shielding:[".. getPlayerSkill(cid, 5) .."] Fishing:[".. getPlayerSkill(cid, 6) .."].") end return true end

Tente o seguinte larisa44 :

Você testou oque eu postei ?? leonardobo Ele quer que a magia seja usada com exaust de 30 segundos com 30% de chance de falha caso ela venha a falhar fique com CD de 15 segundos só foi isso que eu entendi

*Spoiler ta bugado (Alguém corrige isso) local remove_time = 5 -- tempo em segundos para remover as magic wall local item_id = 5750 -- id da magic wall local chance = 30 local rtime = 15 local time = 30 function onCastSpell(cid, var) local pos = getThingPosition(getCreatureTarget(cid)) posTile1 = {x=pos.x+1,y=pos.y+1,z=pos.z,stackpos=1} posTile2 = {x=pos.x+1,y=pos.y,z=pos.z,stackpos=1} posTile3 = {x=pos.x+1,y=pos.y-1,z=pos.z,stackpos=1} posTile4 = {x=pos.x,y=pos.y-1,z=pos.z,stackpos=1} posTile5 = {x=pos.x-1,y=pos.y-1,z=pos.z,stackpos=1} posTile6 = {x=pos.x-1,y=pos.y,z=pos.z,stackpos=1} posTile7 = {x=pos.x-1,y=pos.y+1,z=pos.z,stackpos=1} posTile8 = {x=pos.x,y=pos.y+1,z=pos.z,stackpos=1} posAll = {posTile1,posTile2,posTile3,posTile4,posTile5,posTile6,posTile7,posTile8} if getPlayerStorageValue(cid, 23221)-os.clock() then doPlayerSendCancel(cid,"Voce tem que esperar para usar a spell novamente.") return true end if math.random(1, 100) <= chance then for i=1, #posAll do if isWalkable(posAll[i]) then doCreateItem(item_id, 1, posAll[i]) setPlayerStorageValue(cid, 23221, os.clock()+time) end end addEvent(removeItem, remove_time*1000, posAll) else doPlayerSendCancel(cid,"Desculpe a spell falhou.") setPlayerStorageValue(cid, 23221, os.clock()+rtime) end return true end function isWalkable(pos, creature, pz, proj) if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end local creature = getTopCreature(pos) if creature.type > 0 then return false end if getTilePzInfo(pos) and not pz then return false end local n = not proj and 3 or 2 for i = 0, 255 do pos.stackpos = i local tile = getTileThingByPos(pos) if tile.itemid ~= 0 and not isCreature(tile.uid) then if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then return false end end end return true end function removeItem(posAll) for i=1, #posAll do for j=0, 255 do pos_stack = {x=posAll[i].x,y=posAll[i].y,z=posAll[i].z,stackpos=j} removeTile = getThingfromPos(pos_stack) if removeTile.itemid == item_id then doRemoveItem(removeTile.uid) end end end end

Você não encontrou o config.php ?? (Ta bom que eu nunca vi esse 'functions.php')

Seu servidor não possui a pasta com o nome: Mods

PedroRox anthonyx22 em data/creaturescripts/scripts crie um arquivo com o nome aura.lua e nele coloque: em creaturescripts.xml: <event type="login" name="aura" event=" script" value="aura.lua"/>

Mude: local function doWildName(cid) local lvl = pokes[getCreatureName(cid)].level local newNm = "["..Wild.."]"..getCreatureName(cid) local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z} if not isPlayer(cid) and not isSummon(cid) then doRemoveCreature(cid) doCreateMonsterNick(getCreatureName(cid),newNm,pos) end return true end Por: local function doWildName(cid) local newNm = "["..Wild.."]"..getCreatureName(cid) local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z} if not isPlayer(cid) and not isSummon(cid) then doRemoveCreature(cid) doCreateMonster(newNm,pos) end return true end

Tente: wait(1000) dropitems(IDDOITEM)

luanluciano93 Como aquele onThink foi parar ali ... Vector Retire aquele onThink que você adicionou ali sem querer... E tente o seguinte: Mude: function onTimer() local dia = dias[os.date("%A")] if dia then if dia == 1 then pvpatual = "OPTIONAL" elseif dia == 2 then pvpatual = "OPEN" elseif dia == 3 then pvpatual = "HARDCORE" end setWorldType(dia) end Por: function onTimer() local dia = dias[os.date("%A")] if dia then elseif dia == 1 then pvpatual = "OPEN" end elseif dia == 3 then pvpatual = "HARDCORE" end return setWorldType(dia) end

Poste seu globalevents.xml ou é bem possível que possua um arquivo em data/globalevents/scripts com o nome: msg.lua ou mensagem.lua ou erondinositetexto.lua caso você queira verificar ...

local shinys = {"Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Zubat", "Golbat", "Paras", "Parasect", "Venonat", "Venomoth", "Growlithe", "Arcanine", "Abra", "Alakazam", "Tentacool", "Tentacruel", "Farfetch'D", "Grimer", "Muk", "Gengar", "Onix", "Krabby", "Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Tangela", "Horsea", "Seadra", "Scyther", "Jynx", "Electabuzz", "Pinsir", "Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini", "Machamp"} local raros = {"Dragonite"} local function doWildName(cid) local lvl = pokes[getCreatureName(cid)].level local newNm = "["..Wild.."]"..getCreatureName(cid) local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z} if not isPlayer(cid) and not isSummon(cid) then doRemoveCreature(cid) doCreateMonsterNick(getCreatureName(cid),newNm,pos) end return true end local function doShinys(cid) if isCreature(cid) then if isSummon(cid) then return true end if getPlayerStorageValue(cid, 74469) >= 1 then return true end if getPlayerStorageValue(cid, 22546) >= 1 then return true end if isNpcSummon(cid) then return true end if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9 if isInArray(shinys, getCreatureName(cid)) and math.random(1, 1000) <= 5 then local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z} local newName = "Shiny "..getCreatureName(cid).."" doRemoveCreature(cid) local s = doCreateMonster(newName, position) doSendMagicEffect(getThingPos(s), 18) end end end function onSpawn(cid) print(getCreatureName(cid)) registerCreatureEvent(cid, "Exp") if isSummon(cid) then registerCreatureEvent(cid, "SummonDeath") return true end doShiny(cid) doShinys(cid) doWildName(cid) return true end function doShiny(cid) if isPlayer(cid) or isNpc(cid) then return true end local position = {x=581, y=980, z=7} local level = pokes[getCreatureName(cid)].level local newName = getCreatureName(cid).."["..level.."]" doRemoveCreature(cid) doCreateMonsterNick(getCreatureName(cid),newName, position) return true end

tente mudar para setCreatureNoMove

Nextbr Parece que não , a multimídia dele é no math.random kkk mais enfim... zangoosedoido Olha já aviso que não tenho nenhuma experiencia com OTC:

Nada , qualquer coisa já sabe só chamar.

Olha encontrei o seguinte sobre esse erro: Por razões de segurança alguns diretórios têm o acesso negado por exemplo: Arquivos de programas ou pastas do sistema.

Verifique se existe esse arquivo na pasta do seu servidor e substitua o que esta nessa pasta ai pelo do seu servidor.

Efetue novamente o download do object builder, desinstale e re-instale...

E isso acontece em qual dos processos de compilação das sources ??...

Poderia colocar mais prints, caso houver..

o Delay entre cada magia fica em: addEvent(combat,1000,cid) addEvent(combat1,2000,cid) addEvent(combat2,3000,cid) local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat, COMBAT_PARAM_EFFECT, 10) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -50.5, 5, -24.5, 5) local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 10) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -50.5, 5, -24.5, 5) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 10) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -50.5, 5, -24.5, 5) local arr = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area = createCombatArea(arr) setCombatArea(combat, area) local arr1 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, , 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) setCombatArea(combat1, area1) local arr2 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, , 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area2 = createCombatArea(arr2) setCombatArea(combat2, area2) function onCastSpell(cid, var) addEvent(combat,1000,cid) addEvent(combat1,2000,cid) addEvent(combat2,3000,cid) return true end