Fix Pokemon not learn move at evolution

P3D/Screens/Pokemon/EvolutionScreen.vb

@@ -136,6 +136,7 @@
     Dim evolved As Boolean = False
     Dim brokeEvolution As Boolean = False
     Dim AttackLearnList As New List(Of BattleSystem.Attack)
+    Dim HasStartedAttackLearning As Boolean = False
 
     Dim EvolutionArg As String = ""
     Dim EvolutionTrigger As EvolutionCondition.EvolutionTrigger
@@ -149,7 +150,7 @@
 
         Me.PreScreen = currentScreen
         Me.FromBattle = FromBattle
-
+        Me.HasStartedAttackLearning = False
         For Each i As Integer In EvolvePokemonIndices
             PokeList.Add(i)
         Next
@@ -302,14 +303,19 @@
                 End If
             Else
                 If TextBox.Showing = False Then
+                    If HasStartedAttackLearning = False Then
                         If AttackLearnList.Count > 0 Then
                             Core.SetScreen(New LearnAttackScreen(Core.CurrentScreen, evolvedPokemon, AttackLearnList))
-                        AttackLearnList.Clear()
+                            HasStartedAttackLearning = True
                         End If
+                    Else
+                        If Core.CurrentScreen.Identification = Identifications.EvolutionScreen Then
                             Endscene()
                         End If
                     End If
                 End If
+            End If
+        End If
     End Sub
 
     Private Sub Endscene()
@@ -322,7 +328,7 @@
 
             Core.Player.Pokemons(PokeList(0)) = evolvedPokemon
         End If
-
+        AttackLearnList.Clear()
         PokeList.RemoveAt(0)
         If PokeList.Count = 0 Then
             If FromBattle = False Then