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 do
Code: 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;