Teleport doesn't fail anymore if opp is faster

P3D/Battle/BattleSystemV2/BattleCalculation.vb

@@ -676,7 +676,7 @@
             Return False
         End Function
 
-        Public Shared Function CanRun(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Boolean
+        Public Shared Function CanRun(ByVal own As Boolean, ByVal BattleScreen As BattleScreen, Optional ByVal IsEscapeMove As Boolean = False) As Boolean
             If BattleScreen.BattleMode = BattleScreen.BattleModes.Safari Then
                 Return True
             End If
@@ -736,6 +736,10 @@
                 Return False
             End If
 
+            If IsEscapeMove = True Then
+                Return True
+            End If
+
             If p.Speed > op.Speed Then
                 Return True
             Else