Gustavo Ntos

o Efeito é 64x64 e no tibia normal é usado 32x32 por isso fico no lugar errado

ele quer que heale 1 sqm a frente isso ira funcionar?

Colocou o Ip: 127.0.0.1 >no config.lua e no tibia.exe???

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HEALING) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) setCombatParam(combat, COMBAT_PARAM_TARGETPLAYERSORSUMMONS, true) setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE) setHealingFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 1.5, 0, 1.6, 0) local arr1 = { {0, 0, 0, 0, 0}, {0, 0, 3, 0, 0}, {0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) setCombatArea(combat, area1) function xkarraw12(cid) local pos2 = getPlayerPosition(cid) if getPlayerLookDir(cid) == 1 then pos2.x=pos2.x+2 pos2.y=pos2.y+1 elseif getPlayerLookDir(cid) == 2 then pos2.x=pos2.x+1 pos2.y=pos2.y+2 elseif getPlayerLookDir(cid) == 3 then pos2.x=pos2.x pos2.y=pos2.y+1 elseif getPlayerLookDir(cid) == 0 then pos2.x=pos2.x+1 pos2.y=pos2.y end doSendMagicEffect(pos2,36) end function onCastSpell(cid, var) addEvent(xkarraw12,0,cid) addEvent(xkarraw12,1000,cid) addEvent(xkarraw12,2000,cid) addEvent(xkarraw12,3000,cid) addEvent(xkarraw12,4000,cid) return TRUE end

Suas Sources/Executavel nao tem essa função.... vai ter que remover

Ja que a galera invadiu meu post ajuda o @Tulacala

Instala as parada do windows windows visual netframework

-- By Gustavo Ntos-- -- v2 Corrigida e testada 100%-- local item = 11506 function onStepIn(cid, item, position, fromPosition) if getPlayerItemCount(cid, item) >= 1 then doSendMagicEffect(getThingPos(cid), 12) doPlayerSendTextMessage(cid, 25, "Bem vindo a Area Exclusiva.") else doTeleportThing(cid, fromPosition, true) doSendMagicEffect(getThingPos(cid), 2) doPlayerSendTextMessage(cid, 25, "Desculpe, mas voce precisa de alguns items para passar.") end return true end

eu Testei em 0.3.6 e funcionou normal manda print do erro então

Qual versão do tfs?? isso é pra 0.3.6-0.4.

-- By Gustavo Ntos-- -- v2 Corrigida e testada 100%-- local item = 11506 function onStepIn(cid, item, position, fromPosition) if getPlayerItemCount(cid, item) >= 1 then doSendMagicEffect(getThingPos(cid), 12) doPlayerSendTextMessage(cid, 25, "Bem vindo a Area Exclusiva.") else doTeleportThing(cid, fromPosition, true) doSendMagicEffect(getThingPos(cid), 2) doPlayerSendTextMessage(cid, 25, "Desculpe, mas voce precisa de alguns items para passar.") end return true end

local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVbehavior == CONVERSATION_DEFAULT and 0 or cid local moeda = 2157 local t = { ["exevo gran mas frigo"] = {level = 9}, } if (msgcontains(msg, 'yes') or msgcontains(msg, 'YES'))then local str = "" str = str .. "Eu vendo estas Magias: " for name, pos in pairs(t) do str = str.." {"..name.."} /" end str = str .. "." npcHandler:say(str, cid) elseif t[msg] then if not getPlayerLearnedInstantSpell(cid, msg) then if getPlayerLevel(cid) >= t[msg].level then doPlayerLearnInstantSpell(cid, msg) doCreatureChangeOutfit(cid, 985) npcHandler:say("Você aprendeu uma nova magia chamada ".. msg .."e ganhou uma newtype!", cid) end end else npcHandler:say("Desculpe ja te encinei essa magia", cid) end return TRUE end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())

