[IGR]

а если так:

type apt
field ent,num
end type

Dim aptPOZ(15,3)

function CRT_apt()
n=Rand(0,14)
if aptPOZ(n,2)=0
aptPOZ(n,2)=1
a.apt = new apt
a\ent = createcube()
positionentity a\ent,aptPOZ(n,0),0,aptPOZ(n,1)
a\num = n
endif
end function

проверьте кто может !!
а то я не могу у меня с компом проблемы !!