Program Tinkering;
{$Include 'all.inc'}

const
      BAU           = $400946CE;            // id do bau com os ingots e bag das madeirinhas feitas, esse bau/bag fica no seu banco
   //   BAG           = $40027225;            // bag onde serão guardada as picaretas
      qntitem       = 150;

      tinkertools      = $1EBC;
      ingType          = $1BEF; 			// type do ingot
      ingiColor        = $0000;  			// cor do ingot
      logType          = $1BDD;             // type do LOG
      logColor         = $0000;  			// cor do LOG
      picaretatype     = $102C; 			// type do item feito
      picaretacor	   = $0000; 		    // cor do item feito



      //////////// seller
       vendor=$001041A7;
       log=$102C;
      // bau=$400946CE;
      //////////// seller


var   k : integer;
      TimeStart: TDateTime;
      picaretaitem : array of Word;
      TinkerFlag : Boolean;

     ////////seller
     {k,} i, x, y, n, last, Return, Delay : Integer;
     s : string;
     StartTime : TDateTime;
     ////////seller



procedure selllog;
begin
  MoveOpenDoor := true
  ClearBadLocationList
  if (Weight > 11) and (not dead) then
  begin
          NewMoveXY(getx(vendor), gety(vendor), True, 1, True);
            useobject(vendor);
  while count($102C)>140 do
    begin
          NewMoveXY(getx(vendor), gety(vendor), True, 1, True);
    SetAutoSellDelay(1)
    uosay(GetName (vendor)+' Sell');
    wait(150);
    SetSilentMode(False) ;
            AutoSell($102C,$FFFF,999)
                checklag(5000);
                    wait(250);
                  useobject(vendor);
    end;
    end;
end;


procedure bank;
begin
    if GetQuantity(FindType($0EED,backpack))>0 then
            begin
    newmovexy(4473,1164,true,0,true);
    ClearJournal;
    UOsay('bank');
    repeat
      wait(15)
    until injournal('You have') <> -1
    checklag(500);
    while FindType($0EED,backpack)<>0 do
    begin
      MoveItem(FindItem,0,LastContainer,0,0,0);
      wait(250);
    end;
    end;
end;



///////////// AUTO HIDD DESABILITADO ////////////
procedure CheckHide;
  begin
   if Hidden then exit;
   if WarMode = true then SetWarMode(false);
     repeat
     UOsay('Guards !');
   UseSkill('Hiding');
     wait(4500);
   checksave;
   until Hidden or (not Connected);
  end;

{procedure getlog;
begin
      ClearJournal;
    UOsay('bank');
    useobject(bau);
    repeat
      wait(15)
    until injournal('You have') <> -1
        checklag(5000)
    last := bau;
        if GetQuantity(FindType(log,bau))>0 then wait(700); MoveItem(finditem,3200,backpack,0,0,0);
        wait(200)
       checklag(5000)
end;

    begin
                   repeat
    NewMoveXY(2507,560, True, 0, True);
        if GetQuantity(FindType(log,backpack))<200 then bank; getlog;
            bank;
    NewMoveXY(2507,560, True, 0, True);
  //          recall;
             selllog;
             wait(100);
             until dead;
end.}



procedure menutinker;
begin
CancelMenu;
begin
  automenu('Tinkering', 'Wooden Items');
  automenu('Wooden Items', 'moulding planes');
end;
end;

procedure pegaringot;
begin
  uosay('Bank');
  wait(250);
  CheckHide;
  UseObject(BAU);
   wait(100);
  FindTypeEx(ingType, ingiColor, BAU, false);
  wait(100);
   IF FindQuantity >= 150 then MoveItem(FindItem,150,Backpack,0,0,0);
   wait(600);
    FindTypeEx(ingType, ingiColor, backpack, false);
     wait(100);
end;


procedure pegarlog;
begin
  UseObject(BAU);
   wait(100);
  FindTypeEx(logType, logColor, BAU, false);
  wait(100);
   IF FindQuantity >= 450 then MoveItem(FindItem,450,Backpack,0,0,0);
   wait(600);
    FindTypeEx(logType, logColor, backpack, false);
     wait(100);
end;

procedure usartinker;
begin
     while (CountEx(log,$0000,backpack) > 140) and not dead do
 //   if GetQuantity(FindType(log,backpack))<10 then
  selllog;
  bank;
checksave;
 begin
  if GetType(ObjAtLayer(RhandLayer)) = tinkertools then
  begin
   UseObject(ObjAtLayer(RhandLayer));
   exit;
  end
  else
  begin
   FindType(tinkertools,Backpack)
   if FindCount > 0 then
   begin
    UseObject(FindItem);
    exit;
   end;
  end;
 end;
end;

{procedure checarpicareta;
begin
UseObject(BAG);
wait(100);
FindTypeEx(picaretatype, $0000, BAG, false);
if (FindCount>qntitem) OR (CountEx(picaretatype,$0000,BAG)>qntitem) then
begin
TinkerFlag := false;
end;
end;

Procedure moverpicareta;
var
i:integer;
begin
picaretaitem := [picaretatype,$09CE,$09CC, $09CF,$09CD];
for i:=0 to (GetArrayLength(picaretaitem)-1) do
while FindTypeex(picaretaitem[i], picaretacor,BackPack,false) > 0 do
begin
  MoveItem(finditem,0,BAG,0,0,0);
end;
end;}

procedure tempoespera;
begin
   TimeStart :=Now;
   k:=0;
   repeat
   wait(100);
   k := k + 1;
   checksave;
   until (InJournalBetweenTimes('You put|falhou|You toss', TimeStart, Now)<>-1) or (k > 50);
end;



begin
  TinkerFlag := true;
  menutinker;
  wait(100);
  useobject(backpack);
  wait(100);
  repeat
  begin
  CheckHide;
  FindTypeEx(ingType, ingiColor, backpack, false);
  if FindQuantity <= 12 then pegaringot;
  FindTypeEx(logType, logColor, backpack, false);
  if FindQuantity <= 12 then pegarlog;
  usartinker;
  tempoespera;
  useobject(backpack);
  end;
  until TinkerFlag = false
end.