или попробуйте исправить мою попытку переписать с инжекта скрипт чтоб чар просто окапывался:
Code: Select all
program Mine;
var x,y,i:integer;
var Time : TDateTime;
procedure Make;
Begin
wait(1000);
i:=200;
clearjournal;
goto try
end;
procedure Make2;
Begin
wait(100);
i:=200
clearjournal;
end;
begin
Time:= Now - (0.5 / 1440);
while weight <= 400 do
begin
for x := -1 to 1 do
begin
for y := -1 to 1 do
begin
try:
useobject($40009d01);
waitfortarget(5000);
targettoxyz(str(getx(self)+x,str(gety(self)+y,str(getz(self));
i:=0
while i<100 do
begin
if InJournalBetweenTimes('but fail',Time,Now) or InJournalBetweenTimes('You put',Time,Now) or InJournalBetweenTimes('You must wait to perform another action',Time,Now)>= 0 then make;
if InJournalBetweenTimes('nothing here',Time,Now) or InJournalBetweenTimes('Try mining',Time,Now) or InJournalBetweenTimes('location',Time,Now) or InJournalBetweenTimes('in rock',Time,Now) >= 0 then make2;
i:=i+1
end;
end;
end;
end;
end.
