Olá, Bom Primeiro Queria Agradecer Desde Já, Mais Agora Vamos Ao Que Interessa, Queria Pedir A Vocês Uma Script De Fly Ser Só Para Players Premium (VIP), Já Tenho O Teleport Premium (VIP), Assim Só Faltando O Fly Então é Isso Pessoal, Vou Deixa Ae Embaixo A Minha Fly, Flyup e FlyDown.
 

FLY:

Spoiler

local del = {'460', '1022', '1023', '1024'}

function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)

position.stackpos = 0

if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV

    if getPlayerStorageValue(cid, 17000) <= 0 then
        doTeleportThing(cid, fromPosition, false)
        doRemoveItem(getTileThingByPos(position).uid, 1)
        doPlayerSendCancel(cid, "You can't fly.")
    return true
    end

    doAreaCombatHealth(cid, FLYSYSTEMDAMAGE, getThingPos(cid), splash, 0, 0, 255)

local pos = getThingPos(cid)
    if pos.z == 7 then return true end
pos.z = pos.z + 1

    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, 3) or hasProperty(tile.uid, 7) or tile.itemid == 919 then
                doTransformItem(item.uid, 11677)
            end
        end
    end

return true
end

function onStepOut(cid, item, position, lastPosition, fromPosition, toPosition, actor)

if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV

local effect = 2

    if toPosition.z == fromPosition.z and getCreatureOutfit(cid).lookType ~= 316 and getCreatureOutfit(cid).lookType ~= 648 then
        doSendMagicEffect(fromPosition, effect)
    end

local oldtpos = fromPosition
oldtpos.stackpos = STACKPOS_GROUND

if getTileThingByPos(oldtpos).itemid >= 1 then
doRemoveItem(getTileThingByPos(oldtpos).uid, 1)
end

return true
end    

FLYDOWN:

Spoiler

local lower = {'460', '11675', '11676'}

local houses = {'919', '1015', '1590', '1591', '1592', '1593', '1582', '1584', '1586', '1588', '5248', '5189'}

function onSay(cid, words, param)

if param ~= "" then
return false
end

if getPlayerStorageValue(cid, 17000) <= 0 then
return true
end

if getThingPos(cid).z == 7 then
doPlayerSendCancel(cid, "You can\'t go lower!")
return true
end

if getTileInfo(getThingPos(cid)).itemid == 11677 then
doPlayerSendCancel(cid, "Sorry, it's not possible to go lower.")
return true
end

if not isInArray(lower, getTileInfo(getThingPos(cid)).itemid) and getTileInfo(getThingPos(cid)).itemid >= 2 then
doPlayerSendCancel(cid, "You can\'t go lower.")
return true
end

local pos = getThingPos(cid)
pos.z = pos.z+1
pos.stackpos = 0

if getTileThingByPos(pos).itemid >= 1 then

if getTilePzInfo(pos) == true then
doPlayerSendCancel(cid, "You can\'t go down here.")
return true
end

if not canWalkOnPos(pos, true, true, false, false, true) then
doPlayerSendCancel(cid, "You can't go down here.")
return true
end

doTeleportThing(cid, pos)
if getCreatureOutfit(cid).lookType == 667 or getCreatureOutfit(cid).lookType == 999 then
   markPosEff(cid, getThingPos(cid))
end

else
doCombatAreaHealth(cid, 0, pos, 0, 0, 0, CONST_ME_NONE)
doCreateItem(11675, 1, pos)
doTeleportThing(cid, pos)
if getCreatureOutfit(cid).lookType == 667 or getCreatureOutfit(cid).lookType == 999 then
   markPosEff(cid, getThingPos(cid))                                  --edited porygon fly sistem
end

return true
end
return true
end

 

FLYUP:

Spoiler

function onSay(cid, words, param)

if param ~= "" then
return false
end

if getPlayerStorageValue(cid, 17000) <= 0 then
return true
end

if getThingPos(cid).z == 0 then
doPlayerSendCancel(cid, "You can\'t go higher!")
return true
end

local pos = getThingPos(cid)
pos.z = pos.z-1
pos.stackpos = 0

if getTileThingByPos(pos).itemid >= 1 or getTileItemById(getThingPos(cid), 1386).itemid >= 1 then
doPlayerSendCancel(cid, "You can\'t fly through constructions.")
return true
end

doCombatAreaHealth(cid, 0, pos, 0, 0, 0, CONST_ME_NONE)
doCreateItem(11676, 1, pos)
doTeleportThing(cid, pos)
if getCreatureOutfit(cid).lookType == 667 or getCreatureOutfit(cid).lookType == 999 then
   markPosEff(cid, getThingPos(cid))                           --edited porygon fly sistem 
