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

BowCraft Forest Wars[FW]

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

BowCraft Forest Wars[FW]

Post by rr3joktm »

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

Code: Select all

program FWShafts;

Const
Trash = $40045196;
LogType = $1BDD;
LogColor = $037F;
Shafts = $1BD4;

{$Include 'all.inc'}

procedure CheckLog;
begin
if (Count(LogType) < 2) then
   begin
   repeat
   FindTypeEx(LogType,LogColor,Ground,False);
   MoveItem(FindTypeEx(LogType,LogColor,Ground,False),2,BackPack,0,0,0);
   wait (500);
   until (Count(LogType) > 2);
   end;
end;

procedure CheckShafts;
begin
if (Count(Shafts) > 0) then
   begin 
   repeat
   MoveItem(FindType(Shafts,Backpack),100,Trash,0,0,0);
wait (500);
until (Count(Shafts) = 0);
end;
end;

procedure Bower;
begin
ClearJournal;
CheckLag;
UseObject(ObjAtLayer(RhandLayer));
WaitTargetObject(FindType(LogType,Backpack));
AutoMenu('What do you want', 'Dark Shaft'); //Меняем с каждым светом дерева.
wait (500);
WaitJournalLine(Now, 'Вы переместили|You have failed to make anuthing', 6000);
wait(500);
end;

BEGIN
while not Dead do
   begin
   If TargetPresent Then CancelTarget;
   FindDistance:=5;
   CheckShafts;
   CheckLog;
   Bower;
 end;
END.
Post Reply