forum.boolean.name - Показать сообщение отдельно

Nikich · 15.01.2012, 15:27

Также создал систему коллизий, которая тоже не работает

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" можно прочитать на первой странице темы, где описывались функции создания и обновления камней.

15.01.2012, 15:27	#39
Nikich Бывалый Регистрация: 22.12.2011 Сообщений: 844 Написано 150 полезных сообщений (для 275 пользователей) Всего наград 1	Ответ: Опять проблемы. Также создал систему коллизий, которая тоже не работает 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" можно прочитать на первой странице темы, где описывались функции создания и обновления камней.
(Offline)