Всем привет !
вот делаю игровое "поле"
в самой реализации вопросов не возникло ,что то вроде этого
(облегченный вариант)
Type TSquare
Field ent
Field typ%
End Type
Const MSize=16
Dim Map.TSquare(MSize,MSize)
...
СОЗДАНИЕ КАРТЫ:
For y=0 To MSize
For x=0 To MSize
Map.TSquare(x,y)=New TSquare
Map(x,y)\ent=ДЕЛАЕМ КВАД :ScaleEntity Map(x,y)\ent,1.92,1.92,1.92
Map(x,y)\typ% = ЧИТАЕМ ФАИЛ ДЛЯ ТИПА
PositionEntity Map(x,y)\ent,x*12,0,y*12
MoveEntity Map(x,y)\ent,0,Rnd(-2,2),0
....
Next
Next
в чем вопрсос
: У Меня при карте 16-16 все нормально ,а вот при 32-32 уже подтормаживает ( : Вообщем как мне ОБЪЕДЕНИТЬ ВСЕ ТАИЛЫ в один меш НО ЧТоб я попрежнему мог обращаться к
каждому объекту по отдельности (чтобы к примеры перекрасить таил в другой цвет) что вроде АддМешь? и сильно ли меня это спасет от лагов ?
и вопрос номер ТУ (он проще):
вот сейчас высота таилов у меня определяется так: MoveEntity Map(x,y)\ent,0,Rnd(-2,2),0
но разброс между таилами по высоте не равномерный!
как мне написать функцию чтобы высота соседних таилов была не значительно (выше\ниже) соседних но разбрасывалсь в диапозоне
чтото вроде этого (пс код ошибок не дает ну чтто особенно ничего не происходит):