actor, player 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 Actor and Player Variables Module ###'
'### http://www.lomcn.co.uk ###' '### Credits to TrueADM and DeathWish ###'

'All variables for Players and Actors. Such as Name, Level, Name Colour, AC, DC, SC etc.

Module Actor_Player_Variables

    Public Actor As ActorType
    Public Player(1000) As PlayerType
    Public TotalPlayer As Integer
    Public TempPlayerDirection As Integer
    Public Const PI As Single = 3.14159265358979
    Public InventoryItem(7, 4) As ItemType

#Region "Actor Variables - Yourself!"
    Public Structure ActorType

        Dim GhostForm As Boolean

        Dim ServerID As Integer
        Dim Name As String
        Dim NameColour As Short
        Dim Level As Short
        Dim GameClass As Byte
        Dim Gender As Genders
        Dim Hair As Byte
        Dim Guild As String
        Dim GuildRankNumber As Integer
        Dim GuildRankName As String
        Dim Gold As Long

        Dim MapName As String
        Dim MapFileName As String
        Dim MapLight As Byte
        Dim CurrentX, CurrentY As Single
        Dim LastX, LastY As Short
        Dim LastDirection As Byte
        Dim Light As Byte

        Dim HP, MaxHP As Integer
        Dim MP, MaxMP As Integer
        Dim AC, MaxAC As Integer
        Dim AMC, MaxAMC As Integer
        Dim DC, MaxDC As Integer
        Dim MC, MaxMC As Integer
        Dim SC, MaxSC As Integer
        Dim Accuracy As Integer
        Dim Agility As Integer
        Dim Speed As Integer
        Dim Holy As Integer
        Dim Curse, Luck As Integer
        Dim MPRecovery, HPRecovery As Integer
        Dim AntiMagic, AntiPoison As Integer
        Dim PoisonRecovery As Integer
        Dim PKPoint As Integer

        Dim Experience As Long
        Dim MaxExperience As Long

        Dim Weight, MaxWeight As Integer
        Dim WearWeight, MaxWearWeight As Integer
        Dim HandWeight, MaxHandWeight As Integer

        Dim CurrentHeight As Integer
        Dim CurrentWidth As Integer
        Dim MainHeight As Integer
        Dim MainWidth As Integer
        Dim MainLeft As Integer
        Dim MainTop As Integer
        Dim MainPlaceX As Integer
        Dim MainPlaceY As Integer

        Dim AttackMode As AttackModes
        Dim AllowGroup As Boolean
        Dim AllowGroupRecall As Boolean
        Dim HealthBarOpen As Boolean
        Dim IsDead As Boolean
        Dim Status As Integer

        '### This is special effect ###'
        Dim MagicShieldEffect As Boolean

        '### Chat Info ###'
        Dim MsgingPlayer As String


        Dim MagicShieldEffectAnimation As Integer

        Dim CastDirection As Integer
        Dim LockDirection As Boolean

        Dim ShadowImage As Integer
        Dim ShadowX As Integer
        Dim ShadowY As Integer

        Dim AttackTick As Long
        Dim MoveTick As Long
        Dim StackMoveTick As Long

        'movement
        Public MoveType As Integer
        Public Direction As Byte
        Public X, Y As Short

        'Animation
        Dim ActionLook As Integer
        Dim ActionState As Integer
        Dim Stance As Integer
        Dim StanceTick As Long

        Dim Animation As Integer
        Dim AnimationLastTick As Long
        Dim AnimationLastOn As Boolean

        Dim InventoryItems As Short

        Dim MoveSpeed As Integer
        Dim AttackSpeed As Integer

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

        Dim EquipItem() As ItemType
        Dim TempItem As ItemType
        Dim BeltItem() As ItemType

        Public PlayerSkill() As SkillType

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

            ReDim EquipItem(13)
            ReDim BeltItem(7)

            ReDim PlayerSkill(29)
        End Sub

    End Structure
#End Region

#Region "Player Variables - Other Players!"
    Public Structure PlayerType

        Public ServerID As Integer


        Public Name As String
        Public NameColour As Short
        Public Dir As Byte
        Public Gender As Genders
        Public Hair As Byte
        Public Guild As String
        Public GuildTitle As String
        Public GuildRankNumber As Integer

        Public MainHeight As Integer
        Public MainWidth As Integer
        Public CurrentHeight As Integer
        Public CurrentWidth As Integer
        Public MainLeft As Integer
        Public MainTop As Integer
        Public MainPlaceX As Integer
        Public MainPlaceY As Integer

        Public X, Y As Short
        Public LastX, LastY As Short
        Public CurrentX, CurrentY As Single
        Public Light As Byte 'Candle
        Public LightIndex As Integer

        Public HP, MaxHP As Integer
        Public MP, MaxMP As Integer

        Public HealthBarOpen As Boolean
        Public IsDead As Boolean

        Public Status As Integer
        Public MagicShieldEffect As Boolean
        Public MagicShieldEffectAnimation As Integer

        Public CastDirection As Integer
        Public LockDirection As Boolean

        Public Stance As Short

        Public MoveType As Integer

        Public StackDirection() As Short
        Public StackCordX() As Short
        Public StackUseSound() As Boolean
        Public StackCordY() As Short
        Public StackMoveType() As Short
        Public StackActionType() As PlayerActionType
        Public StackExist() As Boolean
        Public StackItems As Short

        Public EquipItem() As ItemType

        Public Sub Initialize()
            ReDim EquipItem(13)
            ReDim StackDirection(35)
            ReDim StackUseSound(35)
            ReDim StackCordX(35)
            ReDim StackCordY(35)
            ReDim StackMoveType(35)
            ReDim StackExist(135)
            ReDim StackActionType(35)
        End Sub

        'Animation
        Public ActionLook As Integer
        Public LastActionTick As Long
        Public LastNextActionTick As Long
        Public ActionState As Integer

        Public Animation As Integer
        Public StanceTick As Long

        Public Exist As Boolean

    End Structure
#End Region

End Module