скрипт учить скилы Адреналин

[6200xs 1]

пробовал 3 скрипта не один не пашет .

var 

i:integer;

begin with Engine,User do begin

for i:=1 to 15000 do

while LearnSkill(i) do LearnSkill(i);

end;

end.
..............................................

procedure LearnSkills();
var i: integer;
begin
  for i:= 0 to LearnList.Count-1 do begin                    // пробегаем по списку доступных умений
    if (User.Level >= LearnList(i).NeedLevel)                // если наш уровень подходит
    and (User.SP >= LearnList(i).SpCost) then begin          // и у нас хватает SP (+ можно проверять другие условия)
      if Engine.LearnSkill(LearnList(i).ID) then             // изучаем умение
        Print('Изучил: ' + LearnList(i).Name)
      else 
        Print('Не удалось изучить: ' + LearnList(i).Name);
    end;  
  end;
end;

....................................................................

 

procedure LearnSkillsThread();
var i: integer;
begin
  while delay(999) do begin
    for i:= 0 to LearnList.Count-1 do begin                    // пробегаем по списку доступных умений
      if (User.Level >= LearnList(i).NeedLevel)                // если наш уровень подходит
      and (User.SP >= LearnList(i).SpCost) then begin          // и у нас хватает SP (+ можно проверять другие условия)
        if Engine.LearnSkill(LearnList(i).ID) then             // изучаем умение
          Print('Изучил: ' + LearnList(i).Name)
        else 
          Print('Не удалось изучить: ' + LearnList(i).Name);
      end;
    end;
  end;  
end;

begin
  Script.NewThread(@LearnSkillsThread);
  // code
end.

не работает не один 

не работает