miscdefs.bas

超级C&C有没有搞错,VB还能编出这种即时策略游戏来!没错,这就是我们的超级C&C!虽然游戏经常无故退出,但是原码仍有很多可圈可点的地方.祝你早日编出中国的超级RA,超级KKND,超级星际,超级家园

Attribute VB_Name = "MiscDefs"
Global VERSION As String
Global CHARACTER_QOUTE As String

Global Const GAMECONTROLPANELSIZE = 40
Global Const RADARWINDOWSIZE = 40
Global NothingVariable As Long

Global Const GravityAmount = 1

Global Const FILETAG_ENDFILE = "[ENDOFFILE]"
Global Const MESSAGEWINDOWMODE_OK = 1
Global Const MESSAGEWINDOWMODE_YESNO = 2
Global Const Directory_Graphics = "" '"Graphics\"
Global Const Directory_Music = "" '"Music\"
Global Const Directory_Sound = "" '"Sound\"

Global Const File_Patch = "Patch.Dat"
Global Const File_UnitDefinitions = "Units.Dat"
Global Const File_SpriteDefinitions = "Sprites.Dat"
Global Const File_GraphicLibDefinitions = "GraphicLibs.Dat"
Global Const File_ObjectImprints = "ObjectImprints.Dat"
Global Const File_PictureDefinitions = "PictureDefs.Dat"
Global Const File_MusicDefinitions = "Music.Dat"
Global Const File_SoundDefinitions = "Sound.Dat"
Global Const File_TerrainProfiles = "TerrainProfiles.Dat"
Global Const CLASS_DEPLOYER = "DEPLOYER"
Global Directory_GameData As String
'the DEFAULT one.
Global Const Directory_DefaultGameData = "" '"JPI1\"
Global Const NOTFOUNDERROR = -999
Global Const DefaultGameDataFile$ = "Original"
Global Const GameDataFileExtention$ = ".Ion" 'Ion Data File

Global Const MapFileExtention$ = ".IM1" 'Ion Map File

Global Const GameINIFile$ = "JPI.Ini"

'2D
Type Point2D
  X As Long
  Y As Long
End Type

'3D
Type Point3D
  X As Single
  Y As Single
  Z As Single
End Type

Type Line3D
  Point1 As Point3D
  Point2 As Point3D
End Type


Type Vect3D
  Yaw As Integer
  ZIncline As Integer
End Type


Global Const InGameConstant_PICINDEX_ControlPanelBackground = 1
Global Const InGameConstant_PICINDEX_RadarBackground = 2
Global Const InGameConstant_PICINDEX_ClearBackground = 3
Global Const InGameConstant_PICINDEX_MessageWindowPic = 4
Global Const InGameConstant_PICINDEX_FontLib = 5
Global Const InGameConstant_PICINDEX_JPILogoRed = 6
Global Const InGameConstant_PICINDEX_ProgramBackground = 7
Global Const InGameConstant_PICINDEX_RadarButtonPic = 8
Global Const InGameConstant_PICINDEX_BuildDisabledPic = 9
Global Const InGameConstant_PICINDEX_BuildReadyPic = 10
Global Const InGameConstant_PICINDEX_ButtonLarge = 11

Global Const MaxInGameConstants = 11
Global InGameConstants(MaxInGameConstants) As Integer

Global Const SOUNDNAME_JPI = "jpi"

Public Const MAXINDEXGROUPINDEX = 90

Type IndexGroup
  Indexes(MAXINDEXGROUPINDEX) As Integer
  IndexesActive As Integer
End Type

Global Const BUILDWINDOWSIZE = 30
Global Const BUILDWINDOWHEIGHT = 30