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 PI = 3.1415926   '用于弧度的计算

Public Type POINTAPI
X As Long
Y As Long
End Type

Public MousePos As POINTAPI


Public Const BackgroundTile_Width = 100   '基本tile的大小
Public Const BackgroundTile_Height = 100
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 Ma_Front_Speed = 1.5     '前进和倒车时的速度
Public Const Ma_Stop = 0
Public Const Ma_Back_Speed = -0.5

Public Const LR_CHANGE = 1   '我们的转向角速度

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

Public Const ZiDan_Speed = 8
Public Const ZiDan_Range = 60
    
Public Type Ma
Hp As Single
R As Single    '半径，也可以说是体积
CurPosX As Single
CurPosY As Single
FangXiang As Single
Speed As Single
GunTowerCurSin As Single
GunTowerCurCos As Single
Attack_Interval As Single

End Type

Public Ma_Date As Ma

Public Type ZiDan_Date
CurPosX As Single
CurPosY As Single
CurSin As Single
CurCos As Single
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
CurPosX As Single
CurPosY As Single
Hp As Single
R As Single
FangXiang As Single
AI_Time As Single
Speed As Single
GunTowerCurSin As Single
GunTowerCurCos As Single
Attack_Interval As Single
End Type

Public Enemy1_Date(0 To 49) 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 = 200
Public Const Enemy1_Attack_Interval_Time = 150
Public Const Ma_Attack_Interval_Time = 50

Public Const Enemy1_Speed = 1

Public CurrentMap As Single