home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / miscdefs.bas < prev    next >
Encoding:
BASIC Source File  |  1998-01-29  |  2.6 KB  |  90 lines
  1. Attribute VB_Name = "MiscDefs"
  2. Global VERSION As String
  3. Global CHARACTER_QOUTE As String
  4.  
  5. Global Const GAMECONTROLPANELSIZE = 40
  6. Global Const RADARWINDOWSIZE = 40
  7. Global NothingVariable As Long
  8.  
  9. Global Const GravityAmount = 1
  10.  
  11. Global Const FILETAG_ENDFILE = "[ENDOFFILE]"
  12. Global Const MESSAGEWINDOWMODE_OK = 1
  13. Global Const MESSAGEWINDOWMODE_YESNO = 2
  14. Global Const Directory_Graphics = "" '"Graphics\"
  15. Global Const Directory_Music = "" '"Music\"
  16. Global Const Directory_Sound = "" '"Sound\"
  17.  
  18. Global Const File_Patch = "Patch.Dat"
  19. Global Const File_UnitDefinitions = "Units.Dat"
  20. Global Const File_SpriteDefinitions = "Sprites.Dat"
  21. Global Const File_GraphicLibDefinitions = "GraphicLibs.Dat"
  22. Global Const File_ObjectImprints = "ObjectImprints.Dat"
  23. Global Const File_PictureDefinitions = "PictureDefs.Dat"
  24. Global Const File_MusicDefinitions = "Music.Dat"
  25. Global Const File_SoundDefinitions = "Sound.Dat"
  26. Global Const File_TerrainProfiles = "TerrainProfiles.Dat"
  27. Global Const CLASS_DEPLOYER = "DEPLOYER"
  28. Global Directory_GameData As String
  29. 'the DEFAULT one.
  30. Global Const Directory_DefaultGameData = "" '"JPI1\"
  31. Global Const NOTFOUNDERROR = -999
  32. Global Const DefaultGameDataFile$ = "Original"
  33. Global Const GameDataFileExtention$ = ".Ion" 'Ion Data File
  34.  
  35. Global Const MapFileExtention$ = ".IM1" 'Ion Map File
  36.  
  37. Global Const GameINIFile$ = "JPI.Ini"
  38.  
  39. '2D
  40. Type Point2D
  41.   X As Long
  42.   Y As Long
  43. End Type
  44.  
  45. '3D
  46. Type Point3D
  47.   X As Single
  48.   Y As Single
  49.   Z As Single
  50. End Type
  51.  
  52. Type Line3D
  53.   Point1 As Point3D
  54.   Point2 As Point3D
  55. End Type
  56.  
  57.  
  58. Type Vect3D
  59.   Yaw As Integer
  60.   ZIncline As Integer
  61. End Type
  62.  
  63.  
  64. Global Const InGameConstant_PICINDEX_ControlPanelBackground = 1
  65. Global Const InGameConstant_PICINDEX_RadarBackground = 2
  66. Global Const InGameConstant_PICINDEX_ClearBackground = 3
  67. Global Const InGameConstant_PICINDEX_MessageWindowPic = 4
  68. Global Const InGameConstant_PICINDEX_FontLib = 5
  69. Global Const InGameConstant_PICINDEX_JPILogoRed = 6
  70. Global Const InGameConstant_PICINDEX_ProgramBackground = 7
  71. Global Const InGameConstant_PICINDEX_RadarButtonPic = 8
  72. Global Const InGameConstant_PICINDEX_BuildDisabledPic = 9
  73. Global Const InGameConstant_PICINDEX_BuildReadyPic = 10
  74. Global Const InGameConstant_PICINDEX_ButtonLarge = 11
  75.  
  76. Global Const MaxInGameConstants = 11
  77. Global InGameConstants(MaxInGameConstants) As Integer
  78.  
  79. Global Const SOUNDNAME_JPI = "jpi"
  80.  
  81. Public Const MAXINDEXGROUPINDEX = 90
  82.  
  83. Type IndexGroup
  84.   Indexes(MAXINDEXGROUPINDEX) As Integer
  85.   IndexesActive As Integer
  86. End Type
  87.  
  88. Global Const BUILDWINDOWSIZE = 30
  89. Global Const BUILDWINDOWHEIGHT = 30
  90.