monster variables.vb.svn-base

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

Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D

Module Monster_Variables

    Public LastMobStandTick As Long
    Public LastMobMoveTick As Long
    Public LastMobStunTick As Long
    Public LastMobAttackTick As Long
    Public LastMobDieTick As Long
    Public MobTexture(100000) As Texture
    Public MobTextureLoaded(100000) As Boolean

    Public TotalMob As Integer
    Public Mob(1000) As MobType
    Public MobGameIndex(100000) As Integer

    Public Structure MobType

        Dim Name As String
        Dim CordX As Single
        Dim CordY As Single
        Dim X As Integer
        Dim Y As Integer
        Dim ServerIndex As Integer
        Dim ActionLook As Short
        Dim Look As Short
        Dim File As Short
        Dim Direction As Short
        Dim Exist As Boolean
        Dim LightIndex As Integer
        Dim Animation As Integer
        Dim MainLeft As Integer
        Dim MainTop As Integer
        Dim MainWidth As Integer
        Dim MainHeight As Integer
        Dim CurrentWidth As Integer
        Dim CurrentHeight As Integer
        Dim MainPlaceX As Integer
        Dim MainPlaceY As Integer

        Dim OwnerName As String

        Dim HP As Integer
        Dim MP As Integer
        Dim MaxHP As Integer
        Dim Status As Integer
        Dim ActionState As Integer

        Dim IsDead As Boolean
        Dim IsPet As Boolean
        Dim IsReved As Boolean

        Dim StackDirection() As Short
        Dim StackCordX() As Short
        Dim StackCordY() As Short
        Dim StackActionType() As PlayerActionType
        Dim StackExist() As Boolean
        Dim StackItems As Short

        Public Sub Initialize()
            ReDim StackDirection(35)
            ReDim StackCordX(35)
            ReDim StackCordY(35)
            ReDim StackActionType(35)
            ReDim StackExist(35)
        End Sub

    End Structure

End Module