天空战记--一款仿雷电的火爆游戏[SkyWar.rar]-精品源代码

If R.CurFps Mod RunObj.FireSet(N).DelayFps = 0 Then '''中间插入的已经被更改 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 End If '''''''''''''''''''''''''''''''''外加的 ''''''''''''''''''''''''''''''''' Next N 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 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''以上被更改 EXIF: End If Next NN If 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