GM.StorageUnitPrice = 15000
GM.StorageMaxItemWeight = 250
GM.StorageUnitTerm = GM:MonthsToSeconds(1); // 1 month game time :P

//todo: NPC base and Storage service NPC tommorow

//todo: MySQL integration

//todo: CL side storage service

function PLAYER:SaveStorage( )
	local slotTable = {};
	for _, NULL in pairs(self.StorageItems) do
		for k, v in pairs(self.StorageItems) do //loop through the sub-table
			local Slot = v[4];
			if !slotTable[Slot] then slotTable[Slot] = v[5].." "; end

			if !string.find(slotTable[Slot], v[5]) then
				slotTable[Slot] = slotTable[Slot].." "..v[5];
			end
		end
	end

	for i = 1, self.StorageSlots do
		storageTerm( self, i, true ); // check the terms
	end

	for k, v in pairs(slotTable) do
		local storageItems = sql.QueryValue("SELECT Storage FROM crp_s_i WHERE SteamID='"..self:SteamID().."' AND Slot='"..k.."'");
		if storageItems then
			sql.Query("UPDATE crp_s_i SET `Storage`='"..v.."', `Slot`='"..k.."' WHERE SteamID='"..self:SteamID().."'"); //What items are stored?
		else
			sql.Query("INSERT INTO crp_s_i (Storage, Slot, SteamID) VALUES ('"..v.."', '"..k.."', '"..self:SteamID().."')");
		end
	end

	local Slots = sql.QueryValue("SELECT StorageSlots FROM crp_s_i WHERE SteamID='"..self:SteamID().."'");
	if Slots then
		sql.Query("UPDATE crp_s_i SET `StorageSlots`='"..self.StorageSlots.."' WHERE SteamID='"..self:SteamID().."'"); //How many slots are purchased?
	else
		sql.Query("INSERT INTO crp_s_i (StorageSlots, SteamID) VALUES ('"..self.StorageSlots.."', '"..self:SteamID().."')");
	end

	local storedAmount = sql.QueryValue("SELECT StoredItems FROM crp_s_i WHERE SteamID='"..self:SteamID().."'");
	if storedAmount then
		sql.Query("UPDATE crp_s_i SET `StoredItems`='"..self.StoredItems.."' WHERE SteamID='"..self:SteamID().."'"); //How many Items are stored?!
	else
		sql.Query("INSERT INTO crp_s_i (StoredItems, SteamID) VALUES ('"..self.StoredItems.."', '"..self:SteamID().."')");
	end
end

function PLAYER:LoadStorage( )
	local StorageItems = {};
	self.StoredItems = 0;
	self.Term = {};

	local Results = tonumber(sql.QueryValue("SELECT StoredItems FROM crp_s_i WHERE SteamID='"..self:SteamID().."'"));
	if Results then
		if (Results < 1) then return; end //THERE WAS NOTHING STORED!
		self.StoredItems = Results;
	end

	local Slots = tonumber(sql.QueryValue("SELECT StorageSlots FROM crp_s_i WHERE SteamID='"..self:SteamID().."'"));
	if Slots then
		if (Slots < 1) then return; end //THERE WAS NOTHING STORED!
		self.StorageSlots = Slots;
	end

	for i = 1, Slots do
		local Query = sql.QueryValue("SELECT Storage FROM crp_s_i WHERE SteamID='"..self:SteamID().."' AND Slot='"..i.."'");
		if !Query then return; end
		StorageItems[i] = Query;
		storageTerm(Player, i);
	end

	timer.Create("sDuration"..self.ID, 1, 0,
	function()
		for i = 1, self.StorageSlots do
			if !self or !self:IsPlayer() or !self:IsValid() then return; end

			if self.Term - 1 <= 0 then
				if self:AutoPay("Storage", Bool) then
					if !self:HasMoney(GAMEMODE.StorageUnitPrice * self:MyBill("Storage")) then
						//prompt mybill failure! :P
						return;
					end

					self:AddMoney(-(GAMEMODE.StorageUnitPrice * self:MyBill("Storage")));
					AddTerm(self, i);
				end
				//prompt for payment - this aint free!
				return;
			end

			self.Term[i] = self.Term[i] - 1;
		end
	end)

	local startPoint = 0;
	for k, v in pairs(StorageItems) do
		if (v && v != "") then
			for i = 1, Results do
				local String = string.sub(v, startPoint);
				local S, F = string.find(String, " ");
				local ID = tonumber(string.sub(String, startPoint, S));
				startPoint = F;

				local Name = COBALT_ITEMS[ID].Name;
				local Model = COBALT_ITEMS[ID].Model;
				local Weight = COBALT_ITEMS[ID].Weight;
				addToStorage(Player, Name, Model, Weight, k, ID);
			end
		end
	end
