tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Removed useless comments

This commit is contained in:
nilllzz 2016-09-19 03:26:44 +02:00
parent ce523bd6b0
commit 26afca3916
137 changed files with 213 additions and 1588 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb
View File

@ -25,10 +25,6 @@
''' <summary>
''' Returns the move of a Pokémon with a specified ID.
''' </summary>
''' <param name="Pokemon"></param>
''' <param name="MoveID"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function GetPokemonMoveFromID(ByVal Pokemon As Pokemon, ByVal MoveID As Integer) As Attack
For Each a As Attack In Pokemon.Attacks
If a.ID = MoveID Then
@ -41,8 +37,6 @@
''' <summary>
''' If the battle is a remote battle, then start this function once client input is received.
''' </summary>
''' <param name="BattleScreen"></param>
''' <remarks></remarks>
Public Sub StartMultiTurnAction(ByVal BattleScreen As BattleScreen)
'Recharge:
If BattleScreen.FieldEffects.OwnRecharge > 0 Then
@ -1942,9 +1936,6 @@ endthisround:
''' Faints a Pokémon.
''' </summary>
''' <param name="own">true: faints own, false: faints opp</param>
''' <param name="BattleScreen"></param>
''' <param name="message"></param>
''' <remarks></remarks>
Public Sub FaintPokemon(ByVal own As Boolean, ByVal BattleScreen As BattleScreen, ByVal message As String)
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then
@ -3710,7 +3701,6 @@ endthisround:
''' <param name="own">If the code comes from the own player or not.</param>
''' <param name="BattleScreen">Battlescreen reference</param>
''' <param name="AddPVP">If the call should get added the PVP list or the own queue.</param>
''' <remarks></remarks>
Public Sub ChangeCameraAngel(ByVal direction As Integer, ByVal own As Boolean, ByVal BattleScreen As BattleScreen, Optional ByVal AddPVP As Boolean = False)
Dim q As CameraQueryObject = Nothing
@ -3757,9 +3747,8 @@ endthisround:
''' <summary>
''' Ends a round (or a complete round)
''' </summary>
''' <param name="BattleScreen">Battlescreen LOL</param>
''' <param name="BattleScreen">Battlescreen</param>
''' <param name="type">0=complete;1=own;2=opp</param>
''' <remarks></remarks>
Public Sub EndRound(ByVal BattleScreen As BattleScreen, ByVal type As Integer)
With BattleScreen
Select Case type

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

@ -225,10 +225,6 @@
''' <summary>
''' Outcome: 0=true/>1=false:1=sleeptalk/snore 2=other move 3=start sleep 4=X wont obey 5=X wont obey 6=X turned away 7=X is loafing around 8=X pretended to not notice
''' </summary>
''' <param name="UsedAttack"></param>
''' <param name="BattleScreen"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ObedienceCheck(ByVal UsedAttack As Attack, BattleScreen As BattleScreen) As Integer
Dim p As Pokemon = BattleScreen.OwnPokemon
@ -1782,8 +1778,6 @@
''' Calculates the usable multiplier from a stat reduction/raise.
''' </summary>
''' <param name="StatValue">The relative stat reduction/raise of the stat.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetMultiplierFromStat(ByVal StatValue As Integer) As Single
Select Case StatValue
Case -6

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

@ -1463,7 +1463,6 @@ nextIndex:
''' <summary>
''' Use this to download the sprites for the players.
''' </summary>
''' <remarks></remarks>
Private Sub DownloadOnlineSprites()
If Core.Player.IsGamejoltSave = True Then
Dim t As New Threading.Thread(AddressOf DownloadSprites)

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

@ -284,8 +284,6 @@
''' <param name="own">Which Pokémon?</param>
''' <param name="BattleScreen">The BattleScreen reference.</param>
''' <param name="CheckType">0: Supression abilities, 1: GastroAcid, 2: both</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function CanUseAbility(ByVal own As Boolean, ByVal BattleScreen As BattleScreen, Optional ByVal CheckType As Integer = 0) As Boolean
If CheckType = 0 Or CheckType = 2 Then
Dim p As Pokemon = BattleScreen.OppPokemon

129
2.5DHero/2.5DHero/Battle/BattleSystemV2/PokemonProfile.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' Represents a Pokémon in battle.
''' </summary>
''' <remarks></remarks>
Public Class PokemonProfile
''' <summary>
@ -11,7 +10,6 @@
''' </summary>
''' <param name="Target">The Position on the battle field.</param>
''' <param name="Pokemon">The reference to the Pokémon in the party.</param>
''' <remarks></remarks>
Public Sub New(ByVal Target As PokemonTarget, ByVal Pokemon As Pokemon)
Me._fieldPosition = Target
Me._pokemon = Pokemon
@ -23,9 +21,6 @@
''' <summary>
''' The Pokémon reference class instance that is associated with this profile.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Pokémon As Pokemon
Get
Return Me._pokemon
@ -35,9 +30,6 @@
''' <summary>
''' The position of this Pokémon on the field.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property FieldPosition As PokemonTarget
Get
Return Me._fieldPosition
@ -59,450 +51,363 @@
''' <summary>
''' The amount of damage this Pokémon took in the last attack.
''' </summary>
''' <remarks></remarks>
Public LastDamageTaken As Integer = 0
''' <summary>
''' The counter that indicates how many turns this Pokémon has been in battle.
''' </summary>
''' <remarks></remarks>
Public TurnsInBattle As Integer = 0
''' <summary>
''' If this Pokémon directly damaged an opponent last turn.
''' </summary>
''' <remarks></remarks>
Public DealtDamageThisTurn As Boolean = False
''' <summary>
''' List of used moves (IDs)
''' </summary>
''' <remarks></remarks>
Public UsedMoves As New List(Of Integer)
''' <summary>
''' An item this Pokémon possibly lost in battle.
''' </summary>
''' <remarks></remarks>
Public LostItem As Item = Nothing
''' <summary>
''' If this Pokémon Mega Evolved in this battle.
''' </summary>
''' <remarks></remarks>
Public MegaEvolved As Boolean = False
''' <summary>
''' The last move this Pokémon used.
''' </summary>
''' <remarks></remarks>
Public LastMove As Attack = Nothing
''' <summary>
''' The turn number this Pokémon last used a move.
''' </summary>
''' <remarks></remarks>
Public LastTurnMoved As Integer = 0
''' <summary>
''' Trigger, if the Pokémon wants to switch out but another one used Pursuit on it.
''' </summary>
''' <remarks></remarks>
Public Pursuit As Boolean = False
''' <summary>
''' The turns until the Pokémon wakes up.
''' </summary>
''' <remarks></remarks>
Public SleepTurns As Integer = 0
''' <summary>
''' Round counter for toxic.
''' </summary>
''' <remarks></remarks>
Public ToxicRound As Integer = 0
''' <summary>
''' Rounds until Yawn affects the Pokémon.
''' </summary>
''' <remarks></remarks>
Public Yawn As Integer = 0
''' <summary>
''' Turns until confusion runs out.
''' </summary>
''' <remarks></remarks>
Public ConfusionTurns As Integer = 0
''' <summary>
''' The Truant ability counter. When this is 1, the Pokémon won't move this round.
''' </summary>
''' <remarks></remarks>
Public TruantRound As Integer = 0 '
''' <summary>
''' Turns True if Imprison was used on this Pokémon.
''' </summary>
''' <remarks></remarks>
Public Imprisoned As Boolean = False
''' <summary>
''' Taunt move counter, if true, Pokémon cannot use status moves.
''' </summary>
''' <remarks></remarks>
Public Taunted As Integer = 0
''' <summary>
''' If the Pokémon is affected by Embargo.
''' </summary>
''' <remarks></remarks>
Public Embargo As Integer = 0
''' <summary>
''' Rounds until Encore wears off.
''' </summary>
''' <remarks></remarks>
Public Encore As Integer = 0
''' <summary>
''' The move reference that the encored Pokémon has to use.
''' </summary>
''' <remarks></remarks>
Public EncoreMove As Attack = Nothing
''' <summary>
''' Rounds until Torment wears off.
''' </summary>
''' <remarks></remarks>
Public Torment As Integer = 0
''' <summary>
''' The move that the Pokémon is forced to use.
''' </summary>
''' <remarks></remarks>
Public TormentMoveID As Integer = -1
''' <summary>
''' The move chosen for Choice Items.
''' </summary>
''' <remarks></remarks>
Public ChoiceMove As Attack = Nothing
''' <summary>
''' Turns true when the Pokémon is affected by Gastro Acid.
''' </summary>
''' <remarks></remarks>
Public GastroAcid As Integer = 0
''' <summary>
''' The counter for the rage move.
''' </summary>
''' <remarks></remarks>
Public Rage As Integer = 0
''' <summary>
''' Checks if Defense Curl was used.
''' </summary>
''' <remarks></remarks>
Public DefenseCurl As Integer = 0
''' <summary>
''' Charge move counter.
''' </summary>
''' <remarks></remarks>
Public Charge As Integer = 0
''' <summary>
''' Indicates if minimize got used.
''' </summary>
''' <remarks></remarks>
Public Minimize As Integer = 0
''' <summary>
''' Counter for Bide
''' </summary>
''' <remarks></remarks>
Public Bide As Integer = 0
''' <summary>
''' Stores all the damage that the Pokémon will deal with Bide.
''' </summary>
''' <remarks></remarks>
Public BideDamage As Integer = 0
''' <summary>
''' Doubles effect probability for four turns.
''' </summary>
''' <remarks></remarks>
Public WaterPledge As Integer = 0
''' <summary>
''' The counter for the Uproar move.
''' </summary>
''' <remarks></remarks>
Public Uproar As Integer = 0
''' <summary>
''' The Outrage move counter.
''' </summary>
''' <remarks></remarks>
Public Outrage As Integer = 0
''' <summary>
''' The Thrash move counter.
''' </summary>
''' <remarks></remarks>
Public Thrash As Integer = 0
''' <summary>
''' The Petal Dance move counter.
''' </summary>
''' <remarks></remarks>
Public PetalDance As Integer = 0
''' <summary>
''' Rollout move counter
''' </summary>
''' <remarks></remarks>
Public Rollout As Integer = 0
''' <summary>
''' Iceball move counter
''' </summary>
''' <remarks></remarks>
Public IceBall As Integer = 0
''' <summary>
''' Recharge counter for moves like Hyperbeam.
''' </summary>
''' <remarks></remarks>
Public Recharge As Integer = 0
''' <summary>
''' Razor Wind move counter.
''' </summary>
''' <remarks></remarks>
Public RazorWind As Integer = 0
''' <summary>
''' Skull bash Move counter.
''' </summary>
''' <remarks></remarks>
Public SkullBash As Integer = 0
''' <summary>
''' Sky Attack move counter.
''' </summary>
''' <remarks></remarks>
Public SkyAttack As Integer = 0
''' <summary>
''' Solar beam move counter.
''' </summary>
''' <remarks></remarks>
Public SolarBeam As Integer = 0
''' <summary>
''' Ice Burn move counter.
''' </summary>
''' <remarks></remarks>
Public IceBurn As Integer = 0
''' <summary>
''' Freeze Shock move counter.
''' </summary>
''' <remarks></remarks>
Public FreezeShock As Integer = 0
''' <summary>
''' Fly move counter.
''' </summary>
''' <remarks></remarks>
Public Fly As Integer = 0
''' <summary>
''' Dig move counter.
''' </summary>
''' <remarks></remarks>
Public Dig As Integer = 0
''' <summary>
''' Bounce move counter.
''' </summary>
''' <remarks></remarks>
Public Bounce As Integer = 0
''' <summary>
''' Dive move counter.
''' </summary>
''' <remarks></remarks>
Public Dive As Integer = 0
''' <summary>
''' Shadow Force move counter.
''' </summary>
''' <remarks></remarks>
Public ShadowForce As Integer = 0
''' <summary>
''' Sky Drop move counter.
''' </summary>
''' <remarks></remarks>
Public SkyDrop As Integer = 0
''' <summary>
''' Turns this Pokémon is trapped in Wrap.
''' </summary>
''' <remarks></remarks>
Public Wrap As Integer = 0
''' <summary>
''' Turns this Pokémon is trapped in Whirlpool.
''' </summary>
''' <remarks></remarks>
Public Whirlpool As Integer = 0
''' <summary>
''' Turns this Pokémon is trapped in Bind.
''' </summary>
''' <remarks></remarks>
Public Bind As Integer = 0
''' <summary>
''' Turns this Pokémon is trapped in Clamp.
''' </summary>
''' <remarks></remarks>
Public Clamp As Integer = 0
''' <summary>
''' Turns this Pokémon is trapped in FireSpin.
''' </summary>
''' <remarks></remarks>
Public FireSpin As Integer = 0
''' <summary>
''' Turns this Pokémon is trapped in MagmaStorm.
''' </summary>
''' <remarks></remarks>
Public MagmaStorm As Integer = 0
''' <summary>
''' Turns this Pokémon is trapped in SandTomb.
''' </summary>
''' <remarks></remarks>
Public SandTomb As Integer = 0
''' <summary>
''' Focus Energy move counter.
''' </summary>
''' <remarks></remarks>
Public FocusEnergy As Integer = 0
''' <summary>
''' Lucky Chant move counter.
''' </summary>
''' <remarks></remarks>
Public LuckyChant As Integer = 0
''' <summary>
''' Counter for the Lock On and Mind Reader move.
''' </summary>
''' <remarks></remarks>
Public LockedOn As Integer = 0
''' <summary>
''' Counter for the Fury Cutter move.
''' </summary>
''' <remarks></remarks>
Public FuryCutter As Integer = 0
''' <summary>
''' Counter for the Stockpile move.
''' </summary>
''' <remarks></remarks>
Public StockPile As Integer = 0
''' <summary>
''' Magic Coat move counter.
''' </summary>
''' <remarks></remarks>
Public MagicCoat As Integer = 0
''' <summary>
''' Roost counter, set to flying type.
''' </summary>
''' <remarks></remarks>
Public Roost As Integer = 0
''' <summary>
''' Destiny Bond move counter.
''' </summary>
''' <remarks></remarks>
Public DestinyBond As Integer = 0
''' <summary>
''' Endure move counter.
''' </summary>
''' <remarks></remarks>
Public Endure As Integer = 0
''' <summary>
''' Protect move counter
''' </summary>
''' <remarks></remarks>
Public Protect As Integer = 0
''' <summary>
''' Detect move counter
''' </summary>
''' <remarks></remarks>
Public Detect As Integer = 0
''' <summary>
''' Indicates how much HP the substitute has left.
''' </summary>
''' <remarks></remarks>
Public Substitute As Integer = 0
''' <summary>
''' Counts the consecutive uses of Protect like moves.
''' </summary>
''' <remarks></remarks>
Public ProtectMoveCounter As Integer = 0
''' <summary>
''' King's Shield move counter.
''' </summary>
''' <remarks></remarks>
Public KingsShield As Integer = 0
''' <summary>
''' Ingrain move counter.
''' </summary>
''' <remarks></remarks>
Public Ingrain As Integer = 0
''' <summary>
''' Counter for the Magnet Rise move.
''' </summary>
''' <remarks></remarks>
Public MagnetRise As Integer = 0
''' <summary>
''' Counter for the Aqua Ring move.
''' </summary>
''' <remarks></remarks>
Public AquaRing As Integer = 0
''' <summary>
''' If the Pokémon is affected by Nightmare.
''' </summary>
''' <remarks></remarks>
Public Nightmare As Integer = 0
''' <summary>
''' If the Pokémon is affected by Curse.
''' </summary>
''' <remarks></remarks>
Public Cursed As Integer = 0
''' <summary>
''' Turns until Perish Song faints Pokémon.
''' </summary>
''' <remarks></remarks>
Public PerishSong As Integer = 0
''' <summary>
''' Counter for moves like Spider Web.
''' </summary>
''' <remarks></remarks>
Public Trapped As Integer = 0
''' <summary>
''' Counter for the Foresight move.
''' </summary>
''' <remarks></remarks>
Public Foresight As Integer = 0
''' <summary>
''' Counter for the Odor Sleught move.
''' </summary>
''' <remarks></remarks>
Public OdorSleught As Integer = 0
''' <summary>
''' Counter for the Miracle Eye move.
''' </summary>
''' <remarks></remarks>
Public MiracleEye As Integer = 0
''' <summary>
''' Halves this Pokémon's speed for four turns.
''' </summary>
''' <remarks></remarks>
Public GrassPledge As Integer = 0
''' <summary>
''' Deals damage of 1/8 HP at the end of turn for four turns.
''' </summary>
''' <remarks></remarks>
Public FirePledge As Integer = 0
''' <summary>
''' If Leech Seed got used on this Pokémon
''' </summary>
''' <remarks></remarks>
Public LeechSeed As Integer = 0
''' <summary>
''' The target the leech seed HP gets sent to.
''' </summary>
''' <remarks></remarks>
Public LeechSeedTarget As PokemonTarget = Nothing
''' <summary>
''' Counter for the Metronome item.
''' </summary>
''' <remarks></remarks>
Public MetronomeItemCount As Integer = 0
''' <summary>
''' Raises critical Hit ratio, Lansat Berry trigger
''' </summary>
''' <remarks></remarks>
Public LansatBerry As Integer = 0
''' <summary>
''' Raises attack speed when Custap berry got eaten.
''' </summary>
''' <remarks></remarks>
Public CustapBerry As Integer = 0
#End Region
@ -511,7 +416,6 @@
''' Resets the fields to their default values when a new Pokémon gets switched in.
''' </summary>
''' <param name="BatonPassed">If the Pokémon got switched in using Baton Pass.</param>
''' <remarks></remarks>
Public Sub ResetFields(ByVal BatonPassed As Boolean)
Me.SleepTurns = 0
Me.TruantRound = 0
@ -592,13 +496,11 @@
''' <summary>
''' Represents a position on the battle field by targeting the Pokémon.
''' </summary>
''' <remarks></remarks>
Public Class PokemonTarget
''' <summary>
''' The positions on the battle field a Pokémon can get targeted on.
''' </summary>
''' <remarks></remarks>
Public Enum Targets
OwnLeft
OwnCenter
@ -614,7 +516,6 @@
''' Creates a new instance of a Pokémon Target.
''' </summary>
''' <param name="t">The Target type of this Pokémon Target.</param>
''' <remarks></remarks>
Public Sub New(ByVal t As Targets)
Me._target = t
End Sub
@ -623,7 +524,6 @@
''' Creates a new instance of a Pokémon Target.
''' </summary>
''' <param name="s">The Target type of this Pokémon Target.</param>
''' <remarks></remarks>
Public Sub New(ByVal s As String)
Select Case s.ToLower()
Case "ownleft"
@ -644,9 +544,6 @@
''' <summary>
''' The target of this PokémonTarget.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Target() As Targets
Get
Return Me._target
@ -664,9 +561,6 @@
''' <summary>
''' Creates a target set to Own Left.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared ReadOnly Property OwnLeft() As PokemonTarget
Get
Return New PokemonTarget(Targets.OwnLeft)
@ -676,9 +570,6 @@
''' <summary>
''' Creates a target set to Own Center.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared ReadOnly Property OwnCenter() As PokemonTarget
Get
Return New PokemonTarget(Targets.OwnCenter)
@ -688,9 +579,6 @@
''' <summary>
''' Creates a target set to Own Right.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared ReadOnly Property OwnRight() As PokemonTarget
Get
Return New PokemonTarget(Targets.OwnRight)
@ -700,9 +588,6 @@
''' <summary>
''' Creates a target set to Opp Left.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared ReadOnly Property OppLeft() As PokemonTarget
Get
Return New PokemonTarget(Targets.OppLeft)
@ -712,9 +597,6 @@
''' <summary>
''' Creates a target set to Opp Center.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared ReadOnly Property OppCenter() As PokemonTarget
Get
Return New PokemonTarget(Targets.OppCenter)
@ -724,9 +606,6 @@
''' <summary>
''' Creates a target set to Opp Right.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared ReadOnly Property OppRight() As PokemonTarget
Get
Return New PokemonTarget(Targets.OppRight)
@ -736,7 +615,6 @@
''' <summary>
''' Reverses the sides of the target (Own => Opp; Opp => Own)
''' </summary>
''' <remarks></remarks>
Public Sub Reverse()
Select Case Me._target
Case Targets.OwnLeft
@ -757,8 +635,6 @@
''' <summary>
''' Returns a string that represents the target.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Overrides Function ToString() As String
Return Me._target.ToString()
End Function
@ -866,8 +742,6 @@
''' </summary>
''' <param name="BattleScreen">The reference to the BattleScreen.</param>
''' <param name="l">The list of Pokémon targets.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetValidPokemonTargets(ByVal BattleScreen As BattleScreen, ByVal l As List(Of PokemonTarget)) As List(Of PokemonTarget)
Dim returnList As New List(Of PokemonTarget)
@ -883,9 +757,6 @@
''' <summary>
''' If the Pokémon target is on the own side of the field.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsOwn() As Boolean
Get
Select Case Me._target

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

