有自己做stg的前辈吗 想请教下弹幕的算法

Delta67

用的是C++和DX9 （因为还是xp的系统 最高只能dx9了 然而大约不久后会换机子吧）
关于弹幕的移动 主要是考虑到弹幕并不一定是直线移动的（可能涉及奇怪的弧线或者中途变成狙之类的） 所以大概不大好用csv之类的记录一串数据直线移动就做出来
当前的做法是 弹幕的class里面有个函数指针成员pFunc 然后每次移动的时候如果pFunc==NULL 则当前的x和y坐标分别加上vx和vy 如果pFunc不是NULL则跑这个函数来改变弹幕的相应参数 这样就可以写各种不同的弹幕移动函数了

但是昨天在测试的时候试着写了个恋恋的本我（原作心弹素材 显示方面用的是sprite） 在全屏才100弹幕左右的时候就已经开始频繁的掉帧 而且我现在自机都没做 都是无判定弹幕 再加上弹幕判定可能会更卡
想请教下前辈们是怎么处理弹幕的算法的 谢谢大家
因为C++和DX9都是自学的 所以很多地方可能知识点有疏漏可能会有追问 或是问题表述不清楚还请见谅

song_5007

_(:з」∠)_真是厉害啊，【关注此问题←我也想知道（虽然我能撑几千弹幕才掉帧，，不过大概是电脑比较好的原因）

Delta67

song_5007 发表于 2015-6-8 17:37
_(:з」∠)_真是厉害啊，【关注此问题←我也想知道（虽然我能撑几千弹幕才掉帧，，不过大概是电脑比较好的原 ...

哇 几千弹幕很酷炫诶 请问前辈是什么做法

Delta67

fancydz 发表于 2015-6-8 17:49
同关注此问题
因为找不到顺手的弹幕编写方式
所以一直处于半弃坑状态，一直在打别人家的飞机

我也在打别人的飞机（怎么听起来那么少儿不宜

漆黑之翼

你掉帧是用debug测的吗……
不论怎样，100弹就掉帧也太……

drzzm32

额这个。。。。我是用vb.net，大概2W之后才有比较明显掉帧。。。

Sonicthedgehog

刚刚看了一下，感觉本我[本能的释放]这张应该不难写，弹幕class里边存储几个简单数据即可：坐标，速度，角度，速度增量，角度增量。
放弹时以BOSS为坐标，有一定初速度，方向是圆形四周各个方向，速度增量设成负的，每次同方向发弹发两弹，然后把方向增量设成一正一副两个绝对值相等的数。最后在每帧处理的时候限定一下弹幕的最低速度就可以了。

这样就不用每个弹幕单跑一次函数了，只用作简单的加减法和三角函数计算就可以了。



这个效果其实不够好。

更可行的方法是弄个叫Anim的类，里边存储弹幕在不同时刻的数据。
在弹幕类里边声明anim为他的属性之一，平时可以空着，像这张卡的时候可以可以填上3个anim，
分别对应
1 弹幕开始发出时速度正常，只有一定角加速度的状态
2 弹幕转弯一段时间后减速，速度增量为负，角加速度随着减小的状态
3 弹幕不再减速后，只有速度和角度的状态

根据弹幕发出后的时间决定套用哪个anim的计算方式。
弹幕时间可以在每次帧处理时+1。


（以上均为口胡。）

krh

100 确实太少了

是哪里搜索了 或者大量循环才会这样吧（看起来100*100 次计算距离比较符合计算机的速度

drzzm32

1. Public Class STG3D
   
2.         ' STG相关的数据结构和函数
   
3.         ' 此类不可实例化
   
4. 
   
5.         Public Const DivideNum As Integer = 12
   
6. 
   
7.         Public Const JUDGE_GRAZE As Integer = 1
   
8.         Public Const JUDGE_MISS As Integer = 2
   
9.         Public Const JUDGE_AWAY As Integer = 3
   
10. 
    
11.         Public Const TEX_SPHERE As Integer = -2
    
12.         Public Const TEX_CIRCLE As Integer = -1
    
13. 
    
14.         Public Class Bullet
    
15.             ' 抽象的弹幕类
    
16.             ' 也可作为物体的基类
    
17. 
    
18.             Private Position As Base.Point3D
    
19.             Private Speed As Base.Point3D
    
