From a24568cd4167f984fdd9d156b1f91a9d245c09b4 Mon Sep 17 00:00:00 2001
From: JappaWakka <jjlspeelman@outlook.com>
Date: Thu, 22 Jun 2023 14:28:12 +0200
Subject: [PATCH] Added @Pokemon.LevelUp(LevelAmount)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This command levels a Pokémon up by the amount of levels (integer) specified in LevelAmount.
If a Pokémon could learn one or more moves on any of the levels between its original level and its level after the command, the command will allow the player to teach each of those moves.
---
 .../V2/ScriptCommands/DoPokemon.vb            | 60 +++++++++++++++++++
 1 file changed, 60 insertions(+)

diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
index 83f9f75b3..3bc441464 100644
--- a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
+++ b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
@@ -710,6 +710,66 @@
                     Else
                         Logger.Log(Logger.LogTypes.Message, "ScriptCommander.vb: The Pokémon is not able to evolve with the given conditions.")
                     End If
+                Case "levelup"
+                    Dim args() As String = argument.Split(CChar(","))
+                    Dim p As Pokemon = Core.Player.Pokemons(int(args(0)))
+                    Dim amount As Integer = 1
+
+                    If args.Count > 1 Then
+                        amount = CInt(args(1))
+                    End If
+                    Dim originalLevel As Integer = p.Level
+
+                    Dim AttackLearnList As New List(Of BattleSystem.Attack)
+
+                    If originalLevel < CInt(GameModeManager.GetGameRuleValue("MaxLevel", "100")) AndAlso p.IsEgg() = False Then
+                        If originalLevel + amount > CInt(GameModeManager.GetGameRuleValue("MaxLevel", "100")) Then
+                            amount = CInt(GameModeManager.GetGameRuleValue("MaxLevel", "100")) - originalLevel
+                        End If
+
+                        p.Level += amount
+                        For i = 0 To amount - 1
+                            If p.AttackLearns.ContainsKey(originalLevel + i) = True AndAlso p.KnowsMove(p.AttackLearns(originalLevel + i)) = False Then
+                                AttackLearnList.Add(p.AttackLearns(originalLevel + i))
+                            End If
+                        Next
+                        Dim s As String = "version=2" & Environment.NewLine
+
+                        If amount > 0 Then
+                            s &= "@text.show(" & p.GetDisplayName() & " reached~level " & p.Level & "!)" & Environment.NewLine
+                        End If
+
+                        Dim currentMaxHP As Integer = p.MaxHP
+
+                        p.CalculateStats()
+
+                        'Heals the Pokémon by the HP difference.
+                        Dim HPDifference As Integer = p.MaxHP - currentMaxHP
+                        If HPDifference > 0 Then
+                            p.Heal(HPDifference)
+                        End If
+
+                        If p.CanEvolve(EvolutionCondition.EvolutionTrigger.LevelUp, "") = True Then
+                            s &= "@pokemon.evolve(" & int(args(0)) & ")" & Environment.NewLine
+                        End If
+
+                        If AttackLearnList.Count > 0 Then
+                            For i = 0 To AttackLearnList.Count - 1
+                                If p.Attacks.Count < 4 Then
+                                    s &= "@text.show(" & p.GetDisplayName() & " learned " & AttackLearnList(i).Name & "!)" & Environment.NewLine
+                                    p.Attacks.Add(AttackLearnList(i))
+                                    PlayerStatistics.Track("Moves learned", 1)
+                                Else
+                                    s &= "@pokemon.learnattack(" & int(args(0)) & "," & AttackLearnList(i).ID & ")" & Environment.NewLine
+                                End If
+                            Next
+                        End If
+                        s &= ":end"
+
+                        If CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
+                            CType(CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
+                        End If
+                    End If
                 Case "reload"
                     Dim PokemonIndex As Integer = int(argument)
                     If Core.Player.Pokemons.Count - 1 >= PokemonIndex Then