Sanieg

Um exemplo seria um pergaminho foi como eu disse, serve qualquer item que possa ser carregado e não esteja configurado em actions.xml

Nextbr Ele quer que toque 2 musicas ao mesmo tempo...Exemplo: Acaba uma começa a outra

Não é necessário obrigado, basta você utilizar em algum item que não possua nenhuma configuração em actions.xml que ira funcionar...

Não vai funcionar nessa stone... nem em qualquer outra (já configurada) como: earth stone, crystal, water, coccon etc...

Para "desbugar" você tem que efetuar o download de outro dev c++ veja se esse é funcional: http://www.tibiaking.com/forum/topic/55289-erro-ao-compilar-tfs-04-rev3884-no-dev-c/

em data/actions/scripts crie o arquivo com o nome: mega stone.lua e abra ele com algum editor de texto e coloque dentro dele: local evo = {["Charizard"] = {"Mega Charizard", QUANTIANECESSARIADESTONES}, } local balls = { [IDDAPOKEBALL] = {newBall = IDDAPOKEBALL}, } function onUse(cid, item, fromPosition, itemEx, toPosition) if isMonster(itemEx.uid) and getCreatureMaster(itemEx.uid) == cid then local monster = getCreatureName(itemEx.uid) if evo[monster] then if getPlayerItemCount(cid, item.itemid) >= evo[monster][2] then doPlayerSendTextMessage(cid, 27, "Parabens! Seu "..getPokeName(itemEx.uid).." evoluiu para "..evo[monster][1].."!") local health, maxHealth = getCreatureHealth(itemEx.uid), getCreatureMaxHealth(itemEx.uid) doSendMagicEffect(getThingPos(itemEx.uid), 18) doRemoveCreature(itemEx.uid) doPlayerRemoveItem(cid, item.itemid, evo[monster][2]-1) doRemoveItem(item.uid, 1) doSummonMonster(cid,evo[monster][1]) local pokeball = getPlayerSlotItem(cid, 8) doItemSetAttribute(pokeball.uid, "poke", evo[monster][1]) doItemSetAttribute(pokeball.uid, "level", pokes[evo[monster][1]].level) doItemSetAttribute(ball, "hp", 1) doItemSetAttribute(ball, "happy", 110) local pk = getCreatureSummons(cid)[1] local getMegaPokeballs = balls[getPlayerSlotItem(cid, 8).itemid] doTransformItem(getPlayerSlotItem(cid, 8).uid, getMegaPokeballs.newBall) adjustStatus(pk, pokeball.uid, true, false, true) return TRUE else return doPlayerSendTextMessage(cid, 27, "Voce precisa de ".. evo[monster][2] .." stones para isso!") end end end return FALSE end agora em data/actions abra actions.xml e coloque: action itemid="IDDASTONE" event="script" value="mega stone.lua" allowfaruse="1"/> Não esqueça de configurar*..

Olha você tem que tentar baixar uma source de um servidor o mais parecido com o seu possível e em seguida verificar se é compatível, porém tem vezes que o bug é do próprio dev c++

Já tentou fazer uma montagem nas músicas ?? https://www.youtube.com/watch?v=qasiClB3dk4