@ -204,7 +204,6 @@
''' <summary>
''' Intended for rendering 3D models on top of sprites.
''' </summary>
''' <remarks></remarks>
Private Sub Render()
CurrentScreen.Render()
End Sub

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

@ -1,4 +1,4 @@
''' <summary>
''' <summary>
''' A wrapper class for the default SpriteBatch class which extends certain functions of the original class to allow easy screen sizing.
''' </summary>
Public Class CoreSpriteBatch
@ -38,7 +38,6 @@ Public Class CoreSpriteBatch
''' <summary>
''' If the SpriteBatch is running.
''' </summary>
''' <returns></returns>
Public ReadOnly Property Running() As Boolean
Get
Return Me._running
@ -306,7 +305,6 @@ Public Class CoreSpriteBatch
''' <summary>
''' The scale of the interface depending on the window size.
''' </summary>
''' <returns></returns>
Public ReadOnly Property InterfaceScale() As Double
Get
If Core.windowSize.Height < Core.CurrentScreen.GetScreenScaleMinimum().Height Or Core.windowSize.Width < Core.CurrentScreen.GetScreenScaleMinimum().Width Then
@ -406,4 +404,4 @@ Public Class CoreSpriteBatch
#End Region
End Class
End Class

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

@ -3,7 +3,6 @@ Imports System.Windows.Forms
''' <summary>
''' Controls the game's main workflow.
''' </summary>
''' <remarks></remarks>
Public Class GameController
Inherits Microsoft.Xna.Framework.Game
@ -11,43 +10,36 @@ Public Class GameController
''' <summary>
''' The current version of the game.
''' </summary>
''' <remarks></remarks>
Public Const GAMEVERSION As String = "0.53.3"
''' <summary>
''' The number of released iterations of the game.
''' </summary>
''' <remarks></remarks>
Public Const RELEASEVERSION As String = "90"
''' <summary>
''' The development stage the game is in.
''' </summary>
''' <remarks></remarks>
Public Const GAMEDEVELOPMENTSTAGE As String = "Indev"
''' <summary>
''' The name of the game.
''' </summary>
''' <remarks></remarks>
Public Const GAMENAME As String = "Pokémon 3D"
''' <summary>
''' The name of the developer that appears on the title screen.
''' </summary>
''' <remarks></remarks>
Public Const DEVELOPER_NAME As String = "P3D Team"
''' <summary>
''' If the Debug Mode is active.
''' </summary>
''' <remarks></remarks>
Public Const IS_DEBUG_ACTIVE As Boolean = False
''' <summary>
''' If the game should set the GameJolt online version to the current online version.
''' </summary>
''' <remarks></remarks>
Public Const UPDATEONLINEVERSION As Boolean = False
Public Graphics As GraphicsDeviceManager
@ -135,10 +127,10 @@ Public Class GameController
End Sub
Private Shared GameHacked As Boolean = False 'Temp value that stores if a hacking file was detected at game start.
''' <summary>
''' If the player hacked any instance of Pokémon3D at some point.
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property Hacker() As Boolean
Get
Return GameHacked
@ -148,7 +140,6 @@ Public Class GameController
''' <summary>
''' The path to the game folder.
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property GamePath() As String
Get
Return My.Application.Info.DirectoryPath

10
2.5DHero/2.5DHero/Debug/DebugDisplay.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' Renders the debug information.
''' </summary>
''' <remarks></remarks>
Public Shared Sub Draw()
If Core.CurrentScreen.CanDrawDebug = True Then
Dim isDebugString As String = ""
@ -56,9 +55,6 @@
''' <summary>
''' The amount of vertices rendered in the last frame.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Property DrawnVertices() As Integer
Get
Return _drawnVertices
@ -71,9 +67,6 @@
''' <summary>
''' The maximum amount of vertices that are present in the current scene.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Property MaxVertices() As Integer
Get
Return _maxVertices
@ -86,9 +79,6 @@
''' <summary>
''' The distance of the vertex to the camera, that is the furthest away from the camera.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Property MaxDistance() As Integer
Get
Return _maxDistance

3
2.5DHero/2.5DHero/Debug/DotNetVersion.vb
View File

@ -1,14 +1,11 @@
''' <summary>
''' A class to supply .Net installation information.
''' </summary>
''' <remarks></remarks>
Public Class DotNetVersion
''' <summary>
''' Returns .Net installation information.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetInstalled() As String
Dim output As String = ""

5
2.5DHero/2.5DHero/Debug/ObjectDump.vb
View File

@ -1,4 +1,4 @@
''' <summary>
''' <summary>
''' A class to access the dump of variables of an object.
''' </summary>
Public Class ObjectDump
@ -21,7 +21,6 @@ Public Class ObjectDump
''' <summary>
''' Creates a new instance of the ObjectDump class and performs a dump on the passed object.
''' </summary>
''' <param name="obj"></param>
Public Sub New(ByVal obj As Object)
CreateDump(obj)
End Sub
@ -135,4 +134,4 @@ Public Class ObjectDump
Return "List<" & listType.GetGenericArguments()(0).Name & ">[]"
End Function
End Class
End Class

2
2.5DHero/2.5DHero/Entites/Entity.vb
View File

@ -477,8 +477,6 @@
''' <summary>
''' Returns the offset from the 0,0,0 center of the position of the entity.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private Function GetCenter() As Vector3
If CreatedWorld = False Or CreateWorldEveryFrame = True Then
Dim v As Vector3 = Vector3.Zero '(Me.ViewBox.Min - Me.Position) + (Me.ViewBox.Max - Me.Position)

1
2.5DHero/2.5DHero/Entites/Other/NetworkPlayer.vb
View File

@ -10,7 +10,6 @@
''' <summary>
''' The Network ID of the player
''' </summary>
''' <remarks></remarks>
Public NetworkID As Integer = 0
Public faceRotation As Integer

