tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added @Pokemon.LevelUp(LevelAmount)

Browse Source 
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.
This commit is contained in:
JappaWakka 2023-06-22 14:28:12 +02:00
parent 4b2138d3b2
commit a24568cd41
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
View File

@ -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