Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7 
	Помогиет со скриптом
Подсказываю:
Этот кусок заставляет его повторять вложенный код пока чар до ГМа не докачается. Поставь в аналогичных местах не while, а if и всё будет ОК:
			
			
									
									Code: Select all
while GetSkillValue('item identification') < 100 doCode: Select all
procedure UseHiding;
begin
  if (GetSkillValue('Hiding') < 100)
      and (GetSkillValue('Stealth') < 100) then
  begin
    UseSkill('Hiding');
    Wait(11000);
    CheckLag(15000);
    if Hidden and (GetSkillValue('Hiding') > 80) then
    begin
      UseSkill('Stealth');
      Wait(11000);
      CheckLag(15000);
    end;
  end;
end;Помните – ничто так не защищает ваши зубы 12 часов днем и 12 часов ночью как уважительное отношение к окружающим.
"Многие из вас знакомы с достоинствами программиста. Их всего три, и разумеется это: лень, нетерпеливость и гордыня"© Larry Wall
						"Многие из вас знакомы с достоинствами программиста. Их всего три, и разумеется это: лень, нетерпеливость и гордыня"© Larry Wall
Code: Select all
procedure UseDetectHerding ; /////////////////////////////////
begin 
 	if GetSkillValue('Herding') < 100 then
begin 
useobject(PalkaHerding); 
Wait(1000);
WaitTargetObject(Korova1); 
Wait(1000);
WaitTargetObject(self);
Wait(1000);
if TargetPresent then CancelTarget; 
        CheckTargetError(5,2); 
        CheckSave; 
  waitconnection(3000); 
  CheckSave; 
  CheckLag(15000); 
Wait(3000);
end; 
end; 
