game.vb.svn-base

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

Public Class Game

    Private Sub Game_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Running = False
        Socket.Disconnect()
    End Sub

    Private Sub Game_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'MsgBox(e.KeyCode) 'Debug Code

        If e.KeyCode = 16 Then
            ShiftDown = True
        ElseIf e.KeyCode = Keys.Return Then
            ReturnDown = True
        ElseIf e.KeyCode = 17 Then
            CtrlDown = True
        ElseIf e.KeyCode = Keys.Tab Then
            TabDown = True
        ElseIf e.KeyCode = Keys.Left Then
            LeftDown = True
        ElseIf e.KeyCode = Keys.Right Then
            RightDown = True
        ElseIf e.KeyCode = Keys.Delete Then
            DelDown = True
        ElseIf e.KeyCode = Keys.Space Then
            SpaceDown = True
        ElseIf e.KeyCode = Keys.F1 Then
            F1Down = True
        ElseIf e.KeyCode = Keys.F2 Then
            F2Down = True
        ElseIf e.KeyCode = Keys.F3 Then
            F3Down = True
        ElseIf e.KeyCode = Keys.F4 Then
            F4Down = True
        ElseIf e.KeyCode = Keys.F5 Then
            F5Down = True
        ElseIf e.KeyCode = Keys.F6 Then
            F6Down = True
        ElseIf e.KeyCode = Keys.F7 Then
            F7Down = True
        ElseIf e.KeyCode = Keys.F8 Then
            F8Down = True
        ElseIf e.KeyCode = Keys.F9 Then
            F9Down = True
        ElseIf e.KeyCode = Keys.F10 Then
            F10Down = True
        ElseIf e.KeyCode = Keys.F11 Then
            F11Down = True
        ElseIf e.KeyCode = Keys.F12 Then
            F12Down = True
        ElseIf e.KeyCode = Keys.NumPad0 Then
            NumPad0Down = True
        ElseIf e.KeyCode = Keys.NumPad1 Then
            NumPad1Down = True
        ElseIf e.KeyCode = Keys.NumPad2 Then
            NumPad2Down = True
        ElseIf e.KeyCode = Keys.NumPad3 Then
            NumPad3Down = True
        ElseIf e.KeyCode = Keys.NumPad4 Then
            NumPad4Down = True
        ElseIf e.KeyCode = Keys.NumPad5 Then
            NumPad5Down = True
        ElseIf e.KeyCode = Keys.NumPad6 Then
            NumPad6Down = True
        ElseIf e.KeyCode = Keys.NumPad7 Then
            NumPad7Down = True
        ElseIf e.KeyCode = Keys.NumPad8 Then
            NumPad8Down = True
        ElseIf e.KeyCode = Keys.NumPad9 Then
            NumPad9Down = True
        ElseIf e.KeyCode = Keys.D1 Then
            Num1Down = True
        ElseIf e.KeyCode = Keys.D2 Then
            Num2Down = True
        ElseIf e.KeyCode = Keys.D3 Then
            Num3Down = True
        ElseIf e.KeyCode = Keys.D4 Then
            Num4Down = True
        ElseIf e.KeyCode = Keys.D5 Then
            Num5Down = True
        ElseIf e.KeyCode = Keys.D6 Then
            Num6Down = True
        ElseIf e.KeyCode = Keys.D7 Then
            Num7Down = True
        ElseIf e.KeyCode = Keys.D8 Then
            Num8Down = True
        ElseIf e.KeyCode = Keys.D9 Then
            Num9Down = True
        ElseIf e.KeyCode = Keys.D0 Then
            Num0Down = True
        ElseIf e.KeyCode = Keys.C Then
            ' C Key
            CDown = True
        ElseIf e.KeyCode = Keys.I Then
            ' I Key
            IDown = True
        ElseIf e.KeyCode = Keys.V Then
            VDown = True
        ElseIf e.KeyCode = Keys.Q Then
            QDown = True
        ElseIf e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Menu Then
            AltDown = True
        ElseIf e.KeyCode = 191 Then
            '/ Key
            ForwardSlashDown = True
        ElseIf e.KeyCode = 192 Then
            '@ Key
            AtDown = True
        End If

        CheckKeyboardInput()

    End Sub

    Private Sub Game_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Dim KeyAsciis() As Byte
        Dim KeyAscii As Integer

        KeyAsciis = System.Text.Encoding.ASCII.GetBytes(e.KeyChar.ToString)
        KeyAscii = Val(KeyAsciis(0))


        If TextboxSelect = True And Textbox(TextboxSelectIndex).Show = True And Textbox(TextboxSelectIndex).Scene = Scene Then
            If Not ((KeyAscii = 26 Or KeyAscii = 24 Or KeyAscii = 22 Or KeyAscii = 3 Or KeyAscii = 1 Or KeyAscii = 32 Or KeyAscii = 13 Or KeyAscii = 27 Or KeyAscii = 9) Or (KeyAscii = 8 And Not TextboxSelectIndex = 53)) Then
                Textbox(TextboxSelectIndex).Text = Mid(Textbox(TextboxSelectIndex).Text, 1, Textbox(TextboxSelectIndex).TextPointer) & Chr(KeyAscii) & Mid(Textbox(TextboxSelectIndex).Text, Textbox(TextboxSelectIndex).TextPointer + 1, Len(Textbox(TextboxSelectIndex).Text) - Textbox(TextboxSelectIndex).TextPointer)
                Textbox(TextboxSelectIndex).TextPointer = Textbox(TextboxSelectIndex).TextPointer + 1
            ElseIf KeyAscii = 32 And Textbox(TextboxSelectIndex).DisallowSpace = False Then
                Textbox(TextboxSelectIndex).Text = Mid(Textbox(TextboxSelectIndex).Text, 1, Textbox(TextboxSelectIndex).TextPointer) & " " & Mid(Textbox(TextboxSelectIndex).Text, Textbox(TextboxSelectIndex).TextPointer + 1, Len(Textbox(TextboxSelectIndex).Text) - Textbox(TextboxSelectIndex).TextPointer)
                Textbox(TextboxSelectIndex).TextPointer = Textbox(TextboxSelectIndex).TextPointer + 1
            ElseIf KeyAscii = 8 And Not Len(Textbox(TextboxSelectIndex).Text) = 0 And Not Textbox(TextboxSelectIndex).TextPointer = 0 Then
                Textbox(TextboxSelectIndex).Text = Mid(Textbox(TextboxSelectIndex).Text, 1, Textbox(TextboxSelectIndex).TextPointer - 1) & Mid(Textbox(TextboxSelectIndex).Text, Textbox(TextboxSelectIndex).TextPointer + 1, Len(Textbox(TextboxSelectIndex).Text) - Textbox(TextboxSelectIndex).TextPointer)
                Textbox(TextboxSelectIndex).TextPointer = Textbox(TextboxSelectIndex).TextPointer - 1
            End If
        End If
    End Sub

    Private Sub Game_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp

        If e.KeyCode = 16 Then
            ShiftDown = False
        ElseIf e.KeyCode = Keys.Return Then
            ReturnDown = False
        ElseIf e.KeyCode = 17 Then
            CtrlDown = False
        ElseIf e.KeyCode = Keys.Tab Then
            TabDown = False
        ElseIf e.KeyCode = Keys.Left Then
            LeftDown = False
        ElseIf e.KeyCode = Keys.Right Then
            RightDown = False
        ElseIf e.KeyCode = Keys.Delete Then
            DelDown = False
        ElseIf e.KeyCode = Keys.Space Then
            SpaceDown = False
        ElseIf e.KeyCode = Keys.F1 Then
            F1Down = False
        ElseIf e.KeyCode = Keys.F2 Then
            F2Down = False
        ElseIf e.KeyCode = Keys.F3 Then
            F3Down = False
        ElseIf e.KeyCode = Keys.F4 Then
            F4Down = False
        ElseIf e.KeyCode = Keys.F5 Then
            F5Down = False
        ElseIf e.KeyCode = Keys.F6 Then
            F6Down = False
        ElseIf e.KeyCode = Keys.F7 Then
            F7Down = False
        ElseIf e.KeyCode = Keys.F8 Then
            F8Down = False
        ElseIf e.KeyCode = Keys.F9 Then
            F9Down = False
        ElseIf e.KeyCode = Keys.F10 Then
            F10Down = False
        ElseIf e.KeyCode = Keys.F11 Then
            F11Down = False
        ElseIf e.KeyCode = Keys.F12 Then
            F12Down = False
        ElseIf e.KeyCode = Keys.NumPad0 Then
            NumPad0Down = False
        ElseIf e.KeyCode = Keys.NumPad1 Then
            NumPad1Down = False
        ElseIf e.KeyCode = Keys.NumPad2 Then
            NumPad2Down = False
        ElseIf e.KeyCode = Keys.NumPad3 Then
            NumPad3Down = False
        ElseIf e.KeyCode = Keys.NumPad4 Then
            NumPad4Down = False
        ElseIf e.KeyCode = Keys.NumPad5 Then
            NumPad5Down = False
        ElseIf e.KeyCode = Keys.NumPad6 Then
            NumPad6Down = False
        ElseIf e.KeyCode = Keys.NumPad7 Then
            NumPad7Down = False
        ElseIf e.KeyCode = Keys.NumPad8 Then
            NumPad8Down = False
        ElseIf e.KeyCode = Keys.NumPad9 Then
            NumPad9Down = False
        ElseIf e.KeyCode = Keys.D1 Then
            Num1Down = False
        ElseIf e.KeyCode = Keys.D2 Then
            Num2Down = False
        ElseIf e.KeyCode = Keys.D3 Then
            Num3Down = False
        ElseIf e.KeyCode = Keys.D4 Then
            Num4Down = False
        ElseIf e.KeyCode = Keys.D5 Then
            Num5Down = False
        ElseIf e.KeyCode = Keys.D6 Then
            Num6Down = False
        ElseIf e.KeyCode = Keys.D7 Then
            Num7Down = False
        ElseIf e.KeyCode = Keys.D8 Then
            Num8Down = False
        ElseIf e.KeyCode = Keys.D9 Then
            Num9Down = False
        ElseIf e.KeyCode = Keys.D0 Then
            Num0Down = False
        ElseIf e.KeyCode = Keys.C Then
            ' C Key
            CDown = False
        ElseIf e.KeyCode = Keys.I Then
            ' I Key
            IDown = True
        ElseIf e.KeyCode = Keys.V Then
            VDown = False
        ElseIf e.KeyCode = Keys.Q Then
            QDown = False
        ElseIf e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Menu Then
            AltDown = False
        ElseIf e.KeyCode = 191 Then
            '/ Key
            ForwardSlashDown = False
        ElseIf e.KeyCode = 192 Then
            '@ Key
            AtDown = False
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.SetStyle(ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True)

        WindowX = Me.Left
        WindowY = Me.Top

        If PresentMode = 1 Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            'WindowY = WindowY + 20
        End If

        'Try

        LoadDefaults()

        'Cursor.Hide()
        Initialize(Me)
        InitalizeSound(Me)

        If Scene = SceneType.LOGIN Then

            ConnectionState.Show = True
            ConnectionState.Tick = DateTime.Now.Ticks
            ConnectionState.Text = "Connecting To Login Server."

            Socket.RemoteHost = ServerIP
            Socket.RemotePort = ServerPort
            Socket.Connect()

            TextboxSelect = True
            TextboxSelectIndex = 0

        Else
            LoadMap()

        End If

        Me.Show()
        Me.Activate()

        'Catch es As System.Exception
        'MsgBox(es.Message & es.StackTrace)

        'End Try

        GameLoop()

    End Sub

    Private Sub Game_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        CheckMouseClick()
        MouseEvents = e
    End Sub

    Private Sub Game_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        IsMouseDown = True
        MouseEvents = e
    End Sub

    Private Sub Game_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        CheckMouseHover()
    End Sub

    Private Sub Game_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        IsMouseDown = False
        WindowDrag = False
        MouseEvents = e
    End Sub

    Private Sub SmallFogTimer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmallFogTimer1.Tick

        MistX += 2 + Rnd() * 3

        ' Wrap around.
        If MistX > Me.Width Then MistX = -128


    End Sub

    Private Sub SmallFogTimer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmallFogTimer2.Tick

        MistX2 += 2 + Rnd() * 2
        MistY2 = 5 + Rnd() * 3

        ' Wrap around.
        If MistX2 > Me.Width Then MistX2 = -128
        If MistY2 > Me.Width Then MistY2 = -128

    End Sub

    Private Sub SnowTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SnowTimer.Tick
        SnowX += 2 + Rnd() * 2
        SnowY += 2 + Rnd() * 2

        ' Wrap around.
        If SnowX > Me.Width Then SnowX = -5
        If SnowY > Me.Width Then SnowY = -5
    End Sub

    Private Sub SnowTimer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SnowTimer1.Tick
        SnowX2 += 2 + Rnd() * 4
        SnowY2 += 2 + Rnd() * 6

        ' Wrap around.
        If SnowX2 > Me.Width Then SnowX2 = -5
        If SnowY2 > Me.Width Then SnowY2 = -5
    End Sub
End Class