проблема в том что он иногда ненаходит скролы и ступорится.
-------------------------------------------------------------------
Code: Select all
Program Inscription;
var
i: Integer;
t: Integer;
a: Integer;
b: Integer;
c: Integer;
blanku: cardinal;
knura: cardinal;
pero: cardinal;
regs : Array[1..3] of word;
stime :TDateTime;
{$Include 'all.inc'}
procedure checkregs;
begin
If Connected then begin
for i:= 1 to 3 do
begin
FindDistance:=1;
waitconnection(3000);
Findtype (regs[i],backpack);
If (FindCount=0) then begin
Findtype(regs[i],ground);
If (FindCount>0) then begin Grab(finditem,50);
wait(700)
CheckSave;
end
else
begin
AddToSystemJournal('Не нашел регов, перезаходим!');
Disconnect;
waitconnection(3000);
wait(7000);
end;
end
end
end
end;
procedure pucovka;
begin
{==================================}
pero:=$405E98FB;
knura:=$62AA3FF1;
{==================================}
If (Mana>=30) then begin
checkregs;
wait(100);
stime := Now;
CheckTargetError(2, 2);
WaitGump('23');
wait(100);
WaitTargetObject(FindType($0E34,backpack));
wait(300);
UseObject(pero);
wait(300);
CheckSave;
wait(200);
stime := Now;
CheckSave;
wait(100);
end;
end;
Begin
ClearJournal;
SetARStatus(true);
regs[1]:=$0F84;
regs[2]:=$0F85;
regs[3]:=$0E34;
FindDistance:=1;
While not Dead do
begin
//waitconnection(3000);
If Connected then begin
UseObject($402293C8);
wait(200);
For t:= 1 to 5 do begin
checkregs;
wait(200);
pucovka;
stime:=Now;
begin
If (Mana<=30) then begin
While (Mana<Int) do begin
Useskill('Meditation');
repeat
InJournalBetweenTimes('You are at peace|You lose|You cant focus', stime, Now);
wait(500);
until (LineCount >= 1) or (Now > stime + (1.0/1440));
end
wait(5000);
Hungry(1,ground);
stack($1F37,$0000);
If (InJournalBetweenTimes('You are at peace',stime,now)>=0) then
pucovka;
end
else
begin
pucovka;
end
end
end
t:=1;
end
wait(2000);
end
End.