module1.bas

VB6+DX7开发即时战略游戏(游戏代码+编辑器)

Attribute VB_Name = "Module1"
Option Explicit

Public GraphyIndex As Integer
Public Pass As Boolean

Public Const TileSize = 10

Public Type Tile
Pass  As Boolean
GraphyIndex As Integer
MapIndex As Single
X As Single
Y As Single
End Type

Public Tile_Date(0 To 49, 0 To 49) As Tile

Public Const DisplayWidth = 500
Public Const DisplayHeight = 500

Public Const Red_Index = 0
Public Const Green_Index = 1
Public Const Blue_Index = 2

Public CurMousePosX As Single
Public CurMousePosY As Single

Public Enemy1Mode As Boolean
Public Enemy1Num As Integer

Public MaMode As Boolean

Public MapMode As Boolean

Public Type Ma
Hp As Single
R As Single    '半径，也可以说是体积
CurPosX As Single
CurPosY As Single
FangXiang As Integer
Speed As Single

End Type

Public Ma_Date As Ma

Public Type Enemy1
Hp As Single
R As Single
CurPosX As Single
CurPosY As Single
FangXiang As Integer
AI_Time As Integer
'Speed As Single

End Type

Public Enemy1_Date(0 To 9) As Enemy1