Alguém tem algum tópico caso não tenha encontrado ou pode me ajudar ? Quando distribuímos muitos pontos em um stats o player começa ficar muito " apelão ", queria diminuir apelação da agilidade, meu herói virou o goku despertando o instinto superior... Esquiva de tudo, desde ja grato !.

Código:

Public Function CanPlayerDodge(ByVal index As Long) As Boolean
Dim rate As Long
Dim rndNum As Long

    CanPlayerDodge = False

    rate = GetPlayerStat(index, Agility) / 83.3
    rndNum = RAND(1, 100)
   
    If rndNum <= rate Then
        CanPlayerDodge = True
    End If
   
End Function

Aumente o valor para a divisão da agilidade de 83.3 para o valor que você quiser e faça os testes.