2D или как просчитать и вывести на экран тайлы...

[Anubis]

вопрос:
Допустим мне надо описать двумерный массив, 50 на 50 яч. в каждую ячейку загрузить тайл и вывести на экран... Собственно как это сделать?

Dim map(x, y) as integer
For x = 0 to 50
'сдесь мы прописываем код по размещению тайла в каждую ячейку массива...
next
For y = 0 to 50
'сдесь мы прописываем код по размещению тайла в каждую ячейку массива...
next

Тоесть надо персчитать каждую ячейку и подгрузить нужное, а затем при полной загрузке выйти из цыкла... Подскажите плиз, заранее спасибо...

[nekeda]

Первый Next перемещаешь за последний

[Debugger]

Dim Карта(50,50) As Integer
Dim tiles() As Изображение
...
For x=0 to 50
For y=0 to 50
tiles(Карта(x,y)).Draw 100*x+sx , 125*y+sy
Next
Next

При этом sx и sy позиции камеры, 100 и 125 - размеры тайлов. Тип Изображение и процедура Draw - фантазии, напиши класс или тип сам и переделай под себя. Я бы делал как As New StdPicture, а рисовал BitBlt.
При большой карте я бы сделал отсечение ненужных тайлов.

[Anubis]

Спасибо за совет) в ходе прогресса буду интерисоваться теми или иными вещами)