20.             Private Rotate As Base.Point3D
    
21.             Private Scale As Base.Point3D
    
22.             Private TexPtr As Integer
    
23.             Private Texture As DxVB.DxImage
    
24.             Public IsEnabled As Boolean
    
25.             Public IsGrazed As Boolean
    
26. 
    
27.             Public Sub New()
    
28.                 Position.x = 0 : Position.y = 0 : Position.z = 0
    
29.                 Speed.x = 0 : Speed.y = 0 : Speed.z = 0
    
30.                 Rotate.x = 0 : Rotate.y = 0 : Rotate.z = 0
    
31.                 Scale.x = 0 : Scale.y = 0 : Scale.z = 0
    
32.                 TexPtr = 0 : IsEnabled = False : IsGrazed = True
    
33.                 Texture = New DxVB.DxImage
    
34.             End Sub
    
35. 
    
36.             Public Sub New(ByVal Texture As DxVB.DxImage)
    
37.                 Position.x = 0 : Position.y = 0 : Position.z = 0
    
38.                 Speed.x = 0 : Speed.y = 0 : Speed.z = 0
    
39.                 Rotate.x = 0 : Rotate.y = 0 : Rotate.z = 0
    
40.                 Scale.x = 0 : Scale.y = 0 : Scale.z = 0
    
41.                 TexPtr = Texture.Handle : IsEnabled = False : IsGrazed = True
    
42.                 Me.Texture = Texture
    
43.             End Sub
    
44. 
    
45.             Public Sub SetTexture(ByVal Texture As DxVB.DxImage)
    
46.                 TexPtr = Texture.Handle
    
47.                 Me.Texture = Texture
    
48.             End Sub
    
49. 
    
50.             Public Function GetPosition() As Base.Point3D
    
51.                 Return Position
    
52.             End Function
    
53. 
    
54.             Public Sub SetPosition(ByVal x As Double, ByVal y As Double, ByVal z As Double)
    
55.                 Position.x = x : Position.y = y : Position.z = z
    
56.             End Sub
    
57. 
    
58.             Public Sub SetPosition(ByRef Point As Base.Point3D)
    
59.                 Position = Point
    
60.             End Sub
    
61. 
    
62.             Public Function GetSpeed() As Base.Point3D
    
63.                 Return Speed
    
64.             End Function
    
65. 
    
66.             Public Sub SetSpeed(ByVal x As Double, ByVal y As Double, ByVal z As Double)
    
67.                 Speed.x = x : Speed.y = y : Speed.z = z
    
68.             End Sub
    
69. 
    
70.             Public Sub SetSpeed(ByRef Point As Base.Point3D)
    
71.                 Speed = Point
    
72.             End Sub
    
73. 
    
74.             Public Sub SetRotate(ByVal x As Double, ByVal y As Double, ByVal z As Double)
    
75.                 Rotate.x = x : Rotate.y = y : Rotate.z = z
    
76.             End Sub
    
77. 
    
78.             Public Sub SetScale(ByVal x As Double, ByVal y As Double, ByVal z As Double)
    
79.                 Scale.x = x : Scale.y = y : Scale.z = z
    
80.             End Sub
    
81. 
    
82.             Public Function PreJudge(ByRef Point As Base.Point3D, ByVal Range As Double) As Boolean
    
83.                 Return Math.Abs(Point.x - Position.x) < Range And Math.Abs(Point.y - Position.y) < Range And Math.Abs(Point.z - Position.z) < Range
    
84.             End Function
    
85. 
    
86.             Public Function PreJudge(ByRef Point As Base.Point3D, ByVal RangeX As Double, ByVal RangeY As Double, ByVal RangeZ As Double) As Boolean
    
87.                 Return Math.Abs(Point.x - Position.x) < RangeX And Math.Abs(Point.y - Position.y) < RangeY And Math.Abs(Point.z - Position.z) < RangeZ
    
88.             End Function
    
89. 
    
90.             Public Function Judge(ByRef Point As Base.Point3D) As Integer
    
91.                 If (Base.Distance3D(Point, Position) > Base.Average3D(Scale) * 1.5D) Then
    
92.                     Return JUDGE_AWAY
    
93.                 ElseIf (Base.Distance3D(Point, Position) > Base.Average3D(Scale)) Then
    
