texture 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 Texture Variables Module ###'
'### http://www.lomcn.co.uk ###' '### Credits to TrueADM and DeathWish ###'

'All variables for textures such as GILs and WILs

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 Texture_Variables

#Region "GIL Texture Variables!"
    '============================
    'For .GIL
    '============================
    Public InterfaceTexture(100) As Texture
    Public InterfaceTextureLoaded(100) As Boolean

    Public GameInterfaceTexture(100) As Texture
    Public GameInterfaceTextureLoaded(100) As Boolean
#End Region

#Region "WIL Texture Variables!"
    '============================
    'Legend of Mir Image Library (.WIL)
    '============================
    Public WIL_HumImage As LibraryImageType
    Public WIL_TilesImage As LibraryImageType
    Public WIL_SmTilesImage As LibraryImageType
    Public WIL_ObjectsImage(20) As LibraryImageType
    Public WIL_MonImage(30) As LibraryImageType
    Public WIL_MagicImage(3) As LibraryImageType
    Public WIL_NPCImage As LibraryImageType
    Public WIL_WeaponImage As LibraryImageType
    Public WIL_HairImage As LibraryImageType
    Public WIL_HumEffectImage As LibraryImageType
    Public WIL_InterfaceImage As LibraryImageType
    Public WIL_MinimapImage As LibraryImageType
    Public WIL_DnItemsImage As LibraryImageType
    Public WIL_ItemsImage As LibraryImageType

    Public Structure LibraryImageType
        Dim Width As Short
        Dim Height As Short
        Dim ImageCount As Integer
        Dim ImageIndex() As Integer
        Dim ImageTexture() As Texture
        Dim ImageWidth() As Short
        Dim ImageHeight() As Short
        Dim ImageLoaded() As Boolean
        Dim ImageX() As Short
        Dim ImageY() As Short
        Dim NewWil As Boolean
    End Structure
#End Region

End Module