Также создал систему коллизий, которая тоже не работает
For m.Main=Each Main
nx#=px#+deltax#*speed#
ny#=py#+deltay#*speed#
If x#>m\x+65 And y#>m\y+65 Then
If nx#>m\x+65 And ny#>m\y+65 Then
px#=x#
py#=y#
x#=nx#
y#=ny#
EndIf
EndIf
If x#<m\x-1 And y#<m\y-1 Then
If nx#<m\x-1 And ny#<m\y-1 Then
px#=x#
py#=y#
x#=nx#
y#=ny#
EndIf
EndIf
If x#>m\x+65 And y#<m\y-1 Then
If nx#>m\x+65 And ny#<m\y-1 Then
px#=x#
py#=y#
x#=nx#
y#=ny#
EndIf
EndIf
If x#<m\x-1 And y#>m\y+65 Then
If nx#<m\x-1 And ny#>m\y+65 Then
px#=x#
py#=y#
x#=nx#
y#=ny#
EndIf
EndIf
Next
Хотя логически, по-моему, всё верно.
P.S. О "m.main" можно прочитать на первой странице темы, где описывались функции создания и обновления камней.