Вниз
Скачать: CL | DM;

Как загрузить карту?   Найти похожие ветки 

 
Riko ©   (2003-05-20 14:27) [0]

Есть файл карты(текстовый формат 25 символов на 25) представляет в игре описание поверхности. Как лучше всего загрузить на экран.
Пробовал идти этим путем(грузим из файла в массив):
SetMapSize(25,25);
Image := DXImageList1.Items.Find("*имя+ номер тайла из массива*);
Tile := false;
end;
Что-то не получается.
Подскажите пожалуйста хотя-бы направление....
Спасибо.


 
greenrul ©   (2003-05-20 15:17) [1]

Удалено модератором
Примечание: Откройте отдельную ветку


 
greenrul ©   (2003-05-20 15:48) [2]

как я сделал:

var
tiles:array[1..50,1..50] of TImageSprite; (50x50 тайлов)
content:array[1..50,1..50,1..5] (5 слоев)

...
for i:=1 to 50 do
for j:=1 to 50 do
begin
Tiles[xx,yy]:=TImageSprite.Create(MainForm.DXSpriteEngine1.Engine);
CombineImages(xx,yy); {моя, пока недоработанная процедура, которая совмещает слои на 1 картинку}
Tiles[xx,yy].Image:=MainForm.images.Items.Find("combined_img");
Tiles[xx,yy].Width:=Tiles[xx,yy].Image.Width;
Tiles[xx,yy].Height:=Tiles[xx,yy].Image.Height;
Tiles[xx,yy].x:=32*xx+(yy-1)*32;
Tiles[xx,yy].y:=16*xx-(yy-1)*16-Tiles[xx,yy].image.Height+16;
Tiles[xx,yy].z:=-1000+xx-yy;
Tiles[xx,yy].Image.Transparent:=true;
Tiles[xx,yy].Image.TransparentColor:=clRed;
Tiles[xx,yy].Visible:=true;
Tiles[xx,yy].PixelCheck:=false;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c
3-89680
Petrovick
2003-11-06 14:48
2003.11.27
Где можно скачать статью или пример работы с АДО


6-90036
delpher_gray
2003-09-29 12:27
2003.11.27
Приём команд/файлов


3-89730
Vladimir_
2003-11-09 20:03
2003.11.27
цвет и толщина линий Dbgrid


1-89854
Mishenka
2003-11-15 22:48
2003.11.27
Неправильно печатается файл :(((


1-89958
AndreySoft
2003-11-17 17:26
2003.11.27
Как заблокировать комбинации клавиш




   Наверх