AutoIT + LUA?

function main()
 while (true) do
  FinishRoute();

 SearchByType(2);
 Sleep(200);
 if (SearchIndex ~= 0) then
  TargetByIndex(0, SearchIndex);
 Sleep(5000);
 end
  GoTo(-105, 12355);
  Fight(3000);
 end
end
--####################################################--
function Sell()
 TargetNpc(-1924, 14692);
 Sleep(200);

 -- sell everything in the first backpack
 for i=0, 19 do
  GetItem(0, i);
  Sleep(200);
  if(ItemIndex ~= 0) then
   SellItem();
  end
 end
end
--####################################################--
function Fight(maxdistance)
 local BlockId = -1; -- id from last blocked mob
 local BlockCnt = 0;
 while(true) do
  SearchByFaction(3);

  -- all monsters are dead ...
  if(SearchIndex == 0) then
   return;
  end

  -- same target which is blocked by another monster
  if(SearchIndex == BlockId) then
   return;
  end

  -- monster to far away
  if(SearchDistance > maxdistance) then
   local text = "Creature "..SearchIndex.." to far away.";
   Console(text);
   return;
  end

  TargetByIndex(0, SearchIndex);

  Sleep(200);

  -- loop as long as target is alive
  while (TargetHpMax == 0 or TargetHp > 0) do

   -- if target is dead
   if (TargetIndex == 0) then
    do break end
   end

   -- way blocked by another monster
   if(IsMoving == 0 and TargetDistance > 150) then
    if(BlockCnt > 5) then
     Console("Target blocked, search for next.");
     BlockId = TargetIndex;
     do break end
    else
     BlockCnt = BlockCnt + 1;
    end
   else
    BlockId = -1; -- delete if successfull kill
    BlockCnt = 0;
   end

   -- energy if needed
   if (IsAbilityUsable(0) and
     PlayerEnergy < 4 and
    UseAbility(2, 0);
   end

    
   -- healing if needed
   if (PlayerHp < 300) then
    UseAbility(3, 0);
    Sleep(200);
   end

   -- Cyclone axe
   if (IsAbilityUsable(0) and
     PlayerEnergy > 5 and
     TargetDistance < 150) then
    UseAbility(0, 0);
   end

   -- Triple Chop
   if (IsAbilityUsable(0) and
     PlayerEnergy > 5 and
     TargetDistance < 150) then
    UseAbility(1, 0);
   end

   Sleep(200);
  end

  Loot();
 end
end
--####################################################--
function Loot()
 SearchByType(4);
 if (SearchIndex ~= 0) then
  TargetByIndex(0, SearchIndex);
  while (TargetIndex ~= 0) do

   -- wrong target? (happens sometimes)
   if (TargetType ~= 4) then
    do break end
   end

   -- character blocked by another monster/object?
   if (TargetDistance > 150 and IsMoving == 0) then
  Console("Blocked Loot aborted.");
  return;
   end

   Sleep(20);
  end
  -- recursive call to loot multiple times
  Loot();
 end
end
--####################################################--
function GoTo(x, y)
 MoveTo(x, y);

 while (PlayerX ~= x and PlayerY ~= y) do
  Sleep(100);

  -- monster near the character?
  SearchByFaction(3);
  if(SearchIndex ~= 0 and SearchDistance < 100) then
   return;
  end

  -- monster blocks the way?
  if(IsMoving == 0) then
   return;
  end
 end
end
--####################################################--
function FinishRoute()
 Sleep(2000)
 GoToZone(32);
 Sell();
 EnterMission();
 Sleep(12000);
end
--####################################################--
function GoToZone(zone)
 TravelToZone(zone);
 Sleep(5000);
 while(PlayerX == 0) do
  Sleep(100);
 end
 Sleep(5000);
end
--####################################################--
function TargetNpc(x, y)

 SearchIndex = 0;

 while(SearchIndex == 0) do
  SearchByCoord(x, y);
  Sleep(200);
 end

 TargetByIndex(0, SearchIndex);
end
--####################################################--
-- entry point
main();