Eu testei e funcionou tenta esse: -- By Gustavo Ntos-- -- v2 Corrigida e testada 100%-- local item = 11506 function onStepIn(cid, item, position, fromPosition) if getPlayerItemCount(cid, item) >= 1 then doSendMagicEffect(getThingPos(cid), 12) doPlayerSendTextMessage(cid, 25, "Bem vindo a Area Exclusiva.") else doTeleportThing(cid, fromPosition, true) doSendMagicEffect(getThingPos(cid), 2) doPlayerSendTextMessage(cid, 25, "Desculpe, mas voce precisa de alguns items para passar.") end return true end

È quase impossivel pegar as Sprits deles , ele pagou um programador para impedir que os programas nao descompilem o client dele , so ele tem a .dat e .spr... Somente ele pode disponibilizar e isso é quase impossivel...o cara não ajuda ng.

Peça sua script nesse post, Não venha com pedidos fodas, pois essem são pagos e não é do meu nivel de scripting. Scripts Disponiveis: Tfs Versão 0.3.6 e 0.4 Caso eu te ajude de REP+

Testa essa v2 corrigida: -- By Gustavo Ntos-- -- v2 Corrigida e testada 100%-- local item = 11506 local itnome= nomedoitem function onStepIn(cid, item, position, fromPosition) if getPlayerItemCount(cid, item) >= 1 then doSendMagicEffect(getThingPos(cid), 12) doPlayerSendTextMessage(cid, 25, "Bem vindo a Area Exclusiva.") else doTeleportThing(cid, fromPosition, true) doSendMagicEffect(getThingPos(cid), 2) doPlayerSendTextMessage(cid, 25, "Desculpe, mas voce precisa de alguns items para passar.") end return true end

Testa essa que eu uso: -- ### CONFIG ### -- message send to player by script "type" (types you can check in "global.lua") SHOP_MSG_TYPE = 19 -- time (in seconds) between connections to SQL database by shop script SQL_interval = 30 -- ### END OF CONFIG ### function onThink(interval, lastExecution) local result_plr = db.getResult("SELECT * FROM z_ots_comunication WHERE `type` = 'login';") if(result_plr:getID() ~= -1) then while(true) do id = tonumber(result_plr:getDataInt("id")) action = tostring(result_plr:getDataString("action")) delete = tonumber(result_plr:getDataInt("delete_it")) cid = getCreatureByName(tostring(result_plr:getDataString("name"))) if isPlayer(cid) == TRUE then local itemtogive_id = tonumber(result_plr:getDataInt("param1")) local itemtogive_count = tonumber(result_plr:getDataInt("param2")) local container_id = tonumber(result_plr:getDataInt("param3")) local container_count = tonumber(result_plr:getDataInt("param4")) local add_item_type = tostring(result_plr:getDataString("param5")) local add_item_name = tostring(result_plr:getDataString("param6")) local received_item = 0 local full_weight = 0 if add_item_type == 'container' then container_weight = getItemWeightById(container_id, 1) if isItemRune(itemtogive_id) == TRUE then items_weight = container_count * getItemWeightById(itemtogive_id, 1) else items_weight = container_count * getItemWeightById(itemtogive_id, itemtogive_count) end full_weight = items_weight + container_weight else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) if isItemRune(itemtogive_id) == TRUE then full_weight = getItemWeightById(itemtogive_id, 1) else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) end end local free_cap = getPlayerFreeCap(cid) if full_weight <= free_cap then if add_item_type == 'container' then local new_container = doCreateItemEx(container_id, 1) local iter = 0 while iter ~= container_count do doAddContainerItem(new_container, itemtogive_id, itemtogive_count) iter = iter + 1 end received_item = doPlayerAddItemEx(cid, new_container) else local new_item = doCreateItemEx(itemtogive_id, itemtogive_count) received_item = doPlayerAddItemEx(cid, new_item) end if received_item == RETURNVALUE_NOERROR then doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'Voce ganhou/comprou um(a){'.. add_item_name ..'} do Shop DbExplorer.') db.query("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";") db.query("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";") else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from shop is waiting for you. Please make place for this item in your backpack/hands and wait about '.. SQL_interval ..' seconds to get it.') end else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << o Shop esta esperando voce... o Item comprado pesa '.. full_weight ..' Cap., Voce tem apenas '.. free_cap ..' cap.. Consiga mais cap e espere '.. SQL_interval ..' segundos para receber o(s) item(s).') end end if not(result_plr:next()) then break end end result_plr:free() end return TRUE end