end

//todo: Change base gamemode from sandbox to base once we have the sandbox scoreboard, or maybe keep it the same depending on sandbox hook over writing and so on

local function addTerm( Player, Slot, termLength )
	Player.Term[Slot] = GAMEMODE.StorageUnitTerm * termLength;

	if !timer.IsTimer("sDuration") then
		timer.Create("sDuration"..Player.ID, 1, 0,
		function()
			for i = 1, Player.StorageSlots do
				if !Player or !Player:IsPlayer() or !Player:IsValid() then return; end

				if Player.Term - 1 <= 0 then
					if Player:AutoPay("Storage", Bool) then
						if !Player:HasMoney(GAMEMODE.StorageUnitPrice * Player:MyBill("Storage")) then
							//prompt mybill failure! :P
							return;
						end

						Player:AddMoney(-(GAMEMODE.StorageUnitPrice * Player:MyBill("Storage")));
						AddTerm(Player, i);
					end
					//prompt for payment - this aint free!
					return;
				end

				Player.Term[i] = Player.Term[i] - 1;
			end
		end)
	end
end

local function storageTerm( Player, Slot, onDisconnect )
	if (onDisconnect && onDisconnect == true) then
		local Term = sql.QueryValue("SELECT Term FROM crp_s_i WHERE SteamID='"..Player:SteamID().."' AND Slot='"..Slot.."'");
		if Term then
			sql.Query("UPDATE crp_s_i SET `Term`='"..Player.Term[Slot].."' WHERE SteamID='"..Player:SteamID().."' AND Slot='"..Slot.."'");
		else
			sql.Query("INSERT INTO crp_s_i (Term, SteamID, Slot) VALUES ('"..Player.Term[Slot].."', '"..Slot.."', '"..Player:SteamID().."')");
		end

		return;
	end

	local Term = tonumber(sql.QueryValue("SELECT Term FROM crp_s_i WHERE SteamID='"..Player:SteamID().."' AND Slot='"..Slot.."'"));
	Player.Term[Slot] = Term;
end

local function addToStorage( Player, Name, Model, Weight, Slot, ID )
	local totalWeight = 0;
	for _, NULL in pairs(Player.StorageItems) do
		for k, v in pairs(Player.StorageItems) do //loop through the sub-table
			if v[4] == Slot then
				local itemWeight = v[3];
				totalWeight = totalWeight + itemWeight;
			end
		end
	end

	if totalWeight > GAMEMODE.StorageMaxItemWeight then
		//error message
		return;
	end

	Player.StoredItems = Player.StoredItems + 1; // more stored items : D
	Player.StorageItems[Player.StoredItems] = {Name, Model, Weight, Slot, ID};
end

local function removeFromStorage( Player, cmd, args )
	local Slot = tonumber(args[1]);
	Player.StoredItems = Player.StoredItems - 1
	for k, v in pairs(Player.StoredItems) do
		if v[4] == Slot then
			table.remove(Player.StoredItems, k);
		end
	end

	sql.Query("DELETE FROM crp_s_i WHERE SteamID='"..Player:SteamID().."' AND Slot='"..Slot.."'"); //finally delete the stored items from the database :)
end
concommand.Add("crp_sdel", removeFromStorage)

local function buyStorageSlot( Player, cmd, args ) // The Item ID for weight and the term of storage
	local Items = args[1];
	local Term = tonumber(args[2]);

	if !Player:HasMoney(GAMEMODE.StorageUnitPrice * Term) then return; end
	Player:AddMoney(-(GAMEMODE.StorageUnitPrice * Term));
	local Weight = 0;
	local Name = "N/A";
	local Model = "N/A";
	for _, null in pairs(Items) do
		for k, v in pairs(Items) do
			if k == "Weight" then
				Weight = Weight + v;
			end

			if (Weight > GAMEMODE.StorageMaxItemWeight) then return; end

			if k == "Name" then
				Name = v;
			end

			if k == "Model" then
				Model = v;
			end

			addToStorage( Player, Name, Model, Weight );
		end
	end

	Player.StorageSlots = Player.StorageSlots + 1;
	addTerm(Player, Player.StorageSlots, Term);
end
concommand.Add("crp_nstore", buyStorageSlot)