#include "..\inc\swilib.h"
#include "IdleLinks.h"

extern TLabelData *TLabels;
extern TLabelData *Current;

TLabelData *GetFirstEnabled()
{
  TLabelData *result = TLabels;
  if(result->Enabled)
  {
    return result;
  }
  else
  {
    while (result->next)
    {
      result = result->next;
      if(result->Enabled)
      {
        return result;
      }
    }
  }
  return NULL;
}

TLabelData *GetLeftLink()
{
  //
  //  Возвращает ярлык с минимальной координатой по оси x
  //
  if (TLabels)
  {
    TLabelData *result = GetFirstEnabled();
    TLabelData *i = GetFirstEnabled();
    while (i->next)  // Пробегаемся по всему списку ярлычков
    {
      if(i->x <= result->x)    // Если новый ярлычок левее уже запомненного
      {
        if (i->x == result->x)
        {
          // Сравниваем по высоте
          if (i->y < result->y)
          {
            if (i->Enabled)
            {
              result = i;
            }
          }
        }
        else
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      i = i->next;
    }
    if(i->x <= result->x)    // Если новый ярлычок левее уже запомненного
    {
      if (i->x == result->x)
      {
        if (i->y < result->y)
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      else
      {
        if (i->Enabled)
        {
          result = i;
        }
      }
    }
    return result;
  }
  return NULL;
}

TLabelData *GetRightLink()
{
  //
  // Возвращает ярлык с максимальной координатой x
  //
  if (TLabels)
  {
    TLabelData *result = GetFirstEnabled();
    TLabelData *i = GetFirstEnabled();
    while (i->next)  // Пробегаемся по всему списку ярлычков
    {
      if(i->x >= result->x)    // Если новый ярлычок правее уже запомненного
      {
        if (i->x == result->x)
        {
          if (i->y > result->y)
          {
            if (i->Enabled)
            {
              result = i;
            }
          }
        }
        else
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      i = i->next;
    }
    if(i->x >= result->x)    // Если новый ярлычок правее уже запомненного
    {
      if(i->x == result->x)
      {
        if (i->y > result->y)
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      else
      {
        if (i->Enabled)
        {
          result = i;
        }
      }
    }
    return result;
  }
  return NULL;
}

TLabelData *GetUpLink()
{
  //
  //  Возвращает ярлык с минимальной координатой по оси y
  //
  if (TLabels)
  {
    TLabelData *result = GetFirstEnabled();
    TLabelData *i = GetFirstEnabled();
    while (i->next)  // Пробегаемся по всему списку ярлычков
    {
      if(i->y <= result->y)    // Если новый ярлычок ниже уже запомненного
      {
        if (i->y == result->y)
        {
          if (i->x < result->x)
          {
            if (i->Enabled)
            {
              result = i;
            }
          }
        }
        else
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      i = i->next;
    }
    if(i->y <= result->y)    // Если новый ярлычок ниже уже запомненного
    {
      if (i->y == result->y)
      {
        if(i->x < result->x)
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      else
      {
        if (i->Enabled)
        {
          result = i;
        }
      }
    }
    return result;
  }
  return NULL;
}

TLabelData *GetDownLink()
{
  //
  //  Возвращает ярлык с максимальной координатой по оси y
  //
  if (TLabels)
  {
    TLabelData *result = GetFirstEnabled();
    TLabelData *i = GetFirstEnabled();
    while (i->next)  // Пробегаемся по всему списку ярлычков
    {
      if(i->y >= result->y)    // Если новый ярлычок выше уже запомненного
      {
        if (i->y == result->y)
        {
          if (i->x > result->x)
          {
            if (i->Enabled)
            {
              result = i;
            }
          }
        }
        else
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      i = i->next;
    }
    if(i->y >= result->y)    // Если новый ярлычок выше уже запомненного
    {
      if (i->y == result->y)
      {
        if (i->x > result->x)
        {
          if (i->Enabled)
          {
            result = i;
          }
        }
      }
      else
      {
        if (i->Enabled)
        {
          result = i;
        }
      }
    }
    return result;
  }
  return NULL;
}

TLabelData *GetFirstLink()
{
  return GetLeftLink();
}


TLabelData *PrepareCompareSourseForFindNextLink(int key)
{
  switch(key)
  {
  case RIGHT_BUTTON:
    {
      return GetRightLink();
    }
  case LEFT_BUTTON:
    {
      return GetLeftLink();
    }
  case DOWN_BUTTON:
    {
      return GetDownLink();
    }
  case UP_BUTTON:
    {
      return GetUpLink();
    }
  }
  return GetFirstLink();
}

TLabelData *PrepareCompareSourseForCycledNavigation(int key)
{
  extern const unsigned int BCFG_CYCLED;
  if (BCFG_CYCLED == 1)
  {
    return Current;
  }
  else
  {
    switch(key)
    {
    case RIGHT_BUTTON:
      {
        return GetDownLink();
      }
    case LEFT_BUTTON:
      {
        return GetUpLink();
      }
    case DOWN_BUTTON:
      {
        return GetRightLink();
      }
    case UP_BUTTON:
      {
        return GetLeftLink();
      }
    }
    return GetFirstLink();
  }
}

TLabelData *GetLastLinkForCycledNavigation(int key)
{
  extern const unsigned int BCFG_CYCLED;
  if (BCFG_CYCLED == 1)
  {
    return Current;
  }
  else
  {
    switch(key)
    {
    case RIGHT_BUTTON:
      {
        return GetLeftLink();
      }
    case LEFT_BUTTON:
      {
        return GetDownLink();
      }
    case DOWN_BUTTON:
      {
        return GetLeftLink();
      }
    case UP_BUTTON:
      {
        return GetRightLink();
      }
    }
    return GetFirstLink();
  }
}
    
int CompareCoordinates(int Coordinate1, int Coordinate2)
  {
  if(Coordinate1 > Coordinate2)
  {
    return (Coordinate1 - Coordinate2);
  }
  else
  {
    return (Coordinate2 - Coordinate1);
  }
}

int CheckNextLink(int key, TLabelData *SelectedLabel, TLabelData *PrepareLabel, TLabelData *LastNextLabel)
{
  if (PrepareLabel->Enabled)
  {
    switch(key)
    {
    case RIGHT_BUTTON:
      {
        if(((GetRightLink()->x - PrepareLabel->x) < (GetRightLink()->x - SelectedLabel->x)) && ((GetRightLink()->x - PrepareLabel->x) > (GetRightLink()->x - LastNextLabel->x)))
        {
          return 1;
        }
        if(PrepareLabel->x == LastNextLabel->x)
        {
          if(CompareCoordinates(PrepareLabel->y, SelectedLabel->y) < CompareCoordinates(LastNextLabel->y, SelectedLabel->y))
          {
            return 1;
          }
        }
      }
      break;
    case LEFT_BUTTON:
      {
        if(((PrepareLabel->x - GetLeftLink()->x) < (SelectedLabel->x - GetLeftLink()->x)) && ((PrepareLabel->x - GetLeftLink()->x)>(LastNextLabel->x - GetLeftLink()->x)))
        {
          return 1;
        }
        if(PrepareLabel->x == LastNextLabel->x)
        {
          if(CompareCoordinates(PrepareLabel->y, SelectedLabel->y) < CompareCoordinates(LastNextLabel->y, SelectedLabel->y))
          {
            return 1;
          }
        }
      }
      break;
    case DOWN_BUTTON:
      {
        if(((GetDownLink()->y - PrepareLabel->y) < (GetDownLink()->y - SelectedLabel->y)) && ((GetDownLink()->y - PrepareLabel->y) > (GetDownLink()->y - LastNextLabel->y)))      
        {
          return 1;
        }
        if(PrepareLabel->y == LastNextLabel->y)
        {
          if(CompareCoordinates(PrepareLabel->x, SelectedLabel->x) < CompareCoordinates(LastNextLabel->x, SelectedLabel->x))
          {
            return 1;
          }
        }
      }
      break;
    case UP_BUTTON:
      {
        if(((PrepareLabel->y - GetUpLink()->y) < (SelectedLabel->y - GetUpLink()->y)) && ((PrepareLabel->y - GetUpLink()->y)>(LastNextLabel->y - GetUpLink()->y)))      
        {
          return 1;
        }
        if(PrepareLabel->y == LastNextLabel->y)
        {
          if(CompareCoordinates(PrepareLabel->x, SelectedLabel->x) < CompareCoordinates(LastNextLabel->x, SelectedLabel->x))
          {
            return 1;
          }
        }
      }
      break;
    }
  }
  return 0;
}
  
int CheckCycledNavigation(int key, TLabelData *SelectedLabel, TLabelData *PrepareLabel, TLabelData *LastNextLabel)
{
  if (PrepareLabel->Enabled)
  {
    extern const unsigned int BCFG_CYCLED;
    switch (BCFG_CYCLED)
    {
    case 0:
      {
        // Циклическая навигация выключена - тупо ничего не делаем ^_^
      }
      break;
    case 1:
      {
        // Переходим к первому ярлычку на текущей линии/столбце
        if (key == RIGHT_BUTTON)
        {
          // Если гуляем вперед по х ищем самый левый с точно такой же высотой,
          // как у текущего
          if (PrepareLabel->y == SelectedLabel->y)
          {
            if ((PrepareLabel->x < SelectedLabel->x) & (PrepareLabel->x < LastNextLabel->x))
            {
              return 1;
            }
          }
        }
        if (key == LEFT_BUTTON)
        {
          // Если гуляем назад по х ищем самый правый с точно такой же высотой,
          // как у текущего
          if (PrepareLabel->y == SelectedLabel->y)
          {
            if ((PrepareLabel->x > SelectedLabel->x) & (PrepareLabel->x > LastNextLabel->x))
            {
              return 1;
            }
          }
        }
        if (key == DOWN_BUTTON)
        {
          // Если гуляем вниз по у ищем самый верхний, с точно такой же 
          // координатой по х, как у текущего
          if (PrepareLabel->x == SelectedLabel->x)
          {
            if ((PrepareLabel->y < SelectedLabel->y) & (PrepareLabel->y < LastNextLabel->y))
            {
              return 1;
            }
          }
        }
        if (key == UP_BUTTON)
        {
          // Если гуляем вниз по у ищем самый нижний, с точно такой же 
          // координатой по х, как у текущего
          if (PrepareLabel->x == SelectedLabel->x)
          {
            if ((PrepareLabel->y > SelectedLabel->y) & (PrepareLabel->y > LastNextLabel->y))
            {
              return 1;
            }
          }
        }
      }
      break;
    case 2:
      {
        // Переходим к первому ярлычку на следующей линии столюце
        if (key == RIGHT_BUTTON)
        {
          // Если гуляем вперед по х ищем самый левый с наименьшей разницей
          //  в высоте, нежели у текущего
          if ((PrepareLabel->y > SelectedLabel->y) & ((GetDownLink()->y - PrepareLabel->y) >= (GetDownLink()->y - LastNextLabel->y)) & ((SelectedLabel->y - PrepareLabel->y) != 0))
          {
            if (PrepareLabel->y == LastNextLabel->y)
            {
              if (PrepareLabel->x < LastNextLabel->x)
              {
                return 1;
              }
            }
            else
            {
              return 1;
            }
          }
        }
        if (key == LEFT_BUTTON)
        {
          // Если гуляем назад по х ищем самый правый с точно такой же высотой,
          // как у текущего
          if ((PrepareLabel->y < SelectedLabel->y) & ((PrepareLabel->y - GetUpLink()->y) >= (LastNextLabel->y - GetUpLink()->y)) & ((SelectedLabel->y - PrepareLabel->y) != 0))
          {
            if (PrepareLabel->y == LastNextLabel->y)
            {
              if (PrepareLabel->x > LastNextLabel->x)
              {
                return 1;
              }
            }
            else
            {
              return 1;
            }
          }
        }
        if (key == DOWN_BUTTON)
        {
          // Если гуляем вниз по у ищем самый верхний, с точно такой же 
          // координатой по х, как у текущего
          if ((PrepareLabel->x > SelectedLabel->x) & ((GetRightLink()->x - PrepareLabel->x) >= (GetRightLink()->x - LastNextLabel->x)) & ((SelectedLabel->x - PrepareLabel->x) != 0))
          {
            if (PrepareLabel->x == LastNextLabel->x)
            {
              if (PrepareLabel->y < LastNextLabel->y)
              {
                return 1;
              }
            }
            else
            {
              return 1;
            }
          }
        }
        if (key == UP_BUTTON)
        {
          // Если гуляем вниз по у ищем самый нижний, с точно такой же 
          // координатой по х, как у текущего
          if ((PrepareLabel->x < SelectedLabel->x) & ((PrepareLabel->x - GetLeftLink()->x) >= (LastNextLabel->x - GetLeftLink()->x)) & ((SelectedLabel->x - PrepareLabel->x) !=0))
          {
            if(PrepareLabel->x == LastNextLabel->x)
            {
              if (PrepareLabel->y > LastNextLabel->y)
              {
                return 1;
              }
            }
            else
            {
              return 1;
            }
          }
        }
      }
      break;
    }
  }
  return 0;
}

void FindNextLink(int key)
{
  if (TLabels)
  {
    TLabelData *i = GetFirstEnabled();
    TLabelData *res = PrepareCompareSourseForFindNextLink(key);
    while(i->next)  // Пробегаемся по всему списку ярлычков
    {
      if (CheckNextLink(key, Current, i, res))
      {
        res = i;
      }
      i = i->next;
    }
    if (CheckNextLink(key, Current, i, res))
    {
      res = i;
    }
    if(Current!=res)
    {
      Current = res;
    }
    else
    {
      extern const unsigned int BCFG_CYCLED;
      if (BCFG_CYCLED)
      {
        // Здееся будет обработка зацикленной навигации
        TLabelData *i = GetFirstEnabled();
        TLabelData *res = PrepareCompareSourseForCycledNavigation(key);
        int b_changed = 0;
        while(i->next)  // Пробегаемся по всему списку ярлычков
        {
          if (CheckCycledNavigation(key, Current, i, res))
          {
            res = i;
            b_changed = 1;
          }
          i = i->next;
        }
        if (CheckCycledNavigation(key, Current, i, res))
        {
          res = i;
          b_changed = 1;
        }
        if (b_changed)
        {
          Current = res;
        }
        else
        {
          if (BCFG_CYCLED == 2)
          {
            Current = GetLastLinkForCycledNavigation(key);
          }
          else
          {
            Current = res;
          }
        }
      }
    }
  }
}