Testa essa porra que postei

testa: data/movements/script > Crie um arquivo chamado Passar.lua -- By Gustavo Ntos-- -- local item= 11506 --id local itnome= NOMEDOITEM -- function onStepIn(cid, item, position, fromPosition) getPlayerItemCount(cid, item) >= 1 doSendMagicEffect(getThingPos(cid), 12) doPlayerSendTextMessage(cid, 25, "Voce está entrando na área vip!") else doTeleportThing(cid, fromPosition, true) doSendMagicEffect(getThingPos(cid), 2) doPlayerSendTextMessage(cid, 25, "Desulpe mais voce precisa do item:"..itnome..".") end return true end movements.xml <movevent type="StepIn" actionid="46789" event="script" value="passar.lua"/>

Apos passar pelo piso o item é removido?

local SHOP_MSG_TYPE = MESSAGE_STATUS_CONSOLE_RED local SQL_interval = 30 function generateSerial() --local lettersUsedToGenerateHash = "AaBbCcDdEeFfGgHhIiJjKkLlMmOoPpQqRrSsTtUuVvWwXxYyZz" local lettersUsedToGenerateHash = "ABCDEFGHIJKLMOPQRSTUVWXYZ" local newSerial = "!" for k = 1, 10 do local l = math.random(1, string.len(lettersUsedToGenerateHash)) newSerial = newSerial .. string.sub(lettersUsedToGenerateHash, l, l) end local newSerialInt = math.random(999999) newSerial = newSerial .."-" .. newSerialInt -- Set TIME -> newSerial = newSerialStr .. "-" .. os.time() .. "-" .. newSerialInt -- length: ![10 letters]-[10 numbers (unix date)]-[6 numbers] -- length = 29 [always!] return newSerial end function onThink(interval, lastExecution) local result_plr = db.getResult("SELECT * FROM z_ots_comunication WHERE `type` = 'login';") if(result_plr:getID() ~= -1) then while(true) do local id = tonumber(result_plr:getDataInt("id")) local action = tostring(result_plr:getDataString("action")) local delete = tonumber(result_plr:getDataInt("delete_it")) local cid = getPlayerByName(tostring(result_plr:getDataString("name"))) if isPlayer(cid) then local itemtogive_id = tonumber(result_plr:getDataInt("param1")) local itemtogive_count = tonumber(result_plr:getDataInt("param2")) local container_id = tonumber(result_plr:getDataInt("param3")) local container_count = tonumber(result_plr:getDataInt("param4")) local add_item_type = tostring(result_plr:getDataString("param5")) local add_item_name = tostring(result_plr:getDataString("param6")) local received_item = 0 local full_weight = 0 if add_item_type == 'container' then container_weight = getItemWeightById(1999, 1) if isItemRune(itemtogive_id) == TRUE then items_weight = container_count * getItemWeightById(itemtogive_id, 1) else items_weight = container_count * getItemWeightById(itemtogive_id, itemtogive_count) end full_weight = items_weight + container_weight else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) if isItemRune(itemtogive_id) == TRUE then full_weight = getItemWeightById(itemtogive_id, 1) else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) end end local free_cap = getPlayerFreeCap(cid) if full_weight <= free_cap then if add_item_type == 'container' then local new_container = doCreateItemEx(1999, 1) local iter = 0 while iter ~= container_count do doAddContainerItem(new_container, itemtogive_id, itemtogive_count) iter = iter + 1 end received_item = doPlayerAddItemEx(cid, new_container) else local new_item = doCreateItemEx(itemtogive_id, itemtogive_count) --doItemSetAttribute(new_item, "description", "Name: ".. getPlayerName(cid) ..". Data: ".. os.date("%d %B %Y Hora: %X. ").."Serial: "..generateSerial().."") doItemSetAttribute(new_item, "description", "Serial: "..generateSerial().."") --doItemSetAttribute(new_item, "description", "This item was purchased at the shop by the player ".. getPlayerName(cid) ..".") --doItemSetAttribute(new_item, "aid", getPlayerGUID(cid)+10000) received_item = doPlayerAddItemEx(cid, new_item) end if received_item == RETURNVALUE_NOERROR then doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '{Shopping System} Entrega do Item '.. add_item_name ..' Feita com Sucesso!.') db.query("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";") db.query("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";") else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, ' {Shopping System} Sua Backpack Nao Tem Espaco Para Receber o Item '.. add_item_name ..' Por Favor Abra Espaco em Sua Backpack, Estaremos Tentando Entregar o Item Em '.. SQL_interval ..' Segundos!.') end else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. It weight is '.. full_weight ..' oz., you have only '.. free_cap ..' oz. free capacity. Put some items in depot and wait about '.. SQL_interval ..' seconds to get it.') end end if not(result_plr:next()) then break end end result_plr:free() end return true end

