Ir para conteúdo

AnnihilatorQuest

Por PedroPr
em Suporte Tibia OTServer

Featured Replies

Postado

ai galera Fiz a reprogramação da quest anihilator com outro bicho deu certo ele esta teletrasportando os player mais quando ele cai na sala os montro não summona , o.O alguem ai pode ma ajudar nesse problema me tbm o scripts do quest ta dando error !vou colocar os dois aqui !

 

  -- CONFIG --
 
        local room = {     -- room with Anihilators
        fromX = 629,
        fromY = 214,
        fromZ = 10,
        --------------
        toX = 636,
        toY = 222,
        toZ = 10
        }
 
        local monster_pos = {
        [1] = {pos = {x=631, y=216, z=10}, monster = "Anihilator"},
        [2] = {pos = {x=633, y=216, z=10}, monster = "Anihilator"},
        [3] = {pos = {x=632, y=220, z=10}, monster = "Anihilator"},
        [4] = {pos = {x=634, y=220, z=10}, monster = "Anihilator"},
        [5] = {pos = {x=635, y=218, z=10}, monster = "Anihilator"},
        [6] = {pos = {x=636, y=218, z=10}, monster = "Anihilator"}
        }
 
        local players_pos = {
        {x = 634, y =230, z = 10, stackpos = 253},
        {x = 635, y =230, z = 10, stackpos = 253},
        {x = 636, y =230, z = 10, stackpos = 253},
        {x = 637, y =230, z = 10, stackpos = 253}
        }
 
        local new_player_pos = {
        {x = 631, y = 218, z = 10},
        {x = 632, y = 218, z = 10},
        {x = 633, y = 218, z = 10},
        {x = 634, y = 218, z = 10}
        }
 
        local playersOnly = "yes"
        local questLevel = 100
 
        ------------------------------------------------------
        --- CONFIG END ---------------------------------------
        ------------------------------------------------------
 
function onUse(cid, item, fromPosition, itemEx, toPosition)
        local all_ready, monsters, player, level = 0, 0, {}, 0
        if item.itemid == 1945 then
                for i = 1, #players_pos do
                        table.insert(player, 0)
                end
                for i = 1, #players_pos do
                        player = getThingfromPos(players_pos)
                        if player.itemid > 0 then
                                if string.lower(playersOnly) == "yes" then
                                        if isPlayer(player.uid) == TRUE then
                                                all_ready = all_ready+1
                                        else
                                                monsters = monsters+1
                                        end
                                else
                                        all_ready = all_ready+1
                                end
                        end
                end
                if all_ready == #players_pos then
                        for i = 1, #players_pos do
                                player = getThingfromPos(players_pos)
                                if isPlayer(player.uid) == TRUE then
                                        if getPlayerLevel(player.uid) >= questLevel then
                                                level = level+1
                                        end
                                else
                                        level = level+1
                                end
                        end
                        if level == #players_pos then
                                if string.lower(playersOnly) == "yes" and monsters == 0 or string.lower(playersOnly) == "no" then
                                        local door = getTileItemById({x=637, y=218, z=10}, 5109).uid
if door > 0 then
doTransformItem(door, 5108)
end
 
for _, area in pairs(monster_pos) do
                                                        doSummonCreature(area.monster,{x=area.pos[1],y=area.pos[2],z=area.pos[3]})
                                        end
                                        for i = 1, #players_pos do
                                                doSendMagicEffect(players_pos, CONST_ME_POFF)
                                                doTeleportThing(player.uid, new_player_pos, FALSE)
                                                doSendMagicEffect(new_player_pos, CONST_ME_ENERGYAREA)
                                                doTransformItem(item.uid,1946)
                                        end
                                else
                                        doPlayerSendTextMessage(cid,19,"Only players can do this quest.")
                                end
                        else
                                doPlayerSendTextMessage(cid,19,"All Players have to be level "..questLevel.." to do this quest.")
                        end
                else
                        doPlayerSendTextMessage(cid,19,"You need "..table.getn(players_pos).." players to do this quest.")
                end
        elseif item.itemid == 1946 then
                local player_room = 0
                for x = room.fromX, room.toX do
                        for y = room.fromY, room.toY do
                                for z = room.fromZ, room.toZ do
                                        local pos = {x=x, y=y, z=z,stackpos = 253}
                                        local thing = getThingfromPos(pos)
                                        if thing.itemid > 0 then
                                                if isPlayer(thing.uid) == TRUE then
                                                        player_room = player_room+1
                                                end
                                        end
                                end
                        end
                end
                if player_room >= 1 then
                        doPlayerSendTextMessage(cid,19,"There is already a team in the quest room.")
                elseif player_room == 0 then
                        for x = room.fromX, room.toX do
                                for y = room.fromY, room.toY do
                                        for z = room.fromZ, room.toZ do
                                                local pos = {x=x, y=y, z=z,stackpos = 253}
                                                local thing = getThingfromPos(pos)
                                                if thing.itemid > 0 then
                                                        doRemoveCreature(thing.uid)
                                                end
                                        end
                                end
                        end
                        doTransformItem(item.uid,1945)
                end
        end
        return TRUE
end
no distro da esse error !
 
< luacreatemoster  >connot create monster .dai o nome do monster
 
 
 
 
E essa a do premioé esse 
 
function onUse(cid, item, frompos, item2, topos)
if getPlayerStorageValue(cid,5000) == -1 then
    AddStageExp(cid,100000)
end
    if item.uid == 49111 then
        queststatus = getPlayerStorageValue(cid,5000)
        if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a demon armor.")
            doPlayerAddItem(cid,2494,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49112 then
   
        queststatus = getPlayerStorageValue(cid,5000)
       
        if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a magic sword.")
            doPlayerAddItem(cid,2400,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49113 then
   
        queststatus = getPlayerStorageValue(cid,5000)
       
        if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a stonecutter axe.")
            doPlayerAddItem(cid,2431,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49114 then
   
        queststatus = getPlayerStorageValue(cid,5000)
       
        if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a present box.")
            box = doPlayerAddItem(cid,1990,1)
doAddContainerItem(box, 2326, 1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    end
    return true
end  

 

  • Citar
  • Mention

    • Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Conteúdo Similar

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.6k

    Informação Importante

    Confirmação de Termo

    I accept