нубику положите ножницы в пак, потому что он сам из шерсти делает бинты, используя прялку и колесо.
Code: Select all
Program Sheep;
var b:TDateTime;
wheel:cardinal;
loom:cardinal;
{$Include 'all.inc'}
Begin
SetARStatus(true);
FindDistance:=3;
wheel:=findtype($10A4,ground);
loom:=findtype($105F,ground);
while not dead do
begin
checksave;
WaitConnection(5000);
while findtype($00CF,ground) > 0 do
begin
checksave;
WaitConnection(5000);
CheckTargetError(1,10000);
waittargetobject(finditem);
useobject(findtype($0F51,backpack));
AddToSystemJournal('Cutting');
wait(1000);
end;
while getquantity(findtype($0DF8,backpack)) > 0 do
begin
b:=Now;
checksave;
WaitConnection(5000);
CheckTargetError(1,10000);
waittargetobject(wheel);
useobject(findtype($0DF8,backpack));
WaitJournalline(b,'You spin some wool and create some yarn',10000);
end;
while getquantity(findtype($0E1F,backpack)) > 4 do
begin
checksave;
WaitConnection(5000);
CheckTargetError(1,10000);
waittargetobject(loom);
useobject(finditem);
wait(500);
end;
WaitConnection(5000);
Hungry(1,ground);
if getquantity(findtype($0F95,backpack)) > 9 then stack($0F95,$0000);
Wait(3600);
end;
End.