Very Basic Lava

codename_B · (This post was last modified: 02-27-2011, 11:32 PM by codename_B.)

This is basically the water plugin slowed down, and with lava.

Once I've figured out how to detect what's burnable and set it on fire, and also damage the player, I'll make sure to do that. For now, it's just epic flowing lava that will be very dangerous when damage is added Wink

PHP Code:
local LavaPlugin = {}
LavaPlugin.__index = LavaPlugin

function LavaPlugin:new()
   local t = {}
   setmetatable(t, LavaPlugin)
   local w = Lua__cPlugin:new()
   tolua.setpeer(w, t)
   w:tolua__set_instance(w)
   return w
end

function LavaPlugin:OnDisable()
   Log( Plugin:GetName() .. " v." .. Plugin:GetVersion() .. " is shutting down..." )
end

function LavaPlugin:Initialize()
   self:SetName( "Lava" )
   self:SetVersion( 1 )

   PluginManager = cRoot:Get():GetPluginManager()
   PluginManager:AddHook( self, cPluginManager.E_PLUGIN_TICK )
   PluginManager:AddHook( self, cPluginManager.E_PLUGIN_BLOCK_DIG )
   PluginManager:AddHook( self, cPluginManager.E_PLUGIN_BLOCK_PLACE )
   self.LavaBlocks = {};
   self.LavaBlocks = {};

   Log( "Initialized " .. self:GetName() .. " v." .. self:GetVersion() )
   self.NumTicks = 0;
   return true
end

function IsFreeForLava(block)
   return block == E_BLOCK_AIR
      or block == E_BLOCK_TORCH
      or block == E_BLOCK_MINECART_TRACKS
      or block == E_BLOCK_REDSTONE_TORCH_ON
      or block == E_BLOCK_REDSTONE_TORCH_OFF;
end

function IsBurnable(block)
    return block == E_BLOCK_LOG
      or block == E_BLOCK_LEAVES;
end

function LavaPlugin:OnBlockPlace( PacketData, Player )

   local X = PacketData.m_PosX
   local Y = PacketData.m_PosY
   local Z = PacketData.m_PosZ
   X, Y, Z = AddDirection( X, Y, Z, PacketData.m_Direction )
   local t = PacketData.m_ItemType; -- the type of item used to call the place command
   Log("lava: " .. X .. "," .. Y .. "," .. Z .. " -- adding due to Place... " .. t);

   local World = cRoot:Get():GetWorld();
   if(t == 327) then -- lava bucket
      World:SetBlock(X, Y, Z, E_BLOCK_LAVA, 0);
   elseif(t == 10) then
      World:SetBlock(X, Y, Z, E_BLOCK_LAVA, 0);
   end
   self:AddSurroundings(X, Y, Z);
   self:AddBlock(X, Y, Z);
   return false
end

function LavaPlugin:AddSurroundings(X, Y, Z)
   local level_points = {
      {X-1, Y, Z},
      {X+1, Y, Z},
      {X, Y, Z-1},
      {X, Y, Z+1},
      {X, Y+1, Z},
      {X, Y-1, Z},
      };
   for key,val in pairs(level_points) do
      self:AddBlock(val[1], val[2], val[3]);
   end
end

function LavaPlugin:AddBlock(X, Y, Z)
   local World = cRoot:Get():GetWorld();
   local t = World:GetBlock(X, Y, Z);
   if(t == E_BLOCK_LAVA or t == E_BLOCK_STATIONARY_LAVA) then
      local found = false;
      for key,val in pairs(self.LavaBlocks) do
         if(val[1] == X and val[2] == Y and val[3] == Z) then
            found = true;
            Log("addblock found");
            break;
         end
      end
      end
    
      if(not found) then
         Log("addblock adding");
         table.insert(self.LavaBlocks, {X, Y, Z});
      end
   end

function LavaPlugin:OnBlockDig( PacketData, Player )
   local X = PacketData.m_PosX
   local Y = PacketData.m_PosY
   local Z = PacketData.m_PosZ
   if(PacketData.m_Status == 3) then -- block broken
      Log("lava: " .. X .. "," .. Y .. "," .. Z .. " -- adding due to dig... status is: " .. PacketData.m_Status);
      self:AddSurroundings(X, Y, Z);
   end
   return false
end