5
2.5DHero/2.5DHero/Entites/Other/OverworldPokemon.vb
View File

@ -1,4 +1,4 @@
Public Class OverworldPokemon
Public Class OverworldPokemon
Inherits Entity
@ -116,7 +116,6 @@
''' <summary>
''' If the OverworldPokémon should be rendered.
''' </summary>
''' <returns></returns>
Public Function IsVisible() As Boolean
If CBool(GameModeManager.GetGameRuleValue("ShowFollowPokemon", "1")) = True Then
If Screen.Level.ShowOverworldPokemon = True Then
@ -270,4 +269,4 @@
Me.ChangeTexture()
End Sub
End Class
End Class

1
2.5DHero/2.5DHero/Exceptions/InvalidEntityTypeException.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' An exception to be thrown when an entity conversion encounters a type error.
''' </summary>
''' <remarks></remarks>
Public Class InvalidEntityTypeException
Inherits Exception

3
2.5DHero/2.5DHero/Global Interfaces/ICopyAble.vb
View File

@ -1,14 +1,11 @@
''' <summary>
''' An interface for classes to implement that can create a copied instance member.
''' </summary>
''' <remarks></remarks>
Public Interface ICopyAble
''' <summary>
''' Returns a new instance of the class in use.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Function Copy() As Object
End Interface

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

@ -1,8 +1,6 @@
''' <summary>
''' A class which can display an animation.
''' Version: 1.0.0.0 (12.06.2012)
''' </summary>
''' <remarks></remarks>
Public Class Animation
Inherits BasicObject
@ -161,7 +159,6 @@ Public Class Animation
''' <summary>
''' Starts the animation.
''' </summary>
''' <remarks></remarks>
Public Sub Start()
_Running = PlayMode.Playing
End Sub
@ -169,7 +166,6 @@ Public Class Animation
''' <summary>
''' Stopps the animation and returns to start.
''' </summary>
''' <remarks></remarks>
Public Sub Stopp()
_Running = PlayMode.Stopped
CurrentRow = StartRow
@ -179,7 +175,6 @@ Public Class Animation
''' <summary>
''' Returns to start and starts the animation afterwards.
''' </summary>
''' <remarks></remarks>
Public Sub Restart()
_Running = PlayMode.Playing
CurrentRow = StartRow
@ -189,7 +184,6 @@ Public Class Animation
''' <summary>
''' Pauses the animation.
''' </summary>
''' <remarks></remarks>
Public Sub Pause()
_Running = PlayMode.Paused
End Sub

30
2.5DHero/2.5DHero/HelperClasses/BasicObject.vb
View File

@ -1,8 +1,6 @@
''' <summary>
''' This is the BasicObject class for each Graphics-Component.
''' Version: 1.0.0.2 (17.07.2012)
''' </summary>
''' <remarks></remarks>
Public MustInherit Class BasicObject
#Region "Fields"
@ -17,13 +15,11 @@ Public MustInherit Class BasicObject
''' <summary>
''' Use the random-function to create randomized values.
''' </summary>
''' <remarks></remarks>
Public Random As New System.Random()
''' <summary>
''' You can store a value in the Tag.
''' </summary>
''' <remarks></remarks>
Public Tag As New Object
#End Region
@ -33,9 +29,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' The visual texture of the object.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Texture As Texture2D
Get
Return _Texture
@ -48,9 +41,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' Height of the object.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Height As Integer
Get
Return _Height
@ -63,9 +53,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' Width of the object.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Width As Integer
Get
Return _Width
@ -78,9 +65,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' The position if the object in the window in pixels
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Position As Vector2
Get
Return _Position
@ -93,9 +77,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' A visible parameter which can be used to toggle object's visibility.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Visible As Boolean
Get
Return _Visible
@ -108,9 +89,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' Shows that you can dispose this object in the next Unload-Method.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property DisposeReady As Boolean
Get
Return _DisposeReady
@ -123,9 +101,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' Returns a rectangle created by position, width and height of this object.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Rectangle As Rectangle
Get
Return New Rectangle(CInt(Position.X), CInt(Position.Y), Width, Height)
@ -140,9 +115,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' The size of this object (width and height)
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Size As Size
Get
Return New Size(Me.Width, Me.Height)
@ -162,7 +134,6 @@ Public MustInherit Class BasicObject
''' <param name="Width">The width of this object (x-axis)</param>
''' <param name="Height">The height of this object (y-axis)</param>
''' <param name="Position">The position of this object.</param>
''' <remarks></remarks>
Public Sub New(ByVal Texture As Texture2D, ByVal Width As Integer, ByVal Height As Integer, ByVal Position As Vector2)
Me._Texture = Texture
Me._Width = Width
@ -173,7 +144,6 @@ Public MustInherit Class BasicObject
''' <summary>
''' Makes the object invisible and ready for disposing.
''' </summary>
''' <remarks></remarks>
Public Sub Remove()
DisposeReady = True
Visible = False

36
2.5DHero/2.5DHero/HelperClasses/GameMessage.vb
View File

@ -1,8 +1,6 @@
''' <summary>
''' This class can show a message ingame.
''' Version: 1.0.0.1 (22.06.2012)
''' </summary>
''' <remarks></remarks>
Public Class GameMessage
Inherits BasicObject
@ -37,9 +35,6 @@ Public Class GameMessage
''' <summary>
''' The duretion in milliseconds this message will be displayed.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Duration As Single
Get
Return _Duration
@ -52,9 +47,6 @@ Public Class GameMessage
''' <summary>
''' The backgroundcolor the texture will be colored with.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property BackgroundColor As Color
Get
Return _BackgroundColor
@ -67,9 +59,6 @@ Public Class GameMessage
''' <summary>
''' The rectangle from the texture to be drawn.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property TextureRectangle As Rectangle
Get
Return _TextureRectangle
@ -82,9 +71,6 @@ Public Class GameMessage
''' <summary>
''' Shows the message in fullscreen (overides size and dock)
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Fullscreen As Boolean
Get
Return _Fullscreen
@ -97,9 +83,6 @@ Public Class GameMessage
''' <summary>
''' Docks the message at a side of the window (overides size)
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Dock As DockStyles
Get
Return _Dock
@ -112,9 +95,6 @@ Public Class GameMessage
''' <summary>
''' The text that will be displayed.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Text As String
Get
Return _Text
@ -127,9 +107,6 @@ Public Class GameMessage
''' <summary>
''' The position the text is drawn (relative to message-position)
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property TextPosition As Vector2
Get
Return _TextPosition
@ -151,9 +128,6 @@ Public Class GameMessage
''' <summary>
''' The color for the text.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property TextColor As Color
Get
Return _TextColor
@ -166,9 +140,6 @@ Public Class GameMessage
''' <summary>
''' If this value is true, the duretion has no effect on the visibility of this message.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property ShowAlways As Boolean
Get
Return _showAlways
@ -206,7 +177,6 @@ Public Class GameMessage
''' <param name="Text">The actual text to be displayed.</param>
''' <param name="SpriteFont">The spritefont, the text will be drawn with.</param>
''' <param name="TextColor">The color the text will be drawn in.</param>
''' <remarks></remarks>
Public Sub SetupText(ByVal Text As String, ByVal SpriteFont As SpriteFont, ByVal TextColor As Color)
Me._Text = Text
Me._spriteFont = SpriteFont
@ -216,7 +186,6 @@ Public Class GameMessage
''' <summary>
''' Updates the message (required!)
''' </summary>
''' <remarks></remarks>
Public Sub Update()
If _showAlways = False Then
If _Duration > CSng(0) Then
@ -256,7 +225,6 @@ Public Class GameMessage
''' <summary>
''' Draw the message.
''' </summary>
''' <remarks></remarks>
Public Sub Draw()
If Visible = True Then
If _Fullscreen = True Then
@ -281,9 +249,6 @@ Public Class GameMessage
''' <summary>
''' Actual drawing stuff.
''' </summary>
''' <param name="drawSize"></param>
''' <param name="drawPosition"></param>
''' <remarks></remarks>
Private Sub DrawMe(ByVal drawSize As Size, ByVal drawPosition As Vector2)
Core.SpriteBatch.DrawInterface(Me.Texture, New Rectangle(CInt(drawPosition.X), CInt(drawPosition.Y), drawSize.Width, drawSize.Height), TextureRectangle, New Color(_BackgroundColor.R, _BackgroundColor.G, _BackgroundColor.B, Me._alpha))
Core.SpriteBatch.DrawInterfaceString(_spriteFont, Me._Text, LinkVector2(Me.Position, Me._TextPosition, 1), New Color(Me._TextColor.R, Me._TextColor.G, Me._TextColor.B, Me._alpha))
@ -298,7 +263,6 @@ Public Class GameMessage
''' </summary>
''' <param name="Duration">The time span the message will appear on the screen.</param>
''' <param name="graphics">The graphics device the message will be drawn on.</param>
''' <remarks></remarks>
Public Sub ShowMessage(ByVal Duration As Single, ByVal graphics As GraphicsDevice)
Me._Duration = Duration
Me.Visible = True

8
2.5DHero/2.5DHero/HelperClasses/TimeHelpers.vb
View File

@ -1,10 +1,9 @@
Public Class TimeHelpers
Public Class TimeHelpers
''' <summary>
''' Converts an amount of seconds to a TimeSpan.
''' </summary>
''' <param name="Seconds">The seconds to convert.</param>
''' <returns></returns>
Public Shared Function ConvertSecondToTime(ByVal Seconds As Integer) As TimeSpan
Dim minutes As Integer = 0
Dim hours As Integer = 0
@ -26,7 +25,6 @@
''' <summary>
''' Returns the amount of time the player has played.
''' </summary>
''' <returns></returns>
Public Shared Function GetCurrentPlayTime() As TimeSpan
Dim PTime As TimeSpan = Core.Player.PlayTime
@ -41,7 +39,6 @@
''' </summary>
''' <param name="DateTime">The DateTime to display.</param>
''' <param name="ShowSeconds">To show the seconds or not.</param>
''' <returns></returns>
Public Shared Function GetDisplayTime(ByVal DateTime As Date, ByVal ShowSeconds As Boolean) As String
Return GetDisplayTime(New TimeSpan(DateTime.Hour, DateTime.Minute, DateTime.Second), ShowSeconds)
End Function
@ -51,7 +48,6 @@
''' </summary>
''' <param name="Time">The TimeSpan to display.</param>
''' <param name="ShowSeconds">To show the seconds or not.</param>
''' <returns></returns>
Public Shared Function GetDisplayTime(ByVal Time As TimeSpan, ByVal ShowSeconds As Boolean) As String
Dim days As Integer = Time.Days
Dim hour As Integer = Time.Hours
@ -79,4 +75,4 @@
Return t
End Function
End Class
End Class

17
2.5DHero/2.5DHero/Input/KeyBindings.vb
View File

