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

[IGR]

есть 2-мерный масив скоординатами по Х и У.
в масиве 15 значений т.е. Dim(15,2).
есть 5 аптечек которые должны случайно аоявлятся в одной из позиции которая задана в масиве т.е. PositionEntity apteka, masiv(rand(0,14),0),0,masiv(rand(0,14),1).
но проблема в том что бы они не появлялись в одном и том же месте !!

[Xander]

попробуй забивать ячейку массива 1 - забито, 0 - нет. И проверять...

Идея сумбурна ногами не пинать (

[IGR]

чёто не понял : масив сделать 3-х мерным для етогоже обозначения (занято - пусто) или ещо новый сосдать ??

[moka]

А что массив то? У тебя masiv(rand(0,14),1)=какойто пивот? Если да тогда так:
PositionEntity apteka,entityx(masiv(rand(0,14),0)),0,entityz(masi v(rand(0,14),1))

[Platon]

IGR
Да, лучше сделать еще 1 массив если первый массив как флоат#, или дополнительное измерение если первый массив целочисленный, и проверять 1\0
ЗЫ
А вообще аптечки и проч фигню лучше расставлять в редакторах

[Raiter]

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

[moka]

Raiter, и того если у нас будет около 1000 мест, и 999 оптечек, блиц будет искать этот 1.
Нада в корне проверять.

[Raiter]

Чел ить сказал конкретно, что у него 5 аптечек При таком количестве это очень простой выход из ситуации. Но вообще конечно же нужно всё это в редакторе делать.

[alcoSHoLiK]

Чтобы не попадать на уже использованные данные из массива координат, создай массив индексов. Одномерный массив на 15 элементов, который содержит индекс от 0 до 14. Есть два варианта:

1. Индексы расположены по порядку. Случайным образом выбирается номер элемента, по этому номеру берется индекс, по индексу идет обращение к массиву координат. При этом в массиве индексов элемент удаляется, все последующие сдвигаются влево, а переменная, которая хранит количество доступных индексов, уменьшается на 1;

2. Заполнять массив индексов случайными числами (проверяя, чтобы не было совпадений). Тогда потом достаточно пройтись последовательно по элементам массива и расставить аптечки.

[IGR]

to alcoSHoLiK:
смысл 2-го способа не понял вообще !!
а первый не до конца понял как реализовать !! ТИПА: "...по индексу идет обращение к массиву координат." !!

[alcoSHoLiK]

const NUM_HEALTH_PACKS = 15

Dim health_packs#(NUM_HEALTH_PACKS,2)
Dim health_indices(NUM_HEALTH_PACKS)

1.

Function PlaceHealthPacks(num%)
	For i = 1 To NUM_HEALTH_PACKS
		health_indices(i) = i
	Next
	available_indices = NUM_HEALTH_PACKS

	For i = 1 To num
		index = rand(1, available_indices)
		CreateHealthPack(health_indices(index))
		For j = index To available_indices - 1
			health_indices(j) = health_indices(j + 1)
		Next
		available_indices = available_indices - 1
	Next
End Function

Function CreateHealthPack(index%)
	; тут создается модель
	PositionEntity pack, health_packs(index, 1), health_packs(index, 2), 0
End Function

2.

Function PlaceHealthPacks(num%)
	For i = 1 to NUM_HEALTH_PACKS
		health_indices(i) = rand(1, NUM_HEALTH_PACKS)
		; добавить проверку, чтобы индексы не повторялись
	Next

	For i = 1 To num
		CreateHealthPack(health_indices(i))
	Next
End Function

[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

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

[IGR]

ну

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

[Raiter]

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

[IGR]

ну дык, то что в 12 посте работать будет ??