// ClassicalSharp copyright 2014-2016 UnknownShadow200 | Licensed under MIT
using System;
using System.Collections.Generic;
using ClassicalSharp.Map;
using OpenTK;

namespace ClassicalSharp.Singleplayer {

	public class LiquidPhysics {
		
		Game game;
		World map;
		Random rnd = new Random();
		BlockInfo info;
		int width, length, height, oneY;
		int maxX, maxY, maxZ, maxWaterX, maxWaterY, maxWaterZ;

		public LiquidPhysics( Game game ) {
			this.game = game;
			map = game.World;
			info = game.BlockInfo;
		}
		
		public void Clear() { Lava.Clear(); Water.Clear(); }
		
		public void ResetMap() {
			Clear();
			width = map.Width; maxX = width - 1; maxWaterX = maxX - 2;
			height = map.Height; maxY = height - 1; maxWaterY = maxY - 2;
			length = map.Length; maxZ = length - 1; maxWaterZ = maxZ - 2;			
			oneY = width * length;
		}

		
		Queue<uint> Lava = new Queue<uint>();
		const uint defLavaTick = 30u << Physics.tickShift;
		
		public void PlaceLava( int index ) {
			Lava.Enqueue( defLavaTick | (uint)index );
		}
		
		public void TickLava() {
			int count = Lava.Count;
			for( int i = 0; i < count; i++ ) {
				int index;
				if( Physics.CheckItem( Lava, out index ) ) {
					byte block = map.blocks[index];
					if( !(block == (byte)Block.Lava || block == (byte)Block.StillLava) ) continue;
					HandleLava( index );
				}
			}
		}
		
		public void HandleLava( int index ) {
			int x = index % width;
			int y = index / oneY; // posIndex / (width * length)
			int z = (index / width) % length;
			
			if( x > 0 ) PropagateLava( index - 1, x - 1, y, z );
			if( x < width - 1 ) PropagateLava( index + 1, x + 1, y, z );
			if( z > 0 ) PropagateLava( index - width, x, y, z - 1 );
			if( z < length - 1 ) PropagateLava( index + width, x, y, z + 1 );
			if( y > 0 ) PropagateLava( index - oneY, x, y - 1, z );
		}
		
		void PropagateLava( int posIndex, int x, int y, int z ) {
			byte block = map.blocks[posIndex];
			if( block == (byte)Block.Water || block == (byte)Block.StillWater ) {
				game.UpdateBlock( x, y, z, (byte)Block.Stone );
			} else if( info.Collide[block] == CollideType.WalkThrough ) {
				Lava.Enqueue( defLavaTick | (uint)posIndex );
				game.UpdateBlock( x, y, z, (byte)Block.Lava );
			}
		}
		
		Queue<uint> Water = new Queue<uint>();
		const uint defWaterTick = 5u << Physics.tickShift;
		
		public void PlaceWater( int index ) {
			Water.Enqueue( defWaterTick | (uint)index );
		}
		
		public void TickWater() {
			int count = Water.Count;
			for( int i = 0; i < count; i++ ) {
				int index;
				if( Physics.CheckItem( Water, out index ) ) {
					byte block = map.blocks[index];
					if( !(block == (byte)Block.Water || block == (byte)Block.StillWater) ) continue;
					HandleWater( index );
				}
			}
		}
		
		public void HandleWater( int index ) {
			int x = index % width;
			int y = index / oneY; // posIndex / (width * length)
			int z = (index / width) % length;
			
			if( x > 0 ) PropagateWater( index - 1, x - 1, y, z );
			if( x < width - 1 ) PropagateWater( index + 1, x + 1, y, z );
			if( z > 0 ) PropagateWater( index - width, x, y, z - 1 );
			if( z < length - 1 ) PropagateWater( index + width, x, y, z + 1 );
			if( y > 0 ) PropagateWater( index - oneY, x, y - 1, z );
		}
		
		void PropagateWater( int posIndex, int x, int y, int z ) {
			byte block = map.blocks[posIndex];
			if( block == (byte)Block.Lava || block == (byte)Block.StillLava ) {
				game.UpdateBlock( x, y, z, (byte)Block.Stone );
			} else if( info.Collide[block] == CollideType.WalkThrough && block != (byte)Block.Rope ) {
				if( CheckIfSponge( x, y, z ) ) return;
				Water.Enqueue( defWaterTick | (uint)posIndex );
				game.UpdateBlock( x, y, z, (byte)Block.Water );
			}
		}

		
		public void PlaceSponge( int index ) {
			int x = index % width;
			int y = index / oneY; // posIndex / (width * length)
			int z = (index / width) % length;
					
			for( int yy = y - 2; yy <= y + 2; yy++ )
				for( int zz = z - 2; zz <= z + 2; zz++ )
					for( int xx = x - 2; xx <= x + 2; xx++ )
			{
				byte block = map.SafeGetBlock( xx, yy, zz );
				if( block == (byte)Block.Water || block == (byte)Block.StillWater )
					game.UpdateBlock( xx, yy, zz, (byte)Block.Air );
			}
		}
		
		bool CheckIfSponge( int x, int y, int z ) {
			for( int yy = (y < 2 ? 0 : y - 2); yy <= (y > maxWaterY ? maxY : y + 2); yy++ )
				for( int zz = (z < 2 ? 0 : z - 2); zz <= (z > maxWaterZ ? maxZ : z + 2); zz++ )
					for( int xx = (x < 2 ? 0 : x - 2); xx <= (x > maxWaterX ? maxX : x + 2); xx++ )
			{
				byte block = map.blocks[(yy * length + zz) * width + xx];
				if( block == (byte)Block.Sponge ) return true;
			}
			
			return false;
		}
	}
}