@ -1,4 +1,4 @@
Public Class KeyBindings
Public Class KeyBindings
Public Shared ForwardMoveKey As Keys = Keys.W
Public Shared LeftMoveKey As Keys = Keys.A
@ -106,7 +106,6 @@
''' Converts the name of a key to the actual Key class.
''' </summary>
''' <param name="keyStr">The key name to convert.</param>
''' <returns></returns>
''' <remarks>The default is Keys.None.</remarks>
Public Shared Function GetKey(ByVal keyStr As String) As Keys
For Each k As Keys In [Enum].GetValues(GetType(Keys))
@ -122,7 +121,6 @@
''' Returns the name of a key.
''' </summary>
''' <param name="key">The key to get the name for.</param>
''' <returns></returns>
''' <remarks>Returns String.Empty by default.</remarks>
Public Shared Function GetKeyName(ByVal key As Keys) As String
Return key.ToString()
@ -230,8 +228,6 @@
''' <summary>
''' Creates the default keyboard.dat file.
''' </summary>
''' <param name="force"></param>
''' <remarks></remarks>
Public Shared Sub CreateKeySave(ByVal force As Boolean)
If IO.Directory.Exists(GameController.GamePath & "\Save") = True Then
If IO.File.Exists(GameController.GamePath & "\Save\Keyboard.dat") = False Or force = True Then
@ -268,7 +264,6 @@
''' <summary>
''' Saves the current keyboard configuration to the keyboard.dat file.
''' </summary>
''' <remarks></remarks>
Public Shared Sub SaveKeys()
If IO.Directory.Exists(GameController.GamePath & "\Save") = True Then
Dim s As String = "[ForwardMove]=" & GetKeyName(ForwardMoveKey) & vbNewLine &
@ -314,8 +309,6 @@
''' <param name="MaxLength">The maximum length of the text. -1 means infinite length.</param>
''' <param name="TriggerShift">Checks if the Shift variant of a key gets considered.</param>
''' <param name="TriggerAlt">Checks if the Alt variant of a key gets considered.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetInput(ByVal WhiteKeys() As Keys, ByVal BlackKeys() As Keys, Optional ByRef Text As String = "", Optional ByVal MaxLength As Integer = -1, Optional ByVal TriggerShift As Boolean = True, Optional ByVal TriggerAlt As Boolean = True) As String
Dim Keys() As Keys = KeyBoardHandler.GetPressedKeys()
For Each Key As Keys In Keys
@ -382,8 +375,6 @@
''' <param name="WhiteKeys">The key whitelist.</param>
''' <param name="BlackKeys">The key blacklist.</param>
''' <param name="Key">The key to be checked.</param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function KeyBlocked(ByVal WhiteKeys() As Keys, ByVal BlackKeys() As Keys, ByVal Key As Keys) As Boolean
Dim MapWhite As Boolean = WhiteKeys.Length > 0
Dim MapBlack As Boolean = BlackKeys.Length > 0
@ -405,8 +396,6 @@
''' <param name="MaxLength">The maximum length of the text. -1 means infinite length.</param>
''' <param name="TriggerShift">Checks if the Shift variant of a key gets considered.</param>
''' <param name="TriggerAlt">Checks if the Alt variant of a key gets considered.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetInput(Optional ByRef Text As String = "", Optional ByVal MaxLength As Integer = -1, Optional ByVal TriggerShift As Boolean = True, Optional ByVal TriggerAlt As Boolean = True) As String
Return GetInput({},
{Keys.Enter, Keys.Up, Keys.Down, Keys.Left, Keys.Right, Keys.Tab, Keys.Delete, Keys.Home, Keys.End, Keys.Escape},
@ -423,8 +412,6 @@
''' <param name="MaxLength">The maximum length of the text. -1 means infinite length.</param>
''' <param name="TriggerShift">Checks if the Shift variant of a key gets considered.</param>
''' <param name="TriggerAlt">Checks if the Alt variant of a key gets considered.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetNameInput(Optional ByRef Text As String = "", Optional ByVal MaxLength As Integer = -1, Optional ByVal TriggerShift As Boolean = True, Optional ByVal TriggerAlt As Boolean = True) As String
Return GetInput({Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Space, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0, Keys.Back, Keys.A, Keys.B, Keys.C, Keys.D, Keys.E, Keys.F, Keys.G, Keys.H, Keys.I, Keys.J, Keys.K, Keys.L, Keys.M, Keys.N, Keys.O, Keys.P, Keys.Q, Keys.R, Keys.S, Keys.T, Keys.U, Keys.V, Keys.W, Keys.X, Keys.Y, Keys.Z},
{},
@ -434,4 +421,4 @@
TriggerAlt)
End Function
End Class
End Class

6
2.5DHero/2.5DHero/Input/KeyCharConverter.vb
View File

@ -1,4 +1,4 @@
''' <summary>
''' <summary>
''' This class serves the only purpose to convert a key form the Keys enumeration to an actual Char that the key represents on the currently loaded keyboard layout.
''' </summary>
Public Class KeyCharConverter
@ -1100,7 +1100,6 @@ Public Class KeyCharConverter
''' Returns chars representing the keys pressed on a keyboard.
''' </summary>
''' <param name="key">The key. Returns nothing when no keypress was detected.</param>
''' <returns></returns>
Public Shared Function GetCharFromKey(key As Keys) As Char?
Return GetCharFromKey(CType(key, Windows.Forms.Keys))
End Function
@ -1109,7 +1108,6 @@ Public Class KeyCharConverter
''' Returns chars representing the keys pressed on a keyboard.
''' </summary>
''' <param name="key">The key. Returns nothing when no keypress was detected.</param>
''' <returns></returns>
Public Shared Function GetCharFromKey(key As Windows.Forms.Keys) As Char?
Dim ch As Char? = Nothing
@ -1134,4 +1132,4 @@ Public Class KeyCharConverter
Return ch
End Function
End Class
End Class

5
2.5DHero/2.5DHero/Input/KeyboardInput.vb
View File

@ -1,4 +1,4 @@
''' <summary>
''' <summary>
''' Handles text input from the keyboard.
''' </summary>
Public Class KeyboardInput
@ -444,7 +444,6 @@ Public Class KeyboardInput
''' <summary>
''' Returns the selected text.
''' </summary>
''' <returns></returns>
Public ReadOnly Property SelectedText() As String
Get
If Me._selectionLength <= 0 Then
@ -530,4 +529,4 @@ Public Class KeyboardInput
#End Region
End Class
End Class

10
2.5DHero/2.5DHero/Modules/Extensions.vb
View File

@ -1,4 +1,4 @@
Imports System.Runtime.CompilerServices
Imports System.Runtime.CompilerServices
Module Extensions
@ -531,8 +531,6 @@ Module Extensions
''' <summary>
''' Inverts the Color.
''' </summary>
''' <param name="c"></param>
''' <returns></returns>
<Extension()>
Public Function Invert(ByVal c As Color) As Color
Return New Color(255 - c.R, 255 - c.G, 255 - c.B, c.A)
@ -551,8 +549,6 @@ Module Extensions
''' <summary>
''' Converts a System.Drawing.Color into a Xna.Framework.Color.
''' </summary>
''' <param name="c"></param>
''' <returns></returns>
<Extension()>
Public Function ToXNA(ByVal c As Drawing.Color) As Color
Return New Color(c.R, c.G, c.B, c.A)
@ -561,11 +557,9 @@ Module Extensions
''' <summary>
''' Converts a Xna.Framework.Color into a System.Drawing.Color.
''' </summary>
''' <param name="c"></param>
''' <returns></returns>
<Extension()>
Public Function ToDrawing(ByVal c As Color) As Drawing.Color
Return Drawing.Color.FromArgb(c.R, c.G, c.B, c.A)
End Function
End Module
End Module

2
2.5DHero/2.5DHero/Network/Chat.vb
View File

@ -130,8 +130,6 @@
''' <summary>
''' Writes the message into the chat and returns True, if the message was a command. Only sends non-command messages to servers.
''' </summary>
''' <param name="chatMessage"></param>
''' <remarks></remarks>
Public Shared Sub WriteLine(ByVal chatMessage As ChatMessage)
Logger.Log(Logger.LogTypes.Entry, "Chat.vb: " & chatMessage.Message)

8
2.5DHero/2.5DHero/Network/ChatScreen.vb
View File

@ -1,4 +1,4 @@
Public Class ChatScreen
Public Class ChatScreen
Inherits Screen
@ -895,7 +895,6 @@
''' <summary>
''' Return sub for the Delegate controller input request screen.
''' </summary>
''' <param name="input"></param>
Public Sub GetControllerInput(ByVal input As String)
Me.currentText = input
End Sub
@ -903,7 +902,6 @@
''' <summary>
''' Inserts a new message to the NewMessages query.
''' </summary>
''' <param name="chatMessage"></param>
Public Shared Sub InsertNewMessage(ByVal chatMessage As Chat.ChatMessage)
Select Case chatMessage.MessageType
Case Chat.ChatMessage.MessageTypes.CommandMessage
@ -929,7 +927,6 @@
''' <summary>
''' Enters a new PM chat.
''' </summary>
''' <param name="newPMChatName"></param>
Private Sub EnterPMChat(ByVal newPMChatName As String)
If PMChats.Keys.Contains(newPMChatName) = False Then
PMChats.Add(newPMChatName, False)
@ -941,7 +938,6 @@
''' <summary>
''' Called when the client receives a PM message from the server.
''' </summary>
''' <param name="chatMessage"></param>
Public Shared Sub ReceivedPMMessage(ByVal chatMessage As Chat.ChatMessage)
If PMChats.Keys.Contains(chatMessage.Sender) = False Then
PMChats.Add(chatMessage.Sender, True)
@ -986,4 +982,4 @@
End If
End Sub
End Class
End Class

1
2.5DHero/2.5DHero/Network/GameJolt/API.vb
View File

@ -22,7 +22,6 @@
''' Handles received data.
''' </summary>
''' <param name="data">The data to work with.</param>
''' <remarks></remarks>
Public Shared Function HandleData(ByVal data As String) As List(Of JoltValue)
'Old system:
If data.Contains("data:""" & vbNewLine) = True Then

2
2.5DHero/2.5DHero/Network/GameJolt/LogInScreen.vb
View File

@ -448,8 +448,6 @@ Namespace GameJolt
''' <summary>
''' This gets called from all GameJolt screens. If the player is no longer connected to GameJolt, it opens up the login screen.
''' </summary>
''' <param name="SetToScreen"></param>
''' <remarks></remarks>
Public Shared Sub KickFromOnlineScreen(ByVal SetToScreen As Screen)
If Core.Player.IsGameJoltSave = True AndAlso GameJolt.API.LoggedIn = False Then
Core.SetScreen(New GameJolt.LogInScreen(SetToScreen))

7
2.5DHero/2.5DHero/Network/Profiles/Emblem.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' A class to handle emblem rendering and management.
''' </summary>
''' <remarks></remarks>
Public Class Emblem
#Region "Enumrations"
@ -11,7 +10,6 @@
''' <summary>
''' The names of male trainer types.
''' </summary>
''' <remarks></remarks>
Public Enum MaleEmblemSpriteType
Preschooler = 0
SchoolKid = 1
@ -38,7 +36,6 @@
''' <summary>
''' The names of female trainer types.
''' </summary>
''' <remarks></remarks>
Public Enum FemaleEmblemSpriteType
Preschooler = 0
SchoolKid = 1
@ -65,7 +62,6 @@
''' <summary>
''' The sprites of male trainers.
''' </summary>
''' <remarks></remarks>
Public Enum MaleEmblemSprites
NN40 = 0
NN42 = 1
@ -92,7 +88,6 @@
''' <summary>
''' The sprites of female trainers.
''' </summary>
''' <remarks></remarks>
Public Enum FemaleEmblemSprites
NN41 = 0
NN43 = 1
@ -129,7 +124,6 @@
''' <param name="Position">The position on the screen.</param>
''' <param name="Scale">The scale of the emblem.</param>
''' <param name="SpriteTexture">An alternative sprite to draw.</param>
''' <remarks></remarks>
Public Shared Sub Draw(ByVal Name As String, ByVal ID As String, ByVal Points As Integer, ByVal Gender As String, ByVal EmblemBackground As String, ByVal Position As Vector2, ByVal Scale As Single, ByVal SpriteTexture As Texture2D)
Draw(Name, ID, Points, Gender, EmblemBackground, Position, Scale, SpriteTexture, Nothing)
End Sub
@ -146,7 +140,6 @@
''' <param name="Scale">The scale of the emblem.</param>
''' <param name="SpriteTexture">An alternative sprite to draw.</param>
''' <param name="PokemonList">A list of 0-6 Pokémon to render below the player information.</param>
''' <remarks></remarks>
Public Shared Sub Draw(ByVal Name As String, ByVal ID As String, ByVal Points As Integer, ByVal Gender As String, ByVal EmblemBackground As String, ByVal Position As Vector2, ByVal Scale As Single, ByVal SpriteTexture As Texture2D, ByVal PokemonList As List(Of Pokemon))
'Generate OT:
Dim OT As String = ID

24
2.5DHero/2.5DHero/Network/Profiles/GamejoltSave.vb
View File

@ -1,4 +1,4 @@
Namespace GameJolt
Namespace GameJolt
Public Class GamejoltSave
@ -45,7 +45,6 @@
''' <summary>
''' Apricorn data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Apricorns() As String
Get
Return Me._apricorns
@ -55,7 +54,6 @@
''' <summary>
''' Berry data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Berries() As String
Get
Return Me._berries
@ -65,7 +63,6 @@
''' <summary>
''' Box data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Box() As String
Get
Return Me._box
@ -75,7 +72,6 @@
''' <summary>
''' Daycare data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Daycare() As String
Get
Return Me._daycare
@ -85,7 +81,6 @@
''' <summary>
''' ItemData data
''' </summary>
''' <returns></returns>
Public ReadOnly Property ItemData() As String
Get
Return Me._itemData
@ -95,7 +90,6 @@
''' <summary>
''' Item data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Items() As String
Get
Return Me._items
@ -105,7 +99,6 @@
''' <summary>
''' NPC data
''' </summary>
''' <returns></returns>
Public ReadOnly Property NPC() As String
Get
Return Me._NPC
@ -115,7 +108,6 @@
''' <summary>
''' Option data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Options() As String
Get
Return Me._options
@ -125,7 +117,6 @@
''' <summary>
''' Party data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Party() As String
Get
Return Me._party
@ -135,7 +126,6 @@
''' <summary>
''' Player data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Player() As String
Get
Return Me._player
@ -145,7 +135,6 @@
''' <summary>
''' Pokedex data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Pokedex() As String
Get
Return Me._pokedex
@ -155,7 +144,6 @@
''' <summary>
''' Register data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Register() As String
Get
Return Me._register
@ -165,7 +153,6 @@
''' <summary>
''' HallOfFame data
''' </summary>
''' <returns></returns>
Public ReadOnly Property HallOfFame() As String
Get
Return Me._hallOfFame
@ -175,7 +162,6 @@
''' <summary>
''' SecretBase data
''' </summary>
''' <returns></returns>
Public ReadOnly Property SecretBase() As String
Get
Return Me._secretBase
@ -185,7 +171,6 @@
''' <summary>
''' RoamingPokemon data
''' </summary>
''' <returns></returns>
Public ReadOnly Property RoamingPokemon() As String
Get
Return Me._roamingPokemon
@ -195,7 +180,6 @@
''' <summary>
''' Statistics data
''' </summary>
''' <returns></returns>
Public ReadOnly Property Statistics() As String
Get
Return Me._statistics
@ -266,7 +250,6 @@
''' <summary>
''' Indicates if the download finished.
''' </summary>
''' <returns></returns>
Public ReadOnly Property DownloadFinished() As Boolean
Get
Return DownloadProgress() = TotalDownloadItems()
@ -276,7 +259,6 @@
''' <summary>
''' Returns the amount of downloaded items.
''' </summary>
''' <returns></returns>
Public ReadOnly Property DownloadProgress() As Integer
Get
Dim c As Integer = 0
@ -295,7 +277,6 @@
''' <summary>
''' The total files to download from the server.
''' </summary>
''' <returns></returns>
Public ReadOnly Property TotalDownloadItems() As Integer
Get
Return SAVEFILECOUNT + EXTRADATADOWNLOADCOUNT
@ -305,7 +286,6 @@
''' <summary>
''' If the download of this save failed at some point.
''' </summary>
''' <returns></returns>
Public ReadOnly Property DownloadFailed() As Boolean
Get
Return Me._downloadFailed
@ -1036,4 +1016,4 @@
End Class
End Namespace
End Namespace

30
2.5DHero/2.5DHero/Network/Servers/Package.vb
View File

@ -24,7 +24,6 @@
''' <summary>
''' Not used anymore, use GameData instead.
''' </summary>
''' <remarks></remarks>
PlayData = 1
PrivateMessage = 2
@ -81,9 +80,6 @@
''' <summary>
''' The PackageType of this Package.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property PackageType() As PackageTypes
Get
Return CType(Me._packageType, PackageTypes)
@ -93,9 +89,6 @@
''' <summary>
''' The Origin ID of this Package.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Origin() As Integer
Get
Return Me._origin
@ -105,9 +98,6 @@
''' <summary>
''' The DataItems of this Package.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property DataItems() As List(Of String)
Get
Return Me._dataItems
@ -117,9 +107,6 @@
''' <summary>
''' Returns if the data used to create this Package was valid.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsValid() As Boolean
Get
Return Me._isValid
@ -129,9 +116,6 @@
''' <summary>
''' The protocol version of this package.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property ProtocolVersion() As String
Get
Return Me._protocolVersion
@ -141,9 +125,6 @@
''' <summary>
''' The protocol type (TCP or UDP) this package is using when sending data.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property ProtocolType() As ProtocolTypes
Get
Return Me._protocolType
@ -161,7 +142,6 @@
''' Creates a new instance of the Package class.
''' </summary>
''' <param name="ByteArray">The raw Package data as bytes.</param>
''' <remarks></remarks>
Public Sub New(ByVal ByteArray As Byte())
Me.New(System.Text.Encoding.ASCII.GetString(ByteArray))
End Sub
@ -170,7 +150,6 @@
''' Creates a new instance of the Package class.
''' </summary>
''' <param name="FullData">The raw Package data.</param>
''' <remarks></remarks>
Public Sub New(ByVal FullData As String)
Try
If FullData.Contains("|") = False Then
@ -254,7 +233,6 @@
''' <param name="Origin">The Origin computer ID of the new Package.</param>
''' <param name="ProtocolType">The ProtocolType this package is going to use.</param>
''' <param name="DataItems">An array of DataItems the Package contains.</param>
''' <remarks></remarks>
Public Sub New(ByVal PackageType As PackageTypes, ByVal Origin As Integer, ByVal ProtocolType As ProtocolTypes, ByVal DataItems As List(Of String))
Me._protocolVersion = ServersManager.PROTOCOLVERSION
Me._packageType = PackageType
@ -269,7 +247,6 @@
''' <param name="PackageType">The PackageType of the new Package.</param>
''' <param name="Origin">The Origin computer ID of the new Package.</param>
''' <param name="ProtocolType">The ProtocolType this package is going to use.</param>
''' <remarks></remarks>
Public Sub New(ByVal PackageType As PackageTypes, ByVal Origin As Integer, ByVal ProtocolType As ProtocolTypes)
Me._protocolVersion = ServersManager.PROTOCOLVERSION
Me._packageType = PackageType
@ -282,7 +259,6 @@
''' </summary>
''' <param name="PackageType">The PackageType of the new Package.</param>
''' <param name="ProtocolType">The ProtocolType this package is going to use.</param>
''' <remarks></remarks>
Public Sub New(ByVal PackageType As PackageTypes, ByVal ProtocolType As ProtocolTypes)
Me._protocolVersion = ServersManager.PROTOCOLVERSION
Me._packageType = PackageType
@ -297,7 +273,6 @@
''' <param name="Origin">The Origin computer ID of the new Package.</param>
''' <param name="ProtocolType">The ProtocolType this package is going to use.</param>
''' <param name="DataItem">The single Data Item to create the package with.</param>
''' <remarks></remarks>
Public Sub New(ByVal Packagetype As PackageTypes, ByVal Origin As Integer, ByVal ProtocolType As ProtocolTypes, ByVal DataItem As String)
Me.New(Packagetype, Origin, ProtocolType, {DataItem}.ToList())
End Sub
@ -309,8 +284,6 @@
''' <summary>
''' Returns the raw Package data from the members of this instance.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Overrides Function ToString() As String
Dim outputStr As String = Me._protocolVersion & "|" & CInt(Me._packageType).ToString() & "|" & Me._origin.ToString() & "|" & Me._dataItems.Count
@ -330,7 +303,6 @@
''' <summary>
''' Gives this package to the PackageHandler.
''' </summary>
''' <remarks></remarks>
Public Sub Handle()
PackageHandler.HandlePackage(Me)
End Sub
@ -338,8 +310,6 @@
''' <summary>
''' Returns a byte array of the data of this package.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetByteArray() As Byte()
Return System.Text.Encoding.ASCII.GetBytes(Me.ToString())
End Function

9
2.5DHero/2.5DHero/Network/Servers/PlayerCollection.vb
View File

@ -1,18 +1,15 @@
Namespace Servers
Namespace Servers
''' <summary>
''' Contains all connected players.
''' </summary>
''' <remarks>Inherits from List(of )</remarks>
Public Class PlayerCollection
Inherits System.Collections.Generic.List(Of Player)
Inherits List(Of Player)
''' <summary>
''' Removes all players from the collection that have the specified name.
''' </summary>
''' <param name="Name"></param>
''' <remarks></remarks>
Public Sub RemoveByName(ByVal Name As String)
For i = 0 To Me.Count - 1
If i <= Me.Count - 1 Then
@ -127,4 +124,4 @@
End Class
End Namespace
End Namespace

1
2.5DHero/2.5DHero/Network/Servers/PlayerManager.vb
View File

@ -5,7 +5,6 @@ Namespace Servers
''' <summary>
''' Manages all local player related operations.
''' </summary>
''' <remarks></remarks>
Public Class PlayerManager
Private _receivedWorldData As Boolean = False 'If this client received the server's world data.

16
2.5DHero/2.5DHero/Network/Servers/ServerConnection.vb
View File

@ -7,7 +7,6 @@ Namespace Servers
''' <summary>
''' Manages all Servers connection related operations.
''' </summary>
''' <remarks></remarks>
Public Class ServerConnection
Private _client As TcpClient
@ -23,9 +22,6 @@ Namespace Servers
''' <summary>
''' Returns the current connection status.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Connected() As Boolean
Get
If _client Is Nothing Then
@ -39,7 +35,6 @@ Namespace Servers
''' Connects to a server.
''' </summary>
''' <param name="Server">The server to connect to.</param>
''' <remarks></remarks>
Public Sub Connect(ByVal Server As Server)
Dim t As New Threading.Thread(AddressOf InternalConnect)
t.IsBackground = True
@ -95,7 +90,6 @@ Namespace Servers
''' <summary>
''' Aborts the threads and closes any open streams.
''' </summary>
''' <remarks></remarks>
Public Sub Abort()
Logger.Debug("ServerConnection.vb: Aborting threads and streams...")
Me._ConnectionOpen = False
@ -130,7 +124,6 @@ Namespace Servers
''' <summary>
''' Disconnects the player from the server and opens the main menu.
''' </summary>
''' <remarks></remarks>
Public Sub Disconnect()
Me.Disconnect("", "")
End Sub
@ -140,7 +133,6 @@ Namespace Servers
''' </summary>
''' <param name="Header">The header to display on the ConnectScreen.</param>
''' <param name="Message">The Message to display on the ConnectScreen.</param>
''' <remarks></remarks>
Public Sub Disconnect(ByVal Header As String, ByVal Message As String)
If Me._ConnectionOpen = True Then
Logger.Debug("Disconnect; Header: " & Header & "; Message: " & Message)
@ -161,7 +153,6 @@ Namespace Servers
''' <summary>
''' Start the ping thread.
''' </summary>
''' <remarks></remarks>
Public Sub StartPing()
Me.StopPing()
Me.LastPingTime = Date.Now
@ -178,7 +169,6 @@ Namespace Servers
''' <summary>
''' Stopping the ping thread.
''' </summary>
''' <remarks></remarks>
Public Sub StopPing()
Try
Me.PingTimer.Stop()
@ -188,7 +178,6 @@ Namespace Servers
''' <summary>
''' Sends a ping package to the connected server.
''' </summary>
''' <remarks></remarks>
Private Sub InternalPing()
Try
If DateDiff(DateInterval.Second, Me.LastPingTime, Date.Now) >= 10 Then
@ -236,8 +225,6 @@ Namespace Servers
''' <summary>
''' Send a package object to the server.
''' </summary>
''' <param name="Package"></param>
''' <remarks></remarks>
Public Sub SendPackage(ByVal Package As Package)
If _ConnectionOpen = True And Me._client.Connected = True Then
Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf InternalSendPackage), Package)
@ -270,7 +257,6 @@ Namespace Servers
''' <summary>
''' Start the listen thread that receives packages from the server.
''' </summary>
''' <remarks></remarks>
Private Sub StartListen()
If Not Me._receiveThread Is Nothing AndAlso Me._receiveThread.IsAlive = True Then
Try
@ -285,7 +271,6 @@ Namespace Servers
''' <summary>
''' Listen to the server (TCP).
''' </summary>
''' <remarks></remarks>
Private Sub InternalListen()
While Me._client.Connected
Try
@ -311,7 +296,6 @@ Namespace Servers
''' <summary>
''' Stops listening to the TCP and UDP ports.
''' </summary>
''' <remarks></remarks>
Private Sub StopListen()
Try
If Not Me._receiveThread Is Nothing Then

