imprint.bas

来自「超级C&C有没有搞错,VB还能编出这种即时策略游戏来!没错,这就是我们的超级C&」· BAS 代码 · 共 27 行

Attribute VB_Name = "Module1"
Global Const BSize = 10
Type TemplateArrays
  TemplateArray(10, 10) As Boolean
  Name As String
End Type
Global Temps(100) As TemplateArrays
Global CurrentTemp As Integer
Public Sub DrawTemplate(Index)
Form1.Picture1.Cls
For X = 1 To 10
  For Y = 1 To 10
    If Temps(Index).TemplateArray(X, Y) = True Then
      Form1.Picture1.Line ((X - 1) * BSize, (Y - 1) * BSize)-(X * BSize, Y * BSize), RGB(255, 0, 0), BF
    Else
      Form1.Picture1.Line ((X - 1) * BSize, (Y - 1) * BSize)-(X * BSize, Y * BSize), RGB(0, 0, 0), BF
    End If
  Next Y
Next X
End Sub
Public Sub UpdateList()
Form1.List1.Clear
For i = 1 To 80
  Form1.List1.AddItem Temps(i).Name
Next i
End Sub