Code: Select all
program heal;
var a : Integer;
Begin
a := 20;
while a < 100 do
begin
waittargetobject($271D17);
findtype($0E21,backpack);
useobject(finditem);
wait(4000);
end;
wait(2000);
End.
Что у меня косо в скрипте?
Code: Select all
program heal;
var a : Integer;
Begin
a := 20;
while a < 100 do
begin
waittargetobject($271D17);
findtype($0E21,backpack);
useobject(finditem);
wait(4000);
end;
wait(2000);
End.
Code: Select all
program heal;
var a : Integer;
procedure IsCurMessages;
var D : TDateTime;
begin
{5 minutes in DateTime = 5 / 1440 = 0.00347}
D := Now - (0.00347);
InJournalBetweenTimes(CharName + ': I am already performing another action.',D,Now);
if LineCount > 5 then
begin
AddToSystemJournal('Error with target. Disconnected');
Disconnect;
end;
InJournalBetweenTimes('System: You must wait to perform another action.',D,Now);
if LineCount > 5 then
begin
AddToSystemJournal('Error with target. Disconnected');
Disconnect;
end;
InJournalBetweenTimes('I am already doing something else.',D,Now);
if LineCount > 2 then
begin
AddToSystemJournal('Error with target. Disconnected');
Disconnect;
end;
end;
Begin
a := 20;
while a < 100 do
begin
waittargetobject($271D17);
findtype($0E21,backpack);
useobject(finditem);
wait(4000);
end;
IsCurMessages;
wait(2000);
End.
Code: Select all
Begin
a := 20;
while a < 100 do
begin
waittargetobject($271D17);
findtype($0E21,backpack);
useobject(finditem);
wait(4000);
end;
IsCurMessages;
wait(2000);
End.
Code: Select all
Begin
a := 20;
while a < 100 do
begin
waittargetobject($271D17);
findtype($0E21,backpack);
useobject(finditem);
wait(4000);
IsCurMessages;
end;
wait(2000);
End.