home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dump_s1r / constant.bas < prev    next >
Encoding:
BASIC Source File  |  1998-12-15  |  1.7 KB  |  90 lines
  1. Attribute VB_Name = "modConstants"
  2. Public Const const_lngClick As Long = 1
  3. Public Const const_lngPress As Long = 2
  4. Public Const const_lngUnPress As Long = 3
  5. Public Const const_lngGotFocus As Long = 4
  6. Public Const const_lngLostFocus As Long = 5
  7. Public Const const_lngImageSize As Long = _
  8.     26.4634146341463
  9. Public Enum en_ButtonKeys
  10.     Key_A = 65
  11.     Key_B = 66
  12.     Key_C = 67
  13.     Key_D = 68
  14.     Key_Down = &H28
  15.     Key_E = 69
  16.     Key_F = 70
  17.     Key_G = 71
  18.     Key_H = 71
  19.     Key_m_lngLoop = 73
  20.     Key_J = 74
  21.     Key_K = 75
  22.     Key_L = 76
  23.     Key_Left = &H25
  24.     Key_M = 77
  25.     Key_N = 78
  26.     Key_O = 79
  27.     Key_P = 80
  28.     Key_Q = 81
  29.     Key_R = 82
  30.     Key_Right = &H27
  31.     Key_S = 83
  32.     Key_Space = 32
  33.     Key_T = 84
  34.     Key_U = 85
  35.     Key_Up = &H26
  36.     Key_V = 86
  37.     Key_W = 87
  38.     Key_X = 88
  39.     Key_Y = 89
  40.     Key_Z = 90
  41. End Enum
  42. Public Enum enLTy
  43. Sprite
  44. Bitmap
  45. Label
  46. BlockMapEntry
  47. ThingsEntry
  48. LineDefsEntry
  49. SideDefsEntry
  50. VertexesEntry
  51. SEGSEntry
  52. SSectorsEntry
  53. NodesEntry
  54. SectorsEntry
  55. RejectEntry
  56. MiscEntry
  57. Doom1Level
  58. Doom2Level
  59. MessageEntry
  60. End Enum
  61. Public Type DoomWadPic
  62. Width As Integer
  63. Height As Integer
  64. OffsetX As Integer
  65. OffsetY As Integer
  66. End Type
  67. Public Type DoomHeader
  68. ASCIIType As String * 4
  69. LumpCount As Long
  70. DirectoryStart As Long
  71. End Type
  72. Public Type LumpPlacement
  73. LumpName As String * 8
  74. LumpSize As Long
  75. LumpBytes() As Byte
  76. LumpType As enLTy
  77. LumpPosition As Long
  78. End Type
  79. Public Type LumpEntry
  80. Offset As Long
  81. Length As Long
  82. Name As String * 8
  83. End Type
  84. Public Type BlockMapHeader
  85. XBlockGridOrign As Integer
  86. YBlockGridOrign As Integer
  87. Columns As Integer
  88. Rows As Integer
  89. End Type
  90.