Acho que o luan vai arrumar uma forma melhor de fazer isso (quase certeza) mais enfim, acho que ficaria assim: local config = { positions = { {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, }, positions2 = { {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, {{x=535, y=1597, z=4}, {x=535, y=2000, z=4}}, }, } function onUse(cid, item, fromPosition, item2, toPosition) -- Checando posições 1 for i = 1, #config.positions do if not isPlayer(getTopCreature(config.positions[i][1]).uid) then return doPlayerSendCancel(cid, "Nao existe players em todas as posicoes.") and doSendMagicEffect(getThingPos(cid), 2) end local guild1 = getPlayerGuildId(cid) if getPlayerGuildId(getTopCreature(config.positions[i][1]).uid) ~= guild1 then return doPlayerSendCancel(cid, "Algum player nao e da guild correta.") and doSendMagicEffect(getThingPos(cid), 2) end end -- Checando posições 2 for i = 1, #config.positions2 do if not isPlayer(getTopCreature(config.positions2[i][1]).uid) then return doPlayerSendCancel(cid, "Not enough players.") and doSendMagicEffect(getThingPos(cid), 2) end local guild2 = getPlayerGuildId(getTopCreature(config.positions2[1][1]).uid) if getPlayerGuildId(getTopCreature(config.positions2[i][1]).uid) ~= guild2 then return doPlayerSendCancel(cid, "Alguem player nao e da guild correta.") and doSendMagicEffect(getThingPos(cid), 2) end end -- Teleportando posições 1 for i = 1, #config.positions do local creature = getTopCreature(config.positions[i][1]).uid local storage1 = 10045 doTeleportThing(creature, config.positions[i][2]) setPlayerStorageValue(creature, storage1, 1) doPlayerSendTextMessage(creature, 27, "You started the quest.") doSendMagicEffect(getThingPos(creature), 33) end -- Teleportando posições 1 for i = 1, #config.positions2 do local creature = getTopCreature(config.positions2[i][1]).uid local storage2 = 10046 local guilda1 = getPlayerGuildName(getTopCreature(config.positions[i][1]).uid) local guilda2 = getPlayerGuildName(getTopCreature(config.positions2[i][1]).uid doTeleportThing(creature, config.positions2[i][2]) setPlayerStorageValue(creature, storage2, 1) doBroadcastMessage("Começou uma batalha entre ".. guilda1 .." e ".. guilda2 ..".") doPlayerSendTextMessage(creature, 27, "You started the quest.") doSendMagicEffect(getThingPos(creature), 33) end return true end

Para o magic veja esse tópico (sources): http://www.tibiaking.com/forum/topic/41223-max-de-magic-lvl-156-como-aumentar/ Erro do start.lua: Tente mudar db.executeQuery para db.Query

Olha não estou tendo capacidade de encontrar o erro então não posso lhe ajudar nesse ritmo que o tópico esta seguindo desculpe.. Caso eu encontre uma solução eu lhe ajudarei por pm ... (Afinal até eu sei a hora de desistir)

Nada fico feliz que tenha resolvido, qualquer coisa já sabe só chamar.

Editado* não tinha visto nada de errado com o script mais tudo bem .... (fora o onCombat do próprio script que não fazia nada) PS: Removi o oncombat registerCreatureEvent(cid, "SagaKill") registerCreatureEvent(cid, "SagaStats") <event type="kill" name="SagaKill" event="script" value="saga.lua"/> <event type="statschange" name="SagaStats" event="script" value="saga.lua"/>

Segue: action itemid="IDDASTONE" event="script" value="mega stone.lua" allowfaruse="1"/> e o script: local evo = {["Charizard"] = {"Mega Charizard", QUANTIANECESSARIADESTONES}, } local balls = { [IDDAPOKEBALL] = {newBall = IDDAPOKEBALL}, } function onUse(cid, item, fromPosition, itemEx, toPosition) if isMonster(itemEx.uid) and getCreatureMaster(itemEx.uid) == cid then local monster = getCreatureName(itemEx.uid) if evo[monster] then if getPlayerItemCount(cid, item.itemid) >= evo[monster][2] then doPlayerSendTextMessage(cid, 27, "Parabens! Seu "..getPokeName(itemEx.uid).." evoluiu para "..evo[monster][1].."!") local health, maxHealth = getCreatureHealth(itemEx.uid), getCreatureMaxHealth(itemEx.uid) doSendMagicEffect(getThingPos(itemEx.uid), 18) doRemoveCreature(itemEx.uid) doPlayerRemoveItem(cid, item.itemid, evo[monster][2]-1) doRemoveItem(item.uid, 1) doSummonMonster(cid,evo[monster][1]) local pokeball = getPlayerSlotItem(cid, 8) doItemSetAttribute(pokeball.uid, "poke", evo[monster][1]) doItemSetAttribute(pokeball.uid, "level", pokes[evo[monster][1]].level) doItemSetAttribute(ball, "hp", 1) doItemSetAttribute(ball, "happy", 110) local pk = getCreatureSummons(cid)[1] local getMegaPokeballs = balls[getPlayerSlotItem(cid, 8).itemid] doTransformItem(getPlayerSlotItem(cid, 8).uid, getMegaPokeballs.newBall) adjustStatus(pk, pokeball.uid, true, false, true) return TRUE else return doPlayerSendTextMessage(cid, 27, "Voce precisa de ".. evo[monster][2] .." stones para isso!") end end end return FALSE end

local monster = 'Demon' -- name local stor = 8000 -- storage function onStatsChange(cid, target) if isPlayer(cid) then elseif isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) < 3 then setCreatureNoMove(target, 1) end end return true end function onKill(cid, target) if getPlayerStorageValue(cid, stor) == 3 then end return true end if isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) == 2 then setPlayerStorageValue(cid, stor, 3) end return true end

Tente da seguinte forma: function onSay(cid, words, param, channel) local t = string.explode(param, ",") if t[1] ~= nil and t[2] ~= nil then local list = {} for i, tid in ipairs(getPlayersOnline()) do list[i] = tid end for i = 1, #list do doPlayerAddItem(math.random(list[i]),t[1],t[2]) doBroadcastMessage(getPlayerName(cid) .. " Acabou de sortear: " .. t[2] .." ".. getItemNameById(t[1]) .. " para todos os players online!") end else doPlayerPopupFYI(cid, "No parm...\nSend:\n /itemadd itemid,how_much_items\nexample:\n /itemadd 2160,10") end return true end