end

return true
end

 

Bom é Isso Pessoal, Se Precisa De Mais Alguma Coisa Para Me Ajudar Nisso Avise-Me.
Estou Precisando De Pessoas Que Mecha Com Scripts Para O Grupo, Então é Isso Até Mais Pessoal

  Esta é uma mensagem automática, este tópico foi movido para a área correta.
  Regras do fórum: http://www.tibiaking.com/forum/topic/1281-regras-gerais/#comment-7680

Este tópico foi movido:
De: Scripting OTServ > OTServ > CreatureScripts, GlobalEvents e MoveMents
Para: Suporte OTServ > OTServ > Suporte de Scripts

Expliquese Melhor Pq n Sei Aonde VOu Coloca Esses Scripts

 

Em 20/01/2016, 13:27:28, Mauro Sérgio disse:

Bom é Isso Pessoal, Se Precisa De Mais Alguma Coisa Para Me Ajudar Nisso Avise-Me.
Estou Precisando De Pessoas Que Mecha Com Scripts Para O Grupo, Então é Isso Até Mais Pessoal

Ve se deu

Fly

Citar

local del = {'460', '1022', '1023', '1024'}
function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
position.stackpos = 0
if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV
    if getPlayerStorageValue(cid, 17000) <= 0 then
        doTeleportThing(cid, fromPosition, false)
        doRemoveItem(getTileThingByPos(position).uid, 1)
        doPlayerSendCancel(cid, "You can't fly.")
    return true

end
    if not isPremium(cid) then
doPlayerSendTextMessage(cid,22,"Você precisa ter Premium Account para usar fly!") return false
end
    doAreaCombatHealth(cid, FLYSYSTEMDAMAGE, getThingPos(cid), splash, 0, 0, 255)
local pos = getThingPos(cid)
    if pos.z == 7 then return true end
pos.z = pos.z + 1
    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, 3) or hasProperty(tile.uid, 7) or tile.itemid == 919 then
                doTransformItem(item.uid, 11677)
            end
        end
    end
return true
end
function onStepOut(cid, item, position, lastPosition, fromPosition, toPosition, actor)
if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV
local effect = 2
    if toPosition.z == fromPosition.z and getCreatureOutfit(cid).lookType ~= 316 and getCreatureOutfit(cid).lookType ~= 648 then
        doSendMagicEffect(fromPosition, effect)
    end
local oldtpos = fromPosition
oldtpos.stackpos = STACKPOS_GROUND

if getTileThingByPos(oldtpos).itemid >= 1 then
doRemoveItem(getTileThingByPos(oldtpos).uid, 1)
end
return true
end    

 

Caso o primeiro n der use este

Fly

Citar

local del = {'460', '1022', '1023', '1024'}
function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
position.stackpos = 0
if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV
    if getPlayerStorageValue(cid, 17000) <= 0 then
        doTeleportThing(cid, fromPosition, false)
        doRemoveItem(getTileThingByPos(position).uid, 1)
        doPlayerSendCancel(cid, "You can't fly.")
    return true

end
    if parameters.premium == true and not isPremium(cid) then
    doPlayerSendTextMessage(cid,22,"Você precisa ter Premium Account para usar fly!")  return false

end
    doAreaCombatHealth(cid, FLYSYSTEMDAMAGE, getThingPos(cid), splash, 0, 0, 255)
local pos = getThingPos(cid)
    if pos.z == 7 then return true end
pos.z = pos.z + 1
    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, 3) or hasProperty(tile.uid, 7) or tile.itemid == 919 then
                doTransformItem(item.uid, 11677)
            end
        end
    end
return true
end
function onStepOut(cid, item, position, lastPosition, fromPosition, toPosition, actor)
if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV
local effect = 2
    if toPosition.z == fromPosition.z and getCreatureOutfit(cid).lookType ~= 316 and getCreatureOutfit(cid).lookType ~= 648 then
        doSendMagicEffect(fromPosition, effect)
    end
local oldtpos = fromPosition
oldtpos.stackpos = STACKPOS_GROUND

if getTileThingByPos(oldtpos).itemid >= 1 then
doRemoveItem(getTileThingByPos(oldtpos).uid, 1)
end
return true
end    

 

Editado Fevereiro 29, 2016 9 anos por Ckfox (veja o histórico de edições)

Na Script De FLY FLYUP FLYDOWN, Você Vai Substituir, Não Se Esqueça De Fazer O Backup