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

'This is loaded early on to load the image files, load the buttons, load the textboxes etc.
'We also set the default variables here if we are running the client in debug mode (offline mode).
'All button, textboxes and window settings are in here aswell.

Module Defaults

    Public Sub LoadDefaults()
        DebugMode = True

        Dim I As Byte

        LoadPalette() 'Load The Legend of MiR Palette
        LoadWIXWeaponFile() 'Load Weapon.wil and Weapon.wix
        LoadWIXHumFile() 'Load Human.wil and Human.wix
        LoadWIXTilesFile() 'Load Tiles.wil and Tiles.wix
        LoadWIXSmTilesFile() 'Load SmTiles.wil and SmTiles.wix
        LoadWIXNPCFile() 'Load NPC.wil and NPC.wix
        LoadWIXHairFile() 'Load Hair.wil and Hair.wix
        LoadWIXInterfaceFile() 'Load PrgUse.wil and PrgUse.wix (Interface)
        LoadWIXMinimapFile() 'Load minimap .wil and .wix (mmap)
        LoadWIXHumEffectFile() 'Load HumEffect .wil and HumEffect .wix
        LoadWIXDnItemsFile()
        LoadWIXItemsFile()

        'Load Objects 1-10.wil and Objects 1-10.wix
        For I = 1 To 10
            LoadWIXObjectsFile(I)
        Next I

        'Load Monster 1-24.wil and Monster 1-24.wix
        For I = 0 To 24
            LoadWIXMonFile(I)
        Next I

        For I = 1 To 2
            LoadWIXMagicFile(I)
        Next I

        LoadButtons()
        LoadTextBoxes()
        LoadWindows()

        SoundOn = False
        MusicOn = False

        GameWidth = 800
        GameHeight = 650

        Actor.Initialize()
        Mob.Initialize()

        Actor.AttackSpeed = 0
        AddLight(0, 0, 0)

        Map.MiniMap = 100
        Map.MiniMapOption = 0

        Actor.MapFileName = "0"
        Actor.MoveSpeed = 700

        QueueLoadMap = True

        Scene = SceneType.LOGIN

    End Sub

    Public Sub LoadWindows()

        'Message Box
        Window(1).Exist = True
        Window(1).Show = False
        Window(1).Image = 16
        Window(1).Width = 400
        Window(1).Height = 103
        Window(1).Fade = 0.8
        Window(1).X = 204
        Window(1).Y = 425

        'Account Create Window
        Window(2).Exist = True
        Window(2).Show = False
        Window(2).Image = 11
        Window(2).Width = 530
        Window(2).Height = 362
        Window(2).Fade = 0.8
        Window(2).X = 142
        Window(2).Y = 58

        'Character Select Window
        Window(3).Exist = True
        Window(3).Show = False
        Window(3).Image = 11
        Window(3).Width = 531
        Window(3).Height = 362
        Window(3).Fade = 0.8
        Window(3).X = 142
        Window(3).Y = 58

        'Character Create Window
        Window(4).Exist = True
        Window(4).Show = False
        Window(4).Image = 27
        Window(4).Width = 531
        Window(4).Height = 362
        Window(4).Fade = 1
        Window(4).X = 140
        Window(4).Y = 57

        'NPC Chat Window
        Window(5).Exist = True
        Window(5).Show = False
        Window(5).Image = 15
        Window(5).Width = 432
        Window(5).Height = 208
        Window(5).Fade = 1
        Window(5).X = 5
        Window(5).Y = 5

        'Inventory Window
        Window(6).Exist = True
        Window(6).Show = False
        Window(6).Image = 28
        Window(6).Width = 348
        Window(6).Height = 279
        Window(6).Fade = 1
        Window(6).X = 5
        Window(6).Y = 5

        'Guild Window
        Window(7).Exist = True
        Window(7).Show = False
        Window(7).Image = 29
        Window(7).Width = 640
        Window(7).Height = 471
        Window(7).Fade = 1
        Window(7).X = 5
        Window(7).Y = 5

        'Game Messagebox Window
        Window(8).Exist = True
        Window(8).Show = False
        Window(8).Image = 66
        Window(8).Width = 496
        Window(8).Height = 217
        Window(8).Fade = 1
        Window(8).X = 152
        Window(8).Y = 191


    End Sub


    Public Sub LoadButtons()

        'Close Game Button
        Button(0).Show = True
        Button(0).Image = 3
        Button(0).Scene = SceneType.LOGIN
        Button(0).X = 770
        Button(0).Y = 3
        Button(0).Width = 27
        Button(0).Height = 21
        Button(0).Text = ""
        Button(0).Font = 1
        Button(0).Enabled = True
        Button(0).HoverColour = Color.FromArgb(4, 174, 255)

        'Create New Account Button
        Button(1).Show = True
        Button(1).Image = 5
        Button(1).Scene = SceneType.LOGIN
        Button(1).X = 7
        Button(1).Y = 543
        Button(1).Width = 135
        Button(1).Height = 14
        Button(1).Text = ""
        Button(1).Font = 1
        Button(1).Enabled = True
        Button(1).HoverColour = Color.FromArgb(4, 174, 255)

        'Change Account Password Button
        Button(2).Show = True
        Button(2).Image = 7
        Button(2).Scene = SceneType.LOGIN
        Button(2).X = 174
        Button(2).Y = 690
        Button(2).Width = 139
        Button(2).Height = 25
        Button(2).Text = ""
        Button(2).Font = 1
        Button(2).Enabled = True
        Button(2).HoverColour = Color.FromArgb(4, 174, 255)

        'Login Button
        Button(3).Show = True
        Button(3).Image = 9
        Button(3).Scene = SceneType.LOGIN
        Button(3).X = 686
        Button(3).Y = 545
        Button(3).Width = 104
        Button(3).Height = 13
        Button(3).Text = ""
        Button(3).Font = 1
        Button(3).Enabled = True
        Button(3).HoverColour = Color.FromArgb(4, 174, 255)

        'Close Account Create Window
        Button(4).Show = True
        Button(4).Image = 12
        Button(4).Scene = SceneType.LOGIN
        Button(4).X = 398
        Button(4).Y = 345
        Button(4).Width = 166
        Button(4).Height = 22
        Button(4).Text = ""
        Button(4).Font = 1
        Button(4).Enabled = True
        Button(4).HoverColour = Color.FromArgb(4, 174, 255)

        'Create New Account
        Button(5).Show = True
        Button(5).Image = 14
        Button(5).Scene = SceneType.LOGIN
        Button(5).X = 290
        Button(5).Y = 345
        Button(5).Width = 97
        Button(5).Height = 21
        Button(5).Text = ""
        Button(5).Font = 1
        Button(5).Enabled = True
        Button(5).HoverColour = Color.FromArgb(4, 174, 255)

        'Close MessageBox Button
        Button(6).Show = True
        Button(6).Image = 17
        Button(6).Scene = SceneType.LOGIN
        Button(6).X = 0
        Button(6).Y = 0
        Button(6).Width = 33
        Button(6).Height = 34
        Button(6).Text = ""
        Button(6).Font = 1
        Button(6).Enabled = True
        Button(6).HoverColour = Color.FromArgb(4, 174, 255)

        'Create New Character Button
        Button(7).Show = True
        Button(7).Image = 25
        Button(7).Scene = SceneType.LOGIN
        Button(7).X = 10
        Button(7).Y = 539
        Button(7).Width = 88
        Button(7).Height = 19
        Button(7).Text = ""
        Button(7).Font = 1
        Button(7).Enabled = True
        Button(7).HoverColour = Color.FromArgb(4, 174, 255)

        'Warrior Tickbox
        Button(8).Show = True
        Button(8).Image = 29
        Button(8).Scene = SceneType.LOGIN
        Button(8).X = 415
        Button(8).Y = 173
        Button(8).Width = 38
        Button(8).Height = 38
        Button(8).Text = ""
        Button(8).Font = 1
        Button(8).Enabled = True
        Button(8).HoverColour = Color.FromArgb(4, 174, 255)

        'Wizard Tickbox
        Button(9).Show = True
        Button(9).Image = 29
        Button(9).Scene = SceneType.LOGIN
        Button(9).X = 415
        Button(9).Y = 217
        Button(9).Width = 38
        Button(9).Height = 38
        Button(9).Text = ""
        Button(9).Font = 1
        Button(9).Enabled = True
        Button(9).HoverColour = Color.FromArgb(4, 174, 255)

        'Taoist Tickbox
        Button(10).Show = True
        Button(10).Image = 29
        Button(10).Scene = SceneType.LOGIN
        Button(10).X = 415
        Button(10).Y = 264
        Button(10).Width = 38
        Button(10).Height = 38
        Button(10).Text = ""
        Button(10).Font = 1
        Button(10).Enabled = True
        Button(10).HoverColour = Color.FromArgb(4, 174, 255)

        'Male Tickbox
        Button(11).Show = True
        Button(11).Image = 29
        Button(11).Scene = SceneType.LOGIN
        Button(11).X = 538
        Button(11).Y = 193
        Button(11).Width = 38
        Button(11).Height = 38
        Button(11).Text = ""
        Button(11).Font = 1
        Button(11).Enabled = True
        Button(11).HoverColour = Color.FromArgb(4, 174, 255)

        'Female Tickbox
        Button(12).Show = True
        Button(12).Image = 29
        Button(12).Scene = SceneType.LOGIN
        Button(12).X = 538
        Button(12).Y = 251
        Button(12).Width = 38
        Button(12).Height = 38
        Button(12).Text = ""
        Button(12).Font = 1
        Button(12).Enabled = True
        Button(12).HoverColour = Color.FromArgb(4, 174, 255)

        'Play First Character Male Warrior
        Button(13).Show = True
        Button(13).Image = 32
        Button(13).Scene = SceneType.LOGIN