Shared Entity Vehicle:VC_setStates(Table tbl)

concommand.Add("VC_SetStates_Test", function(ply)
	if !IsValid(ply) then print("Only for players.") return end

	local ent = ply:GetVehicle()
	if IsValid(ent) then
		local states = ent:VC_getStates()
		states.HornOn = true
		ent:VC_setStates(states)
		print("Altering vehicles states.")
	else
		print("Invalid entity.")
	end
end)