forum.boolean.name
Страница 3 из 6 < 12 3 456 >
Показывать 64 сообщений этой темы на одной странице

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=16119)

FireOwl 14.01.2012 21:36
Ответ: Опять проблемы.
 
Давно дело было, не помню уже. Но вопрос на форуме популярный был.
Вот, например (измерение):
http://forum.boolean.name/showthread.php?t=5
Еще (дельта-тайминг):
http://forum.boolean.name/showthread.php?t=8549

Ну и еще можно поискать.

dsd 14.01.2012 22:32
Ответ: Опять проблемы.
 
Однако чет я притормаживаю :)
меряешь время в начале цикла, меряешь в конце. второе-первое даст какие-то миллисекунды. делишь 1000 на эти миллисекунды если количество миллисекунд больше 0, это значение и есть фпс. Если миллисекунды 0, то выводишь текстом, что фпс >1000.
Можно выводить усредненное значение. Считать например среднее значение последних 50 кадров и выводить его.

Nikich 14.01.2012 22:44
Ответ: Опять проблемы.
 
Сейчас прочитал те ссылки, и ужаснулся. На счет скорости игры. То есть на более мощном или наоборот слабом компьютере чем у меня, скоросто передвижения игрока везде будет разной?

FireOwl 14.01.2012 22:49
Ответ: Опять проблемы.
 
Именно так. Чтобы фпс не зависел от машины, надо собственноручно отмерять каждый кадр (суть есть дельта-тайминг). :)

Nikich 14.01.2012 22:56
Ответ: Опять проблемы.
 
Как это?:) Я уже планировал как-нибудь ограничивать максимальный фпс:)

FireOwl 14.01.2012 23:04
Ответ: Опять проблемы.
 
Дельта-тайминг же. Надо по этим словам поиск провести и почитать. Тут много всякого умного понаписано было. А я уже не помню.

Nikich 14.01.2012 23:40
Ответ: Опять проблемы.
 
Да, тут много всего. Хотя и стандартный таймер тоже работает:)

Nikich 15.01.2012 15:07
Ответ: Опять проблемы.
 
Код:
If KeyDown(200)  Then
deltay#=-1
deltax#=0
a=2
b=1
EndIf
If KeyDown(208)  Then
deltay#=1
deltax#=0
a=2
b=1
EndIf
If KeyDown(205) Then
deltax#=1
deltay#=0
a=1
b=0
EndIf
If KeyDown(203) Then
deltax#=-1
deltay#=0
a=1
b=0
EndIf
If KeyDown(205) And KeyDown(200) Then
deltay#=-1
deltax#=1
a=5
b=2
EndIf
If KeyDown(203) And KeyDown(200) Then
deltay#=-1
deltax#=-1
a=7
b=3
EndIf
If KeyDown(205) And KeyDown(208) Then
deltay#=1
deltax#=1
a=9
b=4
EndIf
If KeyDown(203) And KeyDown(208) Then
deltay#=1
deltax#=-1
a=11
b=5
EndIf

If KeyDown(203)=0 And KeyDown(208)=0 And KeyDown(205)=0 And KeyDown(200)=0 Then
speed#=0
deltax#=0
deltay#=0
EndIf

If x#<0 Then x#=1280
If x#>1280 Then x#=0
If y#<0 Then y#=1024
If y#>1024 Then y#=0



speed#=5
x#=px#+deltax#*speed#
px#=x#
y#=py#+deltay#*speed#
py#=y#
Сделал векторное перемещение игрока, но теперь игрок может выйти за пределы экрана, то есть
Код:
If x#<0 Then x#=1280
If x#>1280 Then x#=0
If y#<0 Then y#=1024
If y#>1024 Then y#=0
не работает:( Хотелось бы узнать почему?

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

FireOwl 15.01.2012 17:02
Ответ: Опять проблемы.
 
Код:
deltax#=0
deltay#=0
speed#=0

If KeyDown(200)  Then deltay#=-1
If KeyDown(208)  Then deltay#=1
If KeyDown(205) Then deltax#=1
If KeyDown(203) Then deltax#=-1

(громоздко конечно)
If KeyDown(203) Or KeyDown(208) Or KeyDown(205) Or KeyDown(200) Then
speed#=5.0
EndIf

(пусть px - временные, а x - окончательные координаты)
px=x+deltax*speed
py=y+deltay*speed

If px<0 Then px=1280
If px>1280 Then px=0
If py<0 Then py=1024
If py>1024 Then py=0

***отдельно где-то, где все функции***
Function CollideStones(px,py)
        For s.stone=Each stone
                (коллизия или проверка координат, все равно вроде)
                If ImagesCollide(player,px,py,0,stoneimage,s\x, s\y, 0)
                        Return True
                EndIf
        Next
        Return False
End Function
***

If Not CollideStones(px,py) then
        x=px
        y=py
Endif
Вот, я бы так переделал.

Nikich 15.01.2012 18:19
Ответ: Опять проблемы.
 
Мда оптимизация у меня сильно хромает:) У меня 98 строчек и всё не работает, у тебя 28 строчек и всё работает:)
Но я не совсем понимаю работу с типами функцией
Код:
For s.stone=Each stone
Когда работаешь с массивами, то делаешь так:
Код:
For i=0 to imax
...
array(i)=...
...
То есть у массива есть свой идентификатор. А в типах как это работает?

FireOwl 15.01.2012 18:41
Ответ: Опять проблемы.
 
Цикл For Each...Next перебирает последовательно все существующие экземпляры данного типа (у меня Main переименован в stone, для понятности)
То есть каждый шаг переменная s получает значение очередного экземпляра (вернее даже будет "ссылается", а не "получает").

Nikich 15.01.2012 18:46
Ответ: Опять проблемы.
 
Тогда как взаимодействовать не со всеми, а например с 3?
Код:
...
s.stone=3
...
Так?

FireOwl 15.01.2012 18:53
Ответ: Опять проблемы.
 
Нет.
Вот тут подробно: http://help.boolean.name/commands/2d_commands/Type.htm

Nikich 15.01.2012 19:09
Ответ: Опять проблемы.
 
То есть единственный способ это использовать after,before,first и last?


Часовой пояс GMT +4, время: 17:41.
Страница 3 из 6 < 12 3 456 >
Показывать 64 сообщений этой темы на одной странице

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot