levapbar, где про этот ваш OliBasic почитать можно?

MadRat96,
https://www.tapatalk.com/groups/rfobasic/
ну вот, сейчас опять начнется срач

Привет всем. Есть ли у кого-нибудь пример организации игрового цикла с определенной частотой кадров в секунду?

Вот пытаюсь адаптировать этот код
https://gameprogrammingpatterns.com/game-loop.html
При значениях fps>30 пауза становится нулевой. Почему?

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. gr.open,,,,,1
2. gr.color,255,0,0,1
3. gr.text.size 50
4. gr.text.draw txt, 50,50, ""
5. gr.text.draw txt1, 50,100, ""
6. gr.circle c1, 300,400,50
7. fps=25
8. MS_PER_FRAME=1000/fps
9. do
10. start = time()
11. gosub paint
12. ps=start + MS_PER_FRAME - time()
13. pause ps
14. until 0
15. onbackkey:
16. gr.close
17. end
18. paint:
19. count++
20. gr.modify txt, "text",str$(count) + " counts"
21. gr.modify txt1, "text",str$(ps)
22. gr.modify c1, "x", 300+100*sin(count*pi()/180)
23. gr.modify c1, "y", 400+100*cos(count*pi()/180)
24. gr.render
25. return

Вот этот вариант действительно реагирует на смену fps

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. fps = 60
2. frameDur= 1000 / fps
3. MaxFrameSkip = 5
4. nxtFrameTime = time()
5. loops = 0
6. gr.open,,,,,1
7. gr.color,255,0,0,1
8. gr.text.size 50
9. gr.text.draw txt, 50,50, ""
10. gr.text.draw txt1, 50,100, ""
11. gr.circle c1, 300,400,50
12.  
13. do
14. loops = 0
15.  
16. while (time() > nxtFrameTime & loops < MaxFrameSkip)
17. gosub updateGameState
18. nxtFrameTime += FrameDur
19. loops++
20. repeat
21.  
22. gosub paint
23. until 0
24. onbackkey:
25. gr.close
26. end
27.  
28. paint:
29. gr.modify txt, "text",str$(count) + " count"
30. gr.modify txt1, "text",str$(loops) + " loops"
31. gr.modify c1, "x", 300+100*cos(count*pi()/180)
32. gr.modify c1, "y", 400+100*sin(count*pi()/180)
33. gr.render
34. return
35.  
36. updateGameState:
37. count++
38. if count>=360 then count=0
39. return

Так и не понял, ты проблему то решил?

Относительно
Другой вопрос: как организовать перетягивание каждой фигуры из нескольких на экране? Как получить идентификатор фигуры, по которой тапнули?

Вот что-то примитивное наваял, но как сделать более универсальным этот код?

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. REM Start of BASIC! Program
2. gr.open ,,,,,1
3. gr.color 255,255,0,0,2
4. gr.rect r1, 100,100,300,200
5. gr.color 255,0,255,0,2
6. gr.circle c1, 400, 300, 100
7. gr.color 255,0,0,0,2
8. gr.text.size 50
9. gr.text.draw txt, 50,50,""
10. gr.point pt, 0,0
11. ptr = 0
12. gr.render
13. do
14. gr.touch tch, x, y
15. if tch then
16. gr.modify pt, "x", x, "y", y
17. if gr_collision (pt, r1) then
18. ptr=r1
19. gr.get.value r1,"left",xl, "top",yl
20. dx=50
21. endif
22. if gr_collision (pt, c1) then
23. ptr=c1
24. gr.get.value c1,"x",xl,"y",yl
25. dx=0
26. endif
27. gr.move ptr, x-xl-dx, y-yl-dx
28. endif
29. gr.modify txt, "text",str$(int(xl))+" "+str$(int(yl))
30. gr.render
31. until 0

компилятор стал бесплатным навсегда