why the function does not activate?

I created a script that generates apples on trees. I also created an extra function that stops the spawn of apples if it reaches ten apples on the map. Okay so far ... the problem is that the function that checks how many apples on the map is not activating, does anyone know why? script:

wait(game.Players.PlayerAdded)
verdade = false
applevalue = game.Workspace.appleintvalue
applevalue.Value = 0
applescripton = true

function applecheck ()
	while true do
		wait(0.5)
		print('checando')
		if applevalue.Value ~= 3 then
			applescripton = true
		end
	if applevalue.Value == 3 then
		applescripton = false
	end
	end
end


function spawnapple ()
while applescripton == true do
	wait(math.random(1,10))
local apple = game.Workspace.apple:Clone()
apple.Parent = workspace

local arvore = game.Workspace.arvores:GetChildren()
local applaspawn = arvore[math.random(1, #arvore)]
local tronco = applaspawn:FindFirstChild('tronco1')
apple.CFrame = tronco.CFrame * CFrame.new(math.random(-6,6),8,math.random(-6,6))
print(applaspawn)

applevalue.Value = applevalue.Value + 1
print(applevalue.Value)
end
end

spawnapple()
applecheck()

if you find any errors, could you explain to me why this is happening and give me some tips on?

just a helpful hit regarding your if statement; you can simplify it to

if applevalue.Value ~= 3 then
	applescripton = true
else
	applescripton = false
end

by using an "else". Instead of using 2 if statements for the same thing.

11	        if applevalue.Value ~= 3 then
12	            applescripton = true
13	        end
14	    if applevalue.Value == 3 then
15	        applescripton = false