Blank Sсrolls 2

[Alex]

Заполните пак на 60-70% тинкер тулсами.
Еда и дерево прямо под ногами.
Тинкеров можно ставить в плотную, для экономии жил площади.

Code: Select all

Program tink; 
var t:Integer; 
b : TDateTime; 

{$Include 'all.inc'} 

Begin 
 SetARStatus(true); 
 FindDistance := 0; 
clearjournal; 
 if connected then hungry(1,ground); 
 While not dead do 
  begin 
   for t:=1 to 10 do 
    begin 
    if ((GetQuantity(FindType($1BDD,ground)) > 10)) and ((GetQuantity(FindType($1EB9,backpack)) >= 1)) then 
     begin 
      checksave; 
       if GetQuantity(FindType($0E34,ground)) > 55000 then Ignore(finditem); 
       if GetQuantity(FindType($0E34,backpack)) > 99 then MoveItems(backpack,$0E34,$FFFF,FindType($0E34,ground),0,0,0,1000); 
      CheckTargetError(5, 2);
      WaitTargetObject(FindType($1BDD,ground)); 
      b:=Now; 
      UseObject(FindType($1EB9,backpack)); 
      WaitGump('1025'); 
      WaitJournalLine(b,'You',40000); 
     end 
     else 
     begin 
     SetARStatus(false); 
     Disconnect; 
     end; 
end; 
t:=1; 
if connected then Hungry(1,ground); 
end; 
End.

[Craft]

И что этот смех на палке хочешь сказать крафтит бланки?)

[Val]

во-первых таки-да крафтит... а во-вторых на дату поста глянуть слабо???
какая тогда версия стелса была последняя и что она умела???