Абсолютно не представляю как сделать, чтоб случайно появившееся обьекты из адного и того же типа не соприкасались, и были друг от друга на расстоянии.
На примере вот этого:
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