еще вот тейлор делает пару шмоток и дальше ничего не делает
Код: Выделить всё
ItemType, MaterialType,ItemColor : word;
Trash,Scissors : cardinal;
Destroy,counter,HowMuch,Required,ToCut : integer;
ItemGump : string;
{$Include 'all.inc'}
procedure Cut;
begin
findtype(ItemType,backpack)
while count(ItemType) > 1 do begin
checksave;
if targetpresent then canceltarget;
useobject(findtype($0F9E,backpack));
WaitForTarget(5000);
if targetpresent then targettoobject(findtype(ItemType,backpack));
wait(100);
wait(1000);
findtype(ItemType,backpack)
end;
Stack($1766,$0000);
end;
procedure checktools;
begin
WaitConnection(4000);
checksave;
findtype($0F9D,ground);
if (findcount < 1) then
begin
AddToSystemJournal('Нету тулзов. Выходу');
Disconnect;
end;
findtype($0F9E,backpack);
if (findcount < 1) then
begin
AddToSystemJournal('Нету ножниц. Выходу');
Disconnect;
end;
end;
procedure checkmaterial;
begin
Finddistance:=1;
findtype(MaterialType,ground);
if (findquantity < Required ) then
begin
AddtosystemJournal('Мало материала, выхожу');
end;
end;
procedure info;
begin
Finddistance:=1;
WaitConnection(5000);
findtype(MaterialType,ground);
AddtosystemJournal('===============================');
AddtosystemJournal('Найдено '+intToStr(findquantity)+' единиц материала');
AddtosystemJournal('Цикл номер '+intToStr(counter));
AddtosystemJournal('===============================');
counter:=counter+1;
end;
procedure MoveMakeItem;
begin
findtype(ItemType,backpack);
if findcount > 1 then
begin
ClickOnObject(finditem); {контроль за цветом и типом производимой вещи}
repeat
Checksave;
moveitem(findtype(ItemType,backpack),1,Trash,0,0,0);
until findcount < 2
end;
end;
BEGIN
FindDistance := 1;
counter:=1;
{======================================}
ItemType:=$1EFF; //fancy dress
ItemGump:='7935';//fancy dress
MaterialType:=$1766; //Cloth
ItemColor:=$0000; //Color
Required:=8; //Сколько надо материала на 1 итем
Scissors:=$4495875D; //МД Ножниц
HowMuch:=30; //Сколько делать придметов
Trash:=$7261D4FE; //Мусорка
Destroy:=1; //Выкидывать ли созданные вещи в мусорку (1- да, 0 - нет)
ToCut:=0; // резать ли все вещи?
{===============================,=======}
while true do
begin
stime := Now;
checkmaterial;
checktools;
info;
hungry(1, -1);
waittargetobject(findtype(MaterialType,ground));
wait(500);
waitgump(ItemGump);
wait(500);
useobject(findtype($0F9D,ground));
repeat
InJournalBetweenTimes('destroy|make|create|made|already|ruin', stime, Now);
wait(500);
until (LineCount > (HowMuch-1)) or (Now > stime + 12*(0.5/1440));;
hungry(1, -1);
if Destroy = 1 then
MoveMakeItem;
if ToCut =1 then
Cut;
end;
END.