Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Blacksmith for Forest Wars

Only working scripts
Post Reply
rr3joktm
Posts: 6
Joined: 25.05.2011 22:47

Blacksmith for Forest Wars

Post by rr3joktm »

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

Code: Select all

Program Blacksmith;
var
ctime : TDateTime;

{$Include 'all.inc'}

Const
Trash = $40006433;
BsitemType = $1413;
IngotType = $1BEF;
IngotColor = $0000;
HummerType = $13E4;

procedure CheckIngot;
begin
if (Count(IngotType) < 50) then
  begin
  MoveItem(FindTypeEx(IngotType,IngotColor,Ground,False),50,Backpack,0,0,0);
  wait(500);
  end;
end;

procedure CheckItem;
begin
if (Count(BsitemType) > 0) then
  begin
  repeat
  MoveItem(FindType(BsitemType,Backpack),1,Trash,0,0,0);
  wait(500);
  until (Count(BsitemType) = 0);
  end;
end;

procedure Blacksmithing;
begin
ClearJournal;
UseObject(ObjAtLayer(RhandLayer));
WaitTargetObject(FindType(IngotType,Backpack));
AutoMenu('Blacksmithing','Armor');
AutoMenu('Armor','Plate Mail');
AutoMenu('Plate Mail','platemail gorget (10 iron ingot)');
WaitJournalLine(Now, 'Вы переместили|You have failed to make anuthing', 10000);
wait(500);
end;

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

Begin
AddToSystemJournal('Скрипт успешно стартовал.');
while not Dead do
  begin
  checksave;    
  CheckIngot;
  CheckItem;
  CheckKolvo;
  Blacksmithing;
  end;
End.
Post Reply