(Resolvido)[RESOLVIDO] Speell que Teleporta o Player Para Outro lugar do mapa

[Ronald warsks 3]

Pessoal vou explicar Okay.

 

Exemplo: Quando um player1 soltar a Magia no outro Player2, Eles serem teleportado para outro lugar do mapa, e ficar lá por alguns segundos e quando voltar, voltar para o lugar De onde estava.

 

Obs: se vcs consiguirem deixar o Player2 dois ficar paralisado vai ser Otimo

 

Resumindo: Tipo um Genjutsu  de Narutibia.

Editado Outubro 18, 2016 por Ronald warsks (veja o histórico de edições)

[thelifeofpbion 166]

ve se essa te ajuda...

 

Spoiler

local config = {
pos = {x=160, y=54, z=7}, -- posição que será teleportado
tempo = 10, -- tempo pra voltar
effect1 = 66, -- efeito ao ser teleportado
effect2 = 10, -- efeito ao voltar
storage = 19329, -- storage que fica guardado o cooldown
from = {x=159, y=53, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)
to = {x=161, y=55, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)
cooldown = 20, --- tempo entre um uso e outro (após usar a spell vc vai ficar X segundos sem poder usar ela novamente)
msg = "KAMUI OUT!" -- mensagem ao sair do kamui
}

local exceptions = {'trainer', 'aegis', 'god anderson'} --- nome das criaturas que não poderão ser levadas pro kamui (sempre em minúsculo e entre aspas)

function canEffect(pos, pz, proj) -- Night Wolf based on Nord
if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 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
 

                                    <instant name="XXXXX" words="XXXXXXX" needtarget="1" lvl="40" mana="20" prem="1" range="5" blockwalls="1" exhaustion="2000" event="script" value="XXXXX.lua">
        <vocation id="3"/>
        <vocation id="7"/>
        <vocation id="1"/>
        <vocation id="2"/>
        <vocation id="5"/>
        <vocation id="6"/>
    </instant>

[Ronald warsks 3]

Opa vlw pela esforço, Mas nao funcionou, eu fiz tudo certinho, e quando vou no Servidor e vou falar a magia nao acontece nada '-'

Consegue resolver ?

[thelifeofpbion 166]

Agora, Ronald warsks disse:

Opa vlw pela esforço, Mas nao funcionou, eu fiz tudo certinho, e quando vou no Servidor e vou falar a magia nao acontece nada '-'

Consegue resolver ?

ah, é que essa magia é do wolf... aqui funciona certinho...
talvez seja porque você não tem a lib dele...

cria um arquivo lua chamado "075 - White Wolf Functions"

e dentro cola isso ...
a maioria dos sistemas inovadores dele usa essa lib, bom, caso não de certo apague a lib e a magia e espera outra pessoa responder

 

Spoiler

grass = {8591, 4526, 4527, 4528, 4529, 4530, 4531, 4532, 4533, 4534, 4535, 4536, 4537, 4538, 4539, 4540, 4540, 4541, 9043, 9044, 9045, 9046, 9047, 9048, 9049, 9050, 9051, 9052, 9053, 9054, 9055, 9056, 9057, 9058}

driedgrass = {3264, 3265}

-- 1º
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  

-- 2º
function hasGroundInDistance (uid, distance, tablegrama)
local checker = {} -- deixe assim
local pos = getThingPos(uid)
    for i = -distance, distance do
    for j = -distance, distance do
        local position = {x = pos.x + i, y = pos.y + j, z = pos.z, stackpos = 0}
        if i ~= 0 or j ~= 0 then
        local grama = getThingFromPos(position).itemid
            for k = 1, #tablegrama do
                if tablegrama[k] == grama then
                table.insert(checker, 1)
                end
            end
        end
    end
    end        
    if distance >= 1 then
        total = 0
        for x = 1, distance do
            number = x * 2 + 1
            t = (number * 2) + (2* (number-2))
            total = total + t
        end    
    end
