Инскрипт для ЕП

[Jedi[EP]]

Помогите настроить макрос для ЕП. он юзает перо на бланки и пишет за 1 сек любой скрол. (при этом мана тратится).
проблема в том что он иногда ненаходит скролы и ступорится.
-------------------------------------------------------------------

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.