[Blood Castle] Evento Otimizado![12/04/14]

- Adicionei uma configuração do número mínimo de players que o evento precisa para começar, se não atingir esse mínimo, o evento é fechado e já fica preparado para quando for acontecer novamente. Os jogadores que entraram são teleportados para o templo.​

 

- Coloquei um tempo máximo de permanêcncia no evento, se o player ficar X minutos no evento, ele é teleportado para o templo.

 

- Retirei todos os bugs que podiam acontecer no evento:

- O monstros (Guarda do Portao e Arcanjo) não são criados novamente caso já estejam em suas devidas posições

- Caso alguém morra no evento, o evento entende que tem um participante a menos.

- Após o tempo máximo de duração do evento, o script faz uma checagem para garantir que esteja tudo certo. Se algo estiver errado, o script arruma.

- Caso o seu servidor caia durante o evento, quando o servidor for aberto novamente, todos os participantes do evento são teleportados para o templo e o script já prepara o evento para - -quando for acontecer de novo.

 

Na pasta data/lib crie um arquivo .lua chamado BloodCastle e cole esse código:

-- == Blood Castle Event por Killua - Xtibia.com == --

bloodconfig = {
    
    templo = {x = 160, y = 51, z = 7}, -- templo
    
    posGuarda = {x = 29, y = 263, z = 7}, -- Onde o guarda do portão vai nascer
    
    premios = {{6527, 10}, {2160, 20}}, -- Premios que o vencedor vai ganhar {id, quantidade}
    
    positionTP = {x = 157, y = 44, z = 7}, -- Onde o tp será criado
     
    positionEvento = {x = 30, y = 314, z = 7}, -- Para onde o tp vai levar
     
    tempoTP = 2, -- Depois de quanto tempo que avisou vai ser criado o tp? Em minutos
     
    tempoAberto = 5, -- Tempo que o tp fica aberto. Em minutos
    
    minPlayers = 3, -- Número mínimo de players que devem entrar para que o evento aconteça
    
    tempoMaximo = 40, -- Tempo máximo, em minutos, que alguem pode permanecer no evento
    
    playersStorage = 54910, -- Não mude
    
    posPedras = {{x = 27, y = 304, z = 7, stackpos=1}, {x = 28, y = 304, z = 7, stackpos=1}, {x = 29, y = 304, z = 7, stackpos=1}, {x = 30, y = 304, z = 7, stackpos=1}, {x = 31, y = 304, z = 7, stackpos=1}}, -- Posições das pedras que bloqueiam a entrada do evento
    
    idDasParedes = 9486, -- ID das paredes que vao ser removidas  quando o Guarda morrer (todas devem ter o mesmo id)
    
    estatua = {x = 29, y = 242, z = 7}, -- Posicao onde o arcanjo vai ser criado
    
    tempoSaida = 70, -- Quando tempo o tp q é criado quando a estátua morre vai ficar? Em segundos
    
    posParedes = {{x = 28, y = 262, z = 7, stackpos=1}, {x = 29, y = 262, z = 7, stackpos=1}, {x = 30, y = 262, z = 7, stackpos=1}}, -- Posições das paredes que ficam atrás do guarda
    
    fromPos = {x = 12, y = 237, z = 7}, -- Canto superior esquerdo da área do seu evento  ---- Deve ser uma área quadrada ou retangular, de forma que todo o evento fique dentro dela.
    toPos = {x = 44, y = 323, z = 7}, -- Canto inferior direito da área do seu evento
 }
 
 -- [[ NAO ALTERE MAIS NADA DAQUI PARA BAIXO! ]] --
 
 function removeTpb()
       local t = getTileItemById(bloodconfig.positionTP, 1387)
     if t then
         doRemoveItem(t.uid, 1)
         doSendMagicEffect(bloodconfig.positionTP, CONST_ME_POFF)
     end
 end
 
 function removeStones() 
     for i = 1, #bloodconfig.posPedras do
         local pedra = getTileItemById(bloodconfig.posPedras[i], 1304)
         if pedra then
             doRemoveItem(pedra.uid, 1)
         end
     end
 end
 
  function putStones() 
      for i = 1, #bloodconfig.posPedras do
          local pedra = getTileItemById(bloodconfig.posPedras[i], 1304)
          if not pedra then
              doCreateItem(1304, 1, pedra)
          end
      end
  end

 
  function createTeleportb()
      local tip = doCreateTeleport(1387, bloodconfig.positionEvento, bloodconfig.positionTP)
      doItemSetAttribute(tip, "aid", 4726)
 end
      
  function removeTpa()
      local t = getTileItemById(bloodconfig.estatua, 1387)
      if t then
          doRemoveItem(t.uid, 1)
          doSendMagicEffect(bloodconfig.estatua, CONST_ME_POFF)
      end
  end
 
 
 function getPlayersInBlood()
     local playersInBlood = getGlobalStorageValue(bloodconfig.playersStorage)
     return playersInBlood < 0 and 0 or playersInBlood
 end
 
 function removePlayers()
     for _, pid in pairs(getPlayersOnline()) do
         if isInArea(getThingPos(pid), bloodconfig.fromPos, bloodconfig.toPos) then
             doTeleportThing(pid, bloodconfig.templo, false)
             doPlayerSendTextMessage(pid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce foi removido do Blood Castle. Possiveis causas: o evento nao atingiu o numero minimo de players; Voce permaneceu no evento por mais de " .. bloodconfig.tempoMaximo .. " minutos.")
         end
     end
 end
 
 function checkBlood() 
     if getPlayersInBlood() >= bloodconfig.minPlayers then
         removeStones()
         doBroadcastMessage("[Blood Castle] O Evento comecou e o teleporte para ele foi fechado. Boa sorte a todos!")
         if not isMonster(getTopCreature(bloodconfig.posGuarda).uid) then
            doCreateMonster("Guarda do Portao", bloodconfig.posGuarda)
        end
        addEvent(removePlayers, bloodconfig.tempoMaximo*60*1000)
    else
        removePlayers()
        setGlobalStorageValue(bloodconfig.playersStorage, 0)
        doBroadcastMessage("[Blood Castle] O evento nao atingiu o numero minimo de participantes e foi cancelado.")
        if isMonster(getTopCreature(bloodconfig.posGuarda).uid) then
            doRemoveCreature(getTopCreature(bloodconfig.posGuarda).uid)
        end
        if isMonster(getTopCreature(bloodconfig.estatua).uid) then
            doRemoveCreature(getTopCreature(bloodconfig.estatua).uid)
        end
    end
end

function putWalls()
    for i = 1, #bloodconfig.posParedes do
        doCreateItem(bloodconfig.idDasParedes, 1, bloodconfig.posParedes[i])
    end
end

function removeWalls()
    for i = 1, #bloodconfig.posParedes do
        local wall = getTileItemById(bloodconfig.posParedes[i], bloodconfig.idDasParedes)
        if wall then
            doRemoveItem(wall.uid, 1)
        end
    end
end

function createAngel()
    if not isMonster(getTopCreature(bloodconfig.estatua).uid) then
        doCreateMonster("Arcanjo", bloodconfig.estatua)
        doBroadcastMessage("[Blood Castle] A estatua do arcanjo apareceu!")
    end
end
         
function Guarantee()
    if isMonster(getTopCreature(bloodconfig.posGuarda).uid) then
        putWalls()
        doRemoveCreature(getTopCreature(bloodconfig.posGuarda).uid)
    elseif isMonster(getTopCreature(bloodconfig.estatua).uid) then
        putStones()
        putWalls()
        doRemoveCreature(getTopCreature(bloodconfig.estatua).uid)
    end
end

Em data/movements/scripts crie um arquivo .lua chamado BloodMovement e coloque esse código:

-- == Blood Castle Event por Killua - Xtibia.com == --

function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
    if item.actionid == 4726 then
        setGlobalStorageValue(bloodconfig.playersStorage, getPlayersInBlood()+1)
        print(getPlayersInBlood().. " Jogadores no Blood Castle")
    elseif item.actionid == 9371 then
        setGlobalStorageValue(bloodconfig.playersStorage, getPlayersInBlood()-1)
        print(getPlayersInBlood().. " Jogadores no Blood Castle")
    end
    return true
end

TAG do movements.xml:

<movevent type="StepIn" actionid="4726;9371" event="script" value="BloodMovement.lua"/>

Em data/creaturescripts/scripts crie um arquivo .lua chamado BloodCreatureGuarda e coloque esse código:

-- == Blood Castle Event por Killua - Xtibia.com == --

function onDeath(cid, corpse, mostDamageKiller)
    local artigo = getPlayerSex(mostDamageKiller[1]) == 0 and "A jogadora" or "O jogador"
    if isMonster(cid) and string.lower(getCreatureName(cid)) == string.lower("Guarda do Portao") then
        removeWalls()
        addEvent(createAngel, 2*60*1000)
        doBroadcastMessage("[Blood Castle] " .. artigo .. " " .. getPlayerName(mostDamageKiller[1]) .. " derrotou o Guarda do Portao! Prossigam para proxima sala e aguardem ate o arcanjo nascer!")
    end
    return true
end

Na mesma pasta, crie um arquivo .lua chamado BloodCreatureAnjo e coloque esse código:

-- == Blood Castle Event por Killua - Xtibia.com == --

function onDeath(cid, corpse, mostDamageKiller)    
    local artigo = getPlayerSex(mostDamageKiller[1]) == 0 and "A jogadora" or "O jogador"
    if isMonster(cid) and string.lower(getCreatureName(cid)) == string.lower("Arcanjo") then
        doBroadcastMessage("[Blood Castle] " .. artigo .. " " .. getPlayerName(mostDamageKiller[1]) .. " destruiu a estatua do Arcanjo e foi o vencedor da rodada!")
        for _, premio in pairs(bloodconfig.premios) do
            doPlayerAddItem(mostDamageKiller[1], premio[1], premio[2])
        end
        doPlayerSendTextMessage(mostDamageKiller[1], 25, "Parabens voce venceu o evento Blood Castle!")
        doSendMagicEffect(getCreaturePosition(mostDamageKiller[1]), 66)
        doCreateTeleport(1387, bloodconfig.templo, bloodconfig.estatua)
        addEvent(removeTpa, bloodconfig.tempoSaida*1000)      
        setGlobalStorageValue(bloodconfig.playersStorage, 0)  
        putWalls()
        putStones()
    end
    return true
end

Ainda na mesma pasta crie um arquivo .lua chamado BloodCreature e coloque esse código:

-- == Blood Castle Event por Killua, antigo  - Xtibia.com == --

function onDeath(cid, corpse, mostDamageKiller)
    if isPlayer(cid) and isInArea(getCreaturePosition(cid), bloodconfig.fromPos, bloodconfig.toPos) then
        setGlobalStorageValue(bloodconfig.playersStorage, getPlayersInBlood()-1)
    end
    return true
end

function onLogin(cid)
    if isInArea(getCreaturePosition(cid), bloodconfig.fromPos, bloodconfig.toPos) then
        doTeleportThing(cid, bloodconfig.templo, false)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce estava no meio do evento Blood Castle quando o servidor caiu. Voce foi teleportado para o templo.")
    end
    registerCreatureEvent(cid, "morrerblood")
    registerCreatureEvent(cid, "guardablood")
    registerCreatureEvent(cid, "arcanjoblood")
    return true
end

TAGs no creaturescripts.xml

<event type="death" name="guardablood" event="script" value="BloodCreatureGuarda.lua"/>
<event type="death" name="arcanjoblood" event="script" value="BloodCreatureAnjo.lua"/>
<event type="death" name="morrerblood" event="script" value="BloodCreature.lua"/>
<event type="death" name="loginblood" event="script" value="BloodCreature.lua"/>

Em data/monsters crie uma pasta chamada Blood Castle coloque esses dois códigos:

Guarda do Portao.xml:

<?xml version="1.0" encoding="UTF-8"?>
<monster name="Guarda do Portao" nameDescription="the Guarda do Portao" race="undead" experience="500000" speed="0" manacost="0">
  <health now="1000000" max="1000000"/>
  <look type="268" head="114" body="114" legs="114" feet="114" addons="3" corpse="6080"/>
  <targetchange interval="5000" chance="0"/>
  <strategy attack="0" defense="0"/>
    <script>
<event name="guardablood"/>
</script>
  <flags>
    <flag summonable="0"/>
    <flag attackable="1"/>
    <flag hostile="1"/>
    <flag illusionable="0"/>
    <flag convinceable="0"/>
    <flag pushable="0"/>
    <flag canpushitems="0"/>
    <flag canpushcreatures="1"/>
    <flag targetdistance="1"/>
    <flag staticattack="90"/>
    <flag runonhealth="100"/>
  </flags>
  <defenses armor="1" defense="1"/>
  <immunities>
    <immunity poison="1"/>
    <immunity lifedrain="1"/>
    <immunity paralyze="1"/>
    <immunity outfit="1"/>
    <immunity drunk="1"/>
    <immunity invisible="1"/>
  </immunities>
</monster>

<?xml version="1.0" encoding="UTF-8"?>
<monster name="Arcanjo" nameDescription="the Arcanjo" race="undead" experience="500000" speed="0" manacost="0">
  <health now="1000000" max="1000000"/>
  <look typeex="9751"/>
  <targetchange interval="5000" chance="0"/>
  <strategy attack="0" defense="0"/>
    <script>
<event name="arcanjoblood"/>
</script>
  <flags>
    <flag summonable="0"/>
    <flag attackable="1"/>
    <flag hostile="1"/>
    <flag illusionable="0"/>
    <flag convinceable="0"/>
    <flag pushable="0"/>
    <flag canpushitems="0"/>
    <flag canpushcreatures="1"/>
    <flag targetdistance="1"/>
    <flag staticattack="90"/>
    <flag runonhealth="100"/>
  </flags>
  <defenses armor="1" defense="1"/>
  <immunities>
    <immunity poison="1"/>
    <immunity lifedrain="1"/>
    <immunity paralyze="1"/>
    <immunity outfit="1"/>
    <immunity drunk="1"/>
    <immunity invisible="1"/>
  </immunities>
</monster>

Em monsters.xml coloque essas TAGs:

<monster name="Guarda do Portao" file="Blood Castle/Guarda do Portao.xml"/>
<monster name="Arcanjo" file="Blood Castle/Arcanjo.xml"/>

--==- Evento Blood Castle feito por amoeba13 -=--

 function onThink(interval, lastExecution, thinkInterval)
     if not isMonster(getTopCreature(bcastle.posguarda).uid) then  
       doCreateMonster('Guarda do Portao', bcastle.posguarda)
   end  
     doBroadcastMessage("[Blood Castle] O teleporte para o evento Blood Castle vai ser aberto em "..bcastle.tempoaviso.." minutos, nao percam!")
     addEvent(BotarTp, bcastle.tempoaviso*60*1000)
     addEvent(doBroadcastMessage, bcastle.tempoaviso*60*1000, "[Blood Castle] O teleport para o Blood Castle foi criado e vai sumir em "..bcastle.tempoaberto.." minutos, se apressem!")
     addEvent(TirarTp, bcastle.tempoaviso*60*1000+bcastle.tempoaberto*60*1000)
     addEvent(doBroadcastMessage, bcastle.tempoaviso*60*1000+bcastle.tempoaberto*60*1000, "[Blood Castle] O evento Blood Castle comecou e o teleport para ele foi fexado. Boa sorte a todos!")
     addEvent(TirarPedras, bcastle.tempoaviso*60*1000+bcastle.tempoaberto*60*1000)
     return true
 end