94.                     Return JUDGE_GRAZE
    
95.                 Else
    
96.                     Return JUDGE_MISS
    
97.                 End If
    
98.             End Function
    
99. 
    
100.             Public Function Distance(ByRef Bullet As Bullet) As Single
     
101.                 Return Base.Distance3D(Position, Bullet.GetPosition())
     
102.             End Function
     
103. 
     
104.             Public Sub Draw()
     
105.                 'If TexPtr = -2 Then DxVB.DrawSphere(Position.x, Position.y, Position.z, Base.Average3D(Scale), DivideNum, 255, 255, 255, 0, 0, 0, True)
     
106.                 'If TexPtr = -1 Then DxVBDLL.DX.DrawCircle(Position.x, Position.z, Base.Average3D(Scale), DX.GetColor(255, 255, 255))
     
107.                 'If TexPtr > 0 Then DxVB.DrawPic(Texture, Position.x, Position.z)
     
108.                 If TexPtr = 0 Then DX.DrawPixel(Position.x, Position.z, &HFFFFFF)
     
109.                 DxVB.DrawPic(Texture, Position.x, Position.z, Base.Average3D(Rotate))
     
110.             End Sub
     
111.         End Class
     
112. 
     
113.         Public Class STGCore
     
114.             ' STG的核心函数在这里
     
115.             ' 包括绘制，判定和控制
     
116.             ' 弹幕生成需要继承这个类
     
117.             ' 此类需要实例化
     
118. 
     
119.             Protected ArrayNumA As Integer
     
120.             Protected ArrayNumB As Integer
     
121.             Protected Bullets As Bullet(,)
     
122.             Public Shared Player As Bullet
     
123.             Protected Shared OriPlayer As Base.Point3D
     
124.             Protected Shared GameCenter As Bullet
     
125.             Protected CorePosition As Bullet
     
126.             Protected Shared GameRange As Double
     
127.             Protected Shared DefaultTex As Integer
     
128.             Protected Shared Graze, Miss, Num As Integer
     
129.             'Protected STGThread As Thread
     
130. 
     
131.             Public Shared Sub InitShared(ByVal CenterX As Double, ByVal CenterY As Double, ByVal CenterZ As Double, ByVal Range As Double, _
     
132.                             ByVal PlayerX As Double, ByVal PlayerY As Double, ByVal PlayerZ As Double, ByVal PlayerSize As Double, ByVal DefaultTexture As Integer)
     
133.                 Player = New Bullet(New DxVB.DxImage)
     
134.                 Player.SetPosition(PlayerX, PlayerY, PlayerZ)
     
135.                 Player.SetScale(PlayerSize, PlayerSize, PlayerSize)
     
136.                 Player.IsEnabled = True
     
137.                 OriPlayer = Player.GetPosition()
     
138.                 GameCenter = New Bullet()
     
139.                 GameCenter.SetPosition(CenterX, CenterY, CenterZ)
     
140.                 GameRange = Range : DefaultTex = DefaultTexture
     
141.                 Graze = 0 : Miss = 0 : Num = 0
     
142.             End Sub
     
143. 
     
144.             Public Sub New(ByVal ArrayNum1 As Integer, ByVal ArrayNum2 As Integer, ByVal CenterX As Double, ByVal CenterY As Double, ByVal CenterZ As Double, ByVal Range As Double, _
     
145.                             ByVal PlayerX As Double, ByVal PlayerY As Double, ByVal PlayerZ As Double, ByVal PlayerSize As Double, ByVal DefaultTexture As Integer)
     
146.                 ArrayNumA = ArrayNum1
     
147.                 ArrayNumB = ArrayNum2
     
148.                 ReDim Bullets(ArrayNumA, ArrayNumB)
     
149.                 InitBullet()
     
150.                 Player = New Bullet(New DxVB.DxImage)
     
151.                 Player.SetPosition(PlayerX, PlayerY, PlayerZ)
     
152.                 Player.SetScale(PlayerSize, PlayerSize, PlayerSize)
     
153.                 Player.IsEnabled = True
     
154.                 OriPlayer = Player.GetPosition()
     
155.                 GameCenter = New Bullet()
     
156.                 GameCenter.SetPosition(CenterX, CenterY, CenterZ)
     
157.                 CorePosition = New Bullet()
     
