itetrisassist.cls

一个俄罗斯方块游戏

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

Public Enum btt_Actions
   btt_ta_MoveLeft
   btt_ta_MoveRight
   btt_ta_MoveDown
   btt_ta_TurnLeft
   btt_ta_TurnRight
   btt_ta_DropDown
End Enum

Public Sub GetActions(nPanel() As Byte, ByVal nTetris As Long, ByVal nAngle As Long, ByVal nLeft As Long, ByVal nTop As Long, ByVal oActions As Collection)
   Dim I As Long
   For I = 1 To Int(Rnd * 4)
      oActions.Add btt_ta_TurnLeft
   Next
   
   Dim nMove As Long
   If Rnd > 0.5 Then
      nMove = btt_ta_MoveLeft
   Else
      nMove = btt_ta_MoveRight
   End If
   
   For I = 1 To Int(Rnd * 6)
      oActions.Add nMove
   Next
   
   oActions.Add btt_ta_DropDown
End Sub

Public Sub Reset()

End Sub