raphadoidera

local teleport = { id = 1387, position = { x = 100, y = 100, z = 7 }, gotoPosition = { x = 200, y = 200, z = 7 }, } function onUse(cid, item, fromPosition, itemEx, toPosition) local leverId = 10030 if item.itemid == leverId then addEvent(function() doRemoveItem(getTileItemById(teleport.position, teleport.id).uid) doTransformItem(item.uid, leverId) end, 5 * 60 * 1000) doTransformItem(item.uid, leverId - 1) doCreateTeleport(teleport.id, teleport.gotoPosition, teleport.position) else doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "A portal already exists.") end return true end  

Bem normalmente ela vem junto com as Server Files que vc pegou... mas caso ela ja venha em uso... vc pode pegar qualquer tutorial no GOOGLE de como limpar toda a DB.
Ate pq a DB tem que ser compativel com a sua versao do TFS e o Site... 
Se ajudei da um REP ai! vlws!
e qualquer duvida pode me chamar no PM!

local items = {{2173,1},{2494,1},{2148,15}} local itemRequired, amountRequired = 2160, 30 -- ID do item necessário para pegar o baú e a quantidade. local storage, days = 897458, 30 function onUse(cid, item, frompos, item2, topos) if getPlayerItemCount(cid, itemRequired, amountRequired) <= 0 then doPlayerSendCancel(cid, "Você não possui "..amountRequired.."x "..getItemInfo(itemRequired).name.." volte mais tarde.") return true elseif getPlayerStorageValue(cid, storage) >= os.time() then doPlayerSendCancel(cid, "voce ja pegou seus itens dentro de 30 dias, aguarde.") return true end local bag = doPlayerAddItem(cid, 1988, 1) for i = 1, table.maxn(items) do local item_id, amount = items[i][1], items[i][2] if isItemStackable(item_id) or amount == 1 then doAddContainerItem(bag, item_id, amount) else for i = 1, amount do doAddContainerItem(bag, 1) end end end setPlayerStorageValue(cid, storage, os.time() + days * 24 * 60 * 60) doSendMagicEffect(getPlayerPosition(cid), math.random(28,30)) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"You have found a backpack.") return true end  

Certinho irmão, muito obrigado do fundo do coração! 
 
Irmão, notei só agora um erro na Script.
if getPlayerVocation(cid) > 13 then Aqui está falando que toda vocação menor que 13 vai poder usar a Skin.
Porém se eu criar uma Skin pro sasuke onde a vocação dele é 14 a 26, a vocação naruto que é 1 a 13 vai poder usar a Skin do Sasuke saco?
Teria como arrumar pra mim por favor?
 
@FeeTads

local remover = false -- Remover ao usar? false = não remove, true = remover local outfits = { [11478] = {out = 2013}, } function onUse(cid, item) local t = outfits[item.itemid] if getPlayerVocation(cid) > 13 then doPlayerSendTextMessage(cid, 22, "Sua vocação não pode usar este item!") return true end if getCreatureOutfit(cid).lookType ~= 2013 then --se o outfit for diferente do 2013 setPlayerStorageValue(cid, 1234567, getCreatureOutfit(cid).lookType) --salva o looktype atual do player doCreatureChangeOutfit(cid, {lookType = t.out}) --transforma doPlayerSendTextMessage(cid, 22, "Voce alterou seu Outfit!") else doCreatureChangeOutfit(cid, {lookType = getPlayerStorageValue(cid, 1234567)}) --se o looktype for 2013 volta ao original doPlayerSendTextMessage(cid, 22, "De volta ao seu outfit original!") end if remover then doRemoveItem(item.uid, 1) -- pode deixar 1 aqui e no escopo deixa false end return true end  
se funcionar deixa o rep+ ai pra ajudar

Você é monstro irmão, funcionou. Muito obrigado!

@raphadoidera
 
VC TEM COLOCAR ISSO:
local pos = getCreaturePosition(cid)  
 
