tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-31 01:35:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Forgot a thing

Browse Source
This commit is contained in:
JappaWakka 2025-03-28 14:32:35 +01:00
parent dab71b95f7
commit 17c559d723
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,7 +76,7 @@
End If End If
Dim Level As Integer = int(argument.GetSplit(1)) Dim Level As Integer = int(argument.GetSplit(1))
Dim catchMethod As String = "random reason" Dim catchMethod As String = Localization.GetString("CatchMethod_Empty", "Somehow obtained at")
If commas > 1 Then If commas > 1 Then
catchMethod = ScriptCommander.Parse(argument.GetSplit(2)).ToString() catchMethod = ScriptCommander.Parse(argument.GetSplit(2)).ToString()
End If End If
@ -86,7 +86,7 @@
catchBall = Item.GetItemByID(argument.GetSplit(3)) catchBall = Item.GetItemByID(argument.GetSplit(3))
End If End If
Dim catchLocation As String = Screen.Level.MapName Dim catchLocation As String = Localization.GetString("Places_" & Screen.Level.MapName, Screen.Level.MapName)
If commas > 3 Then If commas > 3 Then
catchLocation = ScriptCommander.Parse(argument.GetSplit(4)).ToString() catchLocation = ScriptCommander.Parse(argument.GetSplit(4)).ToString()
End If End If
@ -680,6 +680,8 @@
If argument.GetSplit(1, ",").StartsWith("<system.token(") AndAlso argument.GetSplit(1, ",").EndsWith(")>") Then If argument.GetSplit(1, ",").StartsWith("<system.token(") AndAlso argument.GetSplit(1, ",").EndsWith(")>") Then
placeLocalization = Localization.GetString(placeLocalization.Remove(0, "<system.token(".Length).Remove(argument.GetSplit(2).Length - 2, 2)) placeLocalization = Localization.GetString(placeLocalization.Remove(0, "<system.token(".Length).Remove(argument.GetSplit(2).Length - 2, 2))
ElseIf Localization.TokenExists("Places_" & Screen.Level.MapName) = True Then
placeLocalization = Localization.GetString("Places_" & Screen.Level.MapName, Screen.Level.MapName)
End If End If
If Core.Player.Pokemons.Count - 1 >= Index Then If Core.Player.Pokemons.Count - 1 >= Index Then