---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
-------->		Karen.lua															<--------
-------->		1.0 - 09-05-2015													<--------
-------->			* Added AI to Karen for chest spawns.							<--------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------

ReturnAI = {}
ReturnAI.END = 1
ReturnAI.CPP = 2 

MemBlock = {}

RewardInfo =
{
	Position = { X = 23884, Y = 23541, Radius = 1000 },
	
	BoxData = 
	{
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "Box_Karen" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
		{ Index = "Box_Karen", 	ItemDropMobIndex = "BloodVampire" },
	}
}

function Karen(Handle, MapIndex)
cExecCheck ( "Karen" )

	local Var 					= MemBlock[Handle]

	if Var == nil then

		if MapIndex ~= "AdlThorn01" then
			return ReturnAI.CPP
		end
		
		MemBlock[Handle] 	 	= {}
		Var 					= MemBlock[Handle]
		Var.Handle 	 			= Handle
		Var.MapIndex 			= MapIndex
		
		cAIScriptFunc( Var.Handle, "ObjectDied", "Karen_Dead" )	
	end
	return ReturnAI.CPP
end

function Karen_Dead( MapIndex, KillerHandle, DeadHandle )
cExecCheck("Karen_Dead")

	if MapIndex == nil then
		cAIScriptSet( DeadHandle )
		return
	end

	if DeadHandle == nil then
		cAIScriptSet( DeadHandle )
		return
	end

	local Var = MemBlock[DeadHandle]

	if Var == nil then
		cAIScriptSet( DeadHandle )
		return
	end

	SpawnChest( Var )
	
	cAIScriptSet( DeadHandle )

	MemBlock[DeadHandle] = nil

	return ReturnAI.CPP
end

function SpawnChest( Var )
cExecCheck( "SpawnChest" )

	for i = 1, #RewardInfo.BoxData do
		local BoxHandle = cMobRegen_Circle( Var.MapIndex, RewardInfo.BoxData[i].Index, RewardInfo.Position.X, RewardInfo.Position.Y, RewardInfo.Position.Radius )
		if BoxHandle ~= nil then
			cSetItemDropMobID( BoxHandle, RewardInfo.BoxData[i].ItemDropMobIndex )
		end
	end
end