TESTA AGR:
local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -78.2, 1, -88.2, 1) arr1 = { {0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 3, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0} } local area1 = createCombatArea(arr1) setCombatArea(combat1, area1) local function onCastSpell1(parameters) return isPlayer(parameters.cid) and doCombat(parameters.cid, combat1, parameters.var) end function onCastSpell(cid, var) local waittime = 2 -- Tempo de exhaustion local storage = 1000150 if exhaustion.check(cid, storage) then doSendMagicEffect(getCreaturePosition(cid), 2) return false end local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 100, parameters) local pos = getCreaturePosition(cid) addEvent(doSendMagicEffect, 100, {x = pos.x, y = pos.y-2, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x, y = pos.y-1, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x, y = pos.y+2, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x, y = pos.y+1, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x+2, y = pos.y, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x+1, y = pos.y, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x-2, y = pos.y, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x-1, y = pos.y, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x+1, y = pos.y-1, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x+1, y = pos.y+1, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x-1, y = pos.y-1, z = pos.z}, 7) addEvent(doSendMagicEffect, 100, {x = pos.x-1, y = pos.y+1, z = pos.z}, 7) addEvent(doSendMagicEffect, 200, {x = pos.x+2, y = pos.y-1, z = pos.z}, 332) addEvent(doSendMagicEffect, 200, {x = pos.x+1, y = pos.y-2, z = pos.z}, 332) addEvent(doSendMagicEffect, 200, {x = pos.x+2, y = pos.y+1, z = pos.z}, 332) addEvent(doSendMagicEffect, 200, {x = pos.x+1, y = pos.y+2, z = pos.z}, 332) addEvent(doSendMagicEffect, 200, {x = pos.x-2, y = pos.y-1, z = pos.z}, 332) addEvent(doSendMagicEffect, 200, {x = pos.x-1, y = pos.y-2, z = pos.z}, 332) addEvent(doSendMagicEffect, 200, {x = pos.x-1, y = pos.y+2, z = pos.z}, 332) addEvent(doSendMagicEffect, 200, {x = pos.x-2, y = pos.y+1, z = pos.z}, 332) exhaustion.set(cid, storage, waittime) return TRUE end  
 
 

@raphadoidera 
 
 
 

local rng = math.random(0, 1) -- Quer dizer que vai ser aleatorio, de 0 a 1.

local rng = math.random(0, 1) local toposA = {x = tpos.x + rng-1, y = tpos.y + rng, z = tpos.z} local toposB = {x = tpos.x + rng, y = tpos.y + rng-1, z = tpos.z}
Esse rng é pra gerar um número aleatório entre 0 e 1. 
Esse número vai ser uma base pra alterar o destino dos 2 misseis adicionais.
O uso dele é pra modificar a coordenada do target (tpos), gerando duas novas coordenadas (diferentes entre sí) ao redor do target, a toposA e a toposB.

Tinha feito o último rapidão pelo celular, agora ta certo:
 
local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, 41) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -78.2, 1, -88.2, 1) function onCastSpell(cid, var) local waittime = 2 -- Tempo de exhaustion local storage = 1000600 if exhaustion.check(cid, storage) then return false end local mypos = getCreaturePosition(cid) local tpos = getCreaturePosition(getCreatureTarget(cid)) local position1 = {x=tpos.x+1, y=tpos.y+1, z=tpos.z} local position2 = {x=mypos.x+3, y=mypos.y, z=mypos.z} local rng = math.random(0, 1) local toposA = {x = tpos.x + rng-1, y = tpos.y + rng, z = tpos.z} local toposB = {x = tpos.x + rng, y = tpos.y + rng-1, z = tpos.z} doSendMagicEffect(position1, 106) doSendMagicEffect(position2, 189) doSendDistanceShoot(mypos, toposA, 41) doSendDistanceShoot(mypos, toposB, 41) exhaustion.set(cid, storage, waittime) return doCombat(cid, combat, var) end  

local misseis = 5 -- quantidade de misseis
local delay = 100 -- tempo entre o disparo de cada missel (milisegundos)
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -78.2, 1, -88.2, 1)
local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_DISTANCEEFFECT, 41)
function onTargetCreature(cid, target)
    for i = 1, misseis do
        addEvent(function() 
            if isCreature(cid) and isCreature(target) then
                doCombat(cid, combat2, {type = 2, pos = getCreaturePosition(target)})
            end
        end, delay*i)
    end
end
setCombatCallback(combat, CALLBACK_PARAM_TARGETCREATURE, "onTargetCreature")
function onCastSpell(cid, var)
local waittime = 2 -- Tempo de exhaustion
local storage = 1000600
if exhaustion.check(cid, storage) then
return false
end
local position1 = {x=getThingPosition(getCreatureTarget(cid)).x+1, y=getThingPosition(getCreatureTarget(cid)).y+1, z=getThingPosition(getCreatureTarget(cid)).z}
doSendMagicEffect(position1, 250)
exhaustion.set(cid, storage, waittime)
local rng = math.random(0, 1)
local pos = getCreaturePosition(target)
local toposA = {x = pos.x + rng-1, y = pos.y + rng, z = pos.z}
local toposB = {x = pos.x + rng, y = pos.y + rng-1, z = pos.z}
doSendDistanceShoot(pos, toposA, 41)
doSendDistanceShoot(pos, toposB, 41)
return doCombat(cid, combat, var)
end

Agora os mísseis não estão saindo

 

Eu to sem o TFS aqui, mas se quiser mentoria com scripting, sou Programador LUA e C++ a 9 anos e faço freelancer.
 