auto 100 {listas "Loot | setcolor 1 500 500} | foreach 'newmessages' $msg if [$msg.content ? 'Loot of a NOMEDOMONSTER:']{opengrounditem IDDOCORPO | wait 1000}

Com speed 0 ele não ira se mover, a segunda forma ele não ira se mover se o player ainda não tiver feito essa saga... Vou dar uma editada só para ele não fazer a saga novamente.

Se isso for na base de spell olhe isso aqui, talvez te ajude: http://www.tibiaking.com/forum/topic/27561-exhausted-e-couldown/

você pode colocar speed="0" no monster ou se preferir: registerCreatureEvent(cid, "SagaCombat") registerCreatureEvent(cid, "SagaKill") registerCreatureEvent(cid, "SagaStats") <event type="combat" name="SagaCombat" event="script" value="saga.lua"/> <event type="kill" name="SagaKill" event="script" value="saga.lua"/> <event type="statschange" name="SagaStats" event="script" value="saga.lua"/> local monster = 'Demon' -- name local stor = 8000 -- storage function onCombat(cid, target) if (isPlayer(cid)) then if (isMonster(target) and (getCreatureName(target) == monster and (getPlayerStorageValue(cid, stor) == 1 or 3))) then return false end elseif (isMonster(cid)) then if (isPlayer(target) and (getPlayerStorageValue(target, stor) == 1 or 3)) then return false end end return true end function onStatsChange(cid, target) if isPlayer(cid) then elseif isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) < 3 then setCreatureNoMove(target, 1) end end return true end function onKill(cid, target) if getPlayerStorageValue(cid, stor) == 3 then return true end if isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) == 2 then setPlayerStorageValue(cid, stor, 3) end return true end

Olha sobre isso eu não sei eu costumo usar setPlayer mesmo assim obrigado pela correção

Vou dar uma editada* vlw luanluciano93 e demorei um pouco para entender mais entendi (eu acho ) function onKill(cid, target, lastHit) if not (isPlayer(cid) and isMonster(target)) then return true end local name = 'MONSTER' if getCreatureName(target, name) == false then return true end local storage = 34242 if getPlayerGuildName(cid) == getGlobalStorageValue(storage, 1) then return true end local guild = getPlayerGuildName(cid) setGlobalStorageValue(34242, guild) return true end

Mude seu nome e senha de login no mysql ou sqlite de seu servidor...

<talkaction log="yes" words="/additem" access="5" event="script" value="additem.lua"/> function onSay(cid, words, param, channel) local t = string.explode(param, ",") if t[1] ~= nil and t[2] ~= nil then local list = {} for i, tid in ipairs(getPlayersOnline()) do list[i] = tid end for i = 1, #list do doPlayerAddItem(math.random(1,list[i]),t[1],t[2]) doBroadcastMessage(getPlayerName(cid) .. " Acabou de sortear: " .. t[2] .." ".. getItemNameById(t[1]) .. " para todos os players online!") end else doPlayerPopupFYI(cid, "No parm...\nSend:\n /itemadd itemid,how_much_items\nexample:\n /itemadd 2160,10") end return true end

thiagomotta [scripts]: Spell local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) setCombatParam(combat, COMBAT_PARAM_EFFECT, 10) setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, 10) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 0, -100, 0, -3700) local exhauststorage = 10103 local exhauststorage1 = 10113 local tempo = 10 --tempo em que o player ficara sem se mover e sera controlado function onCastSpell(cid, combat, var) if isPlayer(cid) then setPlayerNoMove(cid, 1, os.time()+tempo) setPlayerNoMove(target, 1, os.time()+tempo) setPlayerStorageValue(cid, exhauststorage, os.time()+tempo) setPlayerStorageValue(target, exhauststorage1, os.time()+tempo) end return doCombat(cid, combat, var) end Creaturescripts: function onStatsChange(cid, target) local exhauststorage = 10103 local exhauststorage1 = 10113 local tempo = 2 -- delay em segundos entre que o target seja teleportado if(getPlayerStorageValue(cid, exhauststorage)) then elseif(getPlayerStorageValue(target, exhauststorage1)) then doPlayerSendTextMessage(cid,19,"Voce e seu alvo devem esperar "..(getPlayerStorageValue(cid, exhauststorage)-os.time()).." segundos para se movimentar novamente.") doPlayerSendTextMessage(target,19,"Voce deve esperar "..(getPlayerStorageValue(cid, exhauststorage1)-os.time()).." segundos para se movimentar novamente.") local function lookdirection(cid, target) elseif getCreatureLookDirection(cid) == 1 then setCreatureLookDirection(target, 1) doTeleportThink(target, getPlayerPosition(target)+1, os.time()+tempo) end elseif getCreatureLookDirection(cid) == 2 then setCreatureLookDirection(target, 2) doTeleportThink(target, getPlayerPosition(target)+1, os.time()+tempo) end elseif getCreatureLookDirection(cid) == 3 then setCreatureLookDirection(target, 3) doTeleportThink(target, getPlayerPosition(target)+1, os.time()+tempo) end elseif getCreatureLookDirection(cid) == 0 then setCreatureLookDirection(target, 0) doTeleportThink(target, getPlayerPosition(target)+1, os.time()+tempo) end return addEvent(cid, lookdirection) end end return true end tags: Spell <instant name="Control Mind" words="control mind" lvl="100" mana="100" needtarget="1" prem="1" range="5" blockwalls="0" exhaustion="10000" maglv="0" needlearn="0" script="exemplo.lua"> </instant> CreatureScripts <event type="statschange" name="Cmind" event="script" value="exemplo.lua"/> Login.lua registerCreatureEvent(cid, "Cmind")