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

'These are still here becuase we have not moved them into the right variables documents located under (Variables, Globals Folder).
'They will move later on.

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 Variables

    '==================================
    'Game Global
    '==================================
    Public Version As String = "20051201"
    Public DebugMode As Boolean = False
    Public Scene As SceneType
    Public MaxBagItems As Integer = 47
    Public GoldName As String = "Gold"
    Public UseServerWalk As Boolean

    Public MessageBoxText As String
    Public MessageBoxTitle As String
    Public PlayerGameIndex(10000) As Integer
    Public PlayerTempName As Integer

    Public Enum SceneType
        GAME = 0
        SEL_CHAR = 1
        LOGIN = 2
    End Enum

    '==================================
    'Queue Commands
    '==================================
    Public QueueLoadMap As Boolean



    '==================================
    'Game
    '==================================
    Public ChatOn As Boolean
    Public WhisperTarget As String
    Public RemoveSlash As Boolean
    Public MoveAllow As MoveAllowType
    Public ChatShowTick As Long
    Public WorldObjectSelect As Boolean
    Public WorldObjectSelectIndex As Integer

    Public Enum MoveAllowType
        WAITING = 0
        PASS = 1
        FAIL = 2
    End Enum

    '==================================
    'Login Menu
    '==================================
    ' Public ServerName As String = "Test"
    Public Username As String
    Public Password As String
    Public Cert As String
    Public LoginStage As LoginStageType
    Public ConnectionState As MessageType
    Public Notice As String

    '==================================
    'Character Selection
    '==================================
    Public Character(1) As CharacterSelection
    Public CharacterCount As Integer

    Public Structure CharacterSelection
        Public Name As String
        Public Job As Integer
        Public Hair As Integer
        Public Level As Integer
        Public Gender As Integer
    End Structure

    Public Enum LoginStageType
        LOGIN = 0
        SERVER_SEL = 1
        CHAR_SEL = 3
        LOAD_GAME = 4
        NOTICE = 5
    End Enum

    Public Enum ActionSound
        s_walk_ground_l = 1
        s_walk_ground_r = 2
        s_run_ground_l = 3
        s_run_ground_r = 4
        s_walk_stone_l = 5
        s_walk_stone_r = 6
        s_run_stone_l = 7
        s_run_stone_r = 8
        s_walk_lawn_l = 9
        s_walk_lawn_r = 10
        s_run_lawn_l = 11
        s_run_lawn_r = 12
        s_walk_rough_l = 13
        s_walk_rough_r = 14
        s_run_rough_l = 15
        s_run_rough_r = 16
        s_walk_wood_l = 17
        s_walk_wood_r = 18
        s_run_wood_l = 19
        s_run_wood_r = 20
        s_walk_cave_l = 21
        s_walk_cave_r = 22
        s_run_cave_l = 23
        s_run_cave_r = 24
        s_walk_room_l = 25
        s_walk_room_r = 26
        s_run_room_l = 27
        s_run_room_r = 28
        s_walk_water_l = 29
        s_walk_water_r = 30
        s_run_water_l = 31
        s_run_water_r = 32

        s_hit_short = 50
        s_hit_wooden = 51
        s_hit_sword = 52
        s_hit_do = 53
        s_hit_axe = 54
        s_hit_club = 55
        s_hit_long = 56
        s_hit_fist = 57

        s_struck_short = 60
        s_struck_wooden = 61
        s_struck_sword = 62
        s_struck_do = 63
        s_struck_axe = 64
        s_struck_club = 65

        s_struck_body_sword = 70
        s_struck_body_axe = 71
        s_struck_body_longstick = 72
        s_struck_body_fist = 73

        s_struck_armor_sword = 80
        s_struck_armor_axe = 81
        s_struck_armor_longstick = 82
        s_struck_armor_fist = 83
    End Enum

    Public Enum RaceList
        RCC_MERCHANT = 50
        RCC_GUARD = 12
        RCC_USERHUMAN = 0
    End Enum

    Public Structure MessageType
        Dim Show As Boolean
        Dim Text As String
        Dim Tick As Long
    End Structure

    '==================================
    'Chat Type
    '==================================
    Public ChatPointer As Short
    Public Chat As ChatType

    Public Structure ChatType
        Dim Text() As String
        Dim TextColour() As Byte
        Dim TextColour2() As Byte

        Public Sub Initialize()
            ReDim Text(100)
            ReDim TextColour(100)
            ReDim TextColour2(100)
        End Sub

    End Structure

    '============================
    'Input
    '============================

    Public SelectCordX As Integer
    Public SelectCordY As Integer
    Public MouseEvents As System.Windows.Forms.MouseEventArgs
    Public IsMouseDown As Boolean

    'Keyboard

    Public KeyboardTick As Long

    Public ReturnDown As Boolean
    Public TabDown As Boolean
    Public ShiftDown As Boolean
    Public SpaceDown As Boolean
    Public CtrlDown As Boolean
    Public DelDown As Boolean
    Public LeftDown As Boolean
    Public RightDown As Boolean
    Public F1Down As Boolean
    Public F2Down As Boolean
    Public F3Down As Boolean
    Public F4Down As Boolean
    Public F5Down As Boolean
    Public F6Down As Boolean
    Public F7Down As Boolean
    Public F8Down As Boolean
    Public F9Down As Boolean
    Public F10Down As Boolean
    Public F11Down As Boolean
    Public F12Down As Boolean
    Public Num1Down As Boolean
    Public Num2Down As Boolean
    Public Num3Down As Boolean
    Public Num4Down As Boolean
    Public Num5Down As Boolean
    Public Num6Down As Boolean
    Public Num7Down As Boolean
    Public Num8Down As Boolean
    Public Num9Down As Boolean
    Public Num0Down As Boolean
    Public NumPad0Down As Boolean
    Public NumPad1Down As Boolean
    Public NumPad2Down As Boolean
    Public NumPad3Down As Boolean
    Public NumPad4Down As Boolean
    Public NumPad5Down As Boolean
    Public NumPad6Down As Boolean
    Public NumPad7Down As Boolean
    Public NumPad8Down As Boolean
    Public NumPad9Down As Boolean
    Public ForwardSlashDown As Boolean
    Public AtDown As Boolean

    Public CDown As Boolean
    Public IDown As Boolean
    Public VDown As Boolean
    Public AltDown As Boolean
    Public QDown As Boolean

    '============================
    'WorldObject Variables
    '============================
    Public WorldObjectAnimateBusy As Boolean
    Public WorldObject(1000) As WorldObjectType

    Public Structure WorldObjectType
        Dim Hair As Integer
        Dim Gender As Byte
        Dim Weapon As Integer
        'Dim Animation As AnimationEnum
        Dim Exist As Boolean
        Dim ServerID As String
        Dim X As Integer
        Dim Y As Integer
        Dim Direction As Byte
        Dim Light As Integer
        Dim Name As String
        Dim NameColour As Byte
        Dim Race As RaceList
        Dim Look As Integer
        Dim DrawX As Short
        Dim DrawY As Short
        Dim Frame As Byte
        Dim Tick As Long
        Dim ShiftX As Single
        Dim ShiftY As Single
        Dim NextX As Short
        Dim NextY As Short
        Dim LastX As Short
        Dim LastY As Short
        Dim Dead As Boolean
        Dim Attacker As String
        Dim HealthBarOpen As Boolean

        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 ActionState As Integer
        Dim Stance As Integer
        Dim StanceTick As Long

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

        Dim ActionLook As Integer

        Dim MoveType As Integer
        Dim Dir As Byte
        'Dim X, Y As Short

        Public ShadowImage As Integer
        Public ShadowX As Integer
        Public ShadowY As Integer

        Dim EquipItem() As ItemType

        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

        'Stack
        Dim Stack() As Boolean
        'Dim StackAnimation() As AnimationEnum
        'Dim StackDirection() As Integer
        Dim StackAttacker() As String
        Dim StackNextX() As Short
        Dim StackNextY() As Short
        Dim StackLight() As Integer

        Dim LastMoveTick As Long
        Dim LastAttackTick As Long
        'Dim LastMoveAnimation As AnimationEnum

        Public Sub Initialize()
            ReDim Stack(12)
            'ReDim StackAnimation(12)
            ReDim StackDirection(12)
            ReDim StackAttacker(12)
            ReDim StackNextX(12)
            ReDim StackNextY(12)
            ReDim StackLight(12)
        End Sub
    End Structure


    Public Structure AnimationType
        Dim Tick As Long
        Dim Frame As Byte
        Dim ExtraFame As Byte
        Dim LastDir As Byte
        'Dim LastType As AnimationEnum
        'Dim Type As AnimationEnum
    End Structure

    Public Structure StdItem
        Dim Name As String
        Dim StdMode As Byte
        Dim Shape As Byte
        Dim Weight As Byte
        Dim AniCount As Byte
        Dim Source As Short
        Dim Reserved As Byte
        Dim NeedIdentify As Byte
        Dim Looks As Integer
        Dim MaxDuration As Integer
        Dim AC As Integer
        Dim MAC As Integer
        Dim DC As Integer
        Dim MC As Integer
        Dim SC As Integer
        Dim NeedType As Integer
        Dim NeedLevel As Integer
        Dim Price As Integer
        Dim Poison As Integer
        Dim PoisonAvoid As Integer
        Dim SlowDown As Integer
        Dim MagicAvoid As Integer
        Dim HPAddition As Integer
        Dim MPAddition As Integer
        Dim Value() As Byte
    End Structure

    Public Structure ClientItem
        Dim S As StdItem
        Dim MakeIndex As Integer
        Dim Duration As Integer
        Dim MaxDuration As Integer
    End Structure

    'Message Box
    Public HeaderText As String
    Public InfoBoxText1 As String
    Public InfoBoxText2 As String
    Public InfoBoxText3 As String
    Public Line1Text As String
    Public Line2Text As String
    Public Line3Text As String
    Public EndResult As Integer

    '==================================
    'Items
    '==================================

End Module