Мужики помогите:)
Posted: 22.07.2008 13:54
Пожалуйста уберите из это скрипта хайд, а то я хз чето происходит на ДРВ.
Code: Select all
15:55:37 [Jack ]: Спрятались.
15:55:42 [Jack ]: В мешке 24 necklace.
15:55:46 [Jack ]: Спрятались.
15:55:51 [Jack ]: В мешке 25 necklace.
15:55:55 [Jack ]: Спрятались.
15:56:00 [Jack ]: В мешке 26 necklace.
15:56:04 [Jack ]: Спрятались.
15:56:09 [Jack ]: В мешке 27 necklace.
15:56:13 [Jack ]: Спрятались.
15:56:18 [Jack ]: В мешке 28 necklace.
15:56:22 [Jack ]: Спрятались.
15:56:27 [Jack ]: В мешке 29 necklace.
15:56:31 [Jack ]: Спрятались.
15:56:36 [Jack ]: В мешке 30 necklace.
15:56:39 [Jack ]: Спрятались.
15:56:44 [Jack ]: В мешке 31 necklace.
15:56:48 [Jack ]: Спрятались.
15:56:54 [Jack ]: В мешке 32 necklace.
15:56:58 [Jack ]: Спрятались.
15:57:03 [Jack ]: В мешке 33 necklace.
15:57:07 [Jack ]: Спрятались.
15:57:12 [Jack ]: В мешке 34 necklace.
15:57:16 [Jack ]: Спрятались.
15:57:21 [Jack ]: В мешке 35 necklace.
15:57:25 [Jack ]: Спрятались.
15:57:29 [Jack ]: В мешке 36 necklace.
15:57:33 [Jack ]: Спрятались.
15:57:38 [Jack ]: В мешке 37 necklace.
15:57:42 [Jack ]: Спрятались.
15:57:52 [Jack ]: В мешке 38 necklace.
15:57:56 [Jack ]: Спрятались.
15:58:01 [Jack ]: В мешке 39 necklace.
15:58:05 [Jack ]: Спрятались.
15:58:10 [Jack ]: В мешке 40 necklace.
15:58:14 [Jack ]: Спрятались.
15:58:19 [Jack ]: В мешке 41 necklace.
15:58:23 [Jack ]: Спрятались.
15:58:28 [Jack ]: В мешке 42 necklace.
15:58:32 [Jack ]: Спрятались.
15:58:37 [Jack ]: В мешке 43 necklace.
15:58:41 [Jack ]: Спрятались.
15:58:46 [Jack ]: В мешке 44 necklace.
15:58:50 [Jack ]: Спрятались.
15:58:55 [Jack ]: В мешке 45 necklace.
15:58:59 [Jack ]: Спрятались.
15:59:04 [Jack ]: В мешке 46 necklace.
Code: Select all
Program Tinker_Necklace;
const
Sunduk=$403C3A43;
Sunduk_With_Iron_and_Tools=$401D6CB2;
Sunduk_With_Empty_Bags=$401D6CBC;
Sunduk_With_Full_Bags=$401D6CB4;
Bag=$0E76;
Tools=$1EBC;
Ingot=$1BEF;
Pig=$09BB;
Necklace=$1085;
var
k, l : integer;
TimeStart : TDateTime;
Neck_Bag : Cardinal;
procedure Check_Hidden;
begin
if not Hidden then
begin
while not Hidden do
begin
SetWarMode(False);
useskill('Stealth');
wait(3600);
end
AddToSystemJournal('Спрятались.');
end
end;
procedure Check_Necklace;
begin
FindType(Necklace,Backpack);
if FindCount>0 then
begin
while FindCount <> 0 do
begin
l:=l+1;
MoveItem(FindItem,1,Neck_Bag,0,0,0);
wait(500);
FindType(Necklace,Backpack);
end
end
end;
procedure Get_Bag;
begin
FindType(Bag,Backpack);
if FindCount=0 then
begin
UseObject(Sunduk);
wait(1000);
UseObject(Sunduk_With_Empty_Bags);
wait(1000);
FindType(Bag,Sunduk_With_Empty_Bags);
if FindCount>0 then
begin
AddToSystemJournal('Берем Мешочек.')
MoveItem(FindItem,1,Backpack,0,0,0);
wait(1000);
UseObject(FindItem);
wait(1000);
end
end
Neck_Bag:=FindType(Bag,Backpack);
end;
procedure Out_Bag;
begin
FindType(Bag,Backpack);
if FindCount>0 then
begin
UseObject(Sunduk);
wait(1000);
UseObject(Sunduk_With_Full_Bags);
wait(1000);
AddToSystemJournal('Выкидываем готовый мешок.')
MoveItem(FindItem,1,Sunduk_With_Full_Bags,0,0,0);
wait(1000)
end
end;
procedure Check_World_Save;
begin
if InJournal('saving')<>-1 then
begin
ClearJournal;
k:=0;
repeat
wait(10000)
k:=k+1;
AddToSystemJournal('World is saving more than '+IntToStr(k*10)+' seconds.');
until (InJournal('data')<>-1) or (k>30)
end
end;
procedure Check_Connect;
begin
if not Connected then
while not Connected do
begin
Connect;
wait(1000);
end
end;
procedure Check_Iron;
begin
FindTypeEx(Ingot,$0000,Backpack,False);
if (FindCount=0) OR (GetQuantity(FindItem)<5) then
begin
AddToSystemJournal('Добираем инги.')
UseObject(Sunduk);
wait(1000);
UseObject(Sunduk_With_Iron_and_Tools);
wait(1000);
FindTypeEx(Ingot,$0000,Sunduk_With_Iron_and_Tools,False);
if (FindCount>0) and (GetQuantity(FindItem)>200) then
begin
MoveItem(FindItem,200,Backpack,0,0,0);
wait(1000);
AddToSystemJournal('Добрали 200 iron ingots. На данный момент имеем '+IntToStr(Count(Ingot))+' штук. Осталось ещё '+IntToStr(CountEx(Ingot,$0000,Sunduk_With_Iron_and_Tools))+' iron ingots. l='+IntToStr(l)+'; Count='+IntToStr(Count(Necklace))+';');
end
else
AddToSystemJournal('Ошибка во время добора Iron Ignots.');
exit;
end
FindType(Ingot,Ground);
if FindCount>0 then
begin
MoveItem(FindItem,0,Sunduk_With_Iron_and_Tools,0,0,0);
wait(500);
end
end;
procedure Check_Food;
begin
UseObject(Sunduk);
wait(1000);
UseObject(Sunduk_With_Iron_and_Tools)
wait(250);
FindType(Pig,Sunduk_With_Iron_and_Tools);
if FindCount>0 then
begin
MoveItem(FindItem,2,Backpack,0,0,0);
wait(250);
UseObject(FindItem);
FindType(Pig,Backpack);
if FindCount=0 then AddToSystemJournal('Покушали.');
if FindCount>0 then MoveItem(FindItem,1,Sunduk_With_Iron_and_Tools,0,0,0);
end
else
AddToSystemJournal('a Pig не был найден в сундуке.');
end;
procedure Check_Last_Bag;
begin
FindType(Bag,Backpack);
if FindCount>0 then
begin
UseObject(FindItem);
wait(500)
Neck_Bag:=FindType(Bag,Backpack);
FindType(Necklace,Neck_Bag);
l:=FindCount;
AddToSystemJournal('В мешке '+IntToStr(l)+' necklace.');
end
end;
Begin
UseObject(Sunduk);
wait(1000);
UseObject(Sunduk_With_Iron_and_Tools);
wait(1000);
ClearJournal;
CancelMenu;
AutoMenu( 'Tinkering' , 'Jewelry' );
AutoMenu( 'Jewelry' , 'necklace' );
while not Dead do
begin
Check_Last_Bag;
Get_Bag;
Check_Hidden;
repeat
if Weight>500 then exit;
Check_Iron;
k:=0;
TimeStart:=Now;
UseObject(FindType(Tools,Backpack));
repeat
wait(100);
k := k + 1;
Check_World_Save;
until (InJournalBetweenTimes('You put|failed', TimeStart, Now)<>-1) or (k > 300);
wait(100);
if InJournal('put')<>-1 then
begin
Check_Necklace;
AddToSystemJournal('В мешке '+IntToStr(l)+' necklace.');
Check_Hidden;
end
ClearJournal;
until l = 255
if l = 255 then
begin
l:=0;
Out_Bag;
end
end
End.