Testa isso aqui essa script almenta vida e diminui mana function onUse(cid, item, fromPosition, itemEx, toPosition) local waittime = 1 -- Tempo de exhaustion local storage = 326781 -- Nao meche local roupa=120 -- Newtype ao usar a alanvanca local vocation = 2 -- classe ao usar a alanvanca if exhaustion.check(cid, storage) then doPlayerSendCancel(cid, "You are exhausted") return false end doPlayerSetVocation(cid, vocation) doCreatureChangeOutfit(cid, roupa) doCreatureAddMana(cid, getCreatureMaxMana(cid)*0.9) doCreatureAddHealth(cid, getCreatureMaxHealth(cid)*1.2) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Voce mudou de classe!") exhaustion.set(cid, storage, waittime) end

movements/scripts crie um arquivo chamado aleat.lua -- By Gustavo Ntos-- -- -- function onStepIn(cid, item, position, fromPosition) local teleport = math.random(1, 15) local t1 = {x=?, y=?, z=?} local t2 = {x=?, y=?, z=?} local t3 = {x=?, y=?, z=?} local t4 = {x=?, y=?, z=?} local t5 = {x=?, y=?, z=?} local t6 = {x=?, y=?, z=?} local t7 = {x=?, y=?, z=?} local t8 = {x=?, y=?, z=?} local t9 = {x=?, y=?, z=?} local t10 = {x=?, y=?, z=?} local t11 = {x=?, y=?, z=?} local t12 = {x=?, y=?, z=?} local t13 = {x=?, y=?, z=?} local t14 = {x=?, y=?, z=?} local t15 = {x=?, y=?, z=?} if teleport == 1 then doTeleportThing(cid, t1) end if teleport == 2 then doTeleportThing(cid, t2) end if teleport == 3 then doTeleportThing(cid, t3) end if teleport == 4 then doTeleportThing(cid, t4) end if teleport == 5 then doTeleportThing(cid, t5) end if teleport == 6 then doTeleportThing(cid, t6) end if teleport == 7 then doTeleportThing(cid, t7) end if teleport == 8 then doTeleportThing(cid, t8) end if teleport == 9 then doTeleportThing(cid, t9) end if teleport == 10 then doTeleportThing(cid, t10) end if teleport == 11 then doTeleportThing(cid, t11) end if teleport == 12 then doTeleportThing(cid, t12) end if teleport == 13 then doTeleportThing(cid, t13) end if teleport == 14 then doTeleportThing(cid, t14) end if teleport == 15 then doTeleportThing(cid, t15) end return true end movements.xml <movevent type="StepIn" actionid="46789" event="script" value="aleat.lua"/>

