Vars.bas 2003 körüli Visual Basic 6.0 szakdolgozat kódom egy része, globális változók

Vars.bas

Attribute VB_Name = "mVars"
'---------------------------------------------
' VÁLTOZÓK MODUL - variables
'---------------------------------------------

'Egy kis API hívás
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

'Globális változók, így nem kell értékátadással bajlódni.. _
 minden Modul meg tudja hívni őket
'---------------------------------------------
'CLASS-ok hivatkozásnevei..........................
Public Opengl                   As New OPENGL_CLASS
Public RenderIt                 As New RENDER_CLASS
'..................................................

'Nem tudsz rajta változtatni!
Public Const SCREEN_WIDTH = 800
Public Const SCREEN_HEIGHT = 600

'Konstans Asztalméretek
Public Const CAMERA_X = 0.001
Public Const CAMERA_Y = -0.03
Public Const TABLE_LEFT = -0.99
Public Const TABLE_RIGHT = 0.8
Public Const TABLE_TOP = -0.64
Public Const TABLE_BOTTOM = 0.64

'---------------------------------------------
' Időzítők, fps...
Public Elapsed1                 As Long
Public Elapsed2                 As Long
Public Elapsed3                 As Long
Public Elapsed4                 As Long
Public Elapsed5                 As Long
Public Elapsed6                 As Long
Public Elapsed7                 As Long
Public Elapsed8                 As Long
Public Elapsed9                 As Long
Public DeltaTime                As Long

Public mdown                    As Boolean

'Nem muszáJ megadnunk VB-ben a típust, ilyenkor _
 automatikusan "érzékeli"
Public Fps_Counter              'As Long
Public Fps_Now                  As Single
Public Fps_Now2                 'As Integer

' Számlálóhoz
Public ElapsedTime              As String
Public Hours                    As Byte
Public Minutes                  As Byte
Public Seconds                  As Byte
'hh:mm:ss



'---------------------------------------------
' Opengl-hez texturák száma stb..
Public Quadratic                As GLUquadricObj
Public Texture(200)             As GLuint   'MAX textura szám
Public TextureCount             As Byte     'Texturák számolása
Public PicIndex                 As Byte     'Texturaszám

'---------------------------------------------
' Base list a betüknek..
Public Base                     As GLuint
Public Base2                    As GLuint

'---------------------------------------------
' Buffercseréhez kellenek..longok
Public ghDC                     As Long
Public ghRC                     As Long
Public hRC                      As Long

'---------------------------------------------
' Elmenti az alap  screen beállitásokat,
' hogy majd később visszaállíthassa azokat
Public OldWidth                 As Integer
Public OldHeight                As Integer
Public OldNumBits               As Integer
Public OldVRefresh              As Integer

'---------------------------------------------
' JÁTÉKON BELÜLI VÁLTOZÓK
'---------------------------------------------

'---------------------------------------------
' Lényegesebb változók
'---------------------------------------------
Public RunGame                  As Boolean  'Renderel-e még?
Public CueAnim                  As Boolean  'DákoANimáció
Public Pause                    As Boolean  'Szünet
Public Screens                  As Byte     'Max 255 képernyő, _
                                             hehe, nekem ebből _
                                             csak 3 kell:-))))

'---------------------------------------------
'A dákó forgása--2 x,y érték közötti
Public Cue_RotX1                As Single
Public Cue_RotY1                As Single
Public Cue_RotX2                As Single
Public Cue_RotY2                As Single

'---------------------------------------------
'Az ütés erőssége
Public Strength                 As Byte
'---------------------------------------------
'Az showDataPagehoz kellenek
'---------------------------------------------
Public Pl1_Name                 As String
Public Pl2_Name                 As String

'---------------------------------------------
'Sebesség, stb változók
Public Velocity                 As Single  'Sebesség
Public SelectedType             As Boolean 'Választott tipust
Public OneTime                  As Boolean 'Egyszer "kapcsoló"
Public NextPlayer               As Byte

'---------------------------------------------
'Hány gurult le az adott körben
'És melyek ezek...
'---------------------------------------------

'The ball(s)...
Public RolledDown               As Byte
Public RolledDownInThisRound()  As Byte
Public RolledDownNOW            As Byte

'Elsőérintett golyó
Public FirstTouched             As String
Public FirstCollision           As Boolean
Public VelocityVectors          As Boolean

'Menük és információk
Public CreditsIn                As Boolean
Public Mistake                  As Boolean
Public FpsIn                    As Boolean
Public OptionsIn                As Boolean

'Asztal
Public TableFade                As Boolean
Public TableStyle               As Byte

'Hangok
Public Sounds(1 To 20)          As String

'Nyelvek-2
Public LanguageText(150)        As String
Public SelectedLanguage         As Byte

'Lyukak
Public SelectedHole             As Boolean
Public SoundIn                  As Boolean
Public SelectedRHole            As Byte
Public Hole                     As Byte

'További menübeállítások
'-------------------------------------------
Public ShadowsIn                As Boolean
Public SphereMapIn              As Boolean
Public MouseDowned              As Boolean

'Egyszer használatos változók
Public JustOnce0                As Boolean
Public JustOnce1                As Boolean
Public JustOnce2                As Boolean
Public JustOnce3                As Boolean
Public JustOnce4                As Boolean
Public JustOnce5                As Boolean
Public JustOnce6                As Boolean

'CHAT-cuccok
Public ChatIn                   As Boolean
Public ChatText                 As String
Public ChatTextS(0 To 10000)    As String
Public ChatCounter              As Integer

Public SentType                 As Boolean
Public SentRHole                As Boolean
Public HelpLine                 As Boolean
Public InfosIn                  As Boolean

'---------------------------------------------

Public MenusOn                  As Boolean
Public selected                 As Byte
Public mode                     As Byte

Public deltaT                   As Currency