1
2.5DHero/2.5DHero/Network/Servers/ServersManager.vb
View File

@ -74,7 +74,6 @@ Namespace Servers
''' <summary>
''' Updates the ServersManager and sends the player data package if needed.
''' </summary>
''' <remarks></remarks>
Public Sub Update()
If JoinServerScreen.Online = True And ConnectScreen.Connected = True Then
If Me._PlayerManager.HasNewPlayerData() = True Then

5
2.5DHero/2.5DHero/Network/UrlEncoder.vb
View File

@ -1,4 +1,4 @@
Imports System.Text
Imports System.Text
''' <summary>
''' <para>Because the 4.0 client .net Framework does not contain the System.Web assembly, we need to implement the only function we
@ -11,7 +11,6 @@ Public Class UrlEncoder
''' Returns the URL encoded string of an URL that properly escapes special characters.
''' </summary>
''' <param name="str">The string to encode.</param>
''' <returns></returns>
Public Shared Function Encode(ByVal str As String) As String
If str Is Nothing Then
Return Nothing
@ -104,4 +103,4 @@ Public Class UrlEncoder
' ^ The array of safe characters, apart from alphanumeric.
End Function
End Class
End Class

6
2.5DHero/2.5DHero/Overworld/OverworldCamera.vb
View File

@ -1,4 +1,4 @@
Public Class OverworldCamera
Public Class OverworldCamera
Inherits Camera
@ -36,7 +36,6 @@
''' <summary>
''' Usually true, but if the player walks against an entitity that forces him to move up, set this to false so that the visual/audio feedback of walking against something don't appear.
''' </summary>
''' <returns></returns>
Public Property DidWalkAgainst() As Boolean
Get
Return _didWalkAgainst
@ -132,7 +131,6 @@
''' <summary>
''' If the camera is pointing straight north, east, south or west.
''' </summary>
''' <returns></returns>
Public Function IsPointingToNormalDirection() As Boolean
Return (Yaw = 0F Or Yaw = MathHelper.Pi * 0.5F Or Yaw = MathHelper.Pi Or Yaw = MathHelper.Pi * 1.5F)
End Function
@ -1007,4 +1005,4 @@
#End Region
End Class
End Class

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