2-Crie um arquivo chamado level.lua em data/actions/scripts: function onUse(cid, item, fromPosition, itemEx, toPosition) local name=getPlayerName(cid) local player = getPlayerByNameWildcard(name) local amount=300 if getPlayerLevel(cid) >= 1 and getPlayerLevel(cid) <= 299 then doPlayerAddExp(player, getExperienceForLevel(300)-(getPlayerExperience(player))) doCreatureAddMana(player, getCreatureMaxMana(player)-getCreatureMana(player)) doCreatureAddHealth(player, getCreatureMaxHealth(player)-getCreatureHealth(player)) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "So pode usar esta avalanca lvl 1 ate 299") end return true end Actions.xml add: <action actionid="18765" event="script" value="level.lua" /> 4- data/actions/scripts crie um arquivo: classe.lua function onUse(cid, item, fromPosition, itemEx, toPosition) local waittime = 1 -- Tempo de exhaustion local storage = 326781 -- Nao meche local roupa=120 -- Newtype ao usar a alanvanca local vocation = 2 -- classe ao usar a alanvanca if exhaustion.check(cid, storage) then doPlayerSendCancel(cid, "You are exhausted") return false end doPlayerSetVocation(cid, vocation) doCreatureChangeOutfit(cid, roupa) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Voce mudou de classe!") exhaustion.set(cid, storage, waittime) end actions.xml <action actionid="18766" event="script" value="classe.lua" />

