Первый проект на Delphi

[Beermonza]

Сообщение от Enlightened

Похоже, что вы ошиблись. Все дело с банком текстур. Сначала я просто обратил внимание на то, что уголков нет, хотя должны были быть, ибо в папке с графикой такие тайлы имеются, в самом уровне они обозначены (как s1,s3,s7,s9 соответственно).

Банк работает нормально, проблемы в части загрузки, ...там я не поместил индекс текстуры. Вернись к прежнему исходнику и добавь вот это:

          Try
            // Загружаем текстуру в банк
            TexMas[map_t].TBTex := TBitmap.Create;
            TexMas[map_t].TBTex.LoadFromFile('gfx\layer1\'+texname+'.bmp');

            // Запишем имя текстуры
            TexMas[map_t].TBName := texname;

            // Определяем проходимость
            If texname = 'gg' then TexMas[map_t].TBMove := 1;
            If texname = 'si' then TexMas[map_t].TBMove := 1;
            If texname = 'ow' then TexMas[map_t].TBMove := 1;

            // Отправить в массив карты индекс
            MapMas[map_i, map_j].GMIndex := map_t;

            // Отправить проходимость текстуры в карту
            MapMas[map_i, map_j].GMMove := TexMas[map_t].TBMove;

            // Пометить использование текстуры
            TexMas[map_t].TBUses := True;

            WriteLn(Logfile, 'Текстура: '+texname+'.bmp - выполнено');
            WriteLn(Logfile, 'Ячейка банка: '+IntToStr(map_t));

          Except
            WriteLn(Logfile, 'Ошибка загрузки текстуры: '+texname+'.bmp');
            WriteLn(Logfile, 'Клетка карты: ('+IntToStr(map_i)+','+IntToStr(map_j));
          end;