помогите розставить АПТЕЧКИ

[Raiter]

Вот это точно работает

Graphics3D 800,600,16,2
SetBuffer BackBuffer()

Dim Pos(15,2)

For i = 1 To 15
	Pos(i,1) = 2 * i
	Pos(i,2) = 2 * i
Next

Type AptType
	Field Ent
End Type

Global Apt.AptType

Camera = CreateCamera()
PositionEntity Camera,10,10,-10

For i = 1 To 5
	CreateApt(Apt)
Next

Repeat

RenderWorld
Until KeyDown(1)

Function CreateApt(Apt.AptType)
.Start
PosX = Pos((Rnd(1,15)),1)
PosZ = Pos((Rnd(1,15)),2)

For Apt = Each AptType
	If EntityX(Apt\Ent) = PosX And EntityZ(Apt\Ent) = PosZ Then Goto Start
Next

Apt = New AptType
Apt\Ent = CreateCube()
PositionEntity Apt\Ent,PosX,0,PosZ

End Function

[IGR]

всё нормально работает !!
разобрался !!

[Leito]

гы, да вы гоните
вот у тя массив

dim k(15,2)

e=0
while e<>5
n=rand(15)
m=rand(2)
if k(n,m)=0
e=e+1
k(n,m)=1
positionentity aptechka,n,0,m
end if
wend

[IGR]

да, да, да !!
тоже круто !!

только чтобы использовать надо немного переделать !!
вот ето не надо:
m=rand(2)
а вместо:
m=k(n,2)

координаты же уже записанные в файле !!

[Leito]

k(100,100) - это карта аптечек.
ну тебе лучше видно.