[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