Прошу помошь, взять кирку в руку...

[Flash]

Прошу прощения за мою безграмотность. Никак не могу разобратся со скриптом...
Дано, скрипт:

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);  

Прога компилируется но ругается так: UseObject error: Object not finded.

И еще как можно его адаптировать чтобы он не бесконечно обкапывал, а до того момента как появися сообщение "Нет руды" и перейдет на другую процедуру... я просто хочу сделать так чтоб он копал, а когда руды нет, то он использыапл другой скил, например АрмсЛоре... и вот я не знаю как остановить обкопку чтобы перейти к другому действию.
Заранее благодарен за помощь.[/quote]

[NiFiGaSebe]

попробуй в начале скрипта вставить UseObject(Backpack)

[Dirk]

И еще как можно его адаптировать чтобы он не бесконечно обкапывал, а до того момента как появися сообщение "Нет руды" и перейдет на другую процедуру... я просто хочу сделать так чтоб он копал, а когда руды нет, то он использыапл другой скил..

Вмеcто while используй repeat

[SLAK]

ы

Если ты тот Флеш которого я знаю, то не мучайся... Как возьму выходной (нераньше следущей недели), так напишу для наших что - нибудь по - приличнее
ЗЫ: не находить кирку может из-за того , что она не успела упасть в пак ! Если ты на стелсе 1.0 , то юзай usetype и не забудь чеклаг после переноса поставить.