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

'All variables for Map, Tiles, Objects and Lights.

Module Map_Variables

#Region "Map and Tile Variables!"
    '==================================
    'Map
    '==================================
    Public Structure MapType
        Dim Width As Short
        Dim Height As Short
        Dim Name As String
        Dim MiniMap As Integer
        Dim MiniMapOption As Short
        Dim Tile(,) As TileType
    End Structure

    Public Map As MapType
    '==================================
    'Tiles
    '==================================
    Public Structure TileType
        Dim TileSmall As Integer
        Dim TileSmallExist As Boolean
        Dim TileBig As Integer
        Dim TileBigExist As Boolean
        Dim TileObject As Integer
        Dim TileObjectSet As Integer
        Dim TileObjectExist As Boolean
        Dim TileMapCollision As Boolean
        Dim TileUnitCollisions As Integer
    End Structure
#End Region

#Region "Light Variables"
    Public LightType(1000) As Integer 'Map, Actor, NPC, Player, Magic
    Public LightIndex(1000) As Integer
    Public LightMapCordX(1000) As Integer
    Public LightMapCordY(1000) As Integer
    Public LightExist(1000) As Boolean
    Public LightTotal As Integer
#End Region

End Module