bulcreate.txt

一款飞机射击游戏的源代码

                        For NN = 1 To NumBul
                            ''''''''''''''''''''''''''''''''以下需根据 : RunObj.FireSet(N).FireType 更改
                            If MultiRunBul(NN).NameRun = 0 Then
                                MultiRunBul(NN).NameRun = N
                                MultiRunBul(NN).CurType = FireLoad(N).SaveName
                                
                                If RunObj.IsRotate Then
                                    MultiRunBul(NN).CurSeatX = R.CurSeat.X - FireLoad(N).Width / 2
                                    MultiRunBul(NN).CurSeatY = R.CurSeat.Y - FireLoad(N).Height / 2
                                    '************************** 4 用于debug
                                            ErrX = (CurMouseX - R.CurSeat.X)
                                            ErrY = (CurMouseY - R.CurSeat.Y)
                                            If ErrY = 0 Then
                                                MultiRunBul(NN).CurSpeedX = 4 * Sgn(ErrX)
                                                MultiRunBul(NN).CurSpeedY = 0
                                            ElseIf Abs(ErrX / ErrY) > 0.1 And Abs(ErrX / ErrY) < 10 Then
                                                MultiRunBul(NN).CurSpeedX = 4 * ErrX / Sqr(ErrX ^ 2 + ErrY ^ 2)
                                                MultiRunBul(NN).CurSpeedY = MultiRunBul(NN).CurSpeedX * ErrY / ErrX
                                            ElseIf Abs(ErrX) > Abs(ErrY) Then
                                                MultiRunBul(NN).CurSpeedY = 0
                                                MultiRunBul(NN).CurSpeedX = 4 * Sgn(ErrX)
                                            Else 'If Abs(ErrY) > Abs(ErrX) Then
                                                MultiRunBul(NN).CurSpeedX = 0
                                                MultiRunBul(NN).CurSpeedY = 4 * Sgn(ErrY)
                                            End If
                                Else
                                    MultiRunBul(NN).CurSeatX = R.CurSeat.X - RunObj.Width / 2 + RunObj.FireSet(N).FireSeat.X - FireLoad(N).Width / 2
                                    MultiRunBul(NN).CurSeatY = R.CurSeat.Y - RunObj.Height / 2 + RunObj.FireSet(N).FireSeat.Y - FireLoad(N).Height / 2
                                    MultiRunBul(NN).CurSpeedX = 0
                                    MultiRunBul(NN).CurSpeedY = 4
                                End If
                                            
                                Exit For
                            End If
                        Next NN
                If Not RunObj.IsRotate Then FoxRotate PicShow.hdc, R.CurSeat.X, R.CurSeat.Y, RunObj.Width, RunObj.Height, PicCon.hdc, 0, 0, A, RunObj.MaskColor, ChkEffect.Value * 2 + 1  ' Good
                
                For NN = 1 To NumBul
                    If MultiRunBul(NN).NameRun <> 0 Then
                        If Abs(MultiRunBul(NN).CurSeatX - PicShow.ScaleWidth / 2) * 2 <= PicShow.ScaleWidth Then
                            If Abs(MultiRunBul(NN).CurSeatY - PicShow.ScaleHeight / 2) * 2 <= PicShow.ScaleHeight Then
                                FoxxFastMask PicShow.hdc, MultiRunBul(NN).CurSeatX, MultiRunBul(NN).CurSeatY, FoxMask2(MultiRunBul(NN).NameRun)
                                MultiRunBul(NN).CurSeatX = MultiRunBul(NN).CurSeatX + MultiRunBul(NN).CurSpeedX
                                MultiRunBul(NN).CurSeatY = MultiRunBul(NN).CurSeatY + MultiRunBul(NN).CurSpeedY
                           
                                GoTo EXIF   '为了不让上两个if条件太长，不得已而为之
                            End If
                        End If
                        MultiRunBul(NN).NameRun = 0