diff --git a/P3D/Content/Sounds/Battle/Attacks/Normal/Leer.wav b/P3D/Content/Sounds/Battle/Attacks/Normal/Leer.wav
new file mode 100644
index 000000000..1c7de250a
Binary files /dev/null and b/P3D/Content/Sounds/Battle/Attacks/Normal/Leer.wav differ
diff --git a/P3D/Content/Textures/Battle/Normal/Leer.png b/P3D/Content/Textures/Battle/Normal/Leer.png
new file mode 100644
index 000000000..7688035db
Binary files /dev/null and b/P3D/Content/Textures/Battle/Normal/Leer.png differ
diff --git a/P3D/P3D.vbproj b/P3D/P3D.vbproj
index b5f8a06fd..d43d418e3 100644
--- a/P3D/P3D.vbproj
+++ b/P3D/P3D.vbproj
@@ -14723,6 +14723,9 @@
PreserveNewest
+
+ PreserveNewest
+
PreserveNewest
@@ -14789,6 +14792,9 @@
PreserveNewest
+
+ PreserveNewest
+
PreserveNewest
diff --git a/P3D/Pokemon/Attacks/Normal/Leer.vb b/P3D/Pokemon/Attacks/Normal/Leer.vb
index 007f8545e..8278ace81 100644
--- a/P3D/Pokemon/Attacks/Normal/Leer.vb
+++ b/P3D/Pokemon/Attacks/Normal/Leer.vb
@@ -63,6 +63,26 @@
End If
End Sub
+ Public Overrides Sub InternalUserPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC, ByVal CurrentModel As ModelEntity)
+ Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip)
+ MoveAnimation.AnimationPlaySound("Battle\Attacks\Normal\Leer", 0, 0)
+ Dim SpawnEntity = MoveAnimation.SpawnEntity(New Vector3(0, 0.1, 0.1), TextureManager.GetTexture("Textures\Battle\Normal\Leer"), New Vector3(0.5F), 1.0F, 0, 2)
+ MoveAnimation.AnimationScale(SpawnEntity, False, True, 0.7, 0.7, 0.7, 0.05, 0, 0.5)
+ MoveAnimation.AnimationScale(SpawnEntity, False, False, 0.5, 0.5, 0.5, 0.05, 0.5, 0.5)
+ MoveAnimation.AnimationScale(SpawnEntity, False, True, 0.7, 0.7, 0.7, 0.05, 1.0, 0.5)
+ MoveAnimation.AnimationScale(SpawnEntity, False, False, 0.5, 0.5, 0.5, 0.05, 1.5, 0.5)
+ MoveAnimation.AnimationFade(SpawnEntity, True, 1.0F, False, 0.0F, 2, 0)
+ BattleScreen.BattleQuery.Add(MoveAnimation)
+ End Sub
+ Public Overrides Sub InternalOpponentPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC, ByVal CurrentModel As ModelEntity)
+ Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip, CurrentModel)
+ MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 0, 0.5)
+ MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.1, 0.025, False, False, 0.75, 0.5)
+ MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 1.75, 0.5)
+ MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.1, 0.025, False, False, 2.75, 0.5)
+ MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0, 0.025, False, False, 3.5, 0.5)
+ BattleScreen.BattleQuery.Add(MoveAnimation)
+ End Sub
End Class
End Namespace
\ No newline at end of file