158.                 CorePosition.SetPosition(CenterX, CenterY, CenterZ)
     
159.                 GameRange = Range : DefaultTex = DefaultTexture
     
160.                 'STGThread = New Thread(JudgeACtrl)
     
161.             End Sub
     
162. 
     
163.             Public Sub New(ByVal ArrayNum1 As Integer, ByVal ArrayNum2 As Integer, ByVal CenterX As Double, ByVal CenterY As Double, ByVal CenterZ As Double)
     
164.                 ArrayNumA = ArrayNum1
     
165.                 ArrayNumB = ArrayNum2
     
166.                 ReDim Bullets(ArrayNumA, ArrayNumB)
     
167.                 InitBullet()
     
168.                 CorePosition = New Bullet()
     
169.                 CorePosition.SetPosition(CenterX, CenterY, CenterZ)
     
170.                 'STGThread = New Thread(JudgeACtrl)
     
171.             End Sub
     
172. 
     
173.             Public Sub Run()
     
174.                 'STGThread.Start();
     
175.             End Sub
     
176. 
     
177.             Public Sub Close()
     
178.                 'STGThread.Abort();
     
179.             End Sub
     
180. 
     
181.             Public Sub GetInfo(ByVal x As Single, ByVal y As Single)
     
182.                 DxVB.DrawString("Graze: " + Graze.ToString(), x, y, 20)
     
183.                 DxVB.DrawString("Miss:  " + Miss.ToString(), x, y + 25, 20)
     
184.                 DxVB.DrawString("Num: " + Num.ToString(), x, y + 50, 20)
     
185.             End Sub
     
186. 
     
187.             Public Shared Sub GetInfo(ByRef Miss As Integer, ByRef Graze As Integer, ByRef Num As Integer)
     
188.                 Miss = STGCore.Miss : Graze = STGCore.Graze : Num = STGCore.Num
     
189.             End Sub
     
190. 
     
191.             Public Function GetCenter() As Base.Point3D
     
192.                 Return CorePosition.GetPosition()
     
193.             End Function
     
194. 
     
195.             Public Sub SetCenter(ByVal Point As Base.Point3D)
     
196.                 CorePosition.SetPosition(Point)
     
197.             End Sub
     
198. 
     
199.             Private Sub InitBullet()
     
200.                 For i = 0 To Bullets.GetUpperBound(0) Step 1
     
201.                     For j = 0 To Bullets.GetUpperBound(1) Step 1
     
202.                         Bullets(i, j) = New Bullet()
     
203.                     Next j
     
204.                 Next i
     
205.             End Sub
     
206. 
     
207.             Public Sub MainCircle()
     
208.                 GenBullet()
     
209.                 JudgeBullet()
     
210.                 DrawBullet()
     
211.             End Sub
     
212. 
     
213.             Public Sub MainCircle(ByVal Time As Long, ByVal JmpRate As Integer)
     
214.                 GenBullet()
     
215.                 JudgeBullet()
     
216.                 If Time Mod JmpRate = 0 Then DrawBullet()
     
217.             End Sub
     
218. 
     
219.             Protected Overridable Sub GenBullet()
     
220.                 Dim TmpPoint As Base.Point3D
     
221.                 For i = 0 To ArrayNumA - 1
     
222.                     For j = 0 To ArrayNumB - 1
     
223.                         If Not Bullets(i, j).IsEnabled Then
     
224.                             TmpPoint.x = CorePosition.GetPosition().x
     
225.                             TmpPoint.y = CorePosition.GetPosition().y
     
226.                             TmpPoint.z = CorePosition.GetPosition().z
     
227.                             Bullets(i, j).SetPosition(TmpPoint)
     
228.                             Bullets(i, j).SetScale(20, 20, 20)
     
229.                             Bullets(i, j).IsEnabled = True
     
230.                         End If
     
231.                         TmpPoint.x = 0
     
232.                         TmpPoint.y = 0
     
233.                         TmpPoint.z = 0
     
234.                         TmpPoint.x = Bullets(i, j).GetPosition().x + TmpPoint.x
     
235.                         TmpPoint.y = Bullets(i, j).GetPosition().y + TmpPoint.y
     
236.                         TmpPoint.z = Bullets(i, j).GetPosition().z + TmpPoint.z
     
