diff --git a/P3D/Content/Data/Moves/example.dat b/P3D/Content/Data/Moves/example.dat
index 6c486f674..acdad2de1 100644
Binary files a/P3D/Content/Data/Moves/example.dat and b/P3D/Content/Data/Moves/example.dat differ
diff --git a/P3D/Pokemon/Attacks/AttackSpecialFunctions.vb b/P3D/Pokemon/Attacks/AttackSpecialFunctions.vb
index 4c08c39ae..437528dda 100644
--- a/P3D/Pokemon/Attacks/AttackSpecialFunctions.vb
+++ b/P3D/Pokemon/Attacks/AttackSpecialFunctions.vb
@@ -390,6 +390,8 @@
                     End If
 
                     Select Case fMain.ToLower()
+                        Case "flinch"
+                            Flinch(Move, own, BattleScreen, CInt(fSub))
                         Case "randomstatus"
                             Dim chance As Integer = CInt(fSub.GetSplit(0, ","))
                             Dim withoutBadPoison As Boolean = False
@@ -466,6 +468,12 @@
             End If
         End Sub
 
+        Private Shared Sub Flinch(ByVal Move As Attack, ByVal own As Boolean, ByVal BattleScreen As BattleScreen, Chance As Integer)
+            If GetEffectChanceResult(Move, Chance) = True Then
+                BattleScreen.Battle.InflictFlinch(Not own, own, BattleScreen, "", "move:" & Move.Name.ToLower())
+            End If
+        End Sub
+
         Private Shared Sub Paralyze(ByVal Move As Attack, ByVal own As Boolean, ByVal BattleScreen As BattleScreen, Chance As Integer)
             If GetEffectChanceResult(Move, Chance) = True Then
                 If BattleScreen.Battle.InflictParalysis(Not own, own, BattleScreen, "", "move:" & Move.Name.ToLower()) = False Then