@ -1,7 +1,6 @@
''' <summary>
''' The screen to display the default Overworld gameplay.
''' </summary>
''' <remarks>Inherits Screen.</remarks>
Public Class OverworldScreen
Inherits Screen
@ -19,7 +18,6 @@ Public Class OverworldScreen
''' <summary>
''' The delay until the XBOX buttons get shown since the player last pressed a button.
''' </summary>
''' <remarks></remarks>
Private ShowControlsDelay As Single = 4.0F
#End Region
@ -29,9 +27,6 @@ Public Class OverworldScreen
''' <summary>
''' Array of Title objects to be rendered on the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Titles() As List(Of Title)
Get
Return Me._titles
@ -41,9 +36,6 @@ Public Class OverworldScreen
''' <summary>
''' The ActionScript instance that controls the scripts.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property ActionScript() As ActionScript
Get
Return Me._actionScript
@ -53,9 +45,6 @@ Public Class OverworldScreen
''' <summary>
''' Checks if the player encountered a trainer.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property TrainerEncountered() As Boolean
Get
Return Me._trainerEncountered
@ -68,9 +57,6 @@ Public Class OverworldScreen
''' <summary>
''' Fade progress value for the black screen fade.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Property FadeValue() As Integer
Get
Return _fadeValue
@ -83,8 +69,6 @@ Public Class OverworldScreen
''' <summary>
''' The Fishing Rod that should be rendered on the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>-1 = No Rod, 0 = Old Rod, 1 = Good Rod, 2 = Super Rod</remarks>
Public Shared Property DrawRodID() As Integer
Get
@ -100,7 +84,6 @@ Public Class OverworldScreen
''' <summary>
''' Returns information about the Overworld Screen.
''' </summary>
''' <returns></returns>
''' <remarks>Implements the GetScreenStatus method.</remarks>
Public Overrides Function GetScreenStatus() As String
Dim s As String = "IsSurfing=" & Level.Surfing.ToString() & vbNewLine &
@ -115,7 +98,6 @@ Public Class OverworldScreen
''' <summary>
''' Creates a new instance of the OverworldScreen.
''' </summary>
''' <remarks></remarks>
Public Sub New()
'Set default information:
Me.Identification = Identifications.OverworldScreen
@ -158,7 +140,6 @@ Public Class OverworldScreen
''' <summary>
''' Updates the OverworldScreen.
''' </summary>
''' <remarks></remarks>
Public Overrides Sub Update()
'If the MapScript has a value loaded from the MapScript map tag and there is no script running, start that script:
If LevelLoader.MapScript <> "" And ActionScript.IsReady = True Then
@ -275,7 +256,6 @@ Public Class OverworldScreen
''' <summary>
''' Updates the delay of the XBOX button render.
''' </summary>
''' <remarks></remarks>
Private Sub UpdateShowControlDelay()
If Me.ShowControlsDelay > 0.0F Then
'If any Gamepad is connected, countdown the delay.
@ -296,7 +276,6 @@ Public Class OverworldScreen
''' Handles PVP and Trade requests incoming from other players via Servers and prompts the accept screens.
''' </summary>
''' <returns>True, if no requests are in the queue, False otherwise.</returns>
''' <remarks></remarks>
Private Function HandleServerRequests() As Boolean
If GameJolt.PokegearScreen.BattleRequestData <> -1 Then 'A Servers ID from another player is set here.
If Core.ServersManager.PlayerCollection.HasPlayer(GameJolt.PokegearScreen.BattleRequestData) = True Then 'If the player still exists on the server.
@ -423,7 +402,6 @@ Public Class OverworldScreen
''' <summary>
''' Update all title objects in the _titles array.
''' </summary>
''' <remarks></remarks>
Private Sub UpdateTitles()
For Each t As Title In Me._titles
t.Update()
@ -437,7 +415,6 @@ Public Class OverworldScreen
''' <summary>
''' A class to display text on the OverworldScreen.
''' </summary>
''' <remarks></remarks>
Public Class Title
Private _text As String = "Sample Text"
@ -450,8 +427,6 @@ Public Class OverworldScreen
''' <summary>
''' The text to be displayed on the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>The default is "Sample Text".</remarks>
Public Property Text() As String
Get
@ -465,8 +440,6 @@ Public Class OverworldScreen
''' <summary>
''' The color of the text on the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>The default is White (255,255,255). No transparency is suppoorted.</remarks>
Public Property TextColor() As Color
Get
@ -480,8 +453,6 @@ Public Class OverworldScreen
''' <summary>
''' The scale of the text.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>The default is x10.</remarks>
Public Property Scale() As Single
Get
@ -495,8 +466,6 @@ Public Class OverworldScreen
''' <summary>
''' The position of the text on the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>The default is 0,0 - This position gets ignored when IsCentered is set to True.</remarks>
Public Property Position() As Vector2
Get
@ -510,8 +479,6 @@ Public Class OverworldScreen
''' <summary>
''' This determines if the text is always centered on the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>The default is True. If this is set to True, the Position Property is getting ignored.</remarks>
Public Property IsCentered() As Boolean
Get
@ -525,8 +492,6 @@ Public Class OverworldScreen
''' <summary>
''' The delay in ticksx10 until the text fades from the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>The default is 20.</remarks>
Public Property Delay() As Single
Get
@ -540,7 +505,6 @@ Public Class OverworldScreen
''' <summary>
''' Creates a new instance of the Title class and assigns the default values to all properties.
''' </summary>
''' <remarks></remarks>
Public Sub New()
'//Empty constructor.
End Sub
@ -554,7 +518,6 @@ Public Class OverworldScreen
''' <param name="Scale">The scale of the text.</param>
''' <param name="Position">The position of the text on the screen.</param>
''' <param name="IsCentered">If the text should always get centered on the screen.</param>
''' <remarks></remarks>
Public Sub New(ByVal Text As String, ByVal Delay As Single, ByVal TextColor As Color, ByVal Scale As Single, ByVal Position As Vector2, ByVal IsCentered As Boolean)
Me._text = Text
Me._delay = Delay
@ -567,7 +530,6 @@ Public Class OverworldScreen
''' <summary>
''' Renders the text on the screen.
''' </summary>
''' <remarks></remarks>
Public Sub Draw()
Dim p As Vector2 = Vector2.Zero
@ -590,7 +552,6 @@ Public Class OverworldScreen
''' <summary>
''' Updates the Title object.
''' </summary>
''' <remarks></remarks>
Public Sub Update()
If Me._delay > 0.0F Then
Me._delay -= 0.1F
@ -603,9 +564,6 @@ Public Class OverworldScreen
''' <summary>
''' Returns, if the title object faded from the screen.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsReady() As Boolean
Get
Return Me._delay = 0.0F

6
2.5DHero/2.5DHero/Overworld/OverworldStorage.vb
View File

@ -1,7 +1,6 @@
''' <summary>
''' <summary>
''' Provides variables to store an overworld instance.
''' </summary>
''' <remarks></remarks>
Public Class OverworldStorage
Public OverworldScreen As Screen
@ -13,7 +12,6 @@ Public Class OverworldStorage
''' <summary>
''' Uses the currently active Overworld screen and active level/camera/effect/skydome instances.
''' </summary>
''' <remarks></remarks>
Public Sub SetToCurrentEnvironment()
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.OverworldScreen And Not s.PreScreen Is Nothing
@ -26,4 +24,4 @@ Public Class OverworldStorage
Me.SkyDome = Screen.SkyDome
End Sub
End Class
End Class

6
2.5DHero/2.5DHero/Overworld/RouteSign.vb
View File

