function AutoLumber()
{
    PrintSelf('Started');

    var axeSerial = EquipAxe();
    if (axeSerial == '')
        return;

    var treeCoords = FindTrees(45);
    while (treeCoords.length > 0)
    {
        PrintSelf(treeCoords.length + ' trees remaining');       
        var closest = GetClosest(treeCoords);
        var treeCoord = treeCoords[closest];       
        treeCoords = Remove(treeCoords, closest);
       
        //MakeLastCarpentry();
        Orion.Wait(500);
       
        Orion.WalkTo(treeCoord.x, treeCoord.y, 0);
       
        var timeout = Orion.Now() + 3000;
       
        while (!InRange(treeCoord.x, treeCoord.y) && Orion.Now() < timeout)
        {
            PrintSelf('.');
            Orion.Wait(200);
        }
       
        if (InRange(treeCoord.x, treeCoord.y))
        {
            LumberTree(treeCoord.x, treeCoord.y, axeSerial);
        }
           
        PrintSelf('Tree Finished');
    }

    //MakeLastCarpentry();
    Orion.Wait(500);

    PrintSelf('Finished');
}

function Remove(arr, idx)
{
    var result = [];
    for (var i = 0; i < arr.length; ++i)
    {
        if (i != idx)
        {
           result.push(arr[i]);
     }
    }
   
    return result;
}

function FindTrees(range)
{
    var d = range;
   
    var treeCoords = [];
   
    var found = 0;
   
    for (x = Player.X() - d; x < Player.X() + d; ++x)
    {
        for (y = Player.Y() - d; y < Player.Y() + d; ++y)
        {
            if (Orion.ValidateTargetTile('tree', x, y))
            {
                PrintSelf('Tree at ' + x + ',' + y);
           
                var coord = { x: x, y: y};           
                treeCoords.push(coord);
           
                found++;               
            }
        }
   
    }
   
    PrintSelf('Found ' + found + ' trees');
    return treeCoords;
}

function GetClosest(treeCoords)
{
    var px = Player.X();
    var py = Player.Y();
   
    var closest = 0;
    var dsq = 1000;
   
    for (var i =0; i < treeCoords.length; ++i)
    {
        var dx = Math.abs(px - treeCoords[i].x);
        var dy = Math.abs(py - treeCoords[i].y);
   
        var dq = dx + dy;
       
        if (dq < dsq)
        {
            dsq = dq;
            closest = i;
        }
    }
   
    return closest;
}

function InRange(x, y)
{
    var dx = Math.abs(Player.X() - x);
    var dy = Math.abs(Player.Y() - y);
   
    return dx <2 && dy < 2;   
}

function LumberTree(x, y, axeSerial)
{
    var success = 'You put';
    var fail = 'You hack at the tree for a while, but fail to produce any useable wood.';
    var end = 'There is nothing|Willow|Cedar|Oak|Walnut';
    var tooFar = 'That is too far away';
   
    var timeout = Orion.Now() + 12000;
           
    while (true)
    {
        Orion.ClearJournal(success);
        Orion.ClearJournal(fail);
        Orion.ClearJournal(end);
        Orion.ClearJournal(tooFar);
       
        Orion.UseObject(axeSerial);
        Orion.WaitTargetTile('tree', x, y, 0);       
     
        var timeout = Orion.Now() + 12000;
           
        while (!(Orion.InJournal(success)
            || Orion.InJournal(fail)
            || Orion.InJournal(end)
            || Orion.InJournal(tooFar)
            || Orion.Now() > timeout))
        {
            Orion.Wait(200);
        }     

        if (Orion.InJournal(end) || Orion.InJournal(tooFar))
            return;
       
    }           
}

function EquipAxe()
{
    Orion.Unequip(2);
    Orion.Wait(500);

    var axeType = '0x0F43';
    var axes = Orion.FindType(axeType, '-1', backpack);
    Orion.Print(axes.length);
   
    if (axes.length == 0)
    {
        PrintSelf('Missing Axe');
        return '';
    }
   
    var axe = axes[0];   
    PrintSelf('Equiping Axe ' + axe);
    Orion.Equip(axe);
    Orion.Wait(500);
   
    return axe;
}