237.                         If Base.Distance3D(Bullets(i, j).GetPosition(), GameCenter.GetPosition()) > GameRange Then
     
238.                             Bullets(i, j) = New EngineCore.STG3D.Bullet()
     
239.                         End If
     
240.                     Next j
     
241.                 Next i
     
242.             End Sub
     
243. 
     
244.             Protected Overridable Sub DrawBullet()
     
245.                 For i = 0 To Bullets.GetUpperBound(0) Step 1
     
246.                     For j = 0 To Bullets.GetUpperBound(1) Step 1
     
247.                         If Bullets(i, j).IsEnabled Then Bullets(i, j).Draw()
     
248.                     Next j
     
249.                 Next i
     
250.                 DrawPlayer()
     
251.             End Sub
     
252. 
     
253.             Protected Shared Sub DrawPlayer()
     
254.                 Player.Draw()
     
255.             End Sub
     
256. 
     
257.             Protected Overridable Sub JudgeBullet()
     
258.                 Num = 0
     
259.                 For i = 0 To Bullets.GetUpperBound(0) Step 1
     
260.                     For j = 0 To Bullets.GetUpperBound(1) Step 1
     
261.                         If Bullets(i, j).IsEnabled Then
     
262.                             If GameCenter.PreJudge(Bullets(i, j).GetPosition(), GameRange) Then
     
263.                                 Num = Num + 1
     
264.                             Else
     
265.                                 Bullets(i, j) = New Bullet()
     
266.                             End If
     
267.                         End If
     
268.                     Next j
     
269.                 Next i
     
270. 
     
271.                 For i = 0 To Bullets.GetUpperBound(0) Step 1
     
272.                     For j = 0 To Bullets.GetUpperBound(1) Step 1
     
273.                         If Bullets(i, j).IsEnabled Then
     
274.                             If Bullets(i, j).IsEnabled And Player.PreJudge(Bullets(i, j).GetPosition(), GameRange) Then
     
275.                                 If Player.Judge(Bullets(i, j).GetPosition()) = JUDGE_AWAY And Not Bullets(i, j).IsGrazed Then
     
276.                                     Bullets(i, j).IsGrazed = True
     
277.                                 End If
     
278.                                 If Player.Judge(Bullets(i, j).GetPosition()) = JUDGE_GRAZE And Bullets(i, j).IsGrazed Then
     
279.                                     Bullets(i, j).IsGrazed = False
     
280.                                     Graze = Graze + 1
     
281.                                 End If
     
282.                                 If Player.Judge(Bullets(i, j).GetPosition()) = JUDGE_MISS Then
     
283.                                     Bullets(i, j) = New Bullet()
     
284.                                     Miss = Miss + 1
     
285.                                     Player.SetPosition(OriPlayer)
     
286.                                 End If
     
287.                             End If
     
288.                         End If
     
289.                     Next j
     
290.                 Next i
     
291.             End Sub
     
292. 
     
293.             Public Shared Sub Control()
     
294.                 Dim TmpPos As Base.Point3D
     
295.                 TmpPos = Player.GetPosition()
     
296.                 If DefaultTex = TEX_SPHERE Then
     
297.                     If Base.GetKey(Base.Keys.KeyLSHIFT) Or Base.GetKey(Base.Keys.KeyRSHIFT) Then
     
298.                         If Base.GetKey(Base.Keys.KeyUP) Then
     
299.                             TmpPos.z = TmpPos.z + 3
     
300.                         End If
     
301.                         If Base.GetKey(Base.Keys.KeyDOWN) Then
     
302.                             TmpPos.z = TmpPos.z - 3
     
303.                         End If
     
304.                         If Base.GetKey(Base.Keys.KeyLEFT) Then
     
305.                             TmpPos.x = TmpPos.x - 3
     
306.                         End If
     
307.                         If Base.GetKey(Base.Keys.KeyRIGHT) Then
     
308.                             TmpPos.x = TmpPos.x + 3
     
309.                         End If
     
310.                     Else
     
311.                         If Base.GetKey(Base.Keys.KeyUP) Then
     
312.                             TmpPos.z = TmpPos.z + 5
     
313.                         End If
     
314.                         If Base.GetKey(Base.Keys.KeyDOWN) Then
     
315.                             TmpPos.z = TmpPos.z - 5
     
316.                         End If
     
