tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-28 08:14:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge from master

Browse Source
This commit is contained in:
CaptainSegis 2017-02-16 14:36:21 -05:00
commit f373bd6f81
184 changed files with 3162 additions and 141 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
2.5DHero.sln
View File

@ -7,17 +7,26 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "2.5DHero", "2.5DHero\2.5DHe
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
DebugJian|Any CPU = DebugJian|Any CPU
DebugNoContent|Any CPU = DebugNoContent|Any CPU
Release|Any CPU = Release|Any CPU
DebugStandard|Any CPU = DebugStandard|Any CPU
ReleaseJian|Any CPU = ReleaseJian|Any CPU
ReleaseNoContent|Any CPU = ReleaseNoContent|Any CPU
ReleaseStandard|Any CPU = ReleaseStandard|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.Debug|Any CPU.Build.0 = Debug|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.DebugJian|Any CPU.ActiveCfg = DebugJian|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.DebugJian|Any CPU.Build.0 = DebugJian|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.DebugNoContent|Any CPU.ActiveCfg = DebugNoContent|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.DebugNoContent|Any CPU.Build.0 = DebugNoContent|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.Release|Any CPU.ActiveCfg = Release|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.Release|Any CPU.Build.0 = Release|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.DebugStandard|Any CPU.ActiveCfg = DebugStandard|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.DebugStandard|Any CPU.Build.0 = DebugStandard|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.ReleaseJian|Any CPU.ActiveCfg = ReleaseJian|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.ReleaseJian|Any CPU.Build.0 = ReleaseJian|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.ReleaseNoContent|Any CPU.ActiveCfg = ReleaseNoContent|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.ReleaseNoContent|Any CPU.Build.0 = ReleaseNoContent|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.ReleaseStandard|Any CPU.ActiveCfg = ReleaseStandard|Any CPU
{2AAF65BE-C81D-4663-ABF4-E2E09B16E12F}.ReleaseStandard|Any CPU.Build.0 = ReleaseStandard|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE

14
2.5DHero/2.5DHero/2.5DHero.vbproj
View File

@ -19,7 +19,7 @@
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<ApplicationIcon>Pokemon3D.ico</ApplicationIcon>
<OptionExplicit>On</OptionExplicit>
<OptionCompare>Binary</OptionCompare>
<OptionCompare>Text</OptionCompare>
<OptionStrict>Off</OptionStrict>
<OptionInfer>On</OptionInfer>
<StartupObject>net.Pokemon3D.Game.Program</StartupObject>
@ -27,23 +27,26 @@
<Prefer32Bit>false</Prefer32Bit>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)' == 'Debug' Or '$(Configuration)' == 'DebugNoContent'">
<PropertyGroup Condition="'$(Configuration)' == 'DebugNoContent' Or '$(Configuration)' == 'DebugStandard' Or '$(Configuration)' == 'DebugJian'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\DesktopGL\Debug\</OutputPath>
<DefineConstants>DEBUG,TRACE,WINDOWS</DefineConstants>
<DebugType>full</DebugType>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)' == 'Release'">
<PropertyGroup Condition="'$(Configuration)' == 'ReleaseNoContent' Or '$(Configuration)' == 'ReleaseStandard' Or '$(Configuration)' == 'ReleaseJian'">
<OutputPath>bin\DesktopGL\Release\</OutputPath>
<DefineConstants>TRACE,WINDOWS</DefineConstants>
<Optimize>true</Optimize>
<DebugType>none</DebugType>
<UseVSHostingProcess>false</UseVSHostingProcess>
</PropertyGroup>
<ItemGroup>
<Content Include="Pokemon3D.ico" />
<Content Include="Pokemon\Items\_itemList.txt">
<Content Include="Pokemon\Items\_itemList.txt" />
<Content Include="Updater.exe">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="CurrentVersion.dat" />
<Reference Include="OpenTK">
<HintPath>$(MSBuildProgramFiles32)\MonoGame\v3.0\Assemblies\DesktopGL\OpenTK.dll</HintPath>
</Reference>
@ -1742,5 +1745,6 @@
</CreateProperty>
</Target>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Condition=" '$(Configuration)' != 'DebugNoContent' " Project="MonoGame.Content.Builder.targets" />
<Import Condition=" '$(Configuration)' == 'DebugStandard' Or '$(Configuration)' == 'ReleaseStandard' " Project="MonoGame.Content.Builder_Standard.targets" />
<Import Condition=" '$(Configuration)' == 'DebugJian' Or '$(Configuration)' == 'ReleaseJian' " Project="MonoGame.Content.Builder_Jian.targets" />
</Project>

7
2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -904,6 +904,13 @@
If BattleScreen.OwnPokemon.Status = Pokemon.StatusProblems.Fainted Or BattleScreen.OwnPokemon.HP <= 0 Then
Return True
End If
If BattleScreen.IsRemoteBattle AndAlso BattleScreen.IsPVPBattle AndAlso Not BattleScreen.IsHost Then
If BattleScreen.FieldEffects.ClientCanSwitch = False Then
Return False
End If
End If
If BattleScreen.OppPokemon.Ability.Name.ToLower() = "shadow tag" And BattleScreen.OwnPokemon.Ability.Name.ToLower() <> "shadow tag" Then
Return False
End If

2
2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleMenu.vb
View File

@ -605,6 +605,8 @@
Case BattleSystem.BattleScreen.BattleModes.Standard
If BattleScreen.OwnFaint Then
_mainMenuIndex = 0
_mainMenuNextIndex = 0
_mainMenuItemList.Add(New MainMenuItem(1, "Pokémon", 0, AddressOf MainMenuOpenPokemon))
If BattleScreen.IsRemoteBattle AndAlso Not BattleScreen.IsHost Then
BattleScreen.OwnFaint = False

39
2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleScreen.vb
View File

@ -2,15 +2,12 @@
Public Class BattleScreen
Inherits Screen
'Used for after fainting switching
Public Shared OwnFaint As Boolean = False
Public Shared OppFaint As Boolean = False
'Used for lead picking in PvP Battles
Public Shared OwnLeadIndex As Integer = 0
Public Shared OppLeadIndex As Integer = 0
@ -222,6 +219,7 @@
End If
Next
Me.OwnPokemon = Core.Player.Pokemons(meIndex)
OwnPokemonIndex = meIndex
Me.IsTrainerBattle = False
Me.ParticipatedPokemon.Add(meIndex)
@ -355,6 +353,7 @@
End If
Next
Me.OwnPokemon = Core.Player.Pokemons(meIndex)
OwnPokemonIndex = meIndex
If IsPVPBattle Then
OwnPokemon = Core.Player.Pokemons(OwnLeadIndex)
OwnPokemonIndex = OwnLeadIndex
@ -447,6 +446,7 @@
Battle.SwitchInOwn(Me, meIndex, True, OwnPokemonIndex)
Battle.SwitchInOpp(Me, True, OppPokemonIndex)
TempPVPBattleQuery.Clear()
Me.BattleQuery.AddRange({cq1, q5, cq2})
@ -501,6 +501,7 @@
End If
Next
Me.OwnPokemon = Core.Player.Pokemons(meIndex)
OwnPokemonIndex = meIndex
Me.IsTrainerBattle = False
Me.ParticipatedPokemon.Add(meIndex)
@ -617,6 +618,8 @@
End If
Next
Me.OwnPokemon = Core.Player.Pokemons(meIndex)
OwnPokemonIndex = meIndex
Me.IsTrainerBattle = False
Me.ParticipatedPokemon.Add(meIndex)
@ -873,6 +876,7 @@ nextIndex:
Lighting.UpdateLighting(Screen.Effect)
Camera.Update()
Level.Update()
SkyDome.Update()
TextBox.Update()
@ -975,6 +979,8 @@ nextIndex:
#End Region
Public Sub EndBattle(ByVal blackout As Boolean)
Level.StopOffsetMapUpdate()
Dim str As String = ""
'Call the EndBattle function of the abilities and Reverts battle only Pokemon formes.
For Each p As Pokemon In Core.Player.Pokemons
@ -1143,14 +1149,13 @@ nextIndex:
End While
Else
i = Core.Random.Next(0, Trainer.Pokemons.count)
i = Core.Random.Next(0, Trainer.Pokemons.Count)
While Trainer.Pokemons(i).Status = Pokemon.StatusProblems.Fainted OrElse OppPokemonIndex = i OrElse Trainer.Pokemons(i).HP <= 0
i = Core.Random.Next(0, Trainer.Pokemons.count)
i = Core.Random.Next(0, Trainer.Pokemons.Count)
End While
End If
End If
OppPokemonIndex = i
OppPokemon = Trainer.Pokemons(i)
@ -1338,6 +1343,7 @@ nextIndex:
Dim tempData As String = ""
Dim cData As String = data
'Converts the single string received as data into a list of queries (as string)
While cData.Length > 0
If cData(0).ToString() = "|" AndAlso tempData(tempData.Length - 1).ToString() = "}" Then
newQueries.Add(tempData)
@ -1359,7 +1365,9 @@ nextIndex:
End While
If s.Identification = Identifications.BattleScreen Then
CType(s, BattleScreen).LockData = newQueries(0)
'First set of queries are read and converted into BattleScreen values for the client side.
CType(s, BattleScreen).LockData = newQueries(0) 'when locked into certain situations that do not allow the client to take actions (like multi turn moves)
CType(s, BattleScreen).OppStatistics.FromString(newQueries(1))
CType(s, BattleScreen).OwnStatistics.FromString(newQueries(2))
CType(s, BattleScreen).OppPokemon = Pokemon.GetPokemonByData(newQueries(3))
@ -1369,10 +1377,15 @@ nextIndex:
weatherInfo = weatherInfo.Remove(weatherInfo.Length - 1, 1).Remove(0, 1)
CType(s, BattleScreen).FieldEffects.Weather = CType(CInt(weatherInfo), BattleWeather.WeatherTypes)
For i = 0 To 5
Dim CanSwitchInfo As String = newQueries(6)
CanSwitchInfo = CanSwitchInfo.Remove(CanSwitchInfo.Length - 1, 1).Remove(0, 1)
CType(s, BattleScreen).FieldEffects.ClientCanSwitch = CType(CanSwitchInfo, Boolean)
For i = 0 To 6
newQueries.RemoveAt(0)
Next
'Next queries contain the data from the party of the host and the client.
Dim ownCount As Integer = Core.Player.Pokemons.Count
Dim oppCount As Integer = CType(s, BattleScreen).Trainer.Pokemons.Count
@ -1416,7 +1429,6 @@ nextIndex:
End If
End If
While cData.Length > 0
If cData(0).ToString() = "|" AndAlso tempData(tempData.Length - 1).ToString() = "}" Then
newQueries.Add(tempData)
@ -1432,8 +1444,6 @@ nextIndex:
tempData = ""
End If
If s.Identification = Identifications.BattleScreen Then
CType(s, BattleScreen).BattleQuery.Clear()
For Each q As String In newQueries
@ -1495,7 +1505,8 @@ nextIndex:
Dim d As String = lockData & "|" &
OwnStatistics.ToString() & "|" & OppStatistics.ToString() & "|" &
OwnPokemon.GetSaveData() & "|" & OppPokemon.GetSaveData() & "|" &
"{" & CInt(FieldEffects.Weather).ToString() & "}"
"{" & CInt(FieldEffects.Weather).ToString() & "}" & "|" &
"{" & BattleCalculation.CanSwitch(Me, False).ToString & "}"
For Each p As Pokemon In Core.Player.Pokemons
If d <> "" Then
@ -1545,7 +1556,7 @@ nextIndex:
''' Use this to download the sprites for the players.
''' </summary>
Private Sub DownloadOnlineSprites()
If Core.Player.IsGamejoltSave = True Then
If Core.Player.IsGameJoltSave = True Then
Dim t As New Threading.Thread(AddressOf DownloadSprites)
t.IsBackground = True
t.Start()
@ -1578,4 +1589,4 @@ nextIndex:
End Class
End Namespace
End Namespace

3
2.5DHero/2.5DHero/Battle/BattleSystemV2/FieldEffects.vb
View File

@ -2,6 +2,9 @@
Public Class FieldEffects
'Client side stuff in PvP
Public ClientCanSwitch As Boolean = True 'Calculated by the host, sent to the client
'Own stuff
Public OwnSleepTurns As Integer = 0 'Sleep turns
Public OwnTruantRound As Integer = 0 'Truant move counter

6
2.5DHero/2.5DHero/Core/Core.vb
View File

@ -41,9 +41,9 @@
window = GameInstance.Window
If CommandLineArgHandler.ForceGraphics = True Then
window.Title = GameController.GAMENAME & " " & GameController.GAMEDEVELOPMENTSTAGE & " (FORCED GRAPHICS)"
window.Title = GameController.GAMENAME & " " & GameController.GAMEDEVELOPMENTSTAGE & " " & GameController.GAMEVERSION & " (FORCED GRAPHICS)"
Else
window.Title = GameController.GAMENAME & " " & GameController.GAMEDEVELOPMENTSTAGE
window.Title = GameController.GAMENAME & " " & GameController.GAMEDEVELOPMENTSTAGE & " " & GameController.GAMEVERSION
End If
GameOptions = New GameOptions()
@ -183,7 +183,7 @@
CurrentScreen.Draw()
If Not Core.Player Is Nothing Then
If Core.Player.IsGamejoltSave = True Then
If Core.Player.IsGameJoltSave = True Then
GameJolt.Emblem.DrawNewEmblems()
End If
Core.Player.DrawLevelUp()

5
2.5DHero/2.5DHero/Core/GameController.vb
View File

@ -10,12 +10,12 @@ Public Class GameController
''' <summary>
''' The current version of the game.
''' </summary>
Public Const GAMEVERSION As String = "0.54"
Public Const GAMEVERSION As String = "0.54.1"
''' <summary>
''' The number of released iterations of the game.
''' </summary>
Public Const RELEASEVERSION As String = "90"
Public Const RELEASEVERSION As String = "92"
''' <summary>
''' The development stage the game is in.
@ -48,6 +48,7 @@ Public Class GameController
Public Graphics As GraphicsDeviceManager
Public FPSMonitor As FPSMonitor
Public Shared UpdateChecked As Boolean = False
Public Sub New()
Graphics = New GraphicsDeviceManager(Me)

30
2.5DHero/2.5DHero/Core/GameOptions.vb
View File

