Dodge, Parry, And Crit Rates

Crit, Dodge, and Parry Rates
Here are the formulas, or equations for the Crit, Dodge, and Parry rates in EOO.

Crit Rates
Public Function CanPlayerCrit(ByVal index As Long) As Boolean Dim rate As Long Dim rndNum As Long      CanPlayerCrit = False      rate = GetPlayerStat(index, Agility) / 52.08          If Player(index).Allegiance = 2 Then     rate = rate * 1.1     End If          If Player(index).Class = 3 Then     rate = rate * 1.1     End If          rndNum = rand(1, 100)               If rndNum <= rate Then         CanPlayerCrit = True     End If End Function

Dodge Rate
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

Parry Rate
Public Function CanPlayerParry(ByVal index As Long) As Boolean Dim rate As Long Dim rndNum As Long      CanPlayerParry = False          If GetPlayerStat(index, strength) >= 200 Then     rate = GetPlayerStat(index, strength) * 0.001 + 50     Else     rate = GetPlayerStat(index, strength) * 0.25     End If          If Player(index).Allegiance = 1 Then     rate = rate * 1.1     End If          rndNum = rand(1, 100)      If rndNum <= rate Then         CanPlayerParry = True     End If End Function