@ -1,7 +1,6 @@
''' <summary>
''' The sign displaying the current location in the world.
''' </summary>
''' <remarks></remarks>
Public Class RouteSign
Private _positionY As Single = -60
@ -12,8 +11,6 @@ Public Class RouteSign
''' <summary>
''' Sets the values of the RouteSign and displays it on the screen.
''' </summary>
''' <param name="newText"></param>
''' <remarks></remarks>
Public Sub Setup(ByVal newText As String)
'Only if the text is different from last time the RouteSign showed up, display the RouteSign.
If newText.ToLower() <> Me._text.ToLower() Then
@ -26,7 +23,6 @@ Public Class RouteSign
''' <summary>
''' Hides the RouteSign.
''' </summary>
''' <remarks></remarks>
Public Sub Hide()
Me._show = False
End Sub
@ -34,7 +30,6 @@ Public Class RouteSign
''' <summary>
''' Update the RouteSign.
''' </summary>
''' <remarks></remarks>
Public Sub Update()
If Me._delay > 0.0F Then
If Me._positionY < 5.0F Then
@ -57,7 +52,6 @@ Public Class RouteSign
''' <summary>
''' Renders the RouteSign.
''' </summary>
''' <remarks></remarks>
Public Sub Draw()
If Me._show = True Then
Dim placeString As String = Localization.GetString("Places_" & Me._text, Me._text)

14
2.5DHero/2.5DHero/Player/PlayerInventory.vb
View File

@ -1,7 +1,6 @@
''' <summary>
''' Represents the player's inventory.
''' </summary>
''' <remarks></remarks>
Public Class PlayerInventory
Inherits List(Of ItemContainer)
@ -42,9 +41,6 @@ Public Class PlayerInventory
''' <summary>
''' Returns a character that represents the item's pocket icon.
''' </summary>
''' <param name="Item"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetItemPocketChar(ByVal Item As Item) As String
Select Case Item.ItemType
Case Item.ItemTypes.Standard
@ -73,7 +69,6 @@ Public Class PlayerInventory
''' </summary>
''' <param name="ID">The ID of the item.</param>
''' <param name="Amount">Amount of items to add.</param>
''' <remarks></remarks>
Public Sub AddItem(ByVal ID As Integer, ByVal Amount As Integer)
Dim newItem As Item = net.Pokemon3D.Game.Item.GetItemByID(ID)
@ -92,7 +87,6 @@ Public Class PlayerInventory
''' </summary>
''' <param name="ID">The ID of the item to remove.</param>
''' <param name="Amount">The amount of items to remove.</param>
''' <remarks></remarks>
Public Sub RemoveItem(ByVal ID As Integer, ByVal Amount As Integer)
If Amount > 0 Then
For Each c As ItemContainer In Me
@ -112,7 +106,6 @@ Public Class PlayerInventory
''' Removes all items of an ID from the inventory.
''' </summary>
''' <param name="ID">The ID of the item.</param>
''' <remarks></remarks>
Public Sub RemoveItem(ByVal ID As Integer)
Dim Amount As Integer = Me.GetItemAmount(ID)
If Amount > 0 Then
@ -124,8 +117,6 @@ Public Class PlayerInventory
''' Returns the count of the item in the inventory.
''' </summary>
''' <param name="ID">The ID of the item to be counted.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetItemAmount(ByVal ID As Integer) As Integer
For Each c As ItemContainer In Me
If c.ItemID = ID Then
@ -139,9 +130,6 @@ Public Class PlayerInventory
''' <summary>
''' If the player has the Running Shoes in their inventory.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property HasRunningShoes() As Boolean
Get
If Core.Player.SandBoxMode = True Or GameController.IS_DEBUG_ACTIVE = True Then
@ -161,8 +149,6 @@ Public Class PlayerInventory
''' </summary>
''' <param name="Item">The Item to store in the inventory.</param>
''' <param name="Amount">The amount.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetMessageReceive(ByVal Item As Item, ByVal Amount As Integer) As String
Dim Message As String = ""
If Amount = 1 Then

10
2.5DHero/2.5DHero/Player/SaveGameHelpers.vb
View File

@ -1,4 +1,4 @@
''' <summary>
''' <summary>
''' A class that helps with saving the game.
''' </summary>
Public Class SaveGameHelpers
@ -12,7 +12,6 @@ Public Class SaveGameHelpers
''' <summary>
''' If the game encountered any errors while uploading data.
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property EncounteredErrors() As Boolean
Get
Return _failedSaveParts > 0
@ -22,7 +21,6 @@ Public Class SaveGameHelpers
''' <summary>
''' If the download check has already started.
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property StartedDownloadCheck() As Boolean
Get
Return _startedDownloadCheck
@ -32,7 +30,6 @@ Public Class SaveGameHelpers
''' <summary>
''' Increments the value that counts the upload parts and starts the download check if the upload is finished.
''' </summary>
''' <param name="result"></param>
Public Shared Sub AddGameJoltSaveCounter(ByVal result As String)
_savingProgress += 1
@ -51,7 +48,6 @@ Public Class SaveGameHelpers
''' <summary>
''' Increments the counter once the data files have been uploaded and starts the download check if the upload is finished.
''' </summary>
''' <param name="result"></param>
Public Shared Sub CompleteGameJoltSave(ByVal result As String)
_savingProgress += GameJolt.GamejoltSave.SAVEFILECOUNT
@ -70,7 +66,6 @@ Public Class SaveGameHelpers
''' <summary>
''' If saving the GameJolt save to the GameJolt server is finished (with checks).
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property GameJoltSaveDone() As Boolean
Get
If _tempGJSave Is Nothing Then
@ -147,7 +142,6 @@ Public Class SaveGameHelpers
''' This makes "PlayTime" the only part of the entire save that could get corrupted and passed on undetected (I believe this is impossible to even happen).
''' </summary>
''' <param name="input">The player data.</param>
''' <returns></returns>
Private Shared Function GetTimeFixedPlayerData(ByVal input As String) As String
Dim inputArr As String() = input.Split({vbNewLine}, StringSplitOptions.None)
Dim output As String = ""
@ -166,4 +160,4 @@ Public Class SaveGameHelpers
Return output
End Function
End Class
End Class

34
2.5DHero/2.5DHero/Pokemon/Attacks/Attack.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' Represents a Pokémon's move.
''' </summary>
''' <remarks></remarks>
Public Class Attack
Implements ICopyAble
@ -29,7 +28,6 @@
''' <summary>
''' The target for an attack.
''' </summary>
''' <remarks></remarks>
Public Enum Targets
OneAdjacentTarget 'One adjacent target, excluding itself.
OneAdjacentFoe 'One adjacent foe.
@ -242,8 +240,6 @@
''' Returns a new instance of AttackV2 based on the input ID.
''' </summary>
''' <param name="ID">The ID of the Move to return.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetAttackByID(ByVal ID As Integer) As Attack
Dim returnMove As Attack
@ -1535,7 +1531,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub PreAttack(ByVal Own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING HERE
End Sub
@ -1545,7 +1540,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function MoveFailBeforeAttack(ByVal Own As Boolean, ByVal BattleScreen As BattleScreen) As Boolean
'DO NOTHING HERE
Return False
@ -1556,7 +1550,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function GetBasePower(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Integer
Return Me.Power
End Function
@ -1566,7 +1559,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function GetDamage(ByVal Critical As Boolean, ByVal Own As Boolean, ByVal targetPokemon As Boolean, ByVal BattleScreen As BattleScreen) As Integer
Return BattleCalculation.CalculateDamage(Me, Critical, Own, targetPokemon, BattleScreen)
End Function
@ -1576,7 +1568,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function GetTimesToAttack(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Integer
Return Me.TimesToAttack
End Function
@ -1586,7 +1577,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub MoveHits(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
If Me.IsGameModeMove = True Then
AttackSpecialFunctions.ExecuteAttackFunction(Me, own, BattleScreen)
@ -1604,7 +1594,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub MoveMisses(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING HERE
End Sub
@ -1614,7 +1603,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub MoveProtectedDetected(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING HERE
End Sub
@ -1624,7 +1612,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub MoveHasNoEffect(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING HERE
End Sub
@ -1634,7 +1621,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function GetAttackType(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Element
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then
@ -1665,7 +1651,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function GetAccuracy(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Integer
Return Me.Accuracy
End Function
@ -1675,7 +1660,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function DeductPP(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Boolean
Return True
End Function
@ -1685,7 +1669,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Function GetUseAccEvasion(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Boolean
Return Me.UseAccEvasion
End Function
@ -1695,7 +1678,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub MoveSelected(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING
End Sub
@ -1705,7 +1687,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub BeforeDealingDamage(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING
End Sub
@ -1715,7 +1696,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub AbsorbedBySubstitute(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING
End Sub
@ -1725,7 +1705,6 @@
''' </summary>
''' <param name="Own">If the own Pokémon used the move.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Overridable Sub MoveFailsSoundproof(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
'DO NOTHING
End Sub
@ -1734,7 +1713,6 @@
''' Returns the attack stat of a Pokémon (Physical or Special).
''' </summary>
''' <param name="p">The Pokémon that used the move.</param>
''' <remarks></remarks>
Public Overridable Function GetUseAttackStat(ByVal p As Pokemon) As Integer
If Me.Category = Categories.Physical Then
Return p.Attack
@ -1747,7 +1725,6 @@
''' Returns the defense stat of a Pokémon (Physical or Special).
''' </summary>
''' <param name="p">The Pokémon that used the move.</param>
''' <remarks></remarks>
Public Overridable Function GetUseDefenseStat(ByVal p As Pokemon) As Integer
If Me.Category = Categories.Physical Then
Return p.Defense
@ -1760,7 +1737,6 @@
''' If the AI is allowed to use this move.
''' </summary>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Function AIUseMove(ByVal BattleScreen As BattleScreen) As Boolean
Return True
End Function
@ -1792,8 +1768,6 @@
''' <summary>
''' Returns a copy of this move.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Copy() As Object Implements ICopyAble.Copy
Dim m As Attack
@ -1816,8 +1790,6 @@
''' Builds an instance of AttackV2 with PP and MaxPP set.
''' </summary>
''' <param name="InputData">Data in the format "ID,MaxPP,CurrentPP"</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ConvertStringToAttack(ByVal InputData As String) As Attack
If InputData <> "" Then
Dim Data() As String = InputData.Split(CChar(","))
@ -1837,8 +1809,6 @@
''' <summary>
''' Raises the PP of the move by one stage.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function RaisePP() As Boolean
Select Case Me.OriginalPP
Case 5
@ -1907,8 +1877,6 @@
''' <summary>
''' Returns the texture representing the category of this move.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetDamageCategoryImage() As Texture2D
Dim r As New Rectangle(0, 0, 0, 0)
@ -1927,8 +1895,6 @@
''' <summary>
''' Returns a saveable string.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Overrides Function ToString() As String
Return Me.OriginalID.ToString() & "," & Me.MaxPP.ToString() & "," & Me.CurrentPP.ToString()
End Function

2
2.5DHero/2.5DHero/Pokemon/Attacks/AttackSpecialFunctions.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' A class to execute GameMode attack functions.
''' </summary>
''' <remarks></remarks>
Public Class AttackSpecialFunctions
''' <summary>
@ -12,7 +11,6 @@
''' <param name="Move">The move containing the attack function.</param>
''' <param name="own">Own toggle.</param>
''' <param name="BattleScreen">Reference to the BattleScreen.</param>
''' <remarks></remarks>
Public Shared Sub ExecuteAttackFunction(ByVal Move As Attack, ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
Dim functions() As String = Move.GameModeFunction.Split(CChar(","))

3
2.5DHero/2.5DHero/Pokemon/Attacks/GameModeAttackLoader.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' Provides an interface to load additional GameMode moves.
''' </summary>
''' <remarks></remarks>
Public Class GameModeAttackLoader
'The default relative path to load moves from (Content folder).
@ -34,7 +33,6 @@
''' Loads a move from a file.
''' </summary>
''' <param name="file">The file to load the move from.</param>
''' <remarks></remarks>
Private Shared Sub LoadMove(ByVal file As String)
Dim move As New Attack() 'Load the default Pound move.
move.IsGameModeMove = True
@ -201,7 +199,6 @@
''' </summary>
''' <param name="ID">The ID of the custom move.</param>
''' <returns>Returns a move or nothing.</returns>
''' <remarks></remarks>
Public Shared Function GetAttackByID(ByVal ID As Integer) As Attack
For Each m As Attack In LoadedMoves
If m.ID = ID Then

2
2.5DHero/2.5DHero/Pokemon/Items/Berry.vb
View File

@ -89,8 +89,6 @@
''' Returns if a Pokémon likes this berry based on its flavour.
''' </summary>
''' <param name="p">The Pokémon to test this berry for.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function PokemonLikes(ByVal p As Pokemon) As Boolean
Select Case p.Nature
Case Pokemon.Natures.Lonely

11
2.5DHero/2.5DHero/Pokemon/Items/FileItem.vb
View File

@ -3,7 +3,6 @@
''' <summary>
''' This class enables content creators to create own items with own images, functions and stats.
''' </summary>
''' <remarks></remarks>
Public Class FileItem
Inherits Item
@ -14,9 +13,6 @@
''' <summary>
''' Returns the item of the FileItem class.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Item() As Item
Get
Return Me
@ -26,9 +22,6 @@
''' <summary>
''' Returns if the FileItem is generated in a valid state.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsValid() As Boolean
Get
Return Me._isValid
@ -38,9 +31,6 @@
''' <summary>
''' This is the script binding that represents the script that gets executed once the item gets used.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property ScriptBinding() As String
Get
Return Me._scriptBinding
@ -53,7 +43,6 @@
''' <summary>
''' Iniztializes a new FileItem class.
''' </summary>
''' <remarks></remarks>
Public Sub New(ByVal data As String)
data = data.Remove(0, 1)
data = data.Remove(data.Length - 1, 1)

103
2.5DHero/2.5DHero/Pokemon/Items/Item.vb
View File

@ -1,7 +1,6 @@
''' <summary>
''' <summary>
''' An item the player stores in their inventory.
''' </summary>
''' <remarks></remarks>
Public Class Item
''Implement the interface to allow the copy of an item instance.
@ -10,47 +9,38 @@ Public Class Item
''' <summary>
''' The type of item. This is also the bag they get sorted into.
''' </summary>
''' <remarks></remarks>
Public Enum ItemTypes
''' <summary>
''' The default item category for misc. items.
''' </summary>
''' <remarks></remarks>
Standard
''' <summary>
''' Medicine items that restore Pokémon.
''' </summary>
''' <remarks></remarks>
Medicine
''' <summary>
''' Plants, like berries and apricorns.
''' </summary>
''' <remarks></remarks>
Plants
''' <summary>
''' All Poké Balls.
''' </summary>
''' <remarks></remarks>
Pokéballs
''' <summary>
''' TMs and HMs.
''' </summary>
''' <remarks></remarks>
Machines
''' <summary>
''' Keyitems of the game.
''' </summary>
''' <remarks></remarks>
KeyItems
''' <summary>
''' Mail items.
''' </summary>
''' <remarks></remarks>
Mail
''' <summary>
''' Items to be used in battle.
''' </summary>
''' <remarks></remarks>
BattleItems
End Enum
@ -94,9 +84,6 @@ Public Class Item
''' <summary>
''' The singular item name.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Name() As String
Get
Return Me._name
@ -106,9 +93,6 @@ Public Class Item
''' <summary>
''' The ID of the item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property ID() As Integer
Get
Return Me._id
@ -118,9 +102,6 @@ Public Class Item
''' <summary>
''' The plural name of the item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property PluralName() As String
Get
Return Me._pluralName
@ -130,9 +111,6 @@ Public Class Item
''' <summary>
''' The price of this item if the player purchases it in exchange for PokéDollars. This halves when selling an item to the store.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property PokéDollarPrice() As Integer
Get
Return Me._pokeDollarPrice
@ -142,9 +120,6 @@ Public Class Item
''' <summary>
''' The price of this item if the player purchases it exchange for BattlePoints.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property BattlePointsPrice() As Integer
Get
Return Me._battlePointsPrice
@ -154,9 +129,6 @@ Public Class Item
''' <summary>
''' The type of this item. This also controls in which bag this item gets sorted.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property ItemType() As ItemTypes
Get
Return Me._itemType
@ -166,9 +138,6 @@ Public Class Item
''' <summary>
''' The default catch multiplier if the item gets used as a Pokéball.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property CatchMultiplier() As Single
Get
Return Me._catchMultiplier
@ -178,9 +147,6 @@ Public Class Item
''' <summary>
''' The maximum amount of this item type (per ID) that can be stored in the bag.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property MaxStack() As Integer
Get
Return Me._maxStack
@ -190,9 +156,6 @@ Public Class Item
''' <summary>
''' A value that can be used to sort items in the bag after. Lower values make items appear closer to the top.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property SortValue() As Integer
Get
Return Me._sortValue
@ -202,9 +165,6 @@ Public Class Item
''' <summary>
''' The texture of this item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Texture() As Texture2D
Get
Return Me._texture
@ -214,9 +174,6 @@ Public Class Item
''' <summary>
''' The bag description of this item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Description() As String
Get
Return Me._description
@ -226,9 +183,6 @@ Public Class Item
''' <summary>
''' The additional data that is stored with this item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property AdditionalData() As String
Get
Return Me._additionalData
@ -241,9 +195,6 @@ Public Class Item
''' <summary>
''' The damage the Fling move does when this item is attached to a Pokémon.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property FlingDamage() As Integer
Get
Return Me._flingDamage
@ -253,9 +204,6 @@ Public Class Item
''' <summary>
''' If this item can be traded in for money.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property CanBeTraded() As Boolean
Get
Return Me._canBeTraded
@ -265,9 +213,6 @@ Public Class Item
''' <summary>
''' If this item can be given to a Pokémon.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property CanBeHold() As Boolean
Get
Return Me._canBeHold
@ -277,9 +222,6 @@ Public Class Item
''' <summary>
''' If this item can be used from the bag.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property CanBeUsed() As Boolean
Get
Return Me._canBeUsed
@ -289,9 +231,6 @@ Public Class Item
''' <summary>
''' If this item can be used in battle.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property CanBeUsedInBattle() As Boolean
Get
Return Me._canBeUsedInBattle
@ -301,9 +240,6 @@ Public Class Item
''' <summary>
''' If this item can be tossed in the bag.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property CanBeTossed() As Boolean
Get
Return Me._canBeTossed
@ -313,9 +249,6 @@ Public Class Item
''' <summary>
''' If this item requires the player to select a Pokémon to use the item on in battle.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property BattleSelectPokemon() As Boolean
Get
Return Me._requiresPokemonSelectInBattle
@ -325,9 +258,6 @@ Public Class Item
''' <summary>
''' If this item is a Pokéball item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsBall() As Boolean
Get
Return Me._isBall
@ -337,9 +267,6 @@ Public Class Item
''' <summary>
''' If this item is a Berry item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsBerry() As Boolean
Get
Return Me._isBerry
@ -349,9 +276,6 @@ Public Class Item
''' <summary>
''' If this item is a Healing item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsHealingItem() As Boolean
Get
Return Me._isHealingItem
@ -361,9 +285,6 @@ Public Class Item
''' <summary>
''' If this item is a Mail item.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsMail() As Boolean
Get
Return Me._isMail
@ -373,9 +294,6 @@ Public Class Item
''' <summary>
''' If this item is a Mega Stone.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsMegaStone() As Boolean
Get
Return Me._isMegaStone
@ -385,9 +303,6 @@ Public Class Item
''' <summary>
''' If this item is a Plate.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IsPlate() As Boolean
Get
Return Me._isPlate
@ -397,7 +312,6 @@ Public Class Item
''' <summary>
''' The color for player dialogues.
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property PlayerDialogueColor() As Color
Get
Return New Color(0, 128, 227)
@ -417,7 +331,6 @@ Public Class Item
''' <param name="SortValue">The SortValue of this Item.</param>
''' <param name="TextureRectangle">The TextureRectangle from the "Items\ItemSheet" texture.</param>
''' <param name="Description">The description of this Item.</param>
''' <remarks></remarks>
Public Sub New(ByVal Name As String, ByVal Price As Integer, ByVal ItemType As ItemTypes, ByVal ID As Integer, ByVal CatchMultiplier As Single, ByVal SortValue As Integer, ByVal TextureRectangle As Rectangle, ByVal Description As String)
Me.Initialize(Name, Price, ItemType, ID, CatchMultiplier, SortValue, TextureRectangle, Description)
End Sub
@ -425,7 +338,6 @@ Public Class Item
''' <summary>
''' Creates a new instance of the Item class without setting any properties.
''' </summary>
''' <remarks></remarks>
Public Sub New()
'Empty Constructor//
End Sub
@ -441,7 +353,6 @@ Public Class Item
''' <param name="SortValue">The SortValue of this Item.</param>
''' <param name="TextureRectangle">The TextureRectangle from the "Items\ItemSheet" texture.</param>
''' <param name="Description">The description of this Item.</param>
''' <remarks></remarks>
Protected Sub Initialize(ByVal Name As String, ByVal Price As Integer, ByVal ItemType As ItemTypes, ByVal ID As Integer, ByVal CatchMultiplier As Single, ByVal SortValue As Integer, ByVal TextureRectangle As Rectangle, ByVal Description As String)
Me._name = Name
Me._pluralName = Name & "s" 'Default plural name with "s" at the end.
@ -463,7 +374,6 @@ Public Class Item
''' <summary>
''' The item gets used from the bag.
''' </summary>
''' <remarks></remarks>
Public Overridable Sub Use()
Logger.Debug("PLACEHOLDER FOR ITEM USE")
End Sub
@ -472,8 +382,6 @@ Public Class Item
''' A method that gets used when the item is applied to a Pokémon. Returns True if the action was successful.
''' </summary>
''' <param name="PokeIndex">The Index of the Pokémon in party.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Overridable Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean
If PokeIndex < 0 Or PokeIndex > 5 Then
Throw New ArgumentOutOfRangeException("PokeIndex", PokeIndex, "The index for a Pokémon in a player's party can only be between 0 and 5.")
@ -486,8 +394,6 @@ Public Class Item
''' <summary>
''' Tries to remove a single item of this item type from the player's bag and returns a message which changes depending on if the item that got removed was the last one of its kind.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function RemoveItem() As String
Core.Player.Inventory.RemoveItem(Me.ID, 1)
If Core.Player.Inventory.GetItemAmount(Me.ID) = 0 Then
@ -500,8 +406,6 @@ Public Class Item
''' Returns an item instance based on the passed in ID.
''' </summary>
''' <param name="ID">The desired item's ID.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetItemByID(ByVal ID As Integer) As Item
'Check if the ID is available in the FileItem list.
'Free Slots:
@ -1657,7 +1561,6 @@ Public Class Item
''' Returns an item based on its name.
''' </summary>
''' <param name="name">The name of the item.</param>
''' <returns></returns>
''' <remarks>This method is not as performant on initial use as the GetItemByID method.</remarks>
Public Shared Function GetItemByName(ByVal name As String) As Item
'Check if the name is available in the FileItem list.
@ -1692,10 +1595,8 @@ Public Class Item
''' <summary>
''' Creates a new instance of the Item instance based on its ID.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Copy() As Object Implements ICopyAble.Copy
Return Item.GetItemByID(Me.ID)
End Function
End Class
End Class

6
2.5DHero/2.5DHero/Pokemon/Items/MailItem.vb
View File

@ -1,9 +1,8 @@
Namespace Items
Namespace Items
''' <summary>
''' The basic item that represents a Mail Item.
''' </summary>
''' <remarks></remarks>
Public Class MailItem
Inherits Item
@ -27,7 +26,6 @@
''' <param name="ID">The ID of the Item.</param>
''' <param name="TextureRectangle">The TextureRectangle of the Item.</param>
''' <param name="Description">The Description of the Item.</param>
''' <remarks></remarks>
Public Sub New(ByVal Name As String, ByVal Price As Integer, ByVal ID As Integer, ByVal TextureRectangle As Rectangle, ByVal Description As String)
MyBase.New(Name, Price, ItemTypes.Mail, ID, 1.0F, 0, TextureRectangle, Description)
@ -74,4 +72,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/Medicine/ShinyCandy.vb
View File

@ -1,9 +1,8 @@
Namespace Items.Medicine
Namespace Items.Medicine
''' <summary>
''' Not in the game...
''' </summary>
''' <remarks></remarks>
Public Class ShinyCandy
Inherits Item
@ -35,4 +34,4 @@
End Class
End Namespace
End Namespace

18
2.5DHero/2.5DHero/Pokemon/Items/MedicineItem.vb
View File

@ -1,9 +1,8 @@
Namespace Items
Namespace Items
''' <summary>
''' Represents a Medicine Item.
''' </summary>
''' <remarks></remarks>
Public Class MedicineItem
Inherits Item
@ -19,7 +18,6 @@
''' <param name="SortValue">The SortValue of this Item.</param>
''' <param name="TextureRectangle">The TextureRectangle from the "Items\ItemSheet" texture.</param>
''' <param name="Description">The description of this Item.</param>
''' <remarks></remarks>
Public Sub New(ByVal Name As String, ByVal Price As Integer, ByVal ItemType As ItemTypes, ByVal ID As Integer, ByVal CatchMultiplier As Single, ByVal SortValue As Integer, ByVal TextureRectangle As Rectangle, ByVal Description As String)
MyBase.New(Name, Price, ItemType, ID, CatchMultiplier, SortValue, TextureRectangle, Description)
End Sub
@ -29,8 +27,6 @@
''' </summary>
''' <param name="PokeIndex">The index of the Pokémon in the player's party.</param>
''' <param name="HP">The HP that should be healed.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function HealPokemon(ByVal PokeIndex As Integer, ByVal HP As Integer) As Boolean
If PokeIndex < 0 Or PokeIndex > 5 Then
Throw New ArgumentOutOfRangeException("PokeIndex", PokeIndex, "The index for a Pokémon in a player's party can only be between 0 and 5.")
@ -77,8 +73,6 @@
''' Tries to cure a Pokémon from Poison.
''' </summary>
''' <param name="PokeIndex">The index of a Pokémon in the player's party.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function CurePoison(ByVal PokeIndex As Integer) As Boolean
If PokeIndex < 0 Or PokeIndex > 5 Then
Throw New ArgumentOutOfRangeException("PokeIndex", PokeIndex, "The index for a Pokémon in a player's party can only be between 0 and 5.")
@ -116,8 +110,6 @@
''' Tries to wake a Pokémon up from Sleep.
''' </summary>
''' <param name="PokeIndex">The index of a Pokémon in the player's party.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function WakeUp(ByVal PokeIndex As Integer) As Boolean
If PokeIndex < 0 Or PokeIndex > 5 Then
Throw New ArgumentOutOfRangeException("PokeIndex", PokeIndex, "The index for a Pokémon in a player's party can only be between 0 and 5.")
@ -155,8 +147,6 @@
''' Tries to heal a Pokémon from Burn.
''' </summary>
''' <param name="PokeIndex">The index of a Pokémon in the player's party.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function HealBurn(ByVal PokeIndex As Integer) As Boolean
If PokeIndex < 0 Or PokeIndex > 5 Then
Throw New ArgumentOutOfRangeException("PokeIndex", PokeIndex, "The index for a Pokémon in a player's party can only be between 0 and 5.")
@ -194,8 +184,6 @@
''' Tries to heal a Pokémon from Ice.
''' </summary>
''' <param name="PokeIndex">The index of a Pokémon in the player's party.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function HealIce(ByVal PokeIndex As Integer) As Boolean
If PokeIndex < 0 Or PokeIndex > 5 Then
Throw New ArgumentOutOfRangeException("PokeIndex", PokeIndex, "The index for a Pokémon in a player's party can only be between 0 and 5.")
@ -235,8 +223,6 @@
''' Tries to heal a Pokémon from Paralysis.
''' </summary>
''' <param name="PokeIndex">The index of a Pokémon in the player's party.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function HealParalyze(ByVal PokeIndex As Integer) As Boolean
If PokeIndex < 0 Or PokeIndex > 5 Then
Throw New ArgumentOutOfRangeException("PokeIndex", PokeIndex, "The index for a Pokémon in a player's party can only be between 0 and 5.")
@ -274,4 +260,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStone.vb
View File

@ -1,9 +1,8 @@
Namespace Items
Namespace Items
''' <summary>
''' The base class for all Mega Stone items.
''' </summary>
''' <remarks></remarks>
Public Class MegaStone
Inherits Item
@ -33,4 +32,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Abomasite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Abomasnow.
''' </summary>
''' <remarks></remarks>
Public Class Abomasite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Absolite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Absol.
''' </summary>
''' <remarks></remarks>
Public Class Absolite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Aerodactylite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Aerodactyl.
''' </summary>
''' <remarks></remarks>
Public Class Aerodactylite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Aggronite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Aggron.
''' </summary>
''' <remarks></remarks>
Public Class Aggronite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Alakazite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Alakazam.
''' </summary>
''' <remarks></remarks>
Public Class Alakazite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Altarianite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Altaria.
''' </summary>
''' <remarks></remarks>
Public Class Altarianite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Ampharosite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Ampharos.
''' </summary>
''' <remarks></remarks>
Public Class Ampharosite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Audinite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Audino.
''' </summary>
''' <remarks></remarks>
Public Class Audinite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Banettite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Banette.
''' </summary>
''' <remarks></remarks>
Public Class Banettite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Beedrillite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Beedrill.
''' </summary>
''' <remarks></remarks>
Public Class Beedrillite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Blastoisinite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Blastoise.
''' </summary>
''' <remarks></remarks>
Public Class Blastoisinite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Blazikenite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Blaziken.
''' </summary>
''' <remarks></remarks>
Public Class Blazikenite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Cameruptite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Camerupt.
''' </summary>
''' <remarks></remarks>
Public Class Cameruptite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/CharizarditeX.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' A Mega Stone for Charizard.
''' </summary>
''' <remarks></remarks>
Public Class CharizarditeX
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/CharizarditeY.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' A Mega Stone for Charizard.
''' </summary>
''' <remarks></remarks>
Public Class CharizarditeY
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Diancite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Diancie.
''' </summary>
''' <remarks></remarks>
Public Class Diancite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Galladite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Gallade.
''' </summary>
''' <remarks></remarks>
Public Class Galladite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Garchompite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Garchompite.
''' </summary>
''' <remarks></remarks>
Public Class Garchompite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Gardevoirite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Gardevoir.
''' </summary>
''' <remarks></remarks>
Public Class Gardevoirite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Gengarite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Gengar.
''' </summary>
''' <remarks></remarks>
Public Class Gengarite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Glalitite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Glalie.
''' </summary>
''' <remarks></remarks>
Public Class Glalitite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Gyaradosite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Gyarados.
''' </summary>
''' <remarks></remarks>
Public Class Gyaradosite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Heracronite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Heracross.
''' </summary>
''' <remarks></remarks>
Public Class Heracronite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Houndoominite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Houndoomin.
''' </summary>
''' <remarks></remarks>
Public Class Houndoominite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Kangaskhanite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Kangaskhan.
''' </summary>
''' <remarks></remarks>
Public Class Kangaskhanite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Latiasite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Latias.
''' </summary>
''' <remarks></remarks>
Public Class Latiasite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Latiosite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Latios.
''' </summary>
''' <remarks></remarks>
Public Class Latiosite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Lopunnite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Lopunnite.
''' </summary>
''' <remarks></remarks>
Public Class Lopunnite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Lucarionite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Lucario.
''' </summary>
''' <remarks></remarks>
Public Class Lucarionite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Manectite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Manectric.
''' </summary>
''' <remarks></remarks>
Public Class Manectite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Mawilite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Mawile.
''' </summary>
''' <remarks></remarks>
Public Class Mawilite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Medichamite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Medicham.
''' </summary>
''' <remarks></remarks>
Public Class Medichamite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Metagrossite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Metagross.
''' </summary>
''' <remarks></remarks>
Public Class Metagrossite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/MewtwoniteX.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' A Mega Stone for Mewtwo.
''' </summary>
''' <remarks></remarks>
Public Class MewtwoniteX
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/MewtwoniteY.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' A Mega Stone for Mewtwo.
''' </summary>
''' <remarks></remarks>
Public Class MewtwoniteY
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Pidgeotite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Pidgeot.
''' </summary>
''' <remarks></remarks>
Public Class Pidgeotite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Pinsirite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Pinsir.
''' </summary>
''' <remarks></remarks>
Public Class Pinsirite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Sablenite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Sableye.
''' </summary>
''' <remarks></remarks>
Public Class Sablenite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Salamencite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Salamence.
''' </summary>
''' <remarks></remarks>
Public Class Salamencite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Sceptilite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Sceptile.
''' </summary>
''' <remarks></remarks>
Public Class Sceptilite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Scizorite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Scizor.
''' </summary>
''' <remarks></remarks>
Public Class Scizorite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Sharpedonite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Sharpedo.
''' </summary>
''' <remarks></remarks>
Public Class Sharpedonite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Slowbronite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Slowbro.
''' </summary>
''' <remarks></remarks>
Public Class Slowbronite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Steelixite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Steelix.
''' </summary>
''' <remarks></remarks>
Public Class Steelixite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Swampertite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Swampert.
''' </summary>
''' <remarks></remarks>
Public Class Swampertite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Tyranitarite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Tyranitar.
''' </summary>
''' <remarks></remarks>
Public Class Tyranitarite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Venusaurite.vb
View File

@ -1,9 +1,8 @@
Namespace Items.MegaStones
Namespace Items.MegaStones
''' <summary>
''' The Mega Stone for Venusaur.
''' </summary>
''' <remarks></remarks>
Public Class Venusaurite
Inherits MegaStone
@ -14,4 +13,4 @@
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/Pokemon/Items/PlateItem.vb
View File

@ -1,9 +1,8 @@
Namespace Items
Namespace Items
''' <summary>
''' The base item for all Arceus plates.
''' </summary>
''' <remarks></remarks>
Public Class PlateItem
Inherits Item
@ -38,4 +37,4 @@
End Class
End Namespace
End Namespace

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