module1.bas

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

Attribute VB_Name = "Module1"
Option Explicit
'游戏的本质是操纵一个数据结构与另外一些数据结构互动——按照一定的规则
'这里要做一个由tile拼成的地图，有障碍物
Public Running As Boolean
Public Radar As Boolean
Public SleepNum As Integer

Public Const BackgroundTile_Width = 100   '基本tile的大小
Public Const BackgroundTile_Height = 70
Public Const SpriteTileSize = 100   'tile的大小

Public Const DisplayWidth = 800     '显示窗口的大小
Public Const DisplayHeight = 600

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

Public Const FangXiang_Down = 0
Public Const FangXiang_Right = 1
Public Const FangXiang_Up = 2
Public Const FangXiang_Left = 3

Public Const ZiDan_Speed = 6
Public Const ZiDan_Range = 50
    
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 ZiDan_Date
CurPosX As Single
CurPosY As Single
FangXiang As Integer
Shotting As Boolean
Range As Integer
End Type

Public Ma_ZiDan_Date(0 To 30) As ZiDan_Date
Public Enemy_ZiDan_Date(0 To 30) As ZiDan_Date

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 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

Public FPS As Integer  '显示运行速度
Public FrameNum As Integer  'frame计数器

Public Type HitDate
Hitted As Boolean  '标志
CurPosX As Single
CurPosY As Single
State As Integer   '当前的状态
End Type

Public Hit_Date(0 To 9) As HitDate

Public Destroy_Date(0 To 9) As HitDate

Public Const RADAR_RATE = 18   '雷达倍率

Public Const Enemy1_AI_Time = 50
Public Const Enemy1_Speed = 2

Public CurrentMap As Single