local msgs = {"use ", ""} function doAlertReady(cid, id, movename, n, cd) if movename == "Mega Evolution" then return true end if not isCreature(cid) then return true end local myball = getPlayerSlotItem(cid, 8) if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(myball.uid).." - "..movename.." (m"..n..") is ready!") return true end local p = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid) if not p or #p <= 0 then return true end for a = 1, #p do if getItemAttribute(p[a], cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(p[a]).." - "..movename.." (m"..n..") is ready!") return true end end end function onSay(cid, words, param, channel) if param ~= "" then return true end if string.len(words) > 3 then return true end if #getCreatureSummons(cid) == 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need a pokemon to use moves.") return 0 end --alterado v1.5 local mypoke = getCreatureSummons(cid)[1] if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end if getCreatureName(mypoke) == "Evolution" then return true end if getCreatureName(mypoke) == "Ditto" or getCreatureName(mypoke) == "Shiny Ditto" then name = getPlayerStorageValue(mypoke, 1010) --edited else name = getCreatureName(mypoke) end --local name = getCreatureName(mypoke) == "Ditto" and getPlayerStorageValue(mypoke, 1010) or getCreatureName(mypoke) local it = string.sub(words, 2, 3) local move = movestable[name].move1 if getPlayerStorageValue(mypoke, 212123) >= 1 then cdzin = "cm_move"..it.."" else cdzin = "move"..it.."" --alterado v1.5 end if it == "2" then move = movestable[name].move2 elseif it == "3" then move = movestable[name].move3 elseif it == "4" then move = movestable[name].move4 elseif it == "5" then move = movestable[name].move5 elseif it == "6" then move = movestable[name].move6 elseif it == "7" then move = movestable[name].move7 elseif it == "8" then move = movestable[name].move8 elseif it == "9" then move = movestable[name].move9 elseif it == "10" then move = movestable[name].move10 elseif it == "11" then move = movestable[name].move11 elseif it == "12" then move = movestable[name].move12 elseif it == "13" then move = movestable[name].move13 end if not move then local isMega = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "megaStone") if not isMega or name:find("Mega") then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.") return true end local moveTable, index = getNewMoveTable(movestable[name]), 0 for i = 1, 12 do if not moveTable then index = i break end end if tonumber(it) ~= index then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.") return true end local needCds = true --Coloque false se o pokémon puder mega evoluir mesmo com spells em cooldown. if needCds then for i = 1, 12 do if getCD(getPlayerSlotItem(cid, 8).uid, "move"..i) > 0 then return doPlayerSendCancel(cid, "To mega evolve, all the spells of your pokemon need to be ready.") end end end local megaEvoClans = { --[mega_stone_id] = {"clan_name", "clan_name", etc}, [14643] = {"Volcanic", "Gardestrike"}, [14654] = {"Seavell", "Orebound"}, [14640] = {"Volcanic"}, [14639] = {"Seavell"}, [14647] = {"Naturia"}, [14642] = {"Malefic"}, [14638] = {"Psycraft"}, [14648] = {"Orebound"}, --etc, } if megaEvoClans[isMega] then if not isInArray(megaEvoClans[isMega], getPlayerClanName(cid)) then return doPlayerSendCancel(cid, "You can't mega evolve this pokemon.") end end move = {name = "Mega Evolution", level = 0, cd = 0, dist = 1, target = 0, f = 0, t = "?"} end if getPlayerLevel(cid) < move.level then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need be atleast level "..move.level.." to use this move.") return true end if getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (move.cd + 2) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to wait "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." seconds to use "..move.name.." again.") return true end if getTileInfo(getThingPos(mypoke)).protection then doPlayerSendCancel(cid, "Your pokemon cannot use moves while in protection zone.") return true end if getPlayerStorageValue(mypoke, 3894) >= 1 then return doPlayerSendCancel(cid, "You can't attack because you is with fear") --alterado v1.3 end --alterado v1.6 if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then doPlayerSendCancel(cid, "Your pokemon need be in a team for use this move!") return true end --alterado v1.7 \/\/\/ if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) then local target = getCreatureTarget(cid) if math.random(1, 100) <= passivesChances["Evasion"][getCreatureName(target)] then if isCreature(getMasterTarget(target)) then --alterado v1.6 doSendMagicEffect(getThingPos(target), 211) doSendAnimatedText(getThingPos(target), "TOO BAD", 215) doTeleportThing(target, getClosestFreeTile(target, getThingPos(mypoke)), false) doSendMagicEffect(getThingPos(target), 211) doFaceCreature(target, getThingPos(mypoke)) return true --alterado v1.6 end end end if move.target == 1 then if not isCreature(getCreatureTarget(cid)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.") return 0 end if getCreatureCondition(getCreatureTarget(cid), CONDITION_INVISIBLE) then return 0 end if getCreatureHealth(getCreatureTarget(cid)) <= 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your have already defeated your target.") return 0 end if not isCreature(getCreatureSummons(cid)[1]) then return true end if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > move.dist then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to use this move.") return 0 end if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then return 0 end end local newid = 0 -- Cooldown -- local Tiers = { [113] = {bonus = Cdown1}, [114] = {bonus = Cdown2}, [115] = {bonus = Cdown3}, } local Tier = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "heldx") local cdzao = {} if Tier and Tier > 112 and Tier < 116 then cdzao = math.ceil(move.cd - (move.cd * Tiers[Tier].bonus)) else cdzao = move.cd end -- Cooldown -- if isSleeping(mypoke) or isSilence(mypoke) then --alterado v1.5 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry you can't do that right now.") return 0 else newid = setCD(getPlayerSlotItem(cid, 8).uid, cdzin, cdzao) end local spellMessage = msgs[math.random(#msgs)]..""..move.name.."!" if move.name == "Mega Evolution" then spellMessage = "Mega Evolve!" end doCreatureSay(cid, getPokeName(mypoke)..", "..spellMessage, 19) local summons = getCreatureSummons(cid) --alterado v1.6 addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin) for i = 2, #summons do if isCreature(summons) and getPlayerStorageValue(cid, 637501) >= 1 then docastspell(summons, move.name) --alterado v1.6 end end docastspell(mypoke, move.name) doCreatureAddCondition(cid, playerexhaust) if useKpdoDlls then doUpdateCooldowns(cid) end return 0 end