return (#checker == total and true or false)
end

-- 3º
function checkGroundInDistance (uid, distance, tablegrama)
local checker = {} -- deixe assim
local pos = getThingPos(uid)
    for i = -distance, distance do
    for j = -distance, distance do
        local position = {x = pos.x + i, y = pos.y + j, z = pos.z, stackpos = 0}
        if i ~= 0 or j ~= 0 then
        local grama = getThingFromPos(position).itemid
            for k = 1, #tablegrama do
                if tablegrama[k] == grama then
                table.insert(checker, position)
                end
            end
        end
    end
    end        
return checker
end

-- 4º
function spinRotate(uid, spins, delay)
doCreatureSetNoMove(uid, true)
look = getCreatureLookDirection(uid)
    for i = 1, (4* spins) + 1 do        
        addEvent(function()
            if isPlayer(uid) then
                if i <= (4 * spins) then
                    look = look < 3 and look + 1 or 0
                    doCreatureSetLookDirection(uid, look)
                else
                    doCreatureSetNoMove(uid, false)
                end
            end
        end, delay * i)    
    end
return true
end

-- 5º
function getPositionsByDirection(uid)
pos = getCreaturePosition(uid)
positionsByDirection = {
[0] = {
[1] = {x = pos.x + 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[2] = {x = pos.x + 1, y = pos.y, z = pos.z, stackpos = 0},
[3] = {x = pos.x + 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[4] = {x = pos.x, y = pos.y + 1, z = pos.z, stackpos = 0},
[5] = {x = pos.x - 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[6] = {x = pos.x - 1, y = pos.y, z = pos.z, stackpos = 0},
[7] = {x = pos.x - 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[8] = {x = pos.x, y = pos.y - 1, z = pos.z, stackpos = 0},
[9] = {x = pos.x, y = pos.y, z = pos.z, stackpos = 0}
},
[1] = {
[1] = {x = pos.x + 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[2] = {x = pos.x, y = pos.y + 1, z = pos.z, stackpos = 0},
[3] = {x = pos.x - 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[4] = {x = pos.x - 1, y = pos.y, z = pos.z, stackpos = 0},
[5] = {x = pos.x - 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[6] = {x = pos.x, y = pos.y - 1, z = pos.z, stackpos = 0},
[7] = {x = pos.x + 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[8] = {x = pos.x + 1, y = pos.y, z = pos.z, stackpos = 0},
[9] = {x = pos.x, y = pos.y, z = pos.z, stackpos = 0}
},
[2] = {
[1] = {x = pos.x - 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[2] = {x = pos.x - 1, y = pos.y, z = pos.z, stackpos = 0},
[3] = {x = pos.x - 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[4] = {x = pos.x, y = pos.y - 1, z = pos.z, stackpos = 0},
[5] = {x = pos.x + 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[6] = {x = pos.x + 1, y = pos.y, z = pos.z, stackpos = 0},
[7] = {x = pos.x + 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[8] = {x = pos.x, y = pos.y + 1, z = pos.z, stackpos = 0},
[9] = {x = pos.x, y = pos.y, z = pos.z, stackpos = 0}
},
[3] = {
[1] = {x = pos.x - 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[2] = {x = pos.x, y = pos.y - 1, z = pos.z, stackpos = 0},
[3] = {x = pos.x + 1, y = pos.y - 1, z = pos.z, stackpos = 0},
[4] = {x = pos.x + 1, y = pos.y, z = pos.z, stackpos = 0},
[5] = {x = pos.x + 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[6] = {x = pos.x, y = pos.y + 1, z = pos.z, stackpos = 0},
[7] = {x = pos.x - 1, y = pos.y + 1, z = pos.z, stackpos = 0},
[8] = {x = pos.x - 1, y = pos.y, z = pos.z, stackpos = 0},
[9] = {x = pos.x, y = pos.y, z = pos.z, stackpos = 0}
}
}
return positionsByDirection[getCreatureLookDirection(uid)]
end

-- 6º
function checkGroundInArray(array, tablegrama)
local checker = {} -- deixe assim
for i = 1, #array do
    local grama = getThingFromPos(array).itemid
            for k = 1, #tablegrama do
                if tablegrama[k] == grama then
                table.insert(checker, array)
                end
            end
        end
return checker
end

-- 7º
function creatureGoToPos(uid, position, delay) 
    if not isOnSameFloor(getCreaturePosition(uid), position) then
        return isPlayer(uid) and doPlayerSendCancel(uid, "You are not in the same floor of destination.") or false
    end    
    local interPos, k = 0, 0    
    local range = getDistanceBetween(getCreaturePosition(uid), position)    
    while k < range and (getCreaturePosition(uid).x ~= position.x or getCreaturePosition(uid).y ~= position.y) do    
        k = k + 1
        addEvent(function()
            if isCreature(uid) then
                local fromPos = fromPos or getCreaturePosition(uid)
                dir = getDirectionTo(fromPos, position)
                toPos = getPosByDir(fromPos, dir)
                toPos.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE
                if isWalkable(toPos, false, false, false) then
                    doTeleportThing(uid, toPos)
                    fromPos = toPos
                else            
                    for i = 1, #getPositionsByDirection(uid) do
                        interPos = interPos ~= 0 and interPos or getCreaturePosition(uid)
                        if isWalkable(getPositionsByDirection(uid), false, false, false) and getDistanceBetween(getPositionsByDirection(uid), position) <= getDistanceBetween(interPos, position) then
                            interPos = getPositionsByDirection(uid)                        
                        end
                    end
                    doTeleportThing(uid, interPos)
                    fromPos = interPos
                end
            end
        end, delay * k)    
    end    
    addEvent(function()
        if isPlayer(uid) then
            local pos = getCreaturePosition(uid)
            if pos.x == position.x and pos.y == position.y and pos.z == position.z then
                doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "You just arrived your destination.")
                doCreatureSetLookDirection(uid, 2)
            end
        end
    end, (delay * k) + 100)    
return k
end

-- 8º
function isOnSameFloor(fromPos, toPos)
return fromPos.z == toPos.z and true or false
end

-- 9º
function isEven(arg)
return arg % 2 == 0 and true or false
end

-- 10º
function getDistanceRadius(fromPos, toPos)
    if not isOnSameFloor(fromPos, toPos) then
    return false
    end
local distance = getDistanceBetween(fromPos, toPos)
return isEven(distance) and (distance/2) or math.floor(distance/2) + 1
end

-- 11º
function walkForward(uid)
local dir = getCreatureLookDirection(uid)
local pos = getCreaturePosition(uid)
local newPos = getPosByDir(pos, dir)
return doTeleportThing(uid, newPos)
end

-- 12º
function getMiddlePos(fromPos, toPos)
    if not isOnSameFloor(fromPos, toPos) then
    return false
    end
local middle = {x = 0, y = 0, z = 0}    
middle.x = isEven(fromPos.x + toPos.x) and (fromPos.x + toPos.x)/2 or math.floor((fromPos.x + toPos.x)/2) + 1
middle.y = isEven(fromPos.y + toPos.y) and (fromPos.y + toPos.y)/2 or math.floor((fromPos.y + toPos.y)/2) + 1
middle.z = fromPos.z or toPos.z
return middle
end

-- 13º
function Taunt(uid, target, delay, times) 
    local interPos, k = 0, 0        
    doCreatureSetNoMove(target, true)
    doSendMagicEffect(getCreaturePosition(target), 36)    
    while k < times do    
        k = k + 1                
        addEvent(function()
            if isCreature(uid) and isCreature(target) then
                if not isOnSameFloor(getCreaturePosition(uid), getCreaturePosition(target)) then
                    return isPlayer(uid) and doPlayerSendCancel(uid, "You are not in the same floor of target.") or false
                end
                local range = getDistanceBetween(getCreaturePosition(uid), getCreaturePosition(target))
                local fromPos = fromPos or getCreaturePosition(target)
                doSendMagicEffect(getCreaturePosition(target), 13)
                dir = getDirectionTo(fromPos, getCreaturePosition(uid))
                toPos = getPosByDir(fromPos, dir)
                toPos.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE                
                    if range <= 1 then
                        return false
                    end                
                if isWalkable(toPos, false, true, true) then
                    doTeleportThing(target, toPos)
                    fromPos = toPos
                else            
                    for i = 1, #getPositionsByDirection(target) do
                        interPos = interPos ~= 0 and interPos or getCreaturePosition(target)
                        if isWalkable(getPositionsByDirection(target), false, true, true) and getDistanceBetween(getPositionsByDirection(target), getCreaturePosition(uid)) <= getDistanceBetween(interPos, getCreaturePosition(uid)) then
                            interPos = getPositionsByDirection(target)                        
                        end
                    end
                    doTeleportThing(target, interPos)
                    fromPos = interPos
                end
            end
        end, delay * k)    
    end        
    addEvent(function()
        if isCreature(target) then
            doCreatureSetNoMove(target, false)
        end
        if isMonster(target) then
            doMonsterSetTarget(target, uid)
        end
    end, (delay * k) + 100)        
return true
end

-- 14º
function getFloorsBetweenPos(fromPos, toPos)
return math.abs(fromPos.z - toPos.z)
end

-- 15º
function getLowestFloor(fromPos, toPos)
return fromPos.z > toPos.z and toPos.z or fromPos.z
end

-- 16º
function getAllPlayersInArea(fromPos, toPos)
local players = {}    
local andares = getFloorsBetweenPos(fromPos, toPos)
    for index, creature in ipairs(getPlayersOnline()) do
        local z = getLowestFloor(fromPos, toPos)
        local frompos = {x = fromPos.x, y = fromPos.y, z = fromPos.z}
        local topos = {x = toPos.x, y = toPos.y, z = toPos.z}        
        for i = 0, andares do
            z = z or 0
            frompos.z = z + i
            topos.z = z + i    
            if isInArea(getThingPos(creature), frompos, topos) then
                table.insert(players, creature)
            end
        end
    end
return players
end

-- 17º
function clearArea(middlePos, rangex, rangey, mob, player)
    for i = -rangex, rangex do
    for j = -rangey, rangey do
        pos = {x = middlePos.x + i, y = middlePos.y + j, z = middlePos.z}
        creature = getTopCreature(pos).uid        
        if isMonster(creature) and mob then
            doSendMagicEffect(getThingPos(creature), 14)
            addEvent(doCreateMonster, 1000, getCreatureName(creature), pos)
            doRemoveCreature(creature)
        end
        if isPlayer(creature) and player then
            doSendMagicEffect(getThingPos(creature), 14)
            doTeleportThing(creature, getTownTemplePosition(getPlayerTown(creature)))
        end
    end
    end
return true
end

-- 18º
function addQuery(table, name, tipo, default)
if type(table) ~= 'string' and type(name) ~= "string" and (type(tipo) ~= "string") then
        return nil, error('Voce presisa inserir um valor do tipo string.')
end
tipo = string.upper(tipo)
db.executeQuery("ALTER TABLE `"..table.."` ADD `"..name.."` "..tipo.." NOT NULL DEFAULT "..default..";")
end

-- 19º
function loopEffect(uid, effect, tempo)
        local effectPositions = getPositionsByDirection(uid)
        doSendDistanceShoot(effectPositions[math.random(#effectPositions)], effectPositions[math.random(#effectPositions)], effect)
        addEvent(function()
           if isCreature(uid) then
              loopEffect(uid, effect, tempo)
           end
        end, 1000 * tempo)
return true
end

-- 20º
function getDistanceToMiddle(fromPos, toPos)
local middlePos = getMiddlePos(fromPos, toPos)
local pos = {
x = math.max(math.abs(middlePos.x - fromPos.x), math.abs(middlePos.x - toPos.x)),
y = math.max(math.abs(middlePos.y - fromPos.y), math.abs(middlePos.y - toPos.y)),
z = middlePos.z
}
return pos
end

-- 21º
function pairsByKeys(t, f) -- Lua.org
    local a = {}
    for n in pairs(t) do table.insert(a, n) end
    table.sort(a, f)
    local i = 0      -- iterator variable
local iter = function ()   -- iterator function
    i = i + 1
    if a == nil then return nil
        else return a, t[a]
        end
    end
return iter
end
    
-- 22º
function table.max(t)
    local a = {}
    for n in pairs(t) do table.insert(a, n) end
    table.sort(a, function(a, b) return a > b end)
return a[1]
end

-- 23º
function table.min(t)
    local a = {}
    for n in pairs(t) do table.insert(a, n) end
    table.sort(a, f)
return a[1]
end

-- 24º
function doKillCreature(uid)-- by Shawak
    return doCreatureAddHealth(uid, -getCreatureHealth(uid))
end

-- 25º
function isHandItem(uid) -- NW based on Mock
uid = uid or 0
    if isInArray({1,2,3,4,5,6}, getItemWeaponType(uid)) then
        return true
    end
return false
end

-- 26º
function isWearing(uid)
uid = uid or 0
    for i = 1, 10 do         
        if isInArray({uid}, getPlayerSlotItem(uid, i).uid) then
        return true
        end
    end
    return false
end

-- 27º
function getItemDodgePercent(itemuid)
    return getItemAttribute(itemuid, "dodgePercent") or 0
end

-- 28º
function setItemDodgePercent(uid, percent)
doItemSetAttribute(uid, "description", "[Dodge: "..percent.."%]")
doItemSetAttribute(uid, "dodgePercent", percent)
end

-- 29ª
function tableToString(tb) -- by Mock
    if type(tb) ~= "table" then
        return nil, error("bad argument #1 to 'saveTable' (table expected, got "..type(tb)..")", 2)
    end
    local str = "{"
    for k,d in pairs(tb) do
        if type(k) == 'string' then
            if type(d) == 'string' then
                str = str..""..k.."='"..d.."',"
            elseif type(d) == 'number' or type(d) == 'boolean' then
                str = str..""..k.."="..tostring(d)..","
            elseif type(d) == 'table' then
                str = str..'{'
                for e,f in pairs(d) do
                    if type(e) == 'string' then
                        if type(f) == 'string' then
                            str = str..""..e.."='"..f.."',"
                        elseif type(f) == 'number' or type(e) == 'boolean' then
                            str = str..""..e.."="..tostring(f)..","
                        elseif type(f) == 'table' then
                            str = str..""..e.."="..tableToString(f)..","
                        end
                    elseif type(e) == 'number' then
                        if type(f) == 'string' then
                            str = str.."["..e.."]='"..f.."',"
                        elseif type(f) == 'number' or type(f) == 'boolean' then
                            str = str.."["..e.."]="..tostring(f)..","
                        elseif type(f) == 'table' then
                            str = str.."["..e.."]="..tableToString(f)..","
                        end
                    end
                end
                str = str..'},'
            end
        elseif type(k) == 'number' then
            if type(d) == 'string' then
                str = str.."["..k.."]='"..d.."',"
            elseif type(d) == 'number' or type(d) == 'boolean' then
                str = str.."["..k.."]="..tostring(d)..","
            elseif type(d) == 'table' then
                str = str..'{'
                for e,f in pairs(d) do
                    if type(e) == 'string' then
                        if type(f) == 'string' then
                            str = str..""..e.."='"..f.."',"
                        elseif type(f) == 'number' or type(e) == 'boolean' then
                            str = str..""..e.."="..tostring(f)..","
                        elseif type(f) == 'table' then
                            str = str..""..e.."="..tableToString(f)..","
                        end
                    elseif type(e) == 'number' then
                        if type(f) == 'string' then
                            str = str.."["..e.."]='"..f.."',"
                        elseif type(f) == 'number' or type(f) == 'boolean' then
                            str = str.."["..e.."]="..tostring(f)..","
                        elseif type(f) == 'table' then
                            str = str.."["..e.."]="..tableToString(f)..","
                        end
                    end
                end
                str = str..'},'
            end
        end
    end
    local str = str.."}"
    if string.sub(str,string.len(str)-2,string.len(str)-2) == "," then
        str = string.sub(str,0,string.len(str)-3).."}"
    end
    return str
end
table.tostring = tableToString

-- 30º
function saveTable(table,name)-- by Mock
    if type(table) ~= "table" then
        return nil, error("bad argument #1 to 'saveTable' (table expected, got "..type(table)..")", 2)
    end
    if type(name) ~= 'string' then
        error('Voce presisa inserir um valor do tipo string')
    end
    local file = io.open('data/storage/'..name..'.tbl','r')
    if file == nil then
        local file = io.open('data/storage/'..name..'.tbl','w')
        file:write(tableToString(table))
        file:close()
    else
        file:close()
        local file = io.open('data/storage/'..name..'.tbl','w')
        file:write("")
        file:close()
        local file = io.open('data/storage/'..name..'.tbl','w')
        file:write(tableToString(table))
        file:close()
    end
end

-- 31º
function loadTable(name)-- by Mock
    if type(name) ~= 'string' and type(name) ~= "number" then
        return nil, error('Voce presisa inserir um valor do tipo string ou number.')
    end
    if io.open('data/storage/'..name..'.tbl','r') == nil then
        return nil
    end
    local file = io.open('data/storage/'..name..'.tbl','r')
    local f ,err = loadstring("return "..file:read())
    if err then
        return nil, error('Error in file "data/storage/'..name..'.tbl". Data lost.')
    end
    file:close()
    return f()
end

-- 32º
function getWeapon(uid)
    teste = getPlayerSlotItem(uid, CONST_SLOT_RIGHT)
    if teste.itemid > 0 then
        if not isThatWeapon(teste.uid) then
            teste = getPlayerSlotItem(uid, CONST_SLOT_LEFT)
        end
    else
        teste = getPlayerSlotItem(uid, CONST_SLOT_LEFT)
    end

    if teste.itemid > 0 then
        if not isThatWeapon(teste.uid) then
            teste = false
        end
    else
        teste = false
    end
return teste
end

-- 33º
function getItemLevel(uid, maxlevel)
    level = 0
    local name = getItemName(uid)
    
    for i = 1, maxlevel do
        if string.find(tostring(name),"+".. i .."") then
            level = i
            end
        end
return level
end

-- 34º
function getMirroredPos(uid, target, radius)
    n = radius or 1
    local pos = getCreaturePosition(uid)
    local middlePos = getCreaturePosition(target)
    local vPos = {x = pos.x - middlePos.x, y = pos.y - middlePos.y, z = 0}    
    for i, k in pairs (vPos) do
        if math.abs(k) > n and i == "x" then
            vPos.x = k >= 0 and n or -n
        elseif math.abs(k) > n and i == "y" then
            vPos.y = k >= 0 and n or -n
        end
    end
    local finalPos = {x = middlePos.x - vPos.x, y = middlePos.y - vPos.y, z = pos.z}
    b = 0
    while not isWalkable(finalPos, true, true, true) and b < radius do
    b = b + 1
    if b == radius then
        finalPos = pos
        break
    end
    n = n - 1
        for i, k in pairs (vPos) do        
            if math.abs(k) > n and i == "x" then
                vPos.x = k >= 0 and n or -n
            elseif math.abs(k) > n and i == "y" then
                vPos.y = k >= 0 and n or -n
            end
        end
    finalPos = {x = middlePos.x - vPos.x, y = middlePos.y - vPos.y, z = pos.z}
    end
return finalPos
end

-- 35º
function outfitOnWalk(uid, key, id, tempo, lastPos)
    if getPlayerStorageValue(uid, key) - os.time() >= 0 then
        lastPos = lastPos or getCreaturePosition(uid)
        if getCreaturePosition(uid).x ~= lastPos.x or getCreaturePosition(uid).y ~= lastPos.y or getCreaturePosition(uid).z ~= lastPos.z  then
            lastPos = getCreaturePosition(uid)
            local atual = getCreatureOutfit(uid)
            atual.lookType = id
            doSetCreatureOutfit(uid, atual, tempo)
        end
    addEvent(function()
        if isCreature(uid) then
            outfitOnWalk(uid, key, id, tempo, lastPos)
        end
    end, tempo) 
    end
return true
end

-- 36º
function onCastChannel(uid, target, delay, effect, key)
local str = {"Casting:\n[", "   ", "   ", "   ", "   ", "   ", "   ", "   ", "   ", "   ", "   ", "]"}
local pos = getCreaturePosition(uid)
effect = effect or 255
key = key or 88888
delay = delay or 200
setPlayerStorageValue(uid, key, 0)
for i = 2, 11 do
addEvent(function()
    if isCreature(uid) and getCreaturePosition(uid).x == pos.x and getCreaturePosition(uid).y == pos.y and (getCreatureTarget(uid) == target or not target) then
        if str[i-1] ~= "   " then        
            str = "@"
            local msg = ""
            for _, k in pairs(str) do
            msg = msg.."".. k ..""
            end
            if isEven(i) then
                doSendMagicEffect(getCreaturePosition(uid), effect)
            end
            setPlayerStorageValue(uid, key, i)
            doPlayerSendTextMessage(uid, 25, msg)
        end
    end
end, delay * (i - 1))
end
return delay * (#str - 1)
end

-- 37º
function doBlast(uid, target, delay, effectx, effectz, percent, min, max, type, hits, fromPos, n)
    if fromPos ~= nil and (fromPos.x ~= getCreaturePosition(target).x or fromPos.y ~= getCreaturePosition(target).y) then
        doSendDistanceShoot(fromPos, getCreaturePosition(target), effectx)
        fromPos = (fromPos.x ~= getCreaturePosition(target).x or fromPos.y ~= getCreaturePosition(target).y) and getCreaturePosition(target) or nil
    else
        fromPos = getCreaturePosition(target)
    end    
doTargetCombatHealth(uid, target, type, -min, -max, effectz)
n = n or 1
if math.random(1, 10) <= (percent/10) then
    possible = {}
    for j = -3, 3 do
    for k = -3, 3 do
        middlePos = {x = getCreaturePosition(target).x + j, y = getCreaturePosition(target).y + k, z = getCreaturePosition(target).z, stackpos = 253}
        if isWalkable(middlePos, false, true, true) then
            creature = getTopCreature(middlePos).uid        
            if creature > 0 then
                table.insert(possible, creature)
            end
        end
    end
    end        
    target = #possible > 0 and possible[math.random(#possible)] or target
end        
if n < hits then
    addEvent(function()
    if isCreature(uid) and isCreature(target) then
        doBlast(uid, target, delay, effectx, effectz, percent, min, max, type, hits, fromPos, (n + 1))
    end
    end, delay)
end
return true
end

-- 38º
function doShowTimeByPos(uid, pos, duration, type)
type = type or 20
    for i = 0, (duration - 1) do
    addEvent(function()
        if isCreature(uid) then
            doCreatureSay(uid, tostring(duration - i), type, false, 0, pos)
        end
    end, i * 1000)
    end
return true
end

-- functions of TFS Compiled (removed from OTAL)
function setItemName(uid,name)
 return doItemSetAttribute(uid,'name',name)
end

function setItemArmor(uid,name)
 return doItemSetAttribute(uid,'armor',name)
end

function setItemDefense(uid,name)
 return doItemSetAttribute(uid,'defense',name)
end

function setItemAttack(uid,name)
 return doItemSetAttribute(uid,'attack',name)
end

function getItemAttack(uid)
   return getItemAttribute(uid,'attack')
end

function getItemDefense(uid)
   return getItemAttribute(uid,'defense')
end

function getItemArmor(uid)
   if type(uid) == 'number' then
      return getItemAttribute(uid,'armor')
   else
      return getItemInfo(uid.itemid).armor
   end
end

 

[esnio12 45]

Não, não é só por isso, é por que você não postou a magia completa, ele não está executando o onCast

[thelifeofpbion 166]

44 minutos atrás, esnio12 disse:

Não, não é só por isso, é por que você não postou a magia completa, ele não está executando o onCast

@esnio12 valeu cara abri o spoiler agora ta faltando mais ou menos umas 70 linhas ahahhaha inclusive o oncast obrigado... @Ronald warsks quando eu chegar em casa eu do uma olhada... me lembra depois...

 

Editado Outubro 16, 2016 por pablobion (veja o histórico de edições)

[Ronald warsks 3]

3 horas atrás, pablobion disse:

@esnio12 valeu cara abri o spoiler agora ta faltando mais ou menos umas 70 linhas ahahhaha inclusive o oncast obrigado... @Ronald warsks quando eu chegar em casa eu do uma olhada... me lembra depois...

 

 

Opa, Pode me passar a speell completa ? Ele falou que tava pela metade né ksks

preciso muito Ficarei grato

[thelifeofpbion 166]

43 minutos atrás, Ronald warsks disse:

 

Opa, Pode me passar a speell completa ? Ele falou que tava pela metade né ksks

preciso muito Ficarei grato

 

entao tava dando uma olhada no seu pedido e na spell nao sei se vai ajudar nao kk mas ta ai ja é algo.. qualquer coisa fala com o night wolf q talvez ele faça a alteração necessaria pra ficar 100% como você quer a magia foi ele que fez.

 

Spoiler

local config = {
pos = {x=160, y=54, z=7}, -- posição que será teleportado
tempo = 10, -- tempo pra voltar
effect1 = 66, -- efeito ao ser teleportado
effect2 = 10, -- efeito ao voltar
storage = 19329, -- storage que fica guardado o cooldown
from = {x=159, y=53, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)
to = {x=161, y=55, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)
cooldown = 20, --- tempo entre um uso e outro (após usar a spell vc vai ficar X segundos sem poder usar ela novamente)
msg = "KAMUI OUT!" -- mensagem ao sair do kamui
}

local exceptions = {'trainer', 'aegis', 'god anderson'} --- nome das criaturas que não poderão ser levadas pro kamui (sempre em minúsculo e entre aspas)

function canEffect(pos, pz, proj) -- Night Wolf based on Nord
if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 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 onCastSpell(cid, var)
local pos = getPlayerPosition(cid)

if isInRange(pos, config.from, config.to) then
doPlayerSendCancel(cid, "You cannot use Kamui spell inside the Kamui!")
return false
end

if os.time() - getPlayerStorageValue(cid, config.storage) >= config.cooldown then
doPlayerSetStorageValue(cid, config.storage, os.time())
if isCreature(getCreatureTarget(cid)) then
target = getCreatureTarget(cid)
for i = 1, #exceptions do
if getCreatureName(target):lower() == exceptions then
doPlayerSendCancel(cid, "You can't take ".. getCreatureName(target) .." to Kamui.")
return false
end
end
--------------- PLAYER-----------
-------------------- OPONENTE ----------------
addEvent(doTeleportThing, 1000*config.tempo, target, getThingPos(target), true)
addEvent(doSendMagicEffect, 1000*config.tempo, getThingPos(target), config.effect2)
doSendMagicEffect(getThingPos(target), config.effect1)
doTeleportThing(target, config.pos)
-------------------------------------
if isPlayer(target) and isCreature(cid) then
doPlayerSendTextMessage(target, 27, "Voce foi teleportado por: ".. getCreatureName(cid) ..".")
end
if isPlayer(cid) and isCreature(target) then
doPlayerSendTextMessage(cid, 27, "Voce foi teleportado por: ".. getCreatureName(target) .."!")
end
for i = 1,config.tempo  do
addEvent(function()
if isPlayer(target) then
doPlayerSendTextMessage(target,25,"Voce vai voltar em " .. config.tempo -i +1 .. " segundo(s)")
end
if isPlayer(cid) then
doPlayerSendTextMessage(cid,25,"Voce vai voltar em " .. config.tempo -i +1 .. " segundo(s)")
end
end, 1000*i)
end
else
---------- levar quem tá em volta do player ---------------
local teleportPosition = {
{x = pos.x, y = pos.y - 1, z = pos.z},
{x = pos.x, y = pos.y + 1, z = pos.z},
{x = pos.x - 1, y = pos.y, z = pos.z},
{x = pos.x + 1, y = pos.y, z = pos.z},
{x = pos.x - 1, y = pos.y + 1, z = pos.z},
{x = pos.x - 1, y = pos.y - 1, z = pos.z},
{x = pos.x + 1, y = pos.y - 1, z = pos.z},
{x = pos.x + 1, y = pos.y + 1, z = pos.z}
}

local mobas = {}
local checker = 0

 for _, tPos in ipairs(teleportPosition) do
doSendMagicEffect(tPos, config.effect2)
local mob = getTopCreature(tPos).uid
    if canEffect (tPos) and mob ~= 0 and (isMonster(mob) or isPlayer(mob)) then
for i = 1, #exceptions do
if getCreatureName(mob):lower() == exceptions then
checker = 1
break
end
end
if checker ~= 1 then
table.insert(mobas, mob) 
end
end
end

if #mobas > 0 then
for _, pid in ipairs(mobas) do
addEvent(doTeleportThing, 1000*config.tempo, pid, getThingPos(pid), true)
addEvent(doSendMagicEffect, 1000*config.tempo, getThingPos(pid), config.effect2)
doSendMagicEffect(getThingPos(pid), config.effect1)
doTeleportThing(pid, config.pos)
if isPlayer(pid) and isCreature(cid) then
doPlayerSendTextMessage(pid, 27, "You were teleported by ".. getCreatureName(cid) ..".")
end
for i = 1,config.tempo  do
addEvent(function()
if isPlayer(pid) then
doPlayerSendTextMessage(pid,25,"You'll be back in " .. config.tempo -i +1 .. " second(s)")
end
end, 1000*i)
end
end
end
----------------------------
addEvent(doTeleportThing, 1000*config.tempo, cid, pos, true)
addEvent(doCreatureSay, 1000*config.tempo, cid, config.msg, 20, false)
addEvent(doSendMagicEffect, 1000*config.tempo, pos, config.effect2)
doSendMagicEffect(pos, config.effect1)
doTeleportThing(cid, config.pos)
if isPlayer(cid) then
doPlayerSendTextMessage(cid, 27, "You teleported yourself.")
end
for i = 1,config.tempo do
addEvent(function()
if isPlayer(cid) then
doPlayerSendTextMessage(cid,25,"You'll be back in " .. config.tempo -i +1 .. " second(s)")
end
end, 1000*i)
end
end
else
doPlayerSendCancel(cid, "Your skill is in cooldown, you must wait "..(config.cooldown - (os.time() - getPlayerStorageValue(cid, config.storage))).." seconds.")
end
return true
end

 

[Ronald warsks 3]

Amigo, Tem um poblema, Quando eu vou no ADM e vou usar a speell, ele funciona certinho.

Mas Quando entro no player, e vou usar a speell em outro player, O servidor trava, ai eu tenho que reiniciar ele

Print ae

[thelifeofpbion 166]

2 minutos atrás, Ronald warsks disse:

Amigo, Tem um poblema, Quando eu vou no ADM e vou usar a speell, ele funciona certinho.

Mas Quando entro no player, e vou usar a speell em outro player, O servidor trava, ai eu tenho que reiniciar ele

Print ae

que estranho, quais os erros na distro??

[Ronald warsks 3]

Nao tem nenhum erro na distro, So fala que o Player Tal Deslogou e pronto.

Estranho né

O mais Estranho, é que quando eu vou com o ADM ele funciona '-'

so com player o que nao.

[thelifeofpbion 166]

6 minutos atrás, Ronald warsks disse:

Nao tem nenhum erro na distro, So fala que o Player Tal Deslogou e pronto.

Estranho né

O mais Estranho, é que quando eu vou com o ADM ele funciona '-'

so com player o que nao.

achei agora o tópico do wolf sobre a spell, da uma olhada lá acredito se você pedir ajuda/suporte a ele, ele vai saber resolver...

obs: tenta trocar essa magia que te passei pela que tem no tópico dele, (talvez eu tenha feito alguma alteração ano passado) pq no meu servidor isso é uma magia de um boss(monster) enfim... resumindo ve o tópico testa pelo dele, e qualquer coisa pede ajuda lá que ele vai saber resolver mais rapido que eu kkk Abraço amigo!!

ja ia esquecendo do link kkkkkkkk 
 

 

Editado Outubro 17, 2016 por pablobion (veja o histórico de edições)

[Ronald warsks 3]

A blz, Eu tou vendo aki o topico dele,

So mais uma pergunta, eu estou em duvida se tenho que configurar alguma coisa nessa parte do script ??

Obrigado Pela força em cara,

 

from = {x=35, y=228, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)
to = {x=49, y=240, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)

[thelifeofpbion 166]

Agora, Ronald warsks disse:

A blz, Eu tou vendo aki o topico dele,

So mais uma pergunta, eu estou em duvida se tenho que configurar alguma coisa nessa parte do script ??

Obrigado Pela força em cara,

 

from = {x=35, y=228, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)
to = {x=49, y=240, z=7}, --- quina do kamui (pra impedir players de usarem o kamui dentro do kamui)

 

sao as cordenadas do lugar onde os players sao teleportados, no caso pra nao usar a magia dentro do lugar para onde a magia vai  

from = x,y,z parte superior esquerda

to = x,y,x inferior direita

[Ronald warsks 3]

Ata Okay, Obrigado erá so isso memo.

Mereceu Meu Rep + <<

[Ronald warsks 3]

So pra avisar Okay...

Cara o script ta certo, Ta pegando tudo certinho e funcionando, Erá o meu Player que tava bugado em,

Vlw mesmo 

hehe