function MakeLastCarpentry()
{
    Orion.CancelWaitGump();
    Orion.WaitGump(Orion.CreateGumpHook(21));   

    var carpentryToolType = '0x1032';       
    Orion.UseType(carpentryToolType);
}

function PrintSelf(msg)
{
    var oldUse = Orion.OptionScaleSpeech();
   var oldDelay = Orion.OptionScaleSpeechDelay();
    Orion.OptionScaleSpeech(true);
   Orion.OptionScaleSpeechDelay(50);

    Orion.CharPrint('self', '30', msg);
   
    Orion.Wait(50);
    Orion.OptionScaleSpeech(oldUse);
   Orion.OptionScaleSpeechDelay(oldDelay);
}

// 0x13E3 - молот, 0x1EBC - тулс
var ToolType = '0x13E3';  // инструмент для изготовления

var Goods    = '0x13EB';  // производимое изделие
var Forge    = '0x1996';  // тип плавилки
var Ingots   = '0x1BEF';  // тип слитка


var menuButton = 1;

// Keys: 602 - Iron, 600 - Cupper
// Iron Ring Gloves 600
var GoodsButton = 600;




function AutoBlackSmith()
{
   while(true){
      
      if (!Craft() ) Smelt_Items();
      
      Orion.Wait(1000);
      
      
   }

}

function Craft()
{

   Orion.Print("[i] Начинаем ковку...");
   
   Orion.CancelTarget();

   Orion.UseType(ToolType, '0xFFFF');
   
   if (Orion.WaitForTarget(1000)) {
      var IngotsSerial = Orion.FindType(Ingots);
      if ( IngotsSerial.length > 0 ) {
         Orion.TargetType(Ingots, -1, 'backpack');
      } else {
         Orion.Print("Закончились слитки: "+Ingots);
         return false;
      }   
      
   }else {
      Orion.Print("Не удалось использовать инструмент для изготовления: "+ToolType);
      return false;
   }
   
   if (Orion.WaitForGump(1000))
   {
      var gump0 = Orion.GetGump('last');
      if ((gump0 !== null) && (!gump0.Replayed()) )
      {
         var gumpHook0 = Orion.CreateGumpHook(menuButton);
         gumpHook0.AddEntry(1, "");
         gump0.Select(gumpHook0);
         Orion.Wait(100);
      }
   }
   
   if (Orion.WaitForGump(1000))
   {
      var gump1 = Orion.GetGump('last');
      if ((gump1 !== null) && (!gump1.Replayed()) )
      {
         var gumpHook1 = Orion.CreateGumpHook(GoodsButton);
         gumpHook1.AddEntry(1, "");
         gump1.Select(gumpHook1);
         Orion.Wait(100);
      }
   }
   
   var msg  = Orion.WaitJournal('ресурсов|Требуется|не получилось', Orion.Now() -3000, Orion.Now() +6000);
   if ( msg != null ) { return false; }
   
   return true;
}

function Smelt_Items()
{
   
   Orion.Print("[i] Начинаем переплавку...");
   
   Orion.CancelTarget();
   
   var forgeSerial = Orion.FindType(Forge,-1,'ground','', 10);
   if(forgeSerial)
   {
      var forge = Orion.FindObject(forgeSerial);
      if(forge)
      {         
         if(Orion.WalkTo(forge.X(),forge.Y(),forge.Z(),1))
         {
            
            var itemsInBackup = Orion.FindType(Goods,-1, 'backpack');
            
            if (itemsInBackup.length == 0) {
               Orion.Print("Нет предметов для перевлавки");      
               return false;
            }
            
            for (var i =0; i < itemsInBackup.length; i++){
               Orion.UseObject(forgeSerial);
               if (Orion.WaitForTarget(1000))
                  Orion.TargetType(Goods,'any','backpack');
                  
               Orion.Wait(500);
            }
            
         } else {
            Orion.Print("Не нашли плавилку");   
            Orion.PauseScript();   
         }
      }
   }
}