diff options
Diffstat (limited to '')
-rw-r--r-- | Plugins/Fire/plugin.lua | 133 |
1 files changed, 0 insertions, 133 deletions
diff --git a/Plugins/Fire/plugin.lua b/Plugins/Fire/plugin.lua deleted file mode 100644 index 5a96c4fdc..000000000 --- a/Plugins/Fire/plugin.lua +++ /dev/null @@ -1,133 +0,0 @@ -local FireBlocks = {} -- List of blocks that are currently burning!
-
-function Initialize( Plugin )
-
- Plugin:SetName( "Fire" )
- Plugin:SetVersion( 2 )
-
- PluginManager = cRoot:Get():GetPluginManager()
- PluginManager:AddHook( Plugin, cPluginManager.E_PLUGIN_TICK )
- PluginManager:AddHook( Plugin, cPluginManager.E_PLUGIN_BLOCK_PLACE )
- PluginManager:AddHook( Plugin, cPluginManager.E_PLUGIN_BLOCK_DIG )
-
- Log( "Initialized " .. Plugin:GetName() .. " v." .. Plugin:GetVersion() )
-
- return true
-end
-
-function IsForeverBurnable( BlockID )
- if( BlockID == E_BLOCK_BLOODSTONE ) then
- return true
- end
- return false
-end
-
-function IsBurnable( BlockID )
- if( BlockID == E_BLOCK_LEAVES or BlockID == E_BLOCK_LOG ) then
- return true
- end
-
- return false
-end
-
-function FindBurnableAround( X, Y, Z )
- World = cRoot:Get():GetWorld()
-
- ListBurnables = {}
- if( IsBurnable( World:GetBlock(X-1, Y, Z) ) ) then
- table.insert( ListBurnables, { ["x"] = X-1, ["y"] = Y, ["z"] = Z } )
- end
- if( IsBurnable( World:GetBlock(X+1, Y, Z) ) ) then
- table.insert( ListBurnables, { ["x"] = X+1, ["y"] = Y, ["z"] = Z } )
- end
- if( IsBurnable( World:GetBlock(X, Y-1, Z) ) ) then
- table.insert( ListBurnables, { ["x"] = X, ["y"] = Y-1, ["z"] = Z } )
- end
- if( IsBurnable( World:GetBlock(X, Y+1, Z) ) ) then
- table.insert( ListBurnables, { ["x"] = X, ["y"] = Y+1, ["z"] = Z } )
- end
- if( IsBurnable( World:GetBlock(X, Y, Z-1) ) ) then
- table.insert( ListBurnables, { ["x"] = X, ["y"] = Y, ["z"] = Z-1 } )
- end
- if( IsBurnable( World:GetBlock(X, Y, Z+1) ) ) then
- table.insert( ListBurnables, { ["x"] = X, ["y"] = Y, ["z"] = Z+1 } )
- end
-
- return ListBurnables
-end
-
-
-function OnBlockPlace( PacketData, Player )
-
- if( PacketData.m_ItemType == E_BLOCK_FIRE or PacketData.m_ItemType == E_ITEM_FLINT_AND_STEEL ) then
- if( PacketData.m_Direction > -1 ) then
- 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 World = cRoot:Get():GetWorld()
-
- --Since flint and steel doesn't do anything on the server side yet
- if( PacketData.m_ItemType == E_ITEM_FLINT_AND_STEEL ) then
- World:SetBlock( X, Y, Z, E_BLOCK_FIRE, 0 )
- end
-
- if( not IsForeverBurnable( World:GetBlock( X, Y-1, Z ) ) ) then
- table.insert( FireBlocks, { ["x"] = X, ["y"] = Y, ["z"] = Z } )
- end
- end
- end
-
- return false -- dont forbid placing the fire
-end
-
--- To put out fires! :D
-function OnBlockDig( PacketData, Player )
- if( PacketData.m_Direction < 0 ) then
- return false
- end
-
- 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 World = cRoot:Get():GetWorld()
- if( World:GetBlock( X, Y, Z ) == E_BLOCK_FIRE ) then
- World:SetBlock( X, Y, Z, E_BLOCK_AIR, 0 )
- end
-
- return false
-end
-
-local NumTicks = 0
-function Tick( DeltaTime )
- if( NumTicks < 10 ) then -- Only spread every 10 ticks, to make sure it doesnt happen too fast
- NumTicks = NumTicks + 1
- return
- end
- NumTicks = 0
-
- local World = cRoot:Get():GetWorld()
-
- local NewTable = {}
- for key,val in pairs(FireBlocks) do
- X = val["x"]
- Y = val["y"]
- Z = val["z"]
- local Burnables = FindBurnableAround(X, Y, Z)
- if( math.random(10) > 5 ) then
- table.insert( NewTable, val )
- elseif( #Burnables > 0 ) then
- local ToBurn = Burnables[ math.random( #Burnables ) ]
- World:SetBlock( ToBurn["x"], ToBurn["y"], ToBurn["z"], E_BLOCK_FIRE, 0 )
- table.insert( NewTable, ToBurn )
- table.insert( NewTable, val )
- else
- World:SetBlock( X, Y, Z, 0, 0 )
- end
- end
- FireBlocks = NewTable
-end
|