forum.boolean.name - Столкновение обьектов из одного типа

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Столкновение обьектов из одного типа (http://forum.boolean.name/showthread.php?t=3424)

Столкновение обьектов из одного типа

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

На примере вот этого:

Код:

Type avisv1

    Field xvr,yvr

    Field image 

End Type

...

Function aviacia_v1()

For vraj1=1 To 5

av_v1.avisv1 = New avisv1

av_v1\xvr=Rnd(10, 790)

av_v1\yvr=Rnd(35, 45)

av_v1\image=LoadImage("Istrebitel_v_1.png")

Next

End Function

...

  For av_v1.avisv1= Each avisv1

  DrawImage (av_v1\image,av_v1\xvr, av_v1\yvr)

  Next

Re: Столкновение обьектов из одного типа

Вроде в туториале Змейка от Скавена было, как это сделать.

Re: Столкновение обьектов из одного типа

При создании нового перебирай уже существующие и проверяй расстояния между ними.