317.                         If Base.GetKey(Base.Keys.KeyLEFT) Then
     
318.                             TmpPos.x = TmpPos.x - 5
     
319.                         End If
     
320.                         If Base.GetKey(Base.Keys.KeyRIGHT) Then
     
321.                             TmpPos.x = TmpPos.x + 5
     
322.                         End If
     
323.                     End If
     
324.                 Else
     
325.                     If Base.GetKey(Base.Keys.KeyLSHIFT) Or Base.GetKey(Base.Keys.KeyRSHIFT) Then
     
326.                         If Base.GetKey(Base.Keys.KeyUP) Then
     
327.                             TmpPos.z = TmpPos.z - 3
     
328.                         End If
     
329.                         If Base.GetKey(Base.Keys.KeyDOWN) Then
     
330.                             TmpPos.z = TmpPos.z + 3
     
331.                         End If
     
332.                         If Base.GetKey(Base.Keys.KeyLEFT) Then
     
333.                             TmpPos.x = TmpPos.x - 3
     
334.                         End If
     
335.                         If Base.GetKey(Base.Keys.KeyRIGHT) Then
     
336.                             TmpPos.x = TmpPos.x + 3
     
337.                         End If
     
338.                     Else
     
339.                         If Base.GetKey(Base.Keys.KeyUP) Then
     
340.                             TmpPos.z = TmpPos.z - 6
     
341.                         End If
     
342.                         If Base.GetKey(Base.Keys.KeyDOWN) Then
     
343.                             TmpPos.z = TmpPos.z + 6
     
344.                         End If
     
345.                         If Base.GetKey(Base.Keys.KeyLEFT) Then
     
346.                             TmpPos.x = TmpPos.x - 6
     
347.                         End If
     
348.                         If Base.GetKey(Base.Keys.KeyRIGHT) Then
     
349.                             TmpPos.x = TmpPos.x + 6
     
350.                         End If
     
351.                     End If
     
352.                 End If
     
353.                 If GameCenter.PreJudge(TmpPos, 432, 1, 504) Then Player.SetPosition(TmpPos)
     
354.             End Sub
     
355.         End Class

复制代码

这是我用的STG类，应该能做下参考。
继承STGCore类，重写GenBullet，再创建对象，执行MainCircle。

对于帧率控制

1. Public Class FPSCounter
   
2.             ' 进行帧率计算和控制的类
   
3.             ' 此类需要实例化
   
4.             ' 精度为小数点后一位
   
5.             ' 其中的Update要加入主游戏循环
   
6. 
   
7.             Private StartTime As Integer
   
8.             Private Count As Integer
   
9.             Private FPSNum As Single
   
10.             Private Const N As Integer = 60
    
11.             Private Const FPS As Integer = 60
    
12. 
    
13.             Public Sub New()
    
14.                 StartTime = 0
    
15.                 Count = 0
    
16.                 FPSNum = 0
    
17.             End Sub
    
18. 
    
19.             Public Sub Update()
    
20.                 If Count = 0 Then
    
21.                     StartTime = System.Environment.TickCount
    
22.                 End If
    
23.                 If Count = N Then
    
24.                     Dim TmpTime As Integer = System.Environment.TickCount
    
25.                     FPSNum = 1000.0F / ((CType(TmpTime, Single) - CType(StartTime, Single)) / CType(N, Single))
    
26.                     Count = 0
    
27.                     StartTime = TmpTime
    
28.                 End If
    
29.                 Count = Count + 1
    
30.             End Sub
    
31. 
    
32.             Public Sub WaitTime()
    
33.                 Dim TookTime As Integer = System.Environment.TickCount - StartTime
    
34.                 Dim WaitTime As Integer = Count * 1000 / FPS - TookTime
    
35. 
    
36.                 If WaitTime > 0 Then
    
37.                     DX.WaitTimer(WaitTime)
    
38.                 End If
    
39.             End Sub
    
40. 
    
41.             Public Function GetFPS(ByVal Digits As Integer) As Single
    
42.                 Return Math.Round(FPSNum, Digits)
    
43.             End Function
    
44. 
    
45.             Public Function GetFPS() As Single
    
46.                 Return FPSNum
    
47.             End Function
    
48. 
    
49.         End Class

复制代码

感觉还是垂直同步方便（（（