ceffect.cls

3D纵版射击程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cEffect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Parent As cEffects

Public Frame As cFrame

Public PositionX As Long
Public PositionY As Long
Public DeltaX As Long
Public DeltaY As Long
Public ParentObject As cEnemy

Public Phase As Long
Public Terminating As Boolean

Public Sub Update()

    If ParentObject Is Nothing Then
        PositionX = PositionX + DeltaX
        PositionY = PositionY + DeltaY
    Else
        PositionX = ParentObject.PositionX + DeltaX
        PositionY = ParentObject.PositionY + DeltaY
    End If
    Phase = Phase + 1
    If Phase >= Frame.TileCount * Frame.AnimationDelay Then Terminating = True
    
End Sub

Public Sub Render()

    Dim L_nCurrentFrame As Long
       
    L_nCurrentFrame = (Phase Mod (Frame.TileCount * Frame.AnimationDelay)) \ Frame.AnimationDelay
      
    If Not Frame.RenderToViewport(PositionX \ 10 - Frame.Width \ 2, PositionY \ 10 - Frame.Height \ 2, L_nCurrentFrame) Then
        Terminating = True
    End If
    
End Sub