Выход из цикла

[CFA]

Проблема не в Getskillvalue, а в UOSay, какая то беда с клилоками.
Проверь какой именно из них вызывает ошибку.

[canabisman]

Here is an example to "GetSkillValue"

Code: Select all

program AnatomySkill;

var 
skill : Double;

procedure AnatomyTraining;
Begin   
 if GetSkillValue('Anatomy') < 100.0 then
  begin
   FindDistance := 3;
   skill := GetSkillValue('Anatomy'); 
    AddToSystemJournal('Anatomy: '+FloatToStr(skill)); 
   repeat
    ClearJournal();
    If TargetPresent then CancelTarget;
     WaitTargetSelf;
     UseSkill('Anatomy');
     WaitJournalLine(Now,'anything|about this|creature|forca|agilidade|e ter|parece|parece ter|força|humana',100000);
   until GetSkillValue('Anatomy') > 99.9
  end;
    AddToSystemJournal('Grandmaster Anatomy = 100.0')
end;

Begin 
 SetArStatus(true);
  while connected do 
   begin
    AnatomyTraining;
   end;
end.