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