Больше всего понравилась строчка
For i = 1 To Rand(90,115)
Убрал удаление текстуры, т.к. её нет вовсе.
Запоминание Хендла кубика вставил в цикл создания кубиков, ибо это логично.
Вот дополненая и рабочая функция создания и расстановки:
;+++++++++++++++++LOOK HERE+++++++++++++++++++++++++++++++++
Function fnCreateRandScub1()
cube.cubes = New cubes
scub=CreateMesh()
surf=CreateSurface(scub)
AddBoxToSurface(Surf%,0,0,0,10)
UpdateNormals(scub)
HideEntity scub
SeedRnd MilliSecs ()
Local kolvo = Rand(90,115)
For i = 1 To kolvo
cube\obj = CopyEntity(scub)
;выбор случайного позиции
Local x_rnd = Rand (1,CFieldWidth-1)
Local z_rnd = Rand (1,CFieldHeight-1)
;будем выбирать позицию до тех пор, пока
;не выберем ту, где нет препятствий
While Not (masPrep(x_rnd, z_rnd) = 0)
x_rnd = Rand (0,CFieldWidth-1)
z_rnd = Rand (0,CFieldHeight-1)
Wend
;зная позицию противника, определяем его координаты на поле
Local posX# = x_rnd * 10 + 5
Local posZ# = -z_rnd * 10 - 5
PositionEntity cube\obj,posX,5,posZ
EntityColor cube\obj,255,255,255; ЦВЕТ ПРОБИВАЕМОГО КУБИКА
EntityType cube\obj,typecube
NameEntity (cube\obj,Handle (cube))
Next
End Function
;+++++++++++++++++LOOK HERE+++++++++++++++++++++++++++