Contatos:
Instagram: @_willdeoliveira
Telegram: @marketsignalsbrazil // @missile3

Se chegar a isso, toma aí um script com tabela pra vc adicionar todos os teleports dentro, ao invés de fazer um script pra cada um   
 
<movevent type="StepIn" itemid="ID DO TELEPORT" event="script" value="teleportsAction.lua" />
 
function onStepIn(cid, item, position, fromPosition) local actionIds = { [20001] = {x = 1, y = 1, z = 1}, // [actionID] = {coordenada do destino do teleport} [20002] = {x = 1, y = 1, z = 1}, [20003] = {x = 1, y = 1, z = 1}, [20004] = {x = 1, y = 1, z = 1}, [20005] = {x = 1, y = 1, z = 1}, } if actionIds[item.actionid] then doTeleportThing(cid, actionIds[item.actionid], true) else return false end return true end  

esse e primeiro
local remove_time = 8 -- tempo em segundos para remover as magic wall local item_id = 12870 -- id da magic wall 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 function onCastSpell(cid, var) local waittime = 30 -- Tempo de exhaustion em segundos local storage = 5853 -- Storage de Spell, nunca usar a mesma em outra spell, a menos que não queira usar duas spell juntas! if exhaustion.check(cid, storage) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Espera "..exhaustion.get(cid, storage).." segundos para usar nuevamente.") return false end local pos = getThingPos(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} for i=1, #posAll do if isWalkable(posAll[i]) then doCreateItem(item_id, 1, posAll[i]) end end function dotonprision(cid) if isCreature(cid) and isCreature(getCreatureTarget(cid)) then local position = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y+1, z=getThingPosition(getCreatureTarget(cid)).z} doSendMagicEffect(position, 690) local position = {x=getThingPosition(getCreatureTarget(cid)).x, y=getThingPosition(getCreatureTarget(cid)).y+1, z=getThingPosition(getCreatureTarget(cid)).z} doSendMagicEffect(position, 690) end end local parameters = {cid = cid, var = var, combat1 = combat1 , combat2 = combat2} for i = 1, 2 do addEvent(function() if isCreature(cid) then addEvent(dotonprision,100,cid) end end, 1 + ((i-1) * 8000)) end for i = 1, 1 do addEvent(function() if isCreature(cid) then addEvent(removeItem, remove_time*1000, posAll) end end, 1 + ((i-1) * 8000)) end exhaustion.set(cid, storage, waittime) return true end  
SEGUNDO
local config = { wallArea = { {1, 1, 1, 1, 1, 1, 1, 1, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 2, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 1, 1, 1, 1, 1, 1, 1, 1}, }, effect = 3, --Efeito. wallId = 2718, --ID da parede. time = 15, --Duração da parede. cooldown = {5, 5}, --{sucessCooldown, failCooldown}, chance = 100, --Chance da spell funcionar. storage = 9571, } function isWalkable(pos, creature, proj, pz)-- by Nord if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end if getTopCreature(pos).uid > 0 and creature then return false end if getTileInfo(pos).protection and pz then return false, true 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 getPosfromArea(cid, area) --by Dokmos icenter = math.floor(table.getn(area)/2)+1 jcenter = math.floor(table.getn(area[1])/2)+1 center = area[icenter] ivar = table.getn(area) jvar = table.getn(area[1]) i = table.getn(area)^2 j = table.getn(area[1])^2 local mydir = isCreature(getCreatureTarget(cid)) and getCreatureDirectionToTarget(cid, getCreatureTarget(cid)) or getCreatureLookDir(cid) setPlayerStorageValue(cid, 21101, -1) if center[jcenter] == 3 then if mydir == 0 then signal = {-1,1,1,2} elseif mydir == 1 then signal = {1,-1,2,1} elseif mydir == 2 then signal = {1,-1,1,2} elseif mydir == 3 then signal = {-1,1,2,1} end else signal = {-1,1,1,2} end POSITIONS = {} P = 0 repeat pvar = {0,0} I = area[ivar] J = I[jvar] i = i-1 j = j-1 if J == 1 then if jvar < jcenter then pvar[signal[3]] = signal[1]*math.abs((jcenter-jvar)) elseif jvar > jcenter then pvar[signal[3]] = signal[2]*math.abs((jcenter-jvar)) end if ivar < icenter then pvar[signal[4]] = signal[1]*math.abs((icenter-ivar)) elseif ivar > icenter then pvar[signal[4]] = signal[2]*math.abs((icenter-ivar)) end end if jvar > 1 then jvar = (jvar-1) elseif ivar > 1 then jvar = table.getn(area[1]) ivar = (ivar-1) end local pos = getThingPos(cid) local areapos = {x=pos.x+(pvar[1]),y=pos.y+(pvar[2]),z=pos.z} if pos.x ~= areapos.x or pos.y ~= areapos.y then P = P+1 POSITIONS[P] = areapos end until i <= 0 and j <= 0 return POSITIONS end function onCastSpell(cid) if getPlayerStorageValue(cid, config.storage) > os.time() then doPlayerSendCancel(cid, "Wait "..getPlayerStorageValue(cid, config.storage) - os.time().." second(s).") doCreatureSay(cid, "Voce precisa aguardar para usar novamente!!.", TALKTYPE_MONSTER) else if math.random(1, 100) > config.chance then doPlayerSendCancel(cid, "Your spell failed.") doSendAnimatedText(getThingPos(cid), "FAIL!", 215) setPlayerStorageValue(cid, config.storage, os.time() + config.cooldown[2]) else local positions = {} setPlayerStorageValue(cid, config.storage, os.time() + config.cooldown[1]) for _, pos in pairs(getPosfromArea(cid, config.wallArea)) do if isWalkable(pos) and not getTileInfo(pos).protection then doCreateItem(config.wallId, 1, pos) doSendMagicEffect(pos, config.effect) table.insert(positions, pos) end end if #positions > 0 then addEvent(function() for i = 1, #positions do local item = getTileItemById(positions[i], config.wallId).uid if item > 0 then doRemoveItem(item) end end end, config.time * 1000) end end end return true end  

Vou criar umo assim dps.

Consegui, muito obrigado!
Obrigado pela ajuda Jean!
Fabio, você teria um SCRIPT em que posso movimentar X,Y de uma DISTANCE EFFECT?
Quero colocar pra sair Efeitos Missle iguais ao mesmo tempo, porém em posições diferentes.
 
Exemplo:

 

Isso, porém a magia precisa dar DANO somente 1 Vez

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -130.2, 1, -140.2, 1)

