directx variables.vb.svn-base

MirUnleashed vb.net Module modMainServer Public WithEvents Socket As New WinsockServer Pub

'### Visual Basic.NET and Direct X9 Legend of MiR Project ###'
'### Mir Unleashed Client DirectX Variables Module ###'
'### http://www.lomcn.co.uk ###' '### Credits to TrueADM and DeathWish ###'

'All variables for DirectX such as Buttons, Textboxes, Windows, Sounds etc.

Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Drawing.Imaging

Module DirectX_Variables

#Region "DirectX Variables!"
    '==================================
    'DirectX
    '==================================
    Public Running As Boolean

    Public DeviceLost As Boolean
    Public D3D As Direct3D.Device
    Public D3Dpp As PresentParameters = New PresentParameters
    Public GameSprite As Direct3D.Sprite
    Public TempBox As Microsoft.DirectX.Direct3D.Line
    Public TempLine As Microsoft.DirectX.Direct3D.Line

    Public MainSurface As Direct3D.Surface
    Public GameSurface As Direct3D.Surface
    Public GameTexture As Texture

    Public AlphaSurface As Direct3D.Surface
    Public AlphaTexture As Direct3D.Texture
    Public FogColour As Drawing.Color
    Public MagicFogColour As Drawing.Color

    Public FogTexture(9) As Texture
    Public FogLoaded(9) As Boolean

    Public GlowingSurface As Direct3D.Surface
    Public GlowingTexture As Direct3D.Texture
    Public GlowColour As Drawing.Color

    Public GlowTexture(9) As Texture
    Public GlowLoaded(9) As Boolean

    Public MistSurface As Direct3D.Surface
    Public MistTexture As Direct3D.Texture
    Public MistColour As Drawing.Color

    Public MistyTexture(9) As Texture
    Public MistyLoaded(9) As Boolean
    Public MistX As Integer
    Public MistY As Integer
    Public MistX2 As Integer
    Public MistY2 As Integer

    Public SnowSurface As Direct3D.Surface
    Public SnowTexture As Direct3D.Texture
    Public SnowColour As Drawing.Color

    Public SnowyTexture(9) As Texture
    Public SnowyLoaded(9) As Boolean
    Public SnowX As Integer
    Public SnowY As Integer
    Public SnowX2 As Integer
    Public SnowY2 As Integer

    Public PresentMode As Integer
    Public PresentMode2 As Integer
    Public Rand As Random
    Public WindowY As Integer
    Public WindowX As Integer
    Public GameWidth As Integer
    Public GameHeight As Integer
    Public FPS As Integer
    Public FPSShow As Integer
    Public FPSOn As Boolean
    Public FPSTick As Long
    Public MusicOn As Boolean
    Public SoundOn As Boolean
    Public CursorX As Short
    Public CursorY As Short
    Public GameCursorX As Short
    Public GameCursorY As Short
    Public FadePowerOn As Boolean

    Public CustomPal(255) As CustomPalType

    Public Structure CustomPalType
        Dim Red As Byte
        Dim Green As Byte
        Dim Blue As Byte
    End Structure
#End Region

#Region "Sound Variables!"
    '============================
    'Sound
    '============================
    Public SoundStack(50) As String
#End Region

#Region "Text Variables!"
    '==================================
    'Text
    '==================================
    Public TempText As TextType
    Public TempText2 As TextType
    Public TempText3 As TextType

    Public Structure TextType
        Dim Size6 As TextType2
        Dim Size8 As TextType2
        Dim Size9 As TextType2
        Dim Size10 As TextType2
        Dim Size11 As TextType2
        Dim Size12 As TextType2
        Dim Size14 As TextType2
        Dim Size16 As TextType2
    End Structure

    Public Structure TextType2
        Dim D3DNormal As Direct3D.Font
        Dim D3DBold As Direct3D.Font
        Dim SystemNormal As Drawing.Font
        Dim SystemBold As Drawing.Font
    End Structure
#End Region

#Region "Button Variables!"
    '==================================
    'Buttons
    '==================================
    Public ButtonSelect As Boolean
    Public ButtonSelectIndex As Integer
    Public Button(200) As ButtonType

    Public Structure ButtonType
        Dim Scene As SceneType
        Dim Show As Boolean
        Dim Fade As Single
        Dim X As Short
        Dim Y As Short
        Dim Width As Short
        Dim Height As Short
        Dim Image As Integer
        Dim HoverColour As Color
        Dim Text As String
        Dim Font As Short
        Dim Enabled As Boolean
        Dim Locked As Boolean
        Dim RolloverText As String
    End Structure
#End Region

#Region "Textbox Variables!"
    '==================================
    'Textboxs
    '==================================
    Public TextBoxExtra As String
    Public TextBoxExtraTick As Long
    Public TextboxSelect As Boolean
    Public TextboxSelectIndex As Integer
    Public Textbox(100) As TextboxType

    Public Structure TextboxType
        Dim Scene As SceneType
        Dim Show As Boolean
        Dim X As Short
        Dim Y As Short
        Dim Width As Short
        Dim Height As Short
        Dim Image As Integer
        Dim SelectColour As Color
        Dim Text As String
        Dim TextPointer As Short
        Dim Password As Boolean
        Dim DisallowSpace As Boolean
    End Structure
#End Region

#Region "Window Variables!"
    '==================================
    'GUI Windows
    '==================================
    Public WindowDrag As Boolean
    Public WindowDragIndex As Short
    Public WindowDragX As Short
    Public WindowDragY As Short
    Public Window(100) As WindowType

    Public Structure WindowType
        Dim Show As Boolean
        Dim Exist As Boolean
        Dim X As Short
        Dim Y As Short
        Dim Width As Short
        Dim Height As Short
        Dim Fade As Single
        Dim Image As Short
        Dim WindowDrawType As WindowDrawType
    End Structure

    Public Enum WindowDrawType
        CREATEACCOUNT = 1
        INVENTORY = 2
    End Enum
#End Region

End Module