Дано, скрипт:
Code: Select all
program mining;
var xa,ya,mxa,mya: Integer;
c, lopata : Cardinal;
stime : TDateTime;
{$Include 'all.inc'}
Begin
lopata := $0E85; // Type lopatu $0F39
SetARStatus(true);
Hungry(2,backpack);
while true do
begin
if Connected and (not dead) then
begin
for xa := -2 to 2 do
begin
for ya := -2 to 2 do
begin
mxa := getx(self);
mya := gety(self);
stime := Now;
CheckSave;
c:=0;
UnEquip(RHandLayer);
wait(1000) ;
FindType(lopata, BackPack);
c:=FindItem;
Equipt(RHandLayer, lopata);
wait(1000);
UseObject(c);
WaitForTarget(1000);
if TargetPresent then TargetToXYZ(mxa+xa,mya+ya,getz(self));
CheckTargetError(5,2);
WaitJournalLine(now,'finish|можете|далеко|остановлен',10000);
//if xa = 2 and ya =2 then exit;
end;
end;
Hungry(2,backpack);
end;
wait(100);
end;
End.
Code: Select all
c:=0;
UnEquip(RHandLayer);
wait(1000) ;
FindType(lopata, BackPack);
c:=FindItem;
Equipt(RHandLayer, lopata);
wait(1000);
UseObject(c);
И еще как можно его адаптировать чтобы он не бесконечно обкапывал, а до того момента как появися сообщение "Нет руды" и перейдет на другую процедуру... я просто хочу сделать так чтоб он копал, а когда руды нет, то он использыапл другой скил, например АрмсЛоре... и вот я не знаю как остановить обкопку чтобы перейти к другому действию.
Заранее благодарен за помощь.[/quote]