function LavaPlugin:Tick( DeltaTime )
   if( self.NumTicks < 50 ) then   -- Only spread every 50 ticks, to make sure it doesnt happen too fast
      self.NumTicks = self.NumTicks + 1
      return
   end
   local debug = true;
   self.NumTicks = 0

   local World = cRoot:Get():GetWorld()

   local OldBlocks = self.LavaBlocks;
   self.LavaBlocks = {};
   for key,val in pairs(OldBlocks) do
      local X = val[1]
      local Y = val[2]
      local Z = val[3]
      local t = World:GetBlock(X, Y, Z);
      Log("processing: " .. X .. "," .. Y .. "," .. Z .. " -- " .. t);
      if(t == E_BLOCK_LAVA) then
         local isFed = false;
         local f = World:GetBlockMeta(X, Y, Z);
         local f2 = f;
         if(f == 8) then
            local t2 = World:GetBlock(X, Y+1, Z);
            if(t2 == E_BLOCK_LAVA) then
               isFed = true;
               local t3 = World:GetBlock(X, Y-1, Z);
               local f3 = World:GetBlockMeta(X, Y-1, Z);
               if(t3 == E_BLOCK_LAVA and f3 == 8) then
                  -- I'm falling, don't spread sideways
               else
                  f = 0;
               end
            end
         elseif(f == 0) then
            isFed = true;
         else
            f2 = GetMaximumLavaAround(X, Y, Z);
            if(f2 < f) then
               isFed = true;
            end
         end
         if(isFed) then
            Log(" isFed");
            local down = World:GetBlock(X, Y-1, Z);
            if(IsFreeForLava(down)) then
               Log("  down");
               World:SetBlock(X, Y-1, Z, E_BLOCK_LAVA, 8);
               self:AddBlock(X, Y-1, Z);
            else
               Log("  around");
               if(f == 8) then
                  -- I'm falling
               elseif(f2+1 < f) then
                  World:SetBlock(X, Y, Z, E_BLOCK_LAVA, f2+1);
                  self:AddBlock(X, Y, Z);
               elseif(f < 7) then
                  Log("   enough power");
                  local points = GetLowestPoints(X, Y, Z);
                  for k,v in pairs(points) do
                     local t2 = World:GetBlock(v[1], v[2], v[3]);
                     if(t2 ~= E_BLOCK_LAVA) then
                        if(v[2] == Y) then
                           World:SetBlock(v[1], v[2], v[3], E_BLOCK_LAVA, f+1);
                        else
                           World:SetBlock(v[1], v[2], v[3], E_BLOCK_LAVA, 8);
                        end
                        self:AddBlock(v[1], v[2], v[3]);
                     else -- is lava
                        local f3 = World:GetBlockMeta(v[1], v[2], v[3]);
                        if(f3 ~= 8 and f3 > f+1) then
                           self:AddBlock(v[1], v[2], v[3]);
                        end
                     end
                  end
               end
            end
         else
            Log(" not isFed");
            World:SetBlock(X, Y, Z, E_BLOCK_AIR, 0);
            self:AddSurroundings(X, Y, Z);
         end
      else
                  if(IsBurnable(down)) then
               Log("Burnable");
             else
         Log("changed before tick, not processing none-lava");
         end
      end
   end
end

function GetMaximumLavaAround(X, Y, Z)
   local mx = 8;
   local level_points = {
      {X-1, Y, Z},
      {X+1, Y, Z},
      {X, Y, Z-1},
      {X, Y, Z+1},
      };
   local World = cRoot:Get():GetWorld();
   for key,val in pairs(level_points) do
      local t = World:GetBlock(val[1], val[2], val[3]);
      if(t == E_BLOCK_STATIONARY_LAVA) then
         mx = 0;
         break;
      elseif(t == E_BLOCK_LAVA) then
         local f = World:GetBlockMeta(val[1], val[2], val[3]);
         if(f < mx) then
            mx = f;
         elseif(f == 8) then
            mx = 0;
         end
         if(mx == 0) then
            break;
         end
      end
   end
   return mx;
end

function GetLowestPoints(X, Y, Z)
   local World = cRoot:Get():GetWorld()
   local t = World:GetBlock(X, Y-1, Z);
   local points = {};
   if(IsFreeForLava(t)) then
      table.insert(points, {X, Y-1, Z});
      return points;
   end
   local lower_points = {
      {X-1, Y-1, Z},
      {X+1, Y-1, Z},
      {X, Y-1, Z-1},
      {X, Y-1, Z+1},
      };
   local lavaFound = false;
   for key,val in pairs(lower_points) do
      local t = World:GetBlock(val[1], val[2], val[3]);
      local t2 = World:GetBlock(val[1], Y, val[3]);
      if(IsFreeForLava(t) and IsFreeForLava(t2)) then
         table.insert(points, val);
         val[2] = Y;
         table.insert(points, val);
      elseif(t2 == E_BLOCK_LAVA and (IsFreeForLava(t) or t == E_BLOCK_LAVA)) then
         lavaFound = true;
      end
   end
   if(#points == 0 and not lavaFound) then
      local level_points = {
         {X-1, Y, Z},
         {X+1, Y, Z},
         {X, Y, Z-1},
         {X, Y, Z+1},
         };
      for key,val in pairs(level_points) do
         local t = World:GetBlock(val[1], val[2], val[3]);
         if(IsFreeForLava(t) or t == E_BLOCK_LAVA) then
            table.insert(points, val);
         end
      end
   end
   return points;
end

Plugin = LavaPlugin:new()
cRoot:Get():GetPluginManager():AddPlugin( Plugin ) 

If anyone has any snippets to detect wood and things and make it work with this plugin, please let me know.

FakeTruth · 02-27-2011, 11:26 PM

It doesn't flow Sad

It's the fire plugin, but with lava that acts like fire

codename_B · (This post was last modified: 02-27-2011, 11:33 PM by codename_B.)

Haha, I copy pasted the wrong one!!! :L

There we go, it should be fixed and flow now Smile

the flow path is identical to water, but that's satisfactory as I actually prefer the way water flows in this server.

FakeTruth · 02-28-2011, 12:50 AM

Cool

Now make it form obsidian and cobblestone! hehe

codename_B · 02-28-2011, 01:51 AM

Sure

Let me in on the world generator Wink

Tybor · 02-28-2011, 02:04 AM

Nice one, too!

greets,
Tybor

Revolucas · (This post was last modified: 03-01-2011, 08:32 AM by Revolucas.)

Doesn't flow for me is there anything special I have to do like enable physics like I did for water?

Edit: Nevermind doesn't look like the plugin is loading according to /pluginlist XD Forgot to add it to the ini...