Juss456почему не работает данный кусок функции?

	       while (contr==1) do
              contr=0;
              for i=1,95 do
                      if HasArtefact("geroy", i)==true then
                             RemoveArtefact("geroy", i);
                             if contr==0 then
                                     contr=1;
                             end;
                     end;
              end;
       end;

точнее он работает, но игра зацикливается и зависает. Задумка - удалить все артефакты у героя с учётом того, что некоторые могут повторятся

	for artefact = 1, 95 do
	for n=1, GetHeroArtifactsCount("geroy", artefact) do
		RemoveArtefact("geroy", artefact)
	end
end