@ -13,18 +13,20 @@
Public WindowSize As New Vector2(1200, 680)
Public ForceMusic As Boolean = False
Public MaxOffsetLevel As Integer = 0
Public UpdateDisabled As Boolean = False
Public Extras As New List(Of String)
Public Sub LoadOptions()
KeyBindings.CreateKeySave(False)
If System.IO.Directory.Exists(GameController.GamePath & "\Save\") = False Then
System.IO.Directory.CreateDirectory(GameController.GamePath & "\Save\")
If Directory.Exists(GameController.GamePath & "\Save\") = False Then
Directory.CreateDirectory(GameController.GamePath & "\Save\")
End If
If System.IO.File.Exists(GameController.GamePath & "\Save\options.dat") = False Then
If File.Exists(GameController.GamePath & "\Save\options.dat") = False Then
CreateOptions()
End If
Dim Data() As String = System.IO.File.ReadAllText(GameController.GamePath & "\Save\options.dat").SplitAtNewline()
Dim Data() As String = File.ReadAllText(GameController.GamePath & "\Save\options.dat").SplitAtNewline()
Dim LanguageFound As Boolean = False
@ -67,7 +69,7 @@
Me.ContentPackNames = value.Split(CChar(","))
If Me.ContentPackNames.Count > 0 Then
For Each c As String In Me.ContentPackNames
If System.IO.Directory.Exists(GameController.GamePath & "\ContentPacks\" & c) = False Then
If Directory.Exists(GameController.GamePath & "\ContentPacks\" & c) = False Then
Dim cList As List(Of String) = Me.ContentPackNames.ToList()
cList.Remove(c)
Me.ContentPackNames = cList.ToArray()
@ -101,6 +103,12 @@
Me.ForceMusic = CBool(value)
Case "maxoffsetlevel"
Me.MaxOffsetLevel = CInt(value)
Case "extras"
If Not String.IsNullOrEmpty(value) Then
Me.Extras = value.Split(";"c).ToList()
End If
Case "updatedisabled"
UpdateDisabled = CBool(value)
End Select
End If
Next
@ -143,9 +151,11 @@
"ContentPacks|" & ContentPackString & vbNewLine &
"WindowSize|" & Core.windowSize.Width.ToString() & "," & Core.windowSize.Height.ToString().Replace(GameController.DecSeparator, ".") & vbNewLine &
"ForceMusic|" & Me.ForceMusic.ToNumberString() & vbNewLine &
"MaxOffsetLevel|" & Me.MaxOffsetLevel.ToString()
"MaxOffsetLevel|" & Me.MaxOffsetLevel.ToString() & vbNewLine &
"UpdateDisabled|" & Me.UpdateDisabled.ToNumberString() & vbNewLine &
"Extras|" & String.Join(";", Me.Extras)
System.IO.File.WriteAllText(GameController.GamePath & "\Save\options.dat", Data)
File.WriteAllText(GameController.GamePath & "\Save\options.dat", Data)
KeyBindings.SaveKeys()
Logger.Debug("---Options saved---")
@ -172,9 +182,11 @@
"ContentPacks|" & vbNewLine &
"WindowSize|1200,680" & vbNewLine &
"ForceMusic|0" & vbNewLine &
"MaxOffsetLevel|0"
"MaxOffsetLevel|0" & vbNewLine &
"UpdateDisabled|0" & vbNewLine &
"Extras|Backup Save"
System.IO.File.WriteAllText(GameController.GamePath & "\Save\options.dat", s)
File.WriteAllText(GameController.GamePath & "\Save\options.dat", s)
End Sub
End Class

86
2.5DHero/2.5DHero/Core/MainGameFunctions.vb
View File

@ -1,57 +1,57 @@
Public Class MainGameFunctions
Public Shared Sub FunctionKeys()
If KeyBoardHandler.KeyPressed(KeyBindings.ScreenshotKey) = True And Core.CurrentScreen.CanTakeScreenshot = True Then
If KeyBoardHandler.KeyPressed(KeyBindings.GUIControlKey) = True Then
Core.GameOptions.ShowGUI = Not Core.GameOptions.ShowGUI
Core.GameOptions.SaveOptions()
ElseIf KeyBoardHandler.KeyPressed(KeyBindings.ScreenshotKey) AndAlso Core.CurrentScreen.CanTakeScreenshot Then
CaptureScreen()
End If
If KeyBoardHandler.KeyPressed(KeyBindings.FullScreenKey) = True Then
If Core.CurrentScreen.CanGoFullscreen = True Then
ToggleFullScreen()
End If
End If
If KeyBoardHandler.KeyPressed(KeyBindings.DebugKey) = True Then
ElseIf KeyBoardHandler.KeyPressed(KeyBindings.DebugKey) Then
Core.GameOptions.ShowDebug += 1
If Core.GameOptions.ShowDebug >= 2 Then
Core.GameOptions.ShowDebug = 0
End If
Core.GameOptions.SaveOptions()
End If
If KeyBoardHandler.KeyPressed(KeyBindings.GUIControlKey) = True Then
Core.GameOptions.ShowGUI = Not Core.GameOptions.ShowGUI
ElseIf KeyBoardHandler.KeyPressed(KeyBindings.LightKey) Then
Core.GameOptions.LightingEnabled = Not Core.GameOptions.LightingEnabled
Core.GameOptions.SaveOptions()
End If
If KeyBoardHandler.KeyPressed(KeyBindings.MuteMusicKey) = True And Core.CurrentScreen.CanMuteMusic = True Then
If Core.GameOptions.LightingEnabled Then
Core.GameMessage.ShowMessage(Localization.GetString("game_message_lighting_on", "Lighting Enabled"), 12, FontManager.MainFont, Color.White)
Else
Core.GameMessage.ShowMessage(Localization.GetString("game_message_lighting_off", "Lighting Disabled"), 12, FontManager.MainFont, Color.White)
End If
ElseIf KeyBoardHandler.KeyPressed(KeyBindings.FullScreenKey) AndAlso Core.CurrentScreen.CanGoFullscreen Then
ToggleFullScreen()
ElseIf KeyBoardHandler.KeyPressed(KeyBindings.MuteMusicKey) AndAlso Core.CurrentScreen.CanMuteMusic Then
MusicManager.Mute(Not MediaPlayer.IsMuted)
SoundManager.Mute(MediaPlayer.IsMuted)
Core.GameOptions.SaveOptions()
Core.CurrentScreen.ToggledMute()
End If
If KeyBoardHandler.KeyPressed(KeyBindings.LightKey) = True Then
Core.GameOptions.LightingEnabled = Not Core.GameOptions.LightingEnabled
End If
If KeyBoardHandler.KeyDown(KeyBindings.DebugKey) = True Then
If KeyBoardHandler.KeyPressed(Keys.F) = True Then
If KeyBoardHandler.KeyPressed(Keys.F) Then
TextureManager.TextureList.Clear()
End If
If KeyBoardHandler.KeyPressed(Keys.S) = True Then
Core.GameMessage.ShowMessage(Localization.GetString("game_message_debug_texture_list_clear", "Texture list have cleared"), 12, FontManager.MainFont, Color.White)
ElseIf KeyBoardHandler.KeyPressed(Keys.S) Then
Core.SetWindowSize(New Vector2(1200, 680))
ElseIf KeyBoardHandler.KeyPressed(Keys.L) Then
Logger.DisplayLog = Not Logger.DisplayLog
ElseIf KeyBoardHandler.KeyPressed(Keys.B) Then
Entity.drawViewBox = Not Entity.drawViewBox
End If
End If
If ControllerHandler.ButtonPressed(Buttons.Back, True) = True Then
Core.GameOptions.GamePadEnabled = Not Core.GameOptions.GamePadEnabled
If Core.GameOptions.GamePadEnabled = True Then
If Core.GameOptions.GamePadEnabled Then
Core.GameMessage.ShowMessage("Enabled XBOX 360 GamePad support.", 12, FontManager.MainFont, Color.White)
Else
Core.GameMessage.ShowMessage("Disabled XBOX 360 GamePad support.", 12, FontManager.MainFont, Color.White)
End If
Core.GameOptions.SaveOptions()
End If
If KeyBoardHandler.KeyPressed(Keys.L) = True And KeyBoardHandler.KeyDown(KeyBindings.DebugKey) = True Then
Logger.DisplayLog = Not Logger.DisplayLog
End If
If KeyBoardHandler.KeyPressed(Keys.B) = True And KeyBoardHandler.KeyDown(KeyBindings.DebugKey) = True Then
Entity.drawViewBox = Not Entity.drawViewBox
End If
End Sub
Private Shared Sub CaptureScreen()
@ -83,17 +83,17 @@
fileName = .Year & "-" & month & "-" & day & "_" & hour & "." & minute & "." & second & ".png"
End With
If System.IO.Directory.Exists(GameController.GamePath & "\screenshots\") = False Then
System.IO.Directory.CreateDirectory(GameController.GamePath & "\screenshots\")
If Directory.Exists(GameController.GamePath & "\screenshots\") = False Then
Directory.CreateDirectory(GameController.GamePath & "\screenshots\")
End If
If Core.GraphicsManager.IsFullScreen = False Then
Dim b As New System.Drawing.Bitmap(Core.windowSize.Width, Core.windowSize.Height)
Using g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(b)
g.CopyFromScreen(Core.window.ClientBounds.X, Core.window.ClientBounds.Y, 0, 0, New System.Drawing.Size(b.Width, b.Height))
Dim b As New Drawing.Bitmap(Core.windowSize.Width, Core.windowSize.Height)
Using g As Drawing.Graphics = Drawing.Graphics.FromImage(b)
g.CopyFromScreen(Core.window.ClientBounds.X, Core.window.ClientBounds.Y, 0, 0, New Drawing.Size(b.Width, b.Height))
End Using
b.Save(GameController.GamePath & "\screenshots\" & fileName, System.Drawing.Imaging.ImageFormat.Png)
b.Save(GameController.GamePath & "\screenshots\" & fileName, Drawing.Imaging.ImageFormat.Png)
Else
Dim screenshot As New RenderTarget2D(Core.GraphicsDevice, Core.windowSize.Width, Core.windowSize.Height, False, SurfaceFormat.Color, DepthFormat.Depth24Stencil8)
Core.GraphicsDevice.SetRenderTarget(screenshot)
@ -102,7 +102,7 @@
Core.GraphicsDevice.SetRenderTarget(Nothing)
Dim stream As System.IO.Stream = System.IO.File.OpenWrite(GameController.GamePath & "\screenshots\" & fileName)
Dim stream As Stream = File.OpenWrite(GameController.GamePath & "\screenshots\" & fileName)
screenshot.SaveAsPng(stream, Core.windowSize.Width, Core.windowSize.Height)
stream.Dispose()
End If
@ -116,11 +116,21 @@
Private Shared Sub ToggleFullScreen()
If Core.GraphicsManager.IsFullScreen = False Then
Core.GraphicsManager.PreferredBackBufferWidth = GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Width
Core.GraphicsManager.PreferredBackBufferHeight = GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Height
Core.windowSize = New Rectangle(0, 0, GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Width, GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Height)
' MonoGame Bug > GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Width != System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
' MonoGame Bug > GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Height != System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
' Temp Fix just in case someone else face this as well.
If GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Width <> Windows.Forms.Screen.PrimaryScreen.Bounds.Width OrElse
GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Height <> Windows.Forms.Screen.PrimaryScreen.Bounds.Height Then
Core.GraphicsManager.PreferredBackBufferWidth = Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Core.GraphicsManager.PreferredBackBufferHeight = Windows.Forms.Screen.PrimaryScreen.Bounds.Height
Core.windowSize = New Rectangle(0, 0, Windows.Forms.Screen.PrimaryScreen.Bounds.Width, Windows.Forms.Screen.PrimaryScreen.Bounds.Height)
Else
Core.GraphicsManager.PreferredBackBufferWidth = GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Width
Core.GraphicsManager.PreferredBackBufferHeight = GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Height
Core.windowSize = New Rectangle(0, 0, GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Width, GraphicsAdapter.DefaultAdapter.CurrentDisplayMode.Height)
End If
System.Windows.Forms.Application.VisualStyleState = Windows.Forms.VisualStyles.VisualStyleState.ClientAndNonClientAreasEnabled
Windows.Forms.Application.VisualStyleState = Windows.Forms.VisualStyles.VisualStyleState.ClientAndNonClientAreasEnabled
Core.GraphicsManager.ToggleFullScreen()
@ -130,7 +140,7 @@
Core.GraphicsManager.PreferredBackBufferHeight = 680
Core.windowSize = New Rectangle(0, 0, 1200, 680)
System.Windows.Forms.Application.VisualStyleState = Windows.Forms.VisualStyles.VisualStyleState.ClientAndNonClientAreasEnabled
Windows.Forms.Application.VisualStyleState = Windows.Forms.VisualStyles.VisualStyleState.ClientAndNonClientAreasEnabled
Core.GraphicsManager.ToggleFullScreen()

4
2.5DHero/2.5DHero/Core/Program.vb
View File

@ -18,7 +18,7 @@ Module Program
Logger.Debug("---Start game---")
Using Game As New GameController()
If GameController.IS_DEBUG_ACTIVE = True And Debugger.IsAttached = True Then
If GameController.IS_DEBUG_ACTIVE And Debugger.IsAttached Then
Game.Run()
Else
Try
@ -41,4 +41,4 @@ Module Program
End Module
#End If
#End If

1
2.5DHero/2.5DHero/CurrentVersion.dat Normal file
View File

@ -0,0 +1 @@
0.54.1

4
2.5DHero/2.5DHero/HelperClasses/Animation.vb
View File

@ -164,9 +164,9 @@ Public Class Animation
End Sub
''' <summary>
''' Stopps the animation and returns to start.
''' Stops the animation and returns to start.
''' </summary>
Public Sub Stopp()
Public Sub [Stop]()
_Running = PlayMode.Stopped
CurrentRow = StartRow
CurrentColumn = StartColumn

0
2.5DHero/2.5DHero/MonoGame.Content.Builder.targets → 2.5DHero/2.5DHero/MonoGame.Content.Builder_Jian.targets
View File

109
2.5DHero/2.5DHero/MonoGame.Content.Builder_Standard.targets Normal file
View File

@ -0,0 +1,109 @@
<!--
MonoGame - Copyright (C) The MonoGame Team
This file is subject to the terms and conditions defined in
file 'LICENSE.txt', which is part of this source code package.
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!-- Add MonoGameContentReference to item type selection in Visual Studio -->
<ItemGroup>
<AvailableItemName Include="MonoGameContentReference" />
</ItemGroup>
<!-- This disables the IDE feature that skips executing msbuild in some build situations. -->
<PropertyGroup>
<DisableFastUpToDateCheck>true</DisableFastUpToDateCheck>
</PropertyGroup>
<Target Name="Prepare">
<PropertyGroup>
<ParentOutputDir Condition=" '$(ParentOutputDir)' == '' " >$(ProjectDir)..\2.5DHeroContent\bin\$(MonoGamePlatform)</ParentOutputDir>
<ParentIntermediateDir Condition=" '$(ParentIntermediateDir)' == '' " >$(ProjectDir)..\2.5DHeroContent\obj\$(MonoGamePlatform)</ParentIntermediateDir>
<!-- El Capitan Support -->
<MonoExe Condition=" '$(OS)' != 'Windows_NT' And Exists ('/Library/Frameworks/Mono.framework/Versions/Current/bin/mono') ">/Library/Frameworks/Mono.framework/Versions/Current/bin/mono</MonoExe>
<MonoExe Condition=" '$(OS)' != 'Windows_NT' And Exists ('/usr/local/bin/mono') ">/usr/local/bin/mono</MonoExe>
<MonoExe Condition=" '$(OS)' != 'Windows_NT' And Exists ('/usr/bin/mono') ">/usr/bin/mono</MonoExe>
<MonoExe Condition=" '$(OS)' != 'Windows_NT' And '$(MonoExe)' == '' ">mono</MonoExe>
<MonoGameContentBuilderExe Condition="'$(MonoGameContentBuilderExe)' == ''">$(MSBuildExtensionsPath)\MonoGame\v3.0\Tools\MGCB.exe</MonoGameContentBuilderExe>
<MonoGameContentBuilderCmd>&quot;$(MonoGameContentBuilderExe)&quot;</MonoGameContentBuilderCmd>
<MonoGameContentBuilderCmd Condition=" '$(OS)' != 'Windows_NT' ">$(MonoExe) $(MonoGameContentBuilderCmd)</MonoGameContentBuilderCmd>
<PlatformResourcePrefix Condition="'$(MonoGamePlatform)' == 'MacOSX' Or '$(MonoGamePlatform)' == 'iOS'">Resources\</PlatformResourcePrefix>
<PlatformResourcePrefix Condition="'$(MonoGamePlatform)' == 'Android'">Assets\</PlatformResourcePrefix>
<PlatformResourcePrefix Condition="'$(PlatformResourcePrefix)' == ''"></PlatformResourcePrefix>
<Header>/platform:$(MonoGamePlatform) /outputDir:&quot;$(ParentOutputDir)&quot; /intermediateDir:&quot;$(ParentIntermediateDir)&quot; /quiet</Header>
</PropertyGroup>
<!-- Get all Mono Game Content References and store them in a list -->
<!-- We do this here so we are compatible with xbuild -->
<ItemGroup>
<ContentReferences Include="@(MonoGameContentReference)"/>
</ItemGroup>
<Error Text="The MonoGamePlatform property was not defined in the project! It must be set to Windows, WindowsGL, WindowsStoreApp, WindowsPhone8, MacOSX, iOS, Linux, DesktopGL, RaspberryPi, Android, NativeClient, PlayStation4, or PlayStationMobile."
Condition=" '$(MonoGamePlatform)' != 'Windows' And
'$(MonoGamePlatform)' != 'iOS' And
'$(MonoGamePlatform)' != 'Android' And
'$(MonoGamePlatform)' != 'Linux' And
'$(MonoGamePlatform)' != 'DesktopGL' And
'$(MonoGamePlatform)' != 'MacOSX' And
'$(MonoGamePlatform)' != 'WindowsStoreApp' And
'$(MonoGamePlatform)' != 'NativeClient' And
'$(MonoGamePlatform)' != 'PlayStationMobile' And
'$(MonoGamePlatform)' != 'WindowsPhone8' And
'$(MonoGamePlatform)' != 'RaspberryPi' And
'$(MonoGamePlatform)' != 'PlayStation4' And
'$(MonoGamePlatform)' != 'PSVita' And
'$(MonoGamePlatform)' != 'XboxOne' And
'$(MonoGamePlatform)' != 'WindowsGL'" />
<Error
Text="The MonoGame content builder executable could not be located at '$(MonoGameContentBuilderExe)'!"
Condition="!Exists('$(MonoGameContentBuilderExe)')"
/>
<Warning
Text="No Content References Found. Please make sure your .mgcb file has a build action of MonoGameContentReference"
Condition=" '%(ContentReferences.FullPath)' == '' "
/>
<MakeDir Directories="$(ParentIntermediateDir)"/>
<MakeDir Directories="$(ParentOutputDir)"/>
</Target>
<PropertyGroup>
<BuildDependsOn>
BuildContent;
$(BuildDependsOn);
</BuildDependsOn>
</PropertyGroup>
<Target Name="RunContentBuilder">
<Exec Condition=" '%(ContentReferences.FullPath)' != '' " Command="$(MonoGameContentBuilderCmd) /@:&quot;%(ContentReferences.FullPath)&quot; $(Header)"
WorkingDirectory="%(ContentReferences.RootDir)%(ContentReferences.Directory)" />
<CreateItem Include="$(ParentOutputDir)\**\*.*">
<Output TaskParameter="Include" ItemName="ExtraContent" />
</CreateItem>
</Target>
<Target Name="BuildContent" DependsOnTargets="Prepare;RunContentBuilder"
Outputs="%(ExtraContent.RecursiveDir)%(ExtraContent.Filename)%(ExtraContent.Extension)">
<CreateItem Include="$(ParentOutputDir)\%(ExtraContent.RecursiveDir)%(ExtraContent.Filename)%(ExtraContent.Extension)"
AdditionalMetadata="Link=$(PlatformResourcePrefix)$(ContentRootDirectory)\%(ExtraContent.RecursiveDir)%(ExtraContent.Filename)%(ExtraContent.Extension);CopyToOutputDirectory=PreserveNewest"
Condition="'%(ExtraContent.Filename)' != ''">
<Output TaskParameter="Include" ItemName="Content" Condition="'$(MonoGamePlatform)' != 'Android' And '$(MonoGamePlatform)' != 'iOS' And '$(MonoGamePlatform)' != 'MacOSX'" />
<Output TaskParameter="Include" ItemName="BundleResource" Condition="'$(MonoGamePlatform)' == 'MacOSX' Or '$(MonoGamePlatform)' == 'iOS'" />
<Output TaskParameter="Include" ItemName="AndroidAsset" Condition="'$(MonoGamePlatform)' == 'Android'" />
</CreateItem>
</Target>
</Project>

2
2.5DHero/2.5DHero/My Project/AssemblyInfo.vb
View File

@ -31,4 +31,4 @@ Imports System.Runtime.InteropServices
' Build Number
' Revision
'
<Assembly: AssemblyVersion("0.5.4.0")>
<Assembly: AssemblyVersion("0.54.1")>

4
2.5DHero/2.5DHero/Overworld/OverworldScreen.vb
View File

@ -329,7 +329,7 @@ Public Class OverworldScreen
d.Add(Buttons.A, "Interact")
d.Add(Buttons.X, "Menu")
If Core.Player.hasPokegear = True Then
If Core.Player.HasPokegear = True Then
d.Add(Buttons.Y, "Pokégear")
End If
@ -394,7 +394,7 @@ Public Class OverworldScreen
Thread.Sleep(20)
x = x + 1
End While
If String.IsNullOrEmpty(Level.MusicLoop)
If String.IsNullOrEmpty(Level.MusicLoop) Then
Return
End If

553
2.5DHero/2.5DHero/Player/Player.vb
View File

@ -568,6 +568,528 @@
Entity.MakeShake = Name.ToLower() = "drunknilllzz"
''' Backup Save module
''' 1. Encrypted OverWrite Save.
''' 2. OverWrite Save.
''' 3. Backup Save.
If filePrefix = "GAMEJOLTSAVE" AndAlso Core.GameOptions.Extras.Contains("Backup Save") Then
If Not Directory.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID) Then
Directory.CreateDirectory(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID)
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted\Encrypted.dat")) Then
Dim Items() As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID.ToString() & "\Encrypted\Encrypted.dat").Split(CChar("|"))
Dim Hash As String = String.Join("|", Items.Take(16))
Try
If Items.Count = 17 AndAlso String.Equals(Hash, Encryption.DecryptString(Items.Last, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))) Then
Core.Player.ApricornData = Encryption.DecryptString(Items(0), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.BerryData = Encryption.DecryptString(Items(1), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.BoxData = Encryption.DecryptString(Items(2), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.DaycareData = Encryption.DecryptString(Items(3), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.HallOfFameData = Encryption.DecryptString(Items(4), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.ItemData = Encryption.DecryptString(Items(5), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Inventory.Clear()
Mails.Clear()
Dim Data As String = Encryption.DecryptString(Items(6), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
If Not String.IsNullOrWhiteSpace(Data) Then
For Each ItemDat As String In Data.SplitAtNewline()
If Not String.IsNullOrWhiteSpace(ItemDat) Then
If ItemDat.StartsWith("{") AndAlso ItemDat.EndsWith("}") AndAlso ItemDat.Contains("|") Then
Dim ItemID As String = ItemDat.Remove(0, ItemDat.IndexOf("{") + 1)
ItemID = ItemID.Remove(ItemID.IndexOf("}"))
Dim amount As Integer = CInt(ItemID.Remove(0, ItemID.IndexOf("|") + 1))
ItemID = ItemID.Remove(ItemID.IndexOf("|"))
Inventory.AddItem(CInt(ItemID), amount)
ElseIf ItemDat.StartsWith("Mail|") Then
Dim mailData As String = ItemDat.Remove(0, 5)
Mails.Add(Game.Items.MailItem.GetMailDataFromString(mailData))
End If
End If
Next
End If
Core.Player.NPCData = Encryption.DecryptString(Items(7), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Data = Encryption.DecryptString(Items(8), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
For Each Line As String In Data.SplitAtNewline()
If Line.Contains("|") Then
Dim ID As String = Line.Remove(Line.IndexOf("|"))
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
Select Case ID.ToLower()
Case "fov"
startFOV = CSng(Value.Replace(".", GameController.DecSeparator)).Clamp(1, 179)
Case "textspeed"
TextBox.TextSpeed = CInt(Value)
Case "mousespeed"
startRotationSpeed = CInt(Value)
End Select
End If
Next
Pokemons.Clear()
Dim PokeData As String = Encryption.DecryptString(Items(9), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
For Each Line As String In PokeData.SplitAtNewline()
If Line.StartsWith("{") AndAlso Line.EndsWith("}") Then
Dim p As Pokemon = Pokemon.GetPokemonByData(Line)
If p.IsEgg() = False Then
If p.IsShiny = True Then
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 3)
Else
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 2)
End If
End If
Pokemons.Add(p)
End If
Next
Data = Encryption.DecryptString(Items(10), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Screen.Level.Riding = False
For Each Line As String In Data.SplitAtNewline()
If Not String.IsNullOrWhiteSpace(Line) AndAlso Line.Contains("|") Then
Dim ID As String = Line.Remove(Line.IndexOf("|"))
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
Select Case ID.ToLower()
Case "name"
Name = CType(IIf(IsGameJoltSave, GameJolt.API.username, Value), String)
Case "position"
Dim v() As String = Value.Split(CChar(","))
startPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
startPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
startPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
Case "lastpokemonposition"
Dim v() As String = Value.Split(CChar(","))
LastPokemonPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
LastPokemonPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
LastPokemonPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
Case "mapfile"
startMap = Value
Case "rivalname"
RivalName = Value
Case "money"
Money = CInt(Value)
Case "badges"
Badges.Clear()
If Value = "0" Then
Badges = New List(Of Integer)
Else
If Value.Contains(",") = False Then
Badges = {CInt(Value)}.ToList()
Else
Dim l As List(Of String) = Value.Split(CChar(",")).ToList()
For i = 0 To l.Count - 1
Badges.Add(CInt(l(i)))
Next
End If
End If
Case "rotation"
startRotation = CSng(Value.Replace(".", GameController.DecSeparator))
Case "Gender"
If Value = "Male" Then
Male = True
Else
Male = False
End If
Case "playtime"
Dim dd() As String = Value.Split(CChar(","))
If dd.Count >= 4 Then
PlayTime = New TimeSpan(CInt(dd(3)), CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
Else
PlayTime = New TimeSpan(CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
End If
Case "ot"
OT = CStr(CInt(Value).Clamp(0, 99999))
Case "points"
Points = CInt(Value)
Case "haspokedex"
HasPokedex = CBool(Value)
Case "haspokegear"
HasPokegear = CBool(Value)
Case "freecamera"
startFreeCameraMode = CBool(Value)
Case "thirdperson"
startThirdPerson = CBool(Value)
Case "skin"
Skin = Value
Case "battleanimations"
ShowBattleAnimations = CInt(Value)
Case "boxamount"
BoxAmount = CInt(Value)
Case "lastrestplace"
LastRestPlace = Value
Case "lastrestplaceposition"
LastRestPlacePosition = Value
Case "diagonalmovement"
If GameController.IS_DEBUG_ACTIVE = True Then
DiagonalMovement = CBool(Value)
Else
DiagonalMovement = False
End If
Case "repelsteps"
RepelSteps = CInt(Value)
Case "lastsaveplace"
LastSavePlace = Value
Case "lastsaveplaceposition"
LastSavePlacePosition = Value
Case "difficulty"
DifficultyMode = CInt(Value)
Case "battlestyle"
BattleStyle = CInt(Value)
Case "savecreated"
SaveCreated = Value
Case "autosave"
If IsGameJoltSave = False Then
newFilePrefix = Value
AutosaveUsed = True
End If
Case "daycaresteps"
DaycareSteps = CInt(Value)
Case "gamemode"
GameMode = Value
Case "pokefiles"
If Value <> "" Then
If Value.Contains(",") = True Then
PokeFiles.AddRange(Value.Split(CChar(",")))
Else
PokeFiles.Add(Value)
End If
End If
Case "visitedmaps"
VisitedMaps = Value
Case "tempsurfskin"
TempSurfSkin = Value
Case "surfing"
startSurfing = CBool(Value)
Screen.Level.Surfing = CBool(Value)
Case "bp"
BP = CInt(Value)
Case "gtsstars"
GTSStars = CInt(Value)
Case "showmodels"
ShowModelsInBattle = CBool(Value)
Case "sandboxmode"
SandBoxMode = CBool(Value)
Case "earnedachievements"
If Value <> "" Then
EarnedAchievements = Value.Split(CChar(",")).ToList()
End If
End Select
Else
Logger.Log(Logger.LogTypes.Warning, "Player.vb: The line """ & Line & """ is either empty or does not conform the player.dat file rules.")
End If
Next
If IsGameJoltSave = True And Screen.Level.Surfing = False Then
Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
Select Case GameJoltSave.Gender
Case "0"
Male = True
Case "1"
Male = False
Case Else
Male = True
End Select
End If
GameStart = Date.Now
Core.Player.PokedexData = Encryption.DecryptString(Items(11), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.RegisterData = Encryption.DecryptString(Items(12), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.RoamingPokemonData = Encryption.DecryptString(Items(13), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
Core.Player.SecretBaseData = Encryption.DecryptString(Items(14), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
PlayerStatistics.Load(Encryption.DecryptString(Items(15), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)))
Else
Logger.Log(Logger.LogTypes.Warning, "Backup save have been tempered with. Unable to load.")
End If
Catch ex As Exception
Logger.Log(Logger.LogTypes.Warning, "Backup save have been tempered with. Unable to load.")
End Try
End If
#If DEBUG Then
If Not Directory.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite") Then
Directory.CreateDirectory(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Apricorns.dat")) Then
Core.Player.ApricornData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Apricorns.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Apricorns.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Berries.dat")) Then
Core.Player.BerryData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Berries.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Berries.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Box.dat")) Then
Core.Player.BoxData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Box.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Box.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Daycare.dat")) Then
Core.Player.DaycareData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Daycare.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Daycare.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\HallOfFame.dat")) Then
Core.Player.HallOfFameData = IO.File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\HallOfFame.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\HallOfFame.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\ItemData.dat")) Then
Core.Player.ItemData = IO.File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\ItemData.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\ItemData.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Items.dat")) Then
Inventory.Clear()
Mails.Clear()
Dim Data As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Items.dat")
If Not String.IsNullOrWhiteSpace(Data) Then
For Each ItemDat As String In Data.SplitAtNewline()
If Not String.IsNullOrWhiteSpace(ItemDat) Then
If ItemDat.StartsWith("{") AndAlso ItemDat.EndsWith("}") AndAlso ItemDat.Contains("|") Then
Dim ItemID As String = ItemDat.Remove(0, ItemDat.IndexOf("{") + 1)
ItemID = ItemID.Remove(ItemID.IndexOf("}"))
Dim amount As Integer = CInt(ItemID.Remove(0, ItemID.IndexOf("|") + 1))
ItemID = ItemID.Remove(ItemID.IndexOf("|"))
Inventory.AddItem(CInt(ItemID), amount)
ElseIf ItemDat.StartsWith("Mail|") Then
Dim mailData As String = ItemDat.Remove(0, 5)
Mails.Add(Items.MailItem.GetMailDataFromString(mailData))
End If
End If
Next
End If
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Items.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\NPC.dat")) Then
Core.Player.NPCData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\NPC.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\NPC.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Options.dat")) Then
Dim Data As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Options.dat")
For Each Line As String In Data.SplitAtNewline()
If Line.Contains("|") Then
Dim ID As String = Line.Remove(Line.IndexOf("|"))
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
Select Case ID.ToLower()
Case "fov"
startFOV = CSng(Value.Replace(".", GameController.DecSeparator)).Clamp(1, 179)
Case "textspeed"
TextBox.TextSpeed = CInt(Value)
Case "mousespeed"
startRotationSpeed = CInt(Value)
End Select
End If
Next
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Options.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Party.dat")) Then
Pokemons.Clear()
Dim PokeData As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Party.dat")
For Each Line As String In PokeData.SplitAtNewline()
If Line.StartsWith("{") AndAlso Line.EndsWith("}") Then
Dim p As Pokemon = Pokemon.GetPokemonByData(Line)
If p.IsEgg() = False Then
If p.IsShiny = True Then
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 3)
Else
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 2)
End If
End If
Pokemons.Add(p)
End If
Next
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Party.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Player.dat")) Then
Dim Data As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Player.dat")
Screen.Level.Riding = False
For Each Line As String In Data.SplitAtNewline()
If Not String.IsNullOrWhiteSpace(Line) AndAlso Line.Contains("|") Then
Dim ID As String = Line.Remove(Line.IndexOf("|"))
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
Select Case ID.ToLower()
Case "name"
Name = CType(IIf(IsGameJoltSave, GameJolt.API.username, Value), String)
Case "position"
Dim v() As String = Value.Split(CChar(","))
startPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
startPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
startPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
Case "lastpokemonposition"
Dim v() As String = Value.Split(CChar(","))
LastPokemonPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
LastPokemonPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
LastPokemonPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
Case "mapfile"
startMap = Value
Case "rivalname"
RivalName = Value
Case "money"
Money = CInt(Value)
Case "badges"
Badges.Clear()
If Value = "0" Then
Badges = New List(Of Integer)
Else
If Value.Contains(",") = False Then
Badges = {CInt(Value)}.ToList()
Else
Dim l As List(Of String) = Value.Split(CChar(",")).ToList()
For i = 0 To l.Count - 1
Badges.Add(CInt(l(i)))
Next
End If
End If
Case "rotation"
startRotation = CSng(Value.Replace(".", GameController.DecSeparator))
Case "Gender"
If Value = "Male" Then
Male = True
Else
Male = False
End If
Case "playtime"
Dim dd() As String = Value.Split(CChar(","))
If dd.Count >= 4 Then
PlayTime = New TimeSpan(CInt(dd(3)), CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
Else
PlayTime = New TimeSpan(CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
End If
Case "ot"
OT = CStr(CInt(Value).Clamp(0, 99999))
Case "points"
Points = CInt(Value)
Case "haspokedex"
HasPokedex = CBool(Value)
Case "haspokegear"
HasPokegear = CBool(Value)
Case "freecamera"
startFreeCameraMode = CBool(Value)
Case "thirdperson"
startThirdPerson = CBool(Value)
Case "skin"
Skin = Value
Case "battleanimations"
ShowBattleAnimations = CInt(Value)
Case "boxamount"
BoxAmount = CInt(Value)
Case "lastrestplace"
LastRestPlace = Value
Case "lastrestplaceposition"
LastRestPlacePosition = Value
Case "diagonalmovement"
If GameController.IS_DEBUG_ACTIVE = True Then
DiagonalMovement = CBool(Value)
Else
DiagonalMovement = False
End If
Case "repelsteps"
RepelSteps = CInt(Value)
Case "lastsaveplace"
LastSavePlace = Value
Case "lastsaveplaceposition"
LastSavePlacePosition = Value
Case "difficulty"
DifficultyMode = CInt(Value)
Case "battlestyle"
BattleStyle = CInt(Value)
Case "savecreated"
SaveCreated = Value
Case "autosave"
If IsGameJoltSave = False Then
newFilePrefix = Value
AutosaveUsed = True
End If
Case "daycaresteps"
DaycareSteps = CInt(Value)
Case "gamemode"
GameMode = Value
Case "pokefiles"
If Value <> "" Then
If Value.Contains(",") = True Then
PokeFiles.AddRange(Value.Split(CChar(",")))
Else
PokeFiles.Add(Value)
End If
End If
Case "visitedmaps"
VisitedMaps = Value
Case "tempsurfskin"
TempSurfSkin = Value
Case "surfing"
startSurfing = CBool(Value)
Screen.Level.Surfing = CBool(Value)
Case "bp"
BP = CInt(Value)
Case "gtsstars"
GTSStars = CInt(Value)
Case "showmodels"
ShowModelsInBattle = CBool(Value)
Case "sandboxmode"
SandBoxMode = CBool(Value)
Case "earnedachievements"
If Value <> "" Then
EarnedAchievements = Value.Split(CChar(",")).ToList()
End If
End Select
Else
Logger.Log(Logger.LogTypes.Warning, "Player.vb: The line """ & Line & """ is either empty or does not conform the player.dat file rules.")
End If
Next
If IsGameJoltSave = True And Screen.Level.Surfing = False Then
Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
Select Case GameJoltSave.Gender
Case "0"
Male = True
Case "1"
Male = False
Case Else
Male = True
End Select
End If
GameStart = Date.Now
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Player.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Pokedex.dat")) Then
Core.Player.PokedexData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Pokedex.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Pokedex.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Register.dat")) Then
Core.Player.RegisterData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Register.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Register.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\RoamingPokemon.dat")) Then
Core.Player.RoamingPokemonData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\RoamingPokemon.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\RoamingPokemon.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\SecretBase.dat")) Then
Core.Player.SecretBaseData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\SecretBase.dat")
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\SecretBase.dat")
End If
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Statistics.dat")) Then
PlayerStatistics.Load(File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Statistics.dat"))
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Statistics.dat")
End If
#End If
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Apricorns.dat", GameJoltSave.Apricorns)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Berries.dat", GameJoltSave.Berries)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Box.dat", GameJoltSave.Box)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Daycare.dat", GameJoltSave.Daycare)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\HallOfFame.dat", GameJoltSave.HallOfFame)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\ItemData.dat", GameJoltSave.ItemData)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Items.dat", GameJoltSave.Items)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\NPC.dat", GameJoltSave.NPC)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Options.dat", GameJoltSave.Options)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Party.dat", GameJoltSave.Party)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Player.dat", GameJoltSave.Player)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Pokedex.dat", GameJoltSave.Pokedex)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Register.dat", GameJoltSave.Register)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\RoamingPokemon.dat", GameJoltSave.RoamingPokemon)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\SecretBase.dat", GameJoltSave.SecretBase)
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Statistics.dat", GameJoltSave.Statistics)
End If
''' Indev 0.54 Removal List
''' 1. All Mega Stones. [ID: 507 - 553]
''' 2. Shiny Candy [ID: 501]
@ -1061,7 +1583,37 @@
filePrefix = newFilePrefix
If IsGameJoltSave = True Then
If Core.GameOptions.Extras.Contains("Backup Save") Then
If Not Directory.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted") Then
Directory.CreateDirectory(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted")
End If
Dim OriginalHASH As String =
Encryption.EncryptString(GetApricornsData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetBerriesData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetBoxData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetDaycareData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetHallOfFameData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetItemDataData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetItemsData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetNPCDataData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetOptionsData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetPartyData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetPlayerData(False), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetPokedexData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetRegisterData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetRoamingPokemonData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetSecretBaseData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
Encryption.EncryptString(GetStatisticsData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted\Encrypted.dat",
OriginalHASH & "|" & Encryption.EncryptString(OriginalHASH, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)))
End If
Dim APICallSave As New GameJolt.APICall(AddressOf SaveGameHelpers.CompleteGameJoltSave)
AddHandler APICallSave.CallFails, Sub(ByVal ex As Exception)
SaveGameHelpers.CompleteGameJoltSave("false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false" & vbNewLine & "false")
End Sub
Dim keys As New List(Of String)
Dim dataItems As New List(Of String)
@ -1680,7 +2232,6 @@
"@Text.Show(Your repel effect wore off.)" & vbNewLine &
":end"
If Temp.LastUsedRepel > -1 Then
Dim haveItemLeft As Boolean = Inventory.GetItemAmount(Temp.LastUsedRepel) > 0

2
2.5DHero/2.5DHero/Pokemon/Attacks/Fire/FireFang.vb
View File

@ -16,7 +16,7 @@
Me.Category = Categories.Physical
Me.ContestCategory = ContestCategories.Beauty
Me.Name = "Fire Fang"
Me.Description = "The user bites with flame-cloaked fangs. It may also make the target flinch or leave it burned."
Me.Description = "The user bites with flame cloaked fangs. It may also make the target flinch or leave it burned."
Me.CriticalChance = 1
Me.IsHMMove = False
Me.Target = Targets.OneAdjacentTarget

735
2.5DHero/2.5DHero/Pokemon/Monster/Resource/PokemonForms.vb
View File

@ -4,9 +4,9 @@ Public Class PokemonForms
Public Shared Sub Initialize()
_pokemonList.Clear()
_pokemonList.AddRange({New Charizard(), New Beedrill(), New Pidgeot(), New Nidoran(), New Alakazam(), New Slowbro(), New Gengar(),
New Pichu(), New Unown(), New Ampharos(), New Steelix(), New Scizor(), New Heracross(), New Tyranitar(),
New Sceptile(), New Blaziken(), New Swampert(), New Gardevoir(), New Aggron(), New Medicham(), New Camerupt(), New Altaria(), New Banette(), New Absol(), New Metagross(), New Kyogre(), New Groudon(), New Deoxys(),
_pokemonList.AddRange({New Venusaur(), New Charizard(), New Blastoise(), New Beedrill(), New Pidgeot(), New Nidoran(), New Alakazam(), New Slowbro(), New Gengar(), New Kangaskhan(), New Pinsir(), New Gyarados(), New Aerodactyl(), New Mewtwo(),
New Pichu(), New Unown(), New Ampharos(), New Steelix(), New Scizor(), New Heracross(), New Houndoom(), New Tyranitar(),
New Sceptile(), New Blaziken(), New Swampert(), New Gardevoir(), New Sableye(), New Mawile(), New Aggron(), New Medicham(), New Manectric(), New Sharpedo(), New Camerupt(), New Altaria(), New Banette(), New Absol(), New Glalie(), New Salamence(), New Metagross(), New Latias(), New Latios(), New Kyogre(), New Groudon(), New Rayquaza(), New Deoxys(),
New Burmy(), New Shellos(), New Gastrodon(), New Lopunny(), New Garchomp(), New Lucario(), New Abomasnow(), New Gallade(), New Rotom(), New Dialga(), New Arceus(),
New Audino(), New Basculin(), New Deerling(), New Sawsbuck(), New Frillish(), New Jellicent(), New Tornadus(), New Thundurus(), New Landorus(), New Kyurem(),
New Vivillon(), New Pyroar(), New Aegislash(), New Diancie()})
@ -194,6 +194,47 @@ Public Class PokemonForms
End Function
End Class
Private Class Venusaur
Inherits PokemonForm
Public Sub New()
MyBase.New(3)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(24, 29)
Case Else
Return New Vector2(2, 0)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Charizard
Inherits PokemonForm
Public Sub New()
@ -216,7 +257,7 @@ Public Class PokemonForms
Case "mega_y"
Return New Size(38, 32)
Case Else
Return New Size(35, 32)
Return New Size(32, 32)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
@ -252,6 +293,46 @@ Public Class PokemonForms
End Function
End Class
Private Class Blastoise
Inherits PokemonForm
Public Sub New()
MyBase.New(9)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(29, 29)
Case Else
Return New Vector2(8, 0)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Beedrill
Inherits PokemonForm
Public Sub New()
@ -470,6 +551,214 @@ Public Class PokemonForms
End Function
End Class
Private Class Kangaskhan
Inherits PokemonForm
Public Sub New()
MyBase.New(115)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(26, 29)
Case Else
Return New Vector2(18, 3)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Pinsir
Inherits PokemonForm
Public Sub New()
MyBase.New(127)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(0, 29)
Case Else
Return New Vector2(30, 3)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Gyarados
Inherits PokemonForm
Public Sub New()
MyBase.New(130)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(31, 27)
Case Else
Return New Vector2(1, 4)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Aerodactyl
Inherits PokemonForm
Public Sub New()
MyBase.New(142)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(20, 29)
Case Else
Return New Vector2(13, 4)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Mewtwo
Inherits PokemonForm
Public Sub New()
MyBase.New(150)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega_x"
Return New Vector2(14, 29)
Case "mega_y"
Return New Vector2(28, 29)
Case Else
Return New Vector2(21, 4)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega_x"
Return "_mega_x"
Case "mega_y"
Return "_mega_y"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega_x"
Return P.OriginalName & "_mega_x"
Case "mega_y"
Return P.OriginalName & "_mega_y"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega_x"
Return "_mega_x"
Case "mega_y"
Return "_mega_y"
Case Else
Return ""
End Select
End Function
End Class
Private Class Pichu
Inherits PokemonForm
@ -709,6 +998,46 @@ Public Class PokemonForms
End Function
End Class
Private Class Houndoom
Inherits PokemonForm
Public Sub New()
MyBase.New(229)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(4, 29)
Case Else
Return New Vector2(4, 7)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Tyranitar
Inherits PokemonForm
Public Sub New()
@ -917,6 +1246,86 @@ Public Class PokemonForms
End Function
End Class
Private Class Sableye
Inherits PokemonForm
Public Sub New()
MyBase.New(302)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(19, 26)
Case Else
Return New Vector2(13, 9)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Mawile
Inherits PokemonForm
Public Sub New()
MyBase.New(303)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(13, 29)
Case Else
Return New Vector2(14, 9)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Aggron
Inherits PokemonForm
Public Sub New()
@ -997,6 +1406,86 @@ Public Class PokemonForms
End Function
End Class
Private Class Manectric
Inherits PokemonForm
Public Sub New()
MyBase.New(310)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(11, 29)
Case Else
Return New Vector2(21, 9)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Sharpedo
Inherits PokemonForm
Public Sub New()
MyBase.New(319)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(20, 26)
Case Else
Return New Vector2(30, 9)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Camerupt
Inherits PokemonForm
Public Sub New()
@ -1157,6 +1646,94 @@ Public Class PokemonForms
End Function
End Class
Private Class Glalie
Inherits PokemonForm
Public Sub New()
MyBase.New(362)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(29, 27)
Case Else
Return New Vector2(9, 11)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Salamence
Inherits PokemonForm
Public Sub New()
MyBase.New(373)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(23, 26)
Case Else
Return New Vector2(20, 11)
End Select
End Function
Public Overrides Function GetMenuImageSize(ByVal P As Pokemon) As Size
Select Case P.AdditionalData
Case "mega"
Return New Size(35, 32)
Case Else
Return New Size(32, 32)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Metagross
Inherits PokemonForm
Public Sub New()
@ -1197,6 +1774,100 @@ Public Class PokemonForms
End Function
End Class
Private Class Latias
Inherits PokemonForm
Public Sub New()
MyBase.New(380)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(28, 26)
Case Else
Return New Vector2(27, 11)
End Select
End Function
Public Overrides Function GetMenuImageSize(ByVal P As Pokemon) As Size
Select Case P.AdditionalData
Case "mega"
Return New Size(35, 32)
Case Else
Return New Size(32, 32)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Latios
Inherits PokemonForm
Public Sub New()
MyBase.New(381)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(30, 26)
Case Else
Return New Vector2(28, 11)
End Select
End Function
Public Overrides Function GetMenuImageSize(ByVal P As Pokemon) As Size
Select Case P.AdditionalData
Case "mega"
Return New Size(35, 32)
Case Else
Return New Size(32, 32)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Kyogre
Inherits PokemonForm
Public Sub New()
@ -1293,6 +1964,53 @@ Public Class PokemonForms
End Function
End Class
Private Class Rayquaza
Inherits PokemonForm
Public Sub New()
MyBase.New(384)
End Sub
Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2
Select Case P.AdditionalData
Case "mega"
Return New Vector2(26, 25)
Case Else
Return New Vector2(31, 11)
End Select
End Function
Public Overrides Function GetMenuImageSize(ByVal P As Pokemon) As Size
Select Case P.AdditionalData
Case "mega"
Return New Size(38, 32)
Case Else
Return New Size(32, 32)
End Select
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return P.OriginalName & "_mega"
Case Else
Return P.OriginalName
End Select
End Function
Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String
Select Case P.AdditionalData
Case "mega"
Return "_mega"
Case Else
Return ""
End Select
End Function
End Class
Private Class Deoxys
Inherits PokemonForm
@ -1720,7 +2438,14 @@ Public Class PokemonForms
Return MyBase.GetOverworldAddition(P)
End If
End Function
Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String
Select Case AdditionalData.ToLower()
Case "primal"
Return "_primal"
Case Else
Return ""
End Select
End Function
End Class
Private Class Arceus

4
2.5DHero/2.5DHero/Resources/TextureManager.vb
View File

@ -130,8 +130,8 @@ Public Class TextureManager
End Function
Public Shared Function GetTexture(ByVal Texture As Texture2D, ByVal Rectangle As Rectangle, Optional ByVal Factor As Integer = 1) As Texture2D
Dim tex As Texture2D
Dim tex As Texture2D = Nothing
If TextureRectList.TryGetValue(New KeyValuePair(Of Int32, Rectangle)(Texture.GetHashCode(), Rectangle), tex) then
Return tex
End If

2
2.5DHero/2.5DHero/Screens/Credits/CreditsScreen.vb
View File

@ -61,7 +61,7 @@ Public Class CreditsScreen
CreditsPages.Add(New CreditsPage("Director", Color.White, Color.Black, {"Nils Drescher"}.ToList()))
CreditsPages.Add(New CreditsPage("Open Source Development Team", Color.White, Color.Black, {"Benjamin Smith", "Yong Jian Ming", """Aragas""", """oXFantaXo""", "Jorge Luis Espinoza", "Conner Joseph Brewster"}.ToList()))
CreditsPages.Add(New CreditsPage("Programming", Color.White, Color.Black, {"Nils Drescher", "Jason Houston", "William Lang", "Benjamin Smith", "Yong Jian Ming", "Jorge Luis Espinoza", """Aragas"""}.ToList()))
CreditsPages.Add(New CreditsPage("Graphic Design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", """Godeken""", "Caleb Coleman", "Robert Nobbmann", "Manuel Lampe", "Miguel Nunez", "Grant Garrett", """Anvil555"""}.ToList()))
CreditsPages.Add(New CreditsPage("Graphic Design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", """Godeken""", "Caleb Coleman", "Robert Nobbmann", "Manuel Lampe", "Miguel Nunez", "Grant Garrett", """Anvil555""", """Omega Ghost"""}.ToList()))
CreditsPages.Add(New CreditsPage("Map Design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Manuel Lampe", "Robert Nobbmann", "Maximilian Schröder", "Jan Mika Eine", "Jason Houston", """oXFantaXo"""}.ToList()))
CreditsPages.Add(New CreditsPage("Actionscript", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Andrew Leach", "Jason Houston", "Yong Jian Ming", """Aragas""" }.ToList()))
CreditsPages.Add(New CreditsPage("Script System Development", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Yong Jian Ming", """Aragas"""}.ToList()))

8
2.5DHero/2.5DHero/Screens/GUI/DonationScreen.vb
View File

@ -37,7 +37,7 @@
If Controls.Down(True, True, True, True) = True Then
OffsetY += 1
End If
OffsetY = CInt(MathHelper.Clamp(OffsetY, 0, DonatorList.Count - 13))
OffsetY = CInt(MathHelper.Clamp(OffsetY, 0, DonatorList.Count - 12))
If Controls.Dismiss() = True Then
Core.SetScreen(Me.PreScreen)
@ -50,7 +50,7 @@
Core.SpriteBatch.Draw(mainTexture, New Rectangle(CInt(Core.windowSize.Width / 2) - 285, 0, 570, 680), Color.White)
Dim t As String = ""
For i = OffsetY To 12 + OffsetY
For i = OffsetY To 11 + OffsetY
If i <> OffsetY Then
t &= vbNewLine & vbNewLine
End If
@ -59,8 +59,8 @@
End If
Next
If DonatorList.Count > 13 Then
Canvas.DrawScrollBar(New Vector2(CInt(Core.windowSize.Width / 2) + 180, 100), DonatorList.Count, 13, OffsetY, New Size(4, 500), False, TextureManager.GetTexture(scrollTexture, New Rectangle(112, 12, 1, 1)), TextureManager.GetTexture(scrollTexture, New Rectangle(113, 12, 1, 1)))
If DonatorList.Count > 12 Then
Canvas.DrawScrollBar(New Vector2(CInt(Core.windowSize.Width / 2) + 180, 100), DonatorList.Count, 12, OffsetY, New Size(4, 500), False, TextureManager.GetTexture(scrollTexture, New Rectangle(112, 12, 1, 1)), TextureManager.GetTexture(scrollTexture, New Rectangle(113, 12, 1, 1)))
End If
Core.SpriteBatch.DrawString(FontManager.MainFont, t, New Vector2(CInt(Core.windowSize.Width / 2) - 180, 100), Color.Black)

2
2.5DHero/2.5DHero/Screens/Inventory/ChoosePokemonScreen.vb
View File

@ -190,7 +190,7 @@
Core.SpriteBatch.Draw(Item.Texture, New Rectangle(78, 124, 48, 48), Color.White)
If Me.canExit = True Then
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Press the E key to go back.", New Vector2(710, 580), Color.DarkGray)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Press the E key to go back.", New Vector2(640, 580), Color.DarkGray)
End If
For i = 0 To Me.PokemonList.Count - 1

36
2.5DHero/2.5DHero/Screens/MainMenu/MainMenuScreen.vb
View File

@ -1,4 +1,8 @@
Public Class MainMenuScreen
Imports System.Net
Imports System.Net.Cache
Imports System.Threading.Tasks
Public Class MainMenuScreen
Inherits Screen
@ -78,6 +82,32 @@
GameJolt.Emblem.ClearOnlineSpriteCache()
Screen.Level.World.Initialize(Screen.Level.EnvironmentType, Screen.Level.WeatherType)
UpdateCheck()
End Sub
Private Sub UpdateCheck()
Try
If Not GameController.UpdateChecked Then
Logger.Debug("---Check Version---")
If Not Core.GameOptions.UpdateDisabled AndAlso My.Computer.Network.IsAvailable Then
Task.Factory.StartNew(Sub()
Dim Updater As New Process()
Updater.StartInfo = New ProcessStartInfo("Updater.exe")
Updater.Start()
Updater.WaitForExit()
If Updater.ExitCode = 1 Then
Core.GameInstance.Exit()
Else
GameController.UpdateChecked = True
End If
End Sub)
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub GetPacks(Optional ByVal reload As Boolean = False)
@ -703,7 +733,7 @@
If MouseHandler.ButtonPressed(MouseHandler.MouseButtons.LeftButton) = True Then
Select Case loadMenuIndex(1)
Case 0
Core.Player.IsGamejoltSave = False
Core.Player.IsGameJoltSave = False
Core.Player.LoadGame(System.IO.Path.GetFileName(Saves(loadMenuIndex(0))))
Core.SetScreen(New JoinServerScreen(Me))
@ -743,7 +773,7 @@
If Controls.Accept(False, True) = True Then
Select Case loadMenuIndex(1)
Case 0
Core.Player.IsGamejoltSave = False
Core.Player.IsGameJoltSave = False
Core.Player.LoadGame(System.IO.Path.GetFileName(Saves(loadMenuIndex(0))))
Core.SetScreen(New JoinServerScreen(Me))

1
2.5DHero/2.5DHero/Screens/MainMenu/SplashScreen.vb
View File

@ -72,7 +72,6 @@ Friend Class SplashScreen
Private Sub LoadContent()
Logger.Debug("---Start loading content---")
Core.LoadContent()
End Sub

18
2.5DHero/2.5DHero/Screens/SaveScreen.vb
View File

@ -32,8 +32,19 @@
With Core.SpriteBatch
If saveSessionFailed = True Then
.DrawString(FontManager.InGameFont, "Saving failed!", New Vector2(188, 186), Color.Red)
.DrawString(FontManager.MiniFont, "Press Dismiss to close this screen and try to save" & vbNewLine &
"again in order to prevent data corruption.", New Vector2(188, 240), Color.Black)
If Core.GameOptions.Extras.Contains("Backup Save") Then
.DrawString(FontManager.MiniFont, "Press Dismiss to close this screen and try to save" & vbNewLine &
"again in order to prevent data corruption." & vbNewLine & vbNewLine &
"We have backup your save in the event of gamejolt API being down." & vbNewLine &
"You may safely quit the game now or try to save again later." & vbNewLine & vbNewLine &
"Backup save can be found at the Backup Save folder :)", New Vector2(188, 240), Color.Black)
Else
.DrawString(FontManager.MiniFont, "Press Dismiss to close this screen and try to save" & vbNewLine &
"again in order to prevent data corruption." & vbNewLine & vbNewLine &
"To have your save back up, you will require to enable Backup Save" & vbNewLine &
"Via GameOptions.dat > Extras|Backup Save", New Vector2(188, 240), Color.Black)
End If
Else
If ready = True Then
.DrawString(FontManager.InGameFont, OldLocalization.GetString("save_screen_success"), New Vector2(188, 186), Color.DarkBlue)
@ -74,6 +85,9 @@
If SaveGameHelpers.EncounteredErrors = True Then
Me.saveSessionFailed = True
Else
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID.ToString() & "\Encrypted\Encrypted.dat")) Then
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID.ToString() & "\Encrypted\Encrypted.dat")
End If
SoundManager.PlaySound("save")
End If

2
2.5DHero/2.5DHero/Screens/TransitionScreen.vb
View File

@ -59,7 +59,7 @@
End If
End Sub
Public Overrides Sub Draw()
Public Overrides Sub Draw()
If reduce = False Then
OldScreen.Draw()
Else

4
2.5DHero/2.5DHero/Security/FileValidation.vb
View File

@ -6,8 +6,8 @@
Shared _valid As Boolean = False
Const RUNVALIDATION As Boolean = False
Const EXPECTEDSIZE As Integer = 42308900
Const METAHASH As String = "REUyMEYyNjA2Qzc4MkJEMkRDNTdCMzZEODk0RjQwMTk="
Const EXPECTEDSIZE As Integer = 42417354
Const METAHASH As String = "RUM3N0U1REM0NzREQjkzRUU2MEE1NDk2MUQxNDU5NDU="
Public Shared ReadOnly Property IsValid(ByVal ForceResult As Boolean) As Boolean
Get

BIN
2.5DHero/2.5DHero/Updater.exe Normal file
View File

Binary file not shown.

4
2.5DHero/2.5DHero/World/Level.vb
View File

@ -685,7 +685,9 @@ Public Class Level
Public Sub StopOffsetMapUpdate()
Me._offsetTimer.Stop()
While Me._isUpdatingOffsetMaps : End While
While Me._isUpdatingOffsetMaps
System.Threading.Thread.Sleep(1)
End While
Logger.Debug("Stopped Offset map update")
End Sub

399
2.5DHero/2.5DHeroContent/Content.mgcb
View File

@ -1343,6 +1343,9 @@
#begin Content/Pokemon/Data/115.dat
/copy:Content/Pokemon/Data/115.dat
#begin Content/Pokemon/Data/115_mega.dat
/copy:Content/Pokemon/Data/115_mega.dat
#begin Content/Pokemon/Data/116.dat
/copy:Content/Pokemon/Data/116.dat
@ -1382,6 +1385,9 @@
#begin Content/Pokemon/Data/127.dat
/copy:Content/Pokemon/Data/127.dat
#begin Content/Pokemon/Data/127_mega.dat
/copy:Content/Pokemon/Data/127_mega.dat
#begin Content/Pokemon/Data/128.dat
/copy:Content/Pokemon/Data/128.dat
@ -1394,6 +1400,9 @@
#begin Content/Pokemon/Data/130.dat
/copy:Content/Pokemon/Data/130.dat
#begin Content/Pokemon/Data/130_mega.dat
/copy:Content/Pokemon/Data/130_mega.dat
#begin Content/Pokemon/Data/131.dat
/copy:Content/Pokemon/Data/131.dat
@ -1433,6 +1442,9 @@
#begin Content/Pokemon/Data/142.dat
/copy:Content/Pokemon/Data/142.dat
#begin Content/Pokemon/Data/142_mega.dat
/copy:Content/Pokemon/Data/142_mega.dat
#begin Content/Pokemon/Data/143.dat
/copy:Content/Pokemon/Data/143.dat
@ -1460,6 +1472,12 @@
#begin Content/Pokemon/Data/150.dat
/copy:Content/Pokemon/Data/150.dat
#begin Content/Pokemon/Data/150_mega_x.dat
/copy:Content/Pokemon/Data/150_mega_x.dat
#begin Content/Pokemon/Data/150_mega_y.dat
/copy:Content/Pokemon/Data/150_mega_y.dat
#begin Content/Pokemon/Data/151.dat
/copy:Content/Pokemon/Data/151.dat
@ -1661,6 +1679,9 @@
#begin Content/Pokemon/Data/208.dat
/copy:Content/Pokemon/Data/208.dat
#begin Content/Pokemon/Data/208_mega.dat
/copy:Content/Pokemon/Data/208_mega.dat
#begin Content/Pokemon/Data/209.dat
/copy:Content/Pokemon/Data/209.dat
@ -1736,6 +1757,9 @@
#begin Content/Pokemon/Data/229.dat
/copy:Content/Pokemon/Data/229.dat
#begin Content/Pokemon/Data/229_mega.dat
/copy:Content/Pokemon/Data/229_mega.dat
#begin Content/Pokemon/Data/23.dat
/copy:Content/Pokemon/Data/23.dat
@ -1997,9 +2021,15 @@
#begin Content/Pokemon/Data/302.dat
/copy:Content/Pokemon/Data/302.dat
#begin Content/Pokemon/Data/302_mega.dat
/copy:Content/Pokemon/Data/302_mega.dat
#begin Content/Pokemon/Data/303.dat
/copy:Content/Pokemon/Data/303.dat
#begin Content/Pokemon/Data/303_mega.dat
/copy:Content/Pokemon/Data/303_mega.dat
#begin Content/Pokemon/Data/304.dat
/copy:Content/Pokemon/Data/304.dat
@ -2030,6 +2060,9 @@
#begin Content/Pokemon/Data/310.dat
/copy:Content/Pokemon/Data/310.dat
#begin Content/Pokemon/Data/310_mega.dat
/copy:Content/Pokemon/Data/310_mega.dat
#begin Content/Pokemon/Data/311.dat
/copy:Content/Pokemon/Data/311.dat
@ -2057,6 +2090,9 @@
#begin Content/Pokemon/Data/319.dat
/copy:Content/Pokemon/Data/319.dat
#begin Content/Pokemon/Data/319_mega.dat
/copy:Content/Pokemon/Data/319_mega.dat
#begin Content/Pokemon/Data/32.dat
/copy:Content/Pokemon/Data/32.dat
@ -2213,6 +2249,9 @@
#begin Content/Pokemon/Data/362.dat
/copy:Content/Pokemon/Data/362.dat
#begin Content/Pokemon/Data/362_mega.dat
/copy:Content/Pokemon/Data/362_mega.dat
#begin Content/Pokemon/Data/363.dat
/copy:Content/Pokemon/Data/363.dat
@ -2249,6 +2288,9 @@
#begin Content/Pokemon/Data/373.dat
/copy:Content/Pokemon/Data/373.dat
#begin Content/Pokemon/Data/373_mega.dat
/copy:Content/Pokemon/Data/373_mega.dat
#begin Content/Pokemon/Data/374.dat
/copy:Content/Pokemon/Data/374.dat
@ -2276,9 +2318,15 @@
#begin Content/Pokemon/Data/380.dat
/copy:Content/Pokemon/Data/380.dat
#begin Content/Pokemon/Data/380_mega.dat
/copy:Content/Pokemon/Data/380_mega.dat
#begin Content/Pokemon/Data/381.dat
/copy:Content/Pokemon/Data/381.dat
#begin Content/Pokemon/Data/381_mega.dat
/copy:Content/Pokemon/Data/381_mega.dat
#begin Content/Pokemon/Data/382.dat
/copy:Content/Pokemon/Data/382.dat
@ -2294,6 +2342,9 @@
#begin Content/Pokemon/Data/384.dat
/copy:Content/Pokemon/Data/384.dat
#begin Content/Pokemon/Data/384_mega.dat
/copy:Content/Pokemon/Data/384_mega.dat
#begin Content/Pokemon/Data/385.dat
/copy:Content/Pokemon/Data/385.dat
@ -2351,6 +2402,9 @@
#begin Content/Pokemon/Data/399.dat
/copy:Content/Pokemon/Data/399.dat
#begin Content/Pokemon/Data/3_mega.dat
/copy:Content/Pokemon/Data/3_mega.dat
#begin Content/Pokemon/Data/4.dat
/copy:Content/Pokemon/Data/4.dat
@ -2669,6 +2723,9 @@
#begin Content/Pokemon/Data/483.dat
/copy:Content/Pokemon/Data/483.dat
#begin Content/Pokemon/Data/483_primal.dat
/copy:Content/Pokemon/Data/483_primal.dat
#begin Content/Pokemon/Data/484.dat
/copy:Content/Pokemon/Data/484.dat
@ -3626,6 +3683,9 @@
#begin Content/Pokemon/Data/99.dat
/copy:Content/Pokemon/Data/99.dat
#begin Content/Pokemon/Data/9_mega.dat
/copy:Content/Pokemon/Data/9_mega.dat
#begin Content/Pokemon/Data/frontier/0.dat
/copy:Content/Pokemon/Data/frontier/0.dat
@ -4307,6 +4367,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/142.png
#begin Content/Pokemon/Overworld/Normal/142_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/142_mega.png
#begin Content/Pokemon/Overworld/Normal/143.png
/importer:TextureImporter
/processor:TextureProcessor
@ -4415,6 +4487,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/150.png
#begin Content/Pokemon/Overworld/Normal/150_mega_x.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/150_mega_x.png
#begin Content/Pokemon/Overworld/Normal/151.png
/importer:TextureImporter
/processor:TextureProcessor
@ -8327,6 +8411,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/399.png
#begin Content/Pokemon/Overworld/Normal/3_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/3_mega.png
#begin Content/Pokemon/Overworld/Normal/4.png
/importer:TextureImporter
/processor:TextureProcessor
@ -14243,6 +14339,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/99.png
#begin Content/Pokemon/Overworld/Normal/9_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Normal/9_mega.png
#begin Content/Pokemon/Overworld/Shiny/1.png
/importer:TextureImporter
/processor:TextureProcessor
@ -14831,6 +14939,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/142.png
#begin Content/Pokemon/Overworld/Shiny/142_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/142_mega.png
#begin Content/Pokemon/Overworld/Shiny/143.png
/importer:TextureImporter
/processor:TextureProcessor
@ -14939,6 +15059,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/150.png
#begin Content/Pokemon/Overworld/Shiny/150_mega_x.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/150_mega_x.png
#begin Content/Pokemon/Overworld/Shiny/151.png
/importer:TextureImporter
/processor:TextureProcessor
@ -16175,6 +16307,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/214.png
#begin Content/Pokemon/Overworld/Shiny/214_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/214_mega.png
#begin Content/Pokemon/Overworld/Shiny/215.png
/importer:TextureImporter
/processor:TextureProcessor
@ -16763,6 +16907,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/257.png
#begin Content/Pokemon/Overworld/Shiny/257_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/257_mega.png
#begin Content/Pokemon/Overworld/Shiny/258.png
/importer:TextureImporter
/processor:TextureProcessor
@ -17111,6 +17267,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/282.png
#begin Content/Pokemon/Overworld/Shiny/282_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/282_mega.png
#begin Content/Pokemon/Overworld/Shiny/283.png
/importer:TextureImporter
/processor:TextureProcessor
@ -17435,6 +17603,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/306.png
#begin Content/Pokemon/Overworld/Shiny/306_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/306_mega.png
#begin Content/Pokemon/Overworld/Shiny/307.png
/importer:TextureImporter
/processor:TextureProcessor
@ -17819,6 +17999,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/334.png
#begin Content/Pokemon/Overworld/Shiny/334_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/334_mega.png
#begin Content/Pokemon/Overworld/Shiny/335.png
/importer:TextureImporter
/processor:TextureProcessor
@ -18083,6 +18275,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/354.png
#begin Content/Pokemon/Overworld/Shiny/354_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/354_mega.png
#begin Content/Pokemon/Overworld/Shiny/355.png
/importer:TextureImporter
/processor:TextureProcessor
@ -18143,6 +18347,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/359.png
#begin Content/Pokemon/Overworld/Shiny/359_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/359_mega.png
#begin Content/Pokemon/Overworld/Shiny/36.png
/importer:TextureImporter
/processor:TextureProcessor
@ -18719,6 +18935,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/399.png
#begin Content/Pokemon/Overworld/Shiny/3_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/3_mega.png
#begin Content/Pokemon/Overworld/Shiny/4.png
/importer:TextureImporter
/processor:TextureProcessor
@ -19199,6 +19427,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/428.png
#begin Content/Pokemon/Overworld/Shiny/428_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/428_mega.png
#begin Content/Pokemon/Overworld/Shiny/429.png
/importer:TextureImporter
/processor:TextureProcessor
@ -19427,6 +19667,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/445.png
#begin Content/Pokemon/Overworld/Shiny/445_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/445_mega.png
#begin Content/Pokemon/Overworld/Shiny/446.png
/importer:TextureImporter
/processor:TextureProcessor
@ -19463,6 +19715,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/448.png
#begin Content/Pokemon/Overworld/Shiny/448_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/448_mega.png
#begin Content/Pokemon/Overworld/Shiny/449.png
/importer:TextureImporter
/processor:TextureProcessor
@ -22763,6 +23027,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/659.png
#begin Content/Pokemon/Overworld/Shiny/65_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/65_mega.png
#begin Content/Pokemon/Overworld/Shiny/66.png
/importer:TextureImporter
/processor:TextureProcessor
@ -23843,6 +24119,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/6_mega_x.png
#begin Content/Pokemon/Overworld/Shiny/6_mega_y.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/6_mega_y.png
#begin Content/Pokemon/Overworld/Shiny/7.png
/importer:TextureImporter
/processor:TextureProcessor
@ -24527,6 +24815,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/99.png
#begin Content/Pokemon/Overworld/Shiny/9_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Overworld/Shiny/9_mega.png
#begin Content/Pokemon/Sprites/Abomasnow.png
/importer:TextureImporter
/processor:TextureProcessor
@ -28415,6 +28715,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Haxorus.png
#begin Content/Pokemon/Sprites/Heatmor.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Heatmor.png
#begin Content/Pokemon/Sprites/Heatran.png
/importer:TextureImporter
/processor:TextureProcessor
@ -30119,6 +30431,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Metagross.png
#begin Content/Pokemon/Sprites/Metagross_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Metagross_mega.png
#begin Content/Pokemon/Sprites/Metang.png
/importer:TextureImporter
/processor:TextureProcessor
@ -31775,6 +32099,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Sableye.png
#begin Content/Pokemon/Sprites/Sableye_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Sableye_mega.png
#begin Content/Pokemon/Sprites/Salamence.png
/importer:TextureImporter
/processor:TextureProcessor
@ -31787,6 +32123,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Salamence.png
#begin Content/Pokemon/Sprites/Salamence_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Salamence_mega.png
#begin Content/Pokemon/Sprites/Samurott.png
/importer:TextureImporter
/processor:TextureProcessor
@ -31919,6 +32267,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Sceptile.png
#begin Content/Pokemon/Sprites/Sceptile_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Sceptile_mega.png
#begin Content/Pokemon/Sprites/Scizor.png
/importer:TextureImporter
/processor:TextureProcessor
@ -32135,6 +32495,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Sharpedo.png
#begin Content/Pokemon/Sprites/Sharpedo_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Sharpedo_mega.png
#begin Content/Pokemon/Sprites/Shaymin.png
/importer:TextureImporter
/processor:TextureProcessor
@ -32495,6 +32867,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Slowbro.png
#begin Content/Pokemon/Sprites/Slowbro_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Slowbro_mega.png
#begin Content/Pokemon/Sprites/Slowking.png
/importer:TextureImporter
/processor:TextureProcessor
@ -32855,6 +33239,18 @@
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Steelix.png
#begin Content/Pokemon/Sprites/Steelix_mega.png
/importer:TextureImporter
/processor:TextureProcessor
/processorParam:ColorKeyColor=255,0,255,255
/processorParam:ColorKeyEnabled=True
/processorParam:GenerateMipmaps=False
/processorParam:PremultiplyAlpha=True
/processorParam:ResizeToPowerOfTwo=False
/processorParam:MakeSquare=False
/processorParam:TextureFormat=Color
/build:Content/Pokemon/Sprites/Steelix_mega.png
#begin Content/Pokemon/Sprites/Stoutland.png
/importer:TextureImporter
/processor:TextureProcessor
@ -46035,6 +46431,9 @@
#begin maps/battle/indigo/bruno.dat
/copy:maps/battle/indigo/bruno.dat
#begin maps/battle/indigo/inside.dat
/copy:maps/battle/indigo/inside.dat
#begin maps/battle/indigo/karen.dat
/copy:maps/battle/indigo/karen.dat

BIN
2.5DHero/2.5DHeroContent/Content/Localization/Tokens_en.dat
View File

Binary file not shown.

53
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/115_mega.dat Normal file
View File

@ -0,0 +1,53 @@
Name|Mega Kangaskhan
Number|115
ExperienceType|1
BaseExperience|172
Type1|Normal
Type2|
CatchRate|45
BaseFriendship|70
EggGroup1|Monster
EggGroup2|None
BaseEggSteps|5355
EggPokemon|115
IsGenderLess|0
CanBreed|1
Devolution|0
IsMale|0
Ability1|185
Ability2|Nothing
HiddenAbility|185
EggMoves|509,68,306,50,38,283,116,264,193,359,23,376,219,164
Machines|223,29,174,46,92,192,249,237,241,173,59,63,196,182,240,203,218,76,231,87,89,216,91,247,189,104,8,207,214,201,126,9,197,156,213,168,7,210,5,25,34,36,38,61,55,58,66,68,69,99,85,90,102,117,130,157,164,264,352,258,219,280,351,53,317,332,263,290,411,374,409,421,416,419,445,363,496,510,514,523,526,612,590,15,57,70,250,431,560
BaseHP|105
BaseAttack|125
BaseDefense|100
BaseSpAttack|60
BaseSpDefense|100
BaseSpeed|100
FPHP|2
FPAttack|0
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|If it is safe the belly pouch to play. The adult keeps a close eye on the youngster.\Parent Pokémon\100\2.2\0,148,0
Scale|1.48
Move|1,4
Move|1,43
Move|7,252
Move|10,39
Move|13,44
Move|19,458
Move|22,99
Move|25,5
Move|31,498
Move|34,146
Move|37,242
Move|43,203
Move|46,200
Move|49,389
Move|50,179
TradeValue|85

53
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/127_mega.dat Normal file
View File

@ -0,0 +1,53 @@
Name|Mega Pinsir
Number|127
ExperienceType|3
BaseExperience|175
Type1|Bug
Type2|Flying
CatchRate|45
BaseFriendship|70
EggGroup1|Bug
EggGroup2|None
BaseEggSteps|6630
EggPokemon|127
IsGenderLess|0
CanBreed|1
Devolution|0
IsMale|50
Ability1|184
Ability2|Nothing
HiddenAbility|184
EggMoves|450,370,185,364,175,31,382,98,276,206
Machines|29,174,92,249,237,241,173,63,182,240,203,218,89,216,91,104,207,214,197,156,213,168,210,14,34,36,38,66,69,99,102,117,157,164,264,339,280,317,263,290,411,206,374,416,444,446,445,404,363,479,496,522,523,590,15,70,431
BaseHP|65
BaseAttack|155
BaseDefense|120
BaseSpAttack|65
BaseSpDefense|90
BaseSpeed|105
FPHP|0
FPAttack|2
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|With its horns, it digs burrows to sleep in at night. In the morning, damp soil clings to its body.\Stag Beetle Pokémon\59\1.7\0,148,0
Scale|1.2
Move|1,11
Move|1,116
Move|4,20
Move|8,69
Move|11,106
Move|15,279
Move|18,280
Move|22,233
Move|26,66
Move|29,404
Move|33,480
Move|36,37
Move|40,14
Move|43,276
Move|47,12
TradeValue|80

49
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/130_mega.dat Normal file
View File

@ -0,0 +1,49 @@
Name|Mega Gyarados
Number|130
ExperienceType|3
BaseExperience|189
Type1|Water
Type2|Dark
CatchRate|45
BaseFriendship|70
EggGroup1|Water2
EggGroup2|Dragon
BaseEggSteps|1530
EggPokemon|129
IsGenderLess|0
CanBreed|1
Devolution|0
IsMale|50
Ability1|104
Ability2|Nothing
HiddenAbility|104
Machines|29,174,46,92,192,249,237,173,59,63,196,182,240,203,218,225,87,89,216,104,207,214,201,197,156,213,34,36,38,61,55,58,99,82,85,102,117,130,86,164,352,258,269,53,259,263,290,362,406,371,416,444,419,445,399,363,496,503,510,523,525,590,57,70,250,127,291
TutorMoves|340
BaseHP|95
BaseAttack|155
BaseDefense|109
BaseSpAttack|70
BaseSpDefense|130
BaseSpeed|81
FPHP|0
FPAttack|2
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|They say that during past strife GYARADOS would appear and leave blazing ruins in its wake.\Atrocious Pokémon\305\6.5\0,148,0
Scale|2
Move|1,37
Move|20,44
Move|23,82
Move|26,43
Move|29,239
Move|32,423
Move|35,401
Move|38,240
Move|41,56
Move|44,349
Move|47,63
TradeValue|35

56
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/142_mega.dat Normal file
View File

@ -0,0 +1,56 @@
Name|Mega Aerodactyl
Number|142
ExperienceType|3
BaseExperience|180
Type1|Rock
Type2|Flying
CatchRate|45
BaseFriendship|70
EggGroup1|Flying
EggGroup2|None
BaseEggSteps|9180
EggPokemon|142
IsGenderLess|0
CanBreed|1
Devolution|0
IsMale|87.5
Ability1|181
Ability2|Nothing
HiddenAbility|181
EggMoves|372,174,225,193,228,355,211,366,18,469
Machines|29,174,46,92,249,237,241,173,63,182,203,218,231,225,89,216,104,207,214,201,126,129,197,156,213,168,211,13,18,36,38,99,82,102,117,143,157,164,337,269,53,317,332,259,263,290,355,406,371,416,397,432,444,446,445,363,468,479,496,507,510,523,590,19,70
BaseHP|80
BaseAttack|135
BaseDefense|85
BaseSpAttack|70
BaseSpDefense|95
BaseSpeed|150
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|2
CanFly|1
CanSwim|0
Pokedex|A vicious Pokémon from the distant past, it appears to have flown by spreading its wings and gliding.\Fossil Pokémon\79\2.1\0,148,0
Scale|1.32
Move|1,442
Move|1,423
Move|1,424
Move|1,422
Move|1,17
Move|1,48
Move|1,44
Move|1,184
Move|9,46
Move|17,97
Move|25,246
Move|33,242
Move|41,36
Move|49,507
Move|57,442
Move|65,63
Move|73,157
Move|81,416
TradeValue|80

55
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/150_mega_x.dat Normal file
View File

@ -0,0 +1,55 @@
Name|Mega Mewtwo X
Number|150
ExperienceType|3
BaseExperience|306
Type1|Psychic
Type2|Fighting
CatchRate|3
BaseFriendship|0
EggGroup1|None
EggGroup2|None
BaseEggSteps|30855
EggPokemon|150
IsGenderLess|1
CanBreed|0
Devolution|0
IsMale|0.0
Ability1|80
Ability2|Nothing
HiddenAbility|80
Machines|223,29,174,92,192,249,244,237,241,173,59,63,196,182,240,203,218,76,231,87,89,216,94,247,189,104,8,207,214,126,9,138,197,156,213,7,171,5,25,34,36,38,61,55,58,6,66,68,69,99,85,100,102,115,117,118,120,130,86,149,157,161,164,264,352,347,258,339,269,113,219,280,351,53,317,332,259,263,290,285,289,411,412,374,451,409,261,373,278,416,444,419,445,363,398,447,433,473,477,490,496,510,523,612,590,15,70,148,431
BaseHP|106
BaseAttack|190
BaseDefense|100
BaseSpAttack|154
BaseSpDefense|100
BaseSpeed|130
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|3
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Because its battle abilities were raised to the ultimate level, it thinks only of defeating its foes.\Genetic Pokémon\127\2.3\0,148,0
Scale|1.4
Move|1,93
Move|1,50
Move|1,219
Move|8,129
Move|15,248
Move|22,244
Move|29,357
Move|36,427
Move|43,384
Move|43,385
Move|50,105
Move|57,94
Move|64,112
Move|70,396
Move|79,133
Move|86,54
Move|93,382
Move|100,540
TradeValue|100

55
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/150_mega_y.dat Normal file
View File

@ -0,0 +1,55 @@
Name|Mega Mewtwo Y
Number|150
ExperienceType|3
BaseExperience|306
Type1|Psychic
Type2|
CatchRate|3
BaseFriendship|0
EggGroup1|None
EggGroup2|None
BaseEggSteps|30855
EggPokemon|150
IsGenderLess|1
CanBreed|0
Devolution|0
IsMale|0.0
Ability1|15
Ability2|Nothing
HiddenAbility|15
Machines|223,29,174,92,192,249,244,237,241,173,59,63,196,182,240,203,218,76,231,87,89,216,94,247,189,104,8,207,214,126,9,138,197,156,213,7,171,5,25,34,36,38,61,55,58,6,66,68,69,99,85,100,102,115,117,118,120,130,86,149,157,161,164,264,352,347,258,339,269,113,219,280,351,53,317,332,259,263,290,285,289,411,412,374,451,409,261,373,278,416,444,419,445,363,398,447,433,473,477,490,496,510,523,612,590,15,70,148,431
BaseHP|106
BaseAttack|150
BaseDefense|70
BaseSpAttack|194
BaseSpDefense|120
BaseSpeed|140
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|3
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Because its battle abilities were raised to the ultimate level, it thinks only of defeating its foes.\Genetic Pokémon\33\1.5\0,148,0
Scale|1.4
Move|1,93
Move|1,50
Move|1,219
Move|8,129
Move|15,248
Move|22,244
Move|29,357
Move|36,427
Move|43,384
Move|43,385
Move|50,105
Move|57,94
Move|64,112
Move|70,396
Move|79,133
Move|86,54
Move|93,382
Move|100,540
TradeValue|100

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/15_mega.dat
View File

@ -30,7 +30,7 @@ FPSpDefense|1
FPSpeed|0
CanFly|1
CanSwim|0
Pokedex|It can take down any opponent with its powerful poison stingers. It sometimes attacks in swarms.\Poison Bee Pokémon\29.5\1\0,148,0
Pokedex|It can take down any opponent with its powerful poison stingers. It sometimes attacks in swarms.\Poison Bee Pokémon\40.5\1.4\0,148,0
Scale|1
Move|1,31
Move|10,31

4
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/18_mega.dat
View File

@ -31,8 +31,8 @@ FPSpDefense|0
FPSpeed|3
CanFly|0
CanSwim|0
Pokedex|Its well-developed chest muscles make it strong enough to whip up a gusty windstorm with just a few flaps.\Bird Pokémon\39.5\1.5\0,148,0
Scale|1.2
Pokedex|Its well-developed chest muscles make it strong enough to whip up a gusty windstorm with just a few flaps.\Bird Pokémon\50.5\2.2\0,148,0
Scale|1.3
Move|1,16
Move|1,28
Move|1,33

64
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/208_mega.dat Normal file
View File

@ -0,0 +1,64 @@
Name|Mega Steelix
Number|208
ExperienceType|1
BaseExperience|179
Type1|Steel
Type2|Ground
CatchRate|25
BaseFriendship|70
EggGroup1|Mineral
EggGroup2|None
BaseEggSteps|6630
EggPokemon|95
IsGenderLess|0
CanBreed|1
Devolution|95
IsMale|50
Ability1|159
Ability2|Nothing
HiddenAbility|159
EggMoves|335,111,175,484,350,431,205,563,446,153,157
Machines|29,174,205,46,92,249,244,237,241,173,63,182,203,218,231,225,89,216,91,189,104,207,214,201,111,197,156,213,34,36,38,99,82,90,102,117,120,130,153,157,164,269,317,259,263,290,406,371,416,397,444,360,446,445,399,363,430,479,496,523,525,267,590,15,70,431,560
BaseHP|75
BaseAttack|125
BaseDefense|230
BaseSpAttack|55
BaseSpDefense|95
BaseSpeed|30
FPHP|0
FPAttack|0
FPDefense|2
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Its body has been compressed deep under the ground. As a result, it is even harder than a diamond.\Iron Snake Pokémon\740\10.5\0,148,0
Scale|2
Move|1,422
Move|1,423
Move|1,424
Move|1,300
Move|1,33
Move|1,106
Move|1,20
Move|4,174
Move|7,88
Move|10,317
Move|13,99
Move|16,446
Move|19,475
Move|20,360
Move|22,479
Move|25,225
Move|28,21
Move|31,103
Move|34,157
Move|37,242
Move|40,231
Move|43,91
Move|46,444
Move|49,38
Move|52,201
TradeValue|60
Item|5,143

4
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/212_mega.dat
View File

@ -33,8 +33,8 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It swings its eye-patterned pincers up to scare its foes. This makes it look like it has three heads.\Pincer Pokémon\118\1.8\0,148,0
Scale|1.32
Pokedex|It swings its eye-patterned pincers up to scare its foes. This makes it look like it has three heads.\Pincer Pokémon\125\2\0,148,0
Scale|1.4
Move|1,364
Move|1,418
Move|1,98

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/214_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|This powerful Pokémon thrusts its prized horn under its enemies' bellies, then lifts and throws them.\Single Horn Pokémon\54\1.5\0,148,0
Pokedex|This powerful Pokémon thrusts its prized horn under its enemies' bellies, then lifts and throws them.\Single Horn Pokémon\65\1.7\0,148,0
Scale|1.2
Move|1,292
Move|1,331

59
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/229_mega.dat Normal file
View File

@ -0,0 +1,59 @@
Name|Mega Houndoom
Number|229
ExperienceType|3
BaseExperience|175
Type1|Dark
Type2|Fire
CatchRate|45
BaseFriendship|35
EggGroup1|Field
EggGroup2|None
BaseEggSteps|5355
EggPokemon|228
IsGenderLess|0
CanBreed|1
Devolution|228
IsMale|50
Ability1|94
Ability2|Nothing
HiddenAbility|Nothing
EggMoves|251,68,194,364,424,83,417,386,228,99,179,180,389,422,261
Machines|29,174,46,92,249,237,241,173,63,182,203,218,76,231,216,247,189,104,207,214,188,126,129,138,197,156,213,168,171,25,32,34,36,38,68,99,82,102,117,130,164,269,53,259,263,290,289,315,261,373,371,416,445,399,363,488,496,510,514,555,590,70,560
BaseHP|75
BaseAttack|90
BaseDefense|90
BaseSpAttack|140
BaseSpDefense|90
BaseSpeed|115
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|2
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|If you are burned by the flames it shoots from its mouth, the pain will never go away.\Dark Pokémon\49.5\1.9\0,148,0
Scale|1.16
Move|1,517
Move|1,417
Move|1,422
Move|1,43
Move|1,52
Move|1,336
Move|1,123
Move|4,336
Move|8,123
Move|13,46
Move|16,44
Move|20,316
Move|26,251
Move|30,424
Move|35,185
Move|41,373
Move|45,492
Move|50,53
Move|56,242
Move|60,417
Move|65,517
TradeValue|30

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/248_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Its body can't be harmed by any sort of attack, so it is very eager to make challenges against enemies.\Armor Pokémon\202\2\0,148,0
Pokedex|Its body can't be harmed by any sort of attack, so it is very eager to make challenges against enemies.\Armor Pokémon\255\2.5\0,148,0
Scale|1.4
Move|1,422
Move|1,423

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/254_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|3
CanFly|0
CanSwim|0
Pokedex|It agilely leaps about the jungle and uses the sharp leaves on its arms to strike its prey.\Forest Pokémon\52.2\1.7\0,148,0
Pokedex|It agilely leaps about the jungle and uses the sharp leaves on its arms to strike its prey.\Forest Pokémon\55.2\1.9\0,148,0
Scale|1.28
Move|1,437
Move|1,400

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/260_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Its arms are hard as rock. With one swing, it can break a boulder into pieces.\Mud Fish Pokémon\81.9\1.5\0,148,0
Pokedex|Its arms are hard as rock. With one swing, it can break a boulder into pieces.\Mud Fish Pokémon\102\1.9\0,148,0
Scale|1.2
Move|1,359
Move|1,33

59
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/302_mega.dat Normal file
View File

@ -0,0 +1,59 @@
Name|Mega Sableye
Number|302
ExperienceType|2
BaseExperience|133
Type1|Dark
Type2|Ghost
CatchRate|45
BaseFriendship|35
EggGroup1|HumanLike
EggGroup2|None
BaseEggSteps|6630
EggPokemon|302
IsGenderLess|0
CanBreed|1
Devolution|0
IsMale|50
Ability1|156
Ability2|Nothing
HiddenAbility|Nothing
EggMoves|445,364,260,286,212,368,236,417,105,389,271,244
Machines|223,174,92,249,244,237,241,173,63,196,182,240,203,218,216,91,94,247,189,104,8,207,214,9,138,197,156,213,168,7,210,171,5,25,34,36,6,66,68,69,99,102,117,118,149,164,264,352,269,280,351,317,332,259,263,290,289,374,261,373,421,371,416,445,399,363,398,468,477,490,496,510,514,555,612,605,590,148
BaseHP|50
BaseAttack|85
BaseDefense|125
BaseSpAttack|85
BaseSpDefense|115
BaseSpeed|20
FPHP|0
FPAttack|1
FPDefense|1
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It dwells in the darkness of caves. It uses its sharp claws to dig up gems to nourish itself.\Darkness Pokémon\161\0.5\0,148,0
Scale|0.7
Move|1,212
Move|1,428
Move|1,43
Move|1,10
Move|4,193
Move|8,101
Move|11,310
Move|15,154
Move|18,252
Move|22,197
Move|25,425
Move|29,282
Move|32,185
Move|36,386
Move|39,421
Move|43,408
Move|46,109
Move|50,492
Move|53,428
Move|57,247
Move|60,212
TradeValue|50

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/303.dat
View File

@ -3,7 +3,7 @@ Number|303
ExperienceType|0
BaseExperience|133
Type1|Steel
Type2|
Type2|Fairy
CatchRate|45
BaseFriendship|70
EggGroup1|Field

59
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/303_mega.dat Normal file
View File

@ -0,0 +1,59 @@
Name|Mega Mawile
Number|303
ExperienceType|0
BaseExperience|133
Type1|Steel
Type2|Fairy
CatchRate|45
BaseFriendship|70
EggGroup1|Field
EggGroup2|Fairy
BaseEggSteps|5355
EggPokemon|303
IsGenderLess|0
CanBreed|1
Devolution|0
IsMale|50
Ability1|37
Ability2|Nothing
HiddenAbility|Nothing
EggMoves|246,445,424,385,423,368,581,305,386,69,21,389,422,206,244,14,321
Machines|223,174,92,249,244,237,241,173,63,196,182,240,203,218,76,216,247,189,104,8,207,214,188,201,126,9,197,156,213,5,14,25,34,36,58,6,66,68,69,99,102,117,130,157,164,264,269,280,53,317,259,263,290,411,206,374,451,373,371,416,444,445,399,363,447,430,496,510,612,590,15,70
BaseHP|50
BaseAttack|105
BaseDefense|125
BaseSpAttack|55
BaseSpDefense|95
BaseSpeed|50
FPHP|0
FPAttack|1
FPDefense|1
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It chomps with its gaping mouth. Its huge jaws are actually steel horns that have been transformed.\Deceiver Pokémon\23.5\1\0,148,0
Scale|0.84
Move|1,583
Move|1,442
Move|1,269
Move|1,45
Move|1,584
Move|1,310
Move|6,313
Move|11,44
Move|16,230
Move|21,11
Move|26,185
Move|31,226
Move|36,242
Move|41,334
Move|46,389
Move|50,254
Move|50,256
Move|50,255
Move|56,442
Move|60,583
TradeValue|40
Item|5,2035

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/306_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|You can tell its age by the length of its iron horns. It claims an entire mountain as its territory.\Iron Armor Pokémon\360\2.1\0,148,0
Pokedex|You can tell its age by the length of its iron horns. It claims an entire mountain as its territory.\Iron Armor Pokémon\395\2.2\0,148,0
Scale|1.44
Move|1,33
Move|1,106

58
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/310_mega.dat Normal file
View File

@ -0,0 +1,58 @@
Name|Mega Manectric
Number|310
ExperienceType|3
BaseExperience|166
Type1|Electric
Type2|
CatchRate|45
BaseFriendship|70
EggGroup1|Field
EggGroup2|None
BaseEggSteps|5355
EggPokemon|309
IsGenderLess|0
CanBreed|1
Devolution|309
IsMale|50
Ability1|22
Ability2|Nothing
HiddenAbility|Nothing
EggMoves|242,174,435,598,486,424,481,29,423,351,129,415,422,253
Machines|174,46,92,192,237,173,63,182,240,203,218,231,87,216,189,104,207,214,129,197,156,213,168,25,34,36,38,99,85,102,117,130,86,164,113,351,53,263,290,315,451,416,445,363,496,521,528,555,590,70,148,560
BaseHP|70
BaseAttack|75
BaseDefense|80
BaseSpAttack|135
BaseSpDefense|80
BaseSpeed|135
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|2
CanFly|0
CanSwim|0
Pokedex|Its nest can be found where a thunderbolt hits. It is discharging electricity from its mane.\Discharge Pokémon\44\1.8\0,148,0
Scale|1.2
Move|1,604
Move|1,424
Move|1,33
Move|1,86
Move|1,43
Move|1,336
Move|4,86
Move|9,43
Move|12,336
Move|17,98
Move|20,209
Move|25,316
Move|30,44
Move|37,422
Move|42,46
Move|49,435
Move|54,268
Move|61,528
Move|66,87
Move|70,604
TradeValue|45

59
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/319_mega.dat Normal file
View File

@ -0,0 +1,59 @@
Name|Mega Sharpedo
Number|319
ExperienceType|3
BaseExperience|161
Type1|Water
Type2|Dark
CatchRate|60
BaseFriendship|35
EggGroup1|Water2
EggGroup2|None
BaseEggSteps|5355
EggPokemon|318
IsGenderLess|0
CanBreed|1
Devolution|318
IsMale|50
Ability1|173
Ability2|Nothing
HiddenAbility|Nothing
EggMoves|246,362,194,56,129,37,38
Machines|174,46,92,249,237,173,59,63,196,182,240,203,218,89,216,189,104,207,214,129,197,156,213,168,210,36,38,61,55,58,99,102,117,130,164,352,258,269,317,259,263,290,362,371,416,419,445,399,363,398,496,503,514,523,555,590,57,70,250,127,291
BaseHP|70
BaseAttack|140
BaseDefense|70
BaseSpAttack|110
BaseSpDefense|65
BaseSpeed|105
FPHP|0
FPAttack|2
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It can swim at speeds of 75 mph by jetting seawater through its body. It is the bandit of the sea.\Brutal Pokémon\130.3\2.5\0,148,0
Scale|1.32
Move|1,400
Move|1,364
Move|1,43
Move|1,44
Move|1,99
Move|1,116
Move|6,99
Move|8,116
Move|11,184
Move|16,423
Move|18,103
Move|21,207
Move|26,372
Move|28,242
Move|30,163
Move|34,453
Move|40,269
Move|45,97
Move|50,130
Move|56,400
TradeValue|50
Item|5,167

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/323_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It lives in the crater of a volcano. It is well known that the humps on its back erupt every 10 years.\Eruption Pokémon\220\1.9\0,148,0
Pokedex|It lives in the crater of a volcano. It is well known that the humps on its back erupt every 10 years.\Eruption Pokémon\320.5\2.5\0,148,0
Scale|1.36
Move|1,90
Move|1,284

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/334_mega.dat
View File

@ -34,7 +34,7 @@ FPSpDefense|2
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It flies gracefully through the sky. Its melodic humming makes you feel like you're in a dream.\Humming Pokémon\20.6\1.1\0,148,0
Pokedex|It flies gracefully through the sky. Its melodic humming makes you feel like you're in a dream.\Humming Pokémon\20.6\1.5\0,148,0
Scale|1.04
Move|1,143
Move|1,365

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/354_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|This Pokémon developed from an abandoned doll that amassed a grudge. It is seen in dark alleys.\Marionette Pokémon\12.5\1.1\0,148,0
Pokedex|This Pokémon developed from an abandoned doll that amassed a grudge. It is seen in dark alleys.\Marionette Pokémon\13\1.2\0,148,0
Scale|1.04
Move|1,282
Move|1,103

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/359_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It has the ability to foretell natural disasters. Its life span is over a hundred years.\Disaster Pokémon\47\1.2\0,148,0
Pokedex|It has the ability to foretell natural disasters. Its life span is over a hundred years.\Disaster Pokémon\49\1.2\0,148,0
Scale|1.08
Move|1,195
Move|1,382

55
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/362_mega.dat Normal file
View File

@ -0,0 +1,55 @@
Name|Mega Glalie
Number|362
ExperienceType|1
BaseExperience|168
Type1|Ice
Type2|
CatchRate|75
BaseFriendship|70
EggGroup1|Fairy
EggGroup2|Mineral
BaseEggSteps|5355
EggPokemon|361
IsGenderLess|0
CanBreed|1
Devolution|361
IsMale|50
Ability1|174
Ability2|Nothing
HiddenAbility|Nothing
EggMoves|419,117,335,50,506,313,205,191,415,311
Machines|29,174,205,92,237,173,59,63,196,182,203,218,216,104,207,214,111,197,156,213,34,36,38,58,99,102,117,120,130,164,352,258,263,290,416,419,445,399,363,496,497,524,590,148
BaseHP|80
BaseAttack|120
BaseDefense|80
BaseSpAttack|120
BaseSpDefense|80
BaseSpeed|100
FPHP|2
FPAttack|0
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It can instantly freeze moisture in the atmosphere. It uses this power to freeze its foes.\Face Pokémon\350.2\2.1\0,148,0
Scale|1.2
Move|1,329
Move|1,181
Move|1,43
Move|1,104
Move|1,44
Move|4,104
Move|10,44
Move|13,196
Move|19,29
Move|22,182
Move|28,423
Move|31,242
Move|37,58
Move|40,258
Move|51,59
Move|59,329
TradeValue|70
Item|5,2050

61
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/373_mega.dat Normal file
View File

@ -0,0 +1,61 @@
Name|Mega Salamence
Number|373
ExperienceType|3
BaseExperience|270
Type1|Dragon
Type2|Flying
CatchRate|45
BaseFriendship|35
EggGroup1|Dragon
EggGroup2|None
BaseEggSteps|10455
EggPokemon|371
IsGenderLess|0
CanBreed|1
Devolution|372
IsMale|50
Ability1|184
Ability2|Nothing
HiddenAbility|Nothing
EggMoves|111,349,406,82,407,203,424,56,37,239,421
Machines|29,174,205,46,92,192,249,237,241,173,63,182,240,203,218,231,225,89,216,189,104,207,214,126,129,111,197,156,213,211,210,13,18,25,34,36,38,99,82,102,117,130,157,164,337,280,53,317,332,263,290,355,406,421,416,432,444,445,363,468,496,510,523,525,590,15,19,70,560
TutorMoves|434
BaseHP|95
BaseAttack|145
BaseDefense|130
BaseSpAttack|120
BaseSpDefense|90
BaseSpeed|120
FPHP|0
FPAttack|3
FPDefense|0
FPSpAttack|0
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It's uncontrollable if enraged. It flies around spouting flames and scorching fields and mountains.\Dragon Pokémon\112.6\1.8\0,148,0
Scale|1.2
Move|1,38
Move|1,424
Move|1,422
Move|1,99
Move|1,44
Move|1,43
Move|1,29
Move|5,44
Move|10,43
Move|16,29
Move|20,116
Move|25,52
Move|30,182
Move|32,225
Move|37,428
Move|43,184
Move|50,19
Move|53,242
Move|61,337
Move|70,38
Move|80,525
TradeValue|75
Item|5,144

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/376_mega.dat
View File

@ -32,7 +32,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It folds its four legs when flying. Its four brains are said to be superior to a supercomputer.\Iron Leg Pokémon\550\1.6\0,148,0
Pokedex|It folds its four legs when flying. Its four brains are said to be superior to a supercomputer.\Iron Leg Pokémon\942.9\2.5\0,148,0
Scale|1.24
Move|1,393
Move|1,36

62
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/380_mega.dat Normal file
View File

@ -0,0 +1,62 @@
Name|Mega Latias
Number|380
ExperienceType|3
BaseExperience|270
Type1|Dragon
Type2|Psychic
CatchRate|3
BaseFriendship|90
EggGroup1|None
EggGroup2|None
BaseEggSteps|30855
EggPokemon|380
IsGenderLess|0
CanBreed|0
Devolution|0
IsMale|0
Ability1|26
Ability2|Nothing
HiddenAbility|Nothing
Machines|174,46,92,192,244,237,241,173,63,196,182,203,218,225,216,94,189,104,207,214,129,197,156,213,211,210,13,18,34,36,38,58,99,82,102,117,143,149,161,164,337,352,351,263,290,355,412,406,416,432,445,363,468,473,477,496,590,15,19,57,250,127,431,560,291
TutorMoves|434
BaseHP|80
BaseAttack|100
BaseDefense|120
BaseSpAttack|140
BaseSpDefense|150
BaseSpeed|110
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|0
FPSpDefense|3
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It communicates using telepathy. Its body is covered in down that refracts light to make it invisible.\Eon Pokémon\52\1.8\0,148,0
Scale|1.16
Move|1,361
Move|1,406
Move|1,470
Move|1,513
Move|1,505
Move|1,204
Move|1,149
Move|5,273
Move|10,270
Move|15,219
Move|20,225
Move|25,346
Move|30,287
Move|35,296
Move|40,428
Move|45,105
Move|50,375
Move|55,204
Move|60,94
Move|65,505
Move|70,513
Move|75,470
Move|80,406
Move|85,361
TradeValue|90

62
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/381_mega.dat Normal file
View File

@ -0,0 +1,62 @@
Name|Mega Latios
Number|381
ExperienceType|3
BaseExperience|270
Type1|Dragon
Type2|Psychic
CatchRate|3
BaseFriendship|90
EggGroup1|None
EggGroup2|None
BaseEggSteps|30855
EggPokemon|381
IsGenderLess|0
CanBreed|0
Devolution|0
IsMale|100
Ability1|26
Ability2|Nothing
HiddenAbility|Nothing
Machines|174,46,92,192,244,237,241,173,63,196,182,203,218,225,216,94,189,104,207,214,129,197,156,213,211,210,13,18,34,36,38,58,99,82,102,117,143,149,161,164,337,352,351,263,290,355,412,406,416,432,445,363,468,473,477,496,590,15,19,57,250,127,560,291
TutorMoves|434
BaseHP|80
BaseAttack|130
BaseDefense|100
BaseSpAttack|160
BaseSpDefense|120
BaseSpeed|110
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|3
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It understands human speech and is highly intelligent. It is a tender Pokémon that dislikes fighting.\Eon Pokémon\70\2.3\0,148,0
Scale|1.4
Move|1,262
Move|1,406
Move|1,471
Move|1,477
Move|1,505
Move|1,349
Move|1,149
Move|5,377
Move|10,270
Move|15,219
Move|20,225
Move|25,182
Move|30,287
Move|35,295
Move|40,428
Move|45,105
Move|50,375
Move|55,349
Move|60,94
Move|65,505
Move|70,477
Move|75,471
Move|80,406
Move|85,262
TradeValue|90

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/382_primal.dat
View File

@ -32,7 +32,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|A mythical Pokémon said to have swelled the seas with rain and tidal waves. It battled with GROUDON.\Sea Basin Pokémon\352\4.5\0,148,0
Pokedex|A mythical Pokémon said to have swelled the seas with rain and tidal waves. It battled with GROUDON.\Sea Basin Pokémon\430\9.8\0,148,0
Scale|2
Move|1,352
Move|5,184

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/383_primal.dat
View File

@ -32,7 +32,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Said to have expanded the lands by evaporating water with raging heat. It battled titanically with KYOGRE.\Continent Pokémon\950\3.5\0,148,0
Pokedex|Said to have expanded the lands by evaporating water with raging heat. It battled titanically with KYOGRE.\Continent Pokémon\999.7\5\0,148,0
Scale|2
Move|1,341
Move|5,184

51
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/384_mega.dat Normal file
View File

@ -0,0 +1,51 @@
Name|Mega Rayquaza
Number|384
ExperienceType|3
BaseExperience|306
Type1|Dragon
Type2|Flying
CatchRate|3
BaseFriendship|0
EggGroup1|None
EggGroup2|None
BaseEggSteps|30855
EggPokemon|384
IsGenderLess|1
CanBreed|0
Devolution|0
IsMale|0.0
Ability1|76
Ability2|Nothing
HiddenAbility|Nothing
Machines|174,46,92,192,249,244,237,241,173,59,63,196,182,240,203,218,76,231,225,87,89,216,189,104,207,214,201,126,129,197,156,213,210,13,14,18,34,36,38,58,99,82,85,102,117,130,86,157,164,337,352,339,351,53,317,332,263,290,315,411,412,374,406,421,416,444,419,360,445,363,468,496,497,507,510,523,525,590,19,57,70,250,127,560,291
TutorMoves|434
BaseHP|105
BaseAttack|180
BaseDefense|100
BaseSpAttack|180
BaseSpDefense|100
BaseSpeed|115
FPHP|0
FPAttack|2
FPDefense|0
FPSpAttack|1
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It flies in the ozone layer high in the sky. Until recently, no one had ever seen it.\Sky High Pokémon\392\10.8\0,148,0
Scale|2
Move|1,239
Move|5,184
Move|15,242
Move|20,304
Move|30,156
Move|35,403
Move|45,246
Move|50,200
Move|60,349
Move|65,19
Move|75,245
Move|80,63
Move|90,406
TradeValue|110

56
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/3_mega.dat Normal file
View File

@ -0,0 +1,56 @@
Name|Mega Venusaur
Number|3
ExperienceType|2
BaseExperience|236
Type1|Grass
Type2|Poison
CatchRate|45
BaseFriendship|70
EggGroup1|Monster
EggGroup2|Grass
BaseEggSteps|5355
EggPokemon|1
IsGenderLess|0
IsMale|87.5
Ability1|47
Ability2|Nothing
HiddenAbility|47
EggMoves|133,204,174,203,202,320,275,437,345,267,80,438,130,124,580
Machines|29,174,46,92,249,237,241,230,173,63,182,202,203,218,76,89,216,189,104,207,214,188,111,197,156,213,210,14,34,36,38,99,72,90,102,117,164,331,113,219,263,290,412,416,445,363,447,474,496,497,523,267,590,15,70,148,431,560
TutorMoves|338
BaseHP|80
BaseAttack|100
BaseDefense|123
BaseSpAttack|122
BaseSpDefense|120
BaseSpeed|80
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|2
FPSpDefense|1
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|By spreading the broad petals of its flower and catching the sun's rays, it fills its body with power.\Seed Pokémon\155.5\2.4\0,148,0
Scale|1.4
Move|1,22
Move|1,33
Move|1,45
Move|1,73
Move|3,45
Move|7,73
Move|9,22
Move|13,77
Move|13,79
Move|15,36
Move|20,75
Move|23,230
Move|28,74
Move|31,38
Move|32,80
Move|39,388
Move|45,235
Move|50,572
Move|53,76
TradeValue|70

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/428_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|2
CanFly|0
CanSwim|0
Pokedex|It sheds its fur twice a year. Its winter fur is soft and fluffy.\Rabbit Pokémon\33.3\1.2\0,148,0
Pokedex|It sheds its fur twice a year. Its winter fur is soft and fluffy.\Rabbit Pokémon\28.3\1.3\0,148,0
Scale|1.08
Move|1,361
Move|1,340

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/448_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It's said that no foe can remain invisible to LUCARIO, since it can detect auras. Even foes it could not otherwise see.\Aura Pokémon\54\1.2\0,148,0
Pokedex|It's said that no foe can remain invisible to LUCARIO, since it can detect auras. Even foes it could not otherwise see.\Aura Pokémon\57.5\1.3\0,148,0
Scale|1.08
Move|1,245
Move|1,406

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/460_mega.dat
View File

@ -30,7 +30,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It lives a quiet life on mountains that are perpetually covered in snow. It hides itself by whipping up blizzards.\Frost Tree Pokémon\135.5\2.2\0,148,0
Pokedex|It lives a quiet life on mountains that are perpetually covered in snow. It hides itself by whipping up blizzards.\Frost Tree Pokémon\185\2.7\0,148,0
Scale|1.48
Move|1,8
Move|1,43

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/475_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Because it can sense what its foe is thinking, its attacks burst out first, fast, and fierce.\Blade Pokémon\52\1.6\0,148,0
Pokedex|Because it can sense what its foe is thinking, its attacks burst out first, fast, and fierce.\Blade Pokémon\56.4\1.6\0,148,0
Scale|1.24
Move|1,500
Move|1,370

51
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/483_primal.dat Normal file
View File

@ -0,0 +1,51 @@
Name|Primal Dialga
Number|483
ExperienceType|3
BaseExperience|306
Type1|Steel
Type2|Dragon
CatchRate|30
BaseFriendship|0
EggGroup1|None
EggGroup2|None
BaseEggSteps|30855
EggPokemon|483
IsGenderLess|1
CanBreed|0
Devolution|0
IsMale|0.0
Ability1|46
Ability2|Nothing
HiddenAbility|140
Machines|174,46,92,192,249,244,237,241,173,59,63,182,240,203,218,231,225,87,89,216,189,104,207,214,201,126,129,197,156,213,210,25,32,34,36,38,58,99,82,85,90,102,117,130,86,157,161,164,337,339,280,351,53,317,332,263,290,315,406,421,416,444,446,445,363,430,433,468,496,497,510,523,525,590,15,70,148,560
TutorMoves|434
BaseHP|100
BaseAttack|120
BaseDefense|120
BaseSpAttack|150
BaseSpDefense|100
BaseSpeed|90
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|3
FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|This Pokémon completely controls the flow of time. It uses its power to travel at will through the past and future.\Temporal Pokémon\683\5.4\0,148,0
Scale|2
Move|1,225
Move|1,184
Move|6,232
Move|10,246
Move|15,163
Move|19,408
Move|24,368
Move|28,337
Move|33,414
Move|37,396
Move|42,231
Move|46,459
Move|50,430
TradeValue|100

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/531_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Forming a drill with its steel claws and head, it can bore through a steel plate, no matter how thick it is.\Hearing Pokémon\31\1.1\0,148,0
Pokedex|Forming a drill with its steel claws and head, it can bore through a steel plate, no matter how thick it is.\Hearing Pokémon\32\1.5\0,148,0
Scale|1.04
Move|1,387
Move|1,589

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/65_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|Closing both its eyes heightens all its other senses. This enables it to use its abilities to their extremes.\Psi Pokémon\48\1.5\0,148,0
Pokedex|Closing both its eyes heightens all its other senses. This enables it to use its abilities to their extremes.\Psi Pokémon\48\1.2\0,148,0
Scale|1.2
Move|1,100
Move|1,134

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/6_mega_x.dat
View File

@ -31,7 +31,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|If Charizard becomes furious the flame at the tip of its tail flares up in a light blue shade.\Flame Pokémon\90.5\1.7\0,148,0
Pokedex|If Charizard becomes furious the flame at the tip of its tail flares up in a light blue shade.\Flame Pokémon\110.5\1.7\0,148,0
Scale|1.28
Move|1,10
Move|1,45

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/6_mega_y.dat
View File

@ -31,7 +31,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|If Charizard becomes furious the flame at the tip of its tail flares up in a light blue shade.\Flame Pokémon\90.5\1.7\0,148,0
Pokedex|If Charizard becomes furious the flame at the tip of its tail flares up in a light blue shade.\Flame Pokémon\100.5\1.7\0,148,0
Scale|1.28
Move|1,10
Move|1,45

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/719.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|2
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|A sudden transformation of Carbink, its pink, glimmering body is said to be the loveliest sight in the whole world. \Jewel Pokémon\19.4\0.7\0,148,0
Pokedex|A sudden transformation of Carbink, its pink, glimmering body is said to be the loveliest sight in the whole world. \Jewel Pokémon\8.8\0.7\0,148,0
Scale|1.2
Move|1,33
Move|1,106

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/719_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|2
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|A sudden transformation of Carbink, its pink, glimmering body is said to be the loveliest sight in the whole world. \Jewel Pokémon\19.4\0.7\0,148,0
Pokedex|A sudden transformation of Carbink, its pink, glimmering body is said to be the loveliest sight in the whole world. \Jewel Pokémon\27.8\1.1\0,148,0
Scale|1.2
Move|1,33
Move|1,106

4
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/80_mega.dat
View File

@ -33,8 +33,8 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|If the tail-biting SHELLDER is thrown off in a harsh battle, it reverts to being an ordinary SLOWPOKE.\Hermit Crab Pokémon\78.5\1.6\0,148,0
Scale|1.24
Pokedex|If the tail-biting SHELLDER is thrown off in a harsh battle, it reverts to being an ordinary SLOWPOKE.\Hermit Crab Pokémon\120\2\0,148,0
Scale|1.4
Move|1,505
Move|1,174
Move|1,281

2
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/94_mega.dat
View File

@ -33,7 +33,7 @@ FPSpDefense|0
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It steals heat from its surroundings. If you feel a sudden chill, it is certain that a GENGAR appeared.\Shadow Pokémon\40.5\1.5\0,148,0
Pokedex|It steals heat from its surroundings. If you feel a sudden chill, it is certain that a GENGAR appeared.\Shadow Pokémon\40.5\1.4\0,148,0
Scale|1.2
Move|1,95
Move|1,122

55
2.5DHero/2.5DHeroContent/Content/Pokemon/Data/9_mega.dat Normal file
View File

@ -0,0 +1,55 @@
Name|Mega Blastoise
Number|9
ExperienceType|2
BaseExperience|239
Type1|Water
Type2|
CatchRate|45
BaseFriendship|70
EggGroup1|Monster
EggGroup2|Water1
BaseEggSteps|5355
EggPokemon|7
IsGenderLess|0
IsMale|87.5
Ability1|178
Ability2|Nothing
HiddenAbility|178
EggMoves|453,392,396,362,406,252,175,193,114,243,54,300,330,287,323,281
Machines|223,29,174,205,46,92,249,237,173,59,63,196,182,240,203,218,231,89,216,91,189,104,8,207,214,111,197,156,213,5,25,34,36,38,61,55,58,66,68,69,99,90,102,117,130,157,164,264,352,258,280,317,263,290,411,362,374,416,419,360,445,399,363,430,479,496,503,523,525,612,590,57,70,250,127,431,560,291
TutorMoves|308
BaseHP|79
BaseAttack|103
BaseDefense|120
BaseSpAttack|135
BaseSpDefense|115
BaseSpeed|78
FPHP|0
FPAttack|0
FPDefense|0
FPSpAttack|0
FPSpDefense|3
FPSpeed|0
CanFly|0
CanSwim|0
Pokedex|It deliberately makes itself heavy so it can withstand the recoil of the water jets it fires.\Shellfish Pokémon\101.1\1.6\0,148,0
Scale|1.24
Move|1,33
Move|1,39
Move|1,55
Move|1,110
Move|1,430
Move|4,39
Move|7,55
Move|10,110
Move|13,145
Move|16,44
Move|20,229
Move|24,182
Move|28,352
Move|32,401
Move|39,130
Move|46,334
Move|53,240
Move|60,56
TradeValue|70

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/115_mega.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.7 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/142_mega.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/150_mega_x.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.2 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/214_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.7 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/257_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.7 KiB

After

Width:  |  Height:  |  Size: 3.4 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/282_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.1 KiB

After

Width:  |  Height:  |  Size: 2.5 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/306_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 4.6 KiB

After

Width:  |  Height:  |  Size: 4.7 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/308_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.8 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/354_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.9 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/359_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 4.6 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/3_mega.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.4 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/428_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.5 KiB

After

Width:  |  Height:  |  Size: 3.0 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/445_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.7 KiB

After

Width:  |  Height:  |  Size: 3.8 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/448.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.5 KiB

After

Width:  |  Height:  |  Size: 2.4 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/448_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.6 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/460_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 5.1 KiB

After

Width:  |  Height:  |  Size: 4.5 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/475_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.7 KiB

After

Width:  |  Height:  |  Size: 3.4 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/566.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.2 KiB

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
2.5DHero/2.5DHeroContent/Content/Pokemon/Overworld/Normal/65_mega.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.6 KiB

After

Width:  |  Height:  |  Size: 4.1 KiB

Some files were not shown because too many files have changed in this diff Show More