Olá Pessoal estou retornando ao fórum, vim trazer um código simples mais eficaz para ajuda a proteger seu projeto!!!
ANTI-SPEED HACKER
APENAS SERVER!
Vá ao ModTypes e na Type AccountRec, no final antes do End Type adicione:
- Código:
-
MoveInterval As Long
Agora vá ao ModServerTCP e procure por:
- Código:
-
Case "playermove"
No lugar de Call PlayerMove(Index, Dir, Movement) coloque:
- Código:
-
If Player(Index).MoveInterval >= 10 Then
Player(Index).MoveInterval = 0
Call PlayerMove(Index, Dir, Movement)
Else
Call HackingAttempt(Index, "Speed hack")
End If
Agora na frmServer adicione um timer com interval 10, coloque esté código:
- Código:
-
Dim i As Long
For i = 1 To MAX_PLAYERS
If IsPlaying(i) Then
Player(i).MoveInterval = Player(i).MoveInterval + 1
End If
Next i
Fim, qualquer problema me contate.
Atenção: de uma olhada no seu cliente e verifique se os valores das contantes RUN_SPEED e WALK_SPEED sejam:
- Código:
-
RUN_SPEED = 8
WALK_SPEED = 4