[ALL]Andar com mouse, corrigido teleporte nas bordas.

Código:

If KeyCode = vbKeyShift Then
                ShiftDown = True
            End If
        End If
    End If
End If
End Sub

Código:

If KeyCode = vbKeyShift Then
                ShiftDown = True
            End If
        Else
            If KeyCode = vbKeyUp Then
                XToGo = -1
                YToGo = -1
            End If
            If KeyCode = vbKeyDown Then
                XToGo = -1
                YToGo = -1
            End If
            If KeyCode = vbKeyLeft Then
                XToGo = -1
                YToGo = -1
            End If
            If KeyCode = vbKeyRight Then
                XToGo = -1
                YToGo = -1
            End If
            If KeyCode = vbKeyShift Then ShiftDown = False
            If KeyCode = vbKeyControl Then ControlDown = False
        End If
    End If
End Sub

Código:

XToGo = -1
    YToGo = -1

Código:

' Blit the backbuffer
            Call DD_PrimarySurf.Blt(rec_pos, DD_BackBuffer, rec, DDBLT_WAIT)

Código:

If XToGo <> -1 Or YToGo <> -1 Then
            Dim XDif As Long
            Dim YDif As Long
         
            XDif = Abs(GetPlayerX(MyIndex) - XToGo)
            YDif = Abs(GetPlayerY(MyIndex) - YToGo)
         
            If XToGo = GetPlayerX(MyIndex) Or XToGo = -1 Then
                XToGo = -1
                XDif = 0
            Else
                XDif = Abs(GetPlayerX(MyIndex) - XToGo)
            End If
         
            If YToGo = GetPlayerY(MyIndex) Or YToGo = -1 Then
                YToGo = -1
                YDif = 0
            Else
                YDif = Abs(GetPlayerY(MyIndex) - YToGo)
            End If
         
            Debug.Print (XDif & " " & YDif)
         
            If XDif > YDif Then
                If GetPlayerX(MyIndex) - XToGo > 0 Then
                    DirLeft = True
                Else
                    DirRight = True
                End If
            End If
         
            If YDif > XDif Then
                If GetPlayerY(MyIndex) - YToGo > 0 Then
                    DirUp = True
                Else
                    DirDown = True
                End If
            End If
         
            If XDif = YDif And XDif <> 0 And YDif <> 0 Then
                ' I'll be nice and give you the non-directional movement code
                'If Int(Rnd * 2) = 0 Then
                If GetPlayerX(MyIndex) - XToGo > 0 Then
                    DirLeft = True
                Else
                    DirRight = True
                End If
                ' Else
                If GetPlayerY(MyIndex) - YToGo > 0 Then
                    DirUp = True
                Else
                    DirDown = True
                End If
                'End If
            End If
        End If

Código:

  If Button = 1 Then
        XToGo = (X + (NewPlayerX * PIC_X)) / PIC_X
        YToGo = (y + (NewPlayerY * PIC_Y)) / PIC_Y
        End If
     
        If Button = 2 Then
        AttackSpeed = 1000
            If Player(MyIndex).AttackTimer + AttackSpeed < GetTickCount Then
                If Player(MyIndex).Attacking = 0 Then
                    Player(MyIndex).Attacking = 1
                    Player(MyIndex).AttackTimer = GetTickCount
                    Call SendData("attack" & END_CHAR)
                End If
            End If
        End If

Código:

    Dim AttackSpeed As Long

Spoiler:

Rai Tavares escreveu:Agora adicione essas 2 novas funções publicas no modConstants

Código:


Public XToGo As Long
Public YToGo As Long

Que maravilha, achei que nunca ia ter a oportunidade que te ajudar em algo

Public XToGo As Long
Public YToGo As Long

XToGo As Long
YToGo As Long