Carpentry для сервера Forest Wars

[rr3joktm]

Скрипт работает на stealth_v1.0_release_1 и выше, написан для сервера Forest Wars (http://www.uoa.pp.ua/)

Code: Select all

program carpentry;

const
Trash = $4003FFB7;
ItemType = $0A2A; 
RubanokType = $1030; 
LogType = $1BDD;
LogColor =$0000;

{$Include 'all.inc'}  

procedure checklogs;
begin
if (Count(LogType) < 50) then
  begin
  repeat
  MoveItem(FindTypeEx(LogType,LogColor,Ground,False),100,Backpack,0,0,0);
  Wait(1000);
  until (Count(LogType) > 50);
  FindTypeEx(LogType,LogColor,Ground,False);
  Addtosystemjournal('Дерева осталось - '+intToStr(findfullquantity));
  end;
end;

procedure MoveMakeItem;  
begin  
findtype(ItemType,backpack);  
if findcount > 0 then  
begin  
  ClickOnObject(finditem);
  repeat  
  Checksave;  
  moveitem(findtype(ItemType,backpack),1,Trash,0,0,0);  
  until findcount < 1  
end;         
end;  

procedure carpentry;
    begin
    If TargetPresent Then CancelTarget;
    WaitTargetType(LogType);
    UseObject(FindType(RubanokType,Backpack));
    AutoMenu('Carpentry','Chairs');
    AutoMenu('Chairs','stool'); 
    WaitJournalLine(Now, 'You fail to create the item|Вы переместили', 9000);
    wait(500);
  end;

 procedure CheckKolvo;
 begin
 If TargetPresent Then CancelTarget;
 UseObject (Trash);
 FindType(ItemType,Trash);
 if (FindCount > 100) then 
 begin
 AddToSystemJournal('Ждем 15 секунд!');
 wait (20000);
 end;
 end;   

BEGIN
Addtosystemjournal('Start')
SetARStatus(true);
while not dead do
Begin
FindDistance := 5; 
checklogs;
MoveMakeItem;
CheckKolvo;
carpentry;
ClearJournal;
end;
END.