startScript re-entrancy has exceeded 3?

hello. i get a error. I know what it means (Too much events at the same time) but it wont go away i tried adding a intvalue so the cloning only works when its 0 and then changing it to 1.

local Pet = script.Parent
if Pet.PetOwner ~= "" then
	if script.Value.Value == 0 then
		Pet:Clone().Parent = game.Players:FindFirstChild(script.Parent.PetOwner.Value).Character.Head
		script.Value.Value = 1
	end
	end
while true do
wait(0.0001)
game.Players:FindFirstChild(script.Parent.PetOwner.Value).Character.Head.Puppy.Position =     game.Players:FindFirstChild(script.Parent.PetOwner.Value).Character.Head.Puppy.Position+ Vector3.new(1, 1, 1)
game.Players:FindFirstChild(script.Parent.PetOwner.Value).Character.Head.Puppy.Orientation =     game.Players:FindFirstChild(script.Parent.PetOwner.Value).Character.Head.Orientation
end

it might be very easy to fix but i dont know how