function targetEffect(cid, effect, ajust) -- efeito sai no target
if isCreature(cid) and isCreature(getCreatureTarget(cid)) then
local t_Pos = getCreaturePosition(getCreatureTarget(cid))
doSendMagicEffect({x= t_Pos.x+ajust[1], y = t_Pos.y+ajust[2], z = t_Pos.z}, effect)
end
end
local delay = 1000 -- tempo para o segundo efeito,  em milésimos
function onCastSpell(cid, var)
local waittime = 2 -- Tempo de exhaustion
local storage = 120033
if exhaustion.check(cid, storage) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.")
return false
end
targetEffect(cid, 419, {1,0})
addEvent(targetEffect, delay, cid, 419, {2,0})
exhaustion.set(cid, storage, waittime)
return doCombat(cid, combat, var)
end

vc n especificou onde iria sair o segundo efeito, entao fiz de dois modos.
 
 
function targetEffect(cid, effect, ajust) -- efeito sai no target
if isCreature(cid) and isCreature(getCreatureTarget(cid)) then
local t_Pos = getCreaturePosition(getCreatureTarget(cid))
doSendMagicEffect({x= t_Pos.x+ajust[1], y = t_Pos.y+ajust[2], z = t_Pos.z}, effect)
end
end
 
addEvent(targetEffect, 2000, cid, 169, {0,0})

function cidEffect(cid, effect, ajust) -- efeito sai em min
if isCreature(cid) then
local t_Pos = getCreaturePosition(cid)
doSendMagicEffect({x= t_Pos.x+ajust[1], y = t_Pos.y+ajust[2], z = t_Pos.z}, effect)
end
end
addEvent(cidEffect, 2000, cid, 169, {0,0})

local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat1, COMBAT_PARAM_DISTANCEEFFECT, 126) (Efeito Míssil)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -22.2, 1, -31.2, 1)
local function onCastSpell1(parameters)
doCombat(parameters.cid, parameters.combat1, parameters.var)
end
 
function onCastSpell(cid, var)
local waittime = 2 -- Tempo de exhaustion
local storage = 45672 -- não mecha
if exhaustion.check(cid, storage) then
    doPlayerSendCancel(cid, "Aguarde "..(exhaustion.get(cid, storage)).." segundos(s) para usar novamente.")
    return false
end
local parameters = {cid = cid, var = var, combat1 = combat1}

for k = 1, 5 do
    addEvent(function()
        if isCreature(cid) and isCreature(getCreatureTarget(cid)) then
            onCastSpell1(parameters)
            local t_Pos = getCreaturePosition(getCreatureTarget(cid))
            doSendMagicEffect({x= t_Pos.x+1, y = t_Pos.y, z = t_Pos.z}, 296)
        end
    end, 1 + ((k-1) * 275))
end
exhaustion.set(cid, storage, waittime)
return true
end