MnM
Post-Hardcore
- Сообщения
- 679
- Репутация
- 90
Здравствуйте, помогите пожалуйста написать примерчик - как расположить рандомно элементы так что бы они не имели между собой пересечений.
У меня уже есть небольшие наработки но он естественно не работает :stars::
У меня уже есть небольшие наработки но он естественно не работает :stars::
Код:
$hWnd = guicreate("", 680, 460)
dim $pos[10][2]
$pos[0][0] = random(64, 616, 1)
$pos[0][1] = random(64, 396, 1)
for $i = 1 to 9
local $tX, $tY
do
$tX=random(64, 616, 1)
$tY=random(64, 396, 1)
for $ii=0 to ubound($pos, 1)
if ($tX>=($pos[$ii][0]-64) or $tX<=($pos[$ii][0]+64)) or ($tY>=($pos[$ii][1]-64) or $tY<=($pos[$ii][1]+64)) then
ExitLoop 1
endif
next
until $i = 9
$pos[$i][0] = $tX
$pos[$i][1] = $tY
ConsoleWrite($pos[$i][0]&@tab&$pos[$i][1] & @LF)
GUICtrlCreateButton("", $pos[$i][0], $pos[$i][1], 64, 64)
next
guisetstate(@sw_show, $hWnd)
while 1
Switch guigetmsg()
case -3
exit
EndSwitch
wend