diff --git a/P3D/Battle/BattleSystemV2/BattleScreen.vb b/P3D/Battle/BattleSystemV2/BattleScreen.vb index c38900c68..29b748789 100644 --- a/P3D/Battle/BattleSystemV2/BattleScreen.vb +++ b/P3D/Battle/BattleSystemV2/BattleScreen.vb @@ -200,6 +200,14 @@ Core.Player.Pokemons.Add(p1) End If + For i = 0 To Core.Player.Pokemons.Count - 1 + Dim FormData As String = PokemonForms.GetFormDataInParty(Core.Player.Pokemons(i)) + If FormData <> "" AndAlso PokemonForms.GetTypeAdditionFromItem(Core.Player.Pokemons(i)) = "" Then + Core.Player.Pokemons(i).LoadDefinitions(Core.Player.Pokemons(i).Number, FormData) + Core.Player.Pokemons(i).ClearTextures() + End If + Next + Dim meIndex As Integer = 0 For i = 0 To Core.Player.Pokemons.Count - 1 If Core.Player.Pokemons(i).IsEgg() = False And Core.Player.Pokemons(i).HP > 0 And Core.Player.Pokemons(i).Status <> Pokemon.StatusProblems.Fainted Then @@ -328,6 +336,14 @@ Core.Player.Pokemons.Add(p1) End If + For i = 0 To Core.Player.Pokemons.Count - 1 + Dim FormData As String = PokemonForms.GetFormDataInParty(Core.Player.Pokemons(i)) + If FormData <> "" AndAlso PokemonForms.GetTypeAdditionFromItem(Core.Player.Pokemons(i)) = "" Then + Core.Player.Pokemons(i).LoadDefinitions(Core.Player.Pokemons(i).Number, FormData) + Core.Player.Pokemons(i).ClearTextures() + End If + Next + Dim meIndex As Integer = 0 For i = 0 To Core.Player.Pokemons.Count - 1 If Core.Player.Pokemons(i).IsEgg() = False And Core.Player.Pokemons(i).HP > 0 And Core.Player.Pokemons(i).Status <> Pokemon.StatusProblems.Fainted Then @@ -573,6 +589,14 @@ Core.Player.Pokemons.Add(p1) End If + For i = 0 To Core.Player.Pokemons.Count - 1 + Dim FormData As String = PokemonForms.GetFormDataInParty(Core.Player.Pokemons(i)) + If FormData <> "" AndAlso PokemonForms.GetTypeAdditionFromItem(Core.Player.Pokemons(i)) = "" Then + Core.Player.Pokemons(i).LoadDefinitions(Core.Player.Pokemons(i).Number, FormData) + Core.Player.Pokemons(i).ClearTextures() + End If + Next + Dim meIndex As Integer = 0 For i = 0 To Core.Player.Pokemons.Count - 1 If Core.Player.Pokemons(i).IsEgg() = False And Core.Player.Pokemons(i).HP > 0 And Core.Player.Pokemons(i).Status <> Pokemon.StatusProblems.Fainted Then @@ -686,6 +710,14 @@ Core.Player.Pokemons.Add(p1) End If + For i = 0 To Core.Player.Pokemons.Count - 1 + Dim FormData As String = PokemonForms.GetFormDataInParty(Core.Player.Pokemons(i)) + If FormData <> "" AndAlso PokemonForms.GetTypeAdditionFromItem(Core.Player.Pokemons(i)) = "" Then + Core.Player.Pokemons(i).LoadDefinitions(Core.Player.Pokemons(i).Number, FormData) + Core.Player.Pokemons(i).ClearTextures() + End If + Next + Dim meIndex As Integer = 0 For i = 0 To Core.Player.Pokemons.Count - 1 If Core.Player.Pokemons(i).IsEgg() = False And Core.Player.Pokemons(i).HP > 0 And Core.Player.Pokemons(i).Status <> Pokemon.StatusProblems.Fainted Then diff --git a/P3D/Content/Data/forms.dat b/P3D/Content/Data/forms.dat index ad33935e2..ebe671d78 100644 --- a/P3D/Content/Data/forms.dat +++ b/P3D/Content/Data/forms.dat @@ -1,240 +1,240 @@ -# {DexNumber|InPartyFormTriggers|FormNamePrefix|FormNameSuffix|DataFileSuffix|MenuIconFile,X_Coordinate,Y_Coordinate|FrontBackSpriteFileSuffix|OverworldSpriteFileSuffix|CryFileSuffix|WildFormTriggers|TypeChange} +# {DexNumber|AdditionalValue|InPartyFormTriggers|FormNamePrefix|FormNameSuffix|DataFileSuffix|MenuIconFile,X_Coordinate,Y_Coordinate|FrontBackSpriteFileSuffix|OverworldSpriteFileSuffix|CryFileSuffix|WildFormTriggers|TypeChange} # "InPartyFormTriggers" can take one or an array of the following value types (separated by commas): Gender;GenderID / Season;SeasonID / Environment;EnvironmentType1;EnvironmentType2 (etc.) / Item;ItemID # "WildFormTriggers" can take one or an array of the following value types (separated by commas): Random;String1;String2 (etc.) / Random;MinValue-MaxValue / Gender;GenderID / Season;SeasonID / Environment;EnvironmentType1;EnvironmentType2 (etc.) -# "InPartyFormTriggers" can also take the AdditionalValue that would trigger this form if found on a Pokémon -{3|mega|Mega ||_mega|Megas,0,0|_mega|_mega|||} -{6|mega_x|Mega | X|_mega_x|Megas,1,0|_mega_x|_mega_x|||} -{6|mega_y|Mega | Y|_mega_y|Megas,2,0|_mega_y|_mega_y|||} -{9|mega|Mega ||_mega|Megas,3,0|_mega|_mega|||} -{15|mega|Mega ||_mega|Megas,12,1|_mega|_mega|||} -{18|mega|Mega ||_mega|Megas,13,1|_mega|_mega|||} -{19|alola|Alolan ||_alola|Regional,0,0|_alola|_alola|||} -{20|alola|Alolan ||_alola|Regional,1,0|_alola|_alola|||} -{26|alola|Alolan ||_alola|Regional,2,0|_alola|_alola|||} -{27|alola|Alolan ||_alola|Regional,3,0|_alola|_alola|||} -{28|alola|Alolan ||_alola|Regional,4,0|_alola|_alola|||} -{37|alola|Alolan ||_alola|Regional,5,0|_alola|_alola|||} -{38|alola|Alolan ||_alola|Regional,6,0|_alola|_alola|||} -{50|alola|Alolan ||_alola|Regional,7,0|_alola|_alola|||} -{51|alola|Alolan ||_alola|Regional,8,0|_alola|_alola|||} -{52|alola|Alolan ||_alola|Regional,9,0|_alola|_alola|||} -{52|galar|Galarian ||_galar|Regional,0,2|_galar|_galar|||} -{53|alola|Alolan ||_alola|Regional,10,0|_alola|_alola|||} -{58|hisui|Hisuian ||_hisui|Regional,0,4|_hisui|_hisui|||} -{59|hisui|Hisuian ||_hisui|Regional,1,4|_hisui|_hisui|||} -{65|mega|Mega ||_mega|Megas,4,0|_mega|_mega|||} -{74|alola|Alolan ||_alola|Regional,11,0|_alola|_alola|||} -{75|alola|Alolan ||_alola|Regional,12,0|_alola|_alola|||} -{76|alola|Alolan ||_alola|Regional,13,0|_alola|_alola|||} -{77|galar|Galarian ||_galar|Regional,1,2|_galar|_galar|||} -{78|galar|Galarian ||_galar|Regional,2,2|_galar|_galar|||} -{79|galar|Galarian ||_galar|Regional,3,2|_galar|_galar|||} -{80|mega|Mega ||_mega|Megas,14,1|_mega|_mega|||} -{80|galar|Galarian ||_galar|Regional,4,2|_galar|_galar|||} -{83|galar|Galarian ||_galar|Regional,5,2|_galar|_galar|||} -{88|alola|Alolan ||_alola|Regional,14,0|_alola|_alola|||} -{89|alola|Alolan ||_alola|Regional,15,0|_alola|_alola|||} -{94|mega|Mega ||_mega|Megas,5,0|_mega|_mega|||} -{100|hisui|Hisuian ||_hisui|Regional,2,4|_hisui|_hisui|||} -{101|hisui|Hisuian ||_hisui|Regional,3,4|_hisui|_hisui|||} -{103|alola|Alolan ||_alola|Regional,0,1|_alola|_alola|||} -{105|alola|Alolan ||_alola|Regional,1,1|_alola|_alola|||} -{110|galar|Galarian ||_galar|Regional,6,2|_galar|_galar|||} -{115|mega|Mega ||_mega|Megas,6,0|_mega|_mega|||} -{122|galar|Galarian ||_galar|Regional,7,2|_galar|_galar|||} -{127|mega|Mega ||_mega|Megas,7,0|_mega|_mega|||} -{130|mega|Mega ||_mega|Megas,8,0|_mega|_mega|||} -{142|mega|Mega ||_mega|Megas,9,0|_mega|_mega|||} -{144|galar|Galarian ||_galar|Regional,8,2|_galar|_galar|||} -{145|galar|Galarian ||_galar|Regional,9,2|_galar|_galar|||} -{146|galar|Galarian ||_galar|Regional,10,2|_galar|_galar|||} -{150|mega_x|Mega | X|_mega_x|Megas,10,0|_mega_x|_mega_x|||} -{150|mega_y|Mega | Y|_mega_y|Megas,11,0|_mega_y|_mega_y|||} -{157|hisui|Hisuian ||_hisui|Regional,4,4|_hisui|_hisui|||} -{172|spiky-eared|||_spiky-eared|OtherForms,0,2|_spiky-eared|_spiky-eared|||} -{181|mega|Mega ||_mega|Megas,12,0|_mega|_mega|||} -{199|galar|Galarian ||_galar|Regional,11,2|_galar|_galar|||} -{201|||||Unown,0,0|_a|-a||Random;0-27|} -{201|0||||Unown,0,0|_a|-a|||} -{201|1||||Unown,1,0|_b|-b|||} -{201|2||||Unown,2,0|_c|-c|||} -{201|3||||Unown,3,0|_d|-d|||} -{201|4||||Unown,4,0|_e|-e|||} -{201|5||||Unown,5,0|_f|-f|||} -{201|6||||Unown,6,0|_g|-g|||} -{201|7||||Unown,7,0|_h|-h|||} -{201|8||||Unown,8,0|_i|-i|||} -{201|9||||Unown,9,0|_j|-j|||} -{201|10||||Unown,10,0|_k|-k|||} -{201|11||||Unown,11,0|_l|-l|||} -{201|12||||Unown,12,0|_m|-m|||} -{201|13||||Unown,13,0|_n|-n|||} -{201|14||||Unown,14,0|_o|-o|||} -{201|15||||Unown,15,0|_p|-p|||} -{201|16||||Unown,0,1|_q|-q|||} -{201|17||||Unown,1,1|_r|-r|||} -{201|18||||Unown,2,1|_s|-s|||} -{201|19||||Unown,3,1|_t|-t|||} -{201|20||||Unown,4,1|_u|-u|||} -{201|21||||Unown,5,1|_v|-v|||} -{201|22||||Unown,6,1|_w|-w|||} -{201|23||||Unown,7,1|_x|-x|||} -{201|24||||Unown,8,1|_y|-y|||} -{201|25||||Unown,9,1|_z|-z|||} -{201|26||||Unown,10,1|_question|-question|||} -{201|27||||Unown,11,1|_exclamation|-exclamation|||} -{208|mega|Mega ||_mega|Megas,15,1|_mega|_mega|||} -{211|hisui|Hisuian ||_hisui|Regional,5,4|_hisui|_hisui|||} -{212|mega|Mega ||_mega|Megas,13,0|_mega|_mega|||} -{214|mega|Mega ||_mega|Megas,14,0|_mega|_mega|||} -{215|hisui|Hisuian ||_hisui|Regional,6,4|_hisui|_hisui|||} -{222|galar|Galarian ||_galar|Regional,12,2|_galar|_galar|||} -{229|mega|Mega ||_mega|Megas,15,0|_mega|_mega|||} -{248|mega|Mega ||_mega|Megas,0,1|_mega|_mega|||} -{254|mega|Mega ||_mega|Megas,0,2|_mega|_mega|||} -{257|mega|Mega ||_mega|Megas,1,1|_mega|_mega|||} -{260|mega|Mega ||_mega|Megas,1,2|_mega|_mega|||} -{263|galar|Galarian ||_galar|Regional,13,2|_galar|_galar|||} -{264|galar|Galarian ||_galar|Regional,14,2|_galar|_galar|||} -{282|mega|Mega ||_mega|Megas,2,1|_mega|_mega|||} -{302|mega|Mega ||_mega|Megas,2,2|_mega|_mega|||} -{303|mega|Mega ||_mega|Megas,3,1|_mega|_mega|||} -{306|mega|Mega ||_mega|Megas,4,1|_mega|_mega|||} -{308|mega|Mega ||_mega|Megas,5,1|_mega|_mega|||} -{310|mega|Mega ||_mega|Megas,6,1|_mega|_mega|||} -{319|mega|Mega ||_mega|Megas,3,2|_mega|_mega|||} -{323|mega|Mega ||_mega|Megas,4,2|_mega|_mega|||} -{334|mega|Mega ||_mega|Megas,5,2|_mega|_mega|||} -{354|mega|Mega ||_mega|Megas,7,1|_mega|_mega|||} -{359|mega|Mega ||_mega|Megas,8,1|_mega|_mega|||} -{362|mega|Mega ||_mega|Megas,6,2|_mega|_mega|||} -{373|mega|Mega ||_mega|Megas,7,2|_mega|_mega|||} -{376|mega|Mega ||_mega|Megas,8,2|_mega|_mega|||} -{380|mega|Mega ||_mega|Megas,9,2|_mega|_mega|||} -{381|mega|Mega ||_mega|Megas,10,2|_mega|_mega|||} -{382|primal|Primal ||_primal|OtherForms,3,3|_primal|_primal|||} -{383|primal|Primal ||_primal|OtherForms,4,3|_primal|_primal|||} -{384|mega|Mega ||_mega|Megas,11,2|_mega|_mega|||} -{386|attack|||_attack|OtherForms,5,3|_attack|_attack|||} -{386|defense|||_defense|OtherForms,6,3|_defense|_defense|||} -{386|speed|||_speed|OtherForms,7,3|_speed|_speed|||} -{412|plant|||||_plant|_plant||environment;0;5|} -{412|sandy||||OtherForms,0,4|_sandy|_sandy||environment;2;3|} -{412|trash||||OtherForms,1,4|_trash|_trash||environment;1|} -{413|plant|||||_plant|_plant||environment;0;5|} -{413|sandy|||_sandy|OtherForms,2,4|_sandy|_sandy||environment;2;3|} -{413|trash|||_trash|OtherForms,3,4|_trash|_trash||environment;1|} -{422||||||_w|_w||Random;west;east|} -{422|west|||||_w|_w|||} -{422|east||||OtherForms,5,4|_e|_e|||} -{423||||||_w|_w||Random;west;east|} -{423|west|||||_w|_w|||} -{423|east||||OtherForms,6,4|_e|_e|||} -{428|mega|Mega ||_mega|Megas,12,2|_mega|_mega|||} -{445|mega|Mega ||_mega|Megas,9,1|_mega|_mega|||} -{448|mega|Mega ||_mega|Megas,10,1|_mega|_mega|||} -{460|mega|Mega ||_mega|Megas,11,1|_mega|_mega|||} -{475|mega|Mega ||_mega|Megas,13,2|_mega|_mega|||} -{479|fan|||_fan|OtherForms,12,4|_fan|_fan|||} -{479|frost|||_frost|OtherForms,11,4|_frost|_frost|||} -{479|heat|||_heat|OtherForms,9,4|_heat|_heat|||} -{479|mow|||_mow|OtherForms,13,4|_mow|_mow|||} -{479|wash|||_wash|OtherForms,12,4|_wash|_wash|||} -{483|primal|Primal ||_primal|OtherForms,14,26|_primal|_primal|||} -{493|||||Arceus,0,0|||||} -{493|Item;267||||Arceus,14,0|_dragon|_dragon|||dragon} -{493|Item;268||||Arceus,15,0|_dark|_dark|||dark} -{493|Item;269||||Arceus,8,0|_ground|_ground|||ground} -{493|Item;270||||Arceus,6,0|_fighting|_fighting|||fighting} -{493|Item;271||||Arceus,1,0|_fire|_fire|||fire} -{493|Item;272||||Arceus,5,0|_ice|_ice|||ice} -{493|Item;273||||Arceus,11,0|_bug|_bug|||bug} -{493|Item;274||||Arceus,0,1|_steel|_steel|||steel} -{493|Item;275||||Arceus,4,0|_grass|_grass|||grass} -{493|Item;276||||Arceus,10,0|_psychic|_psychic|||psychic} -{493|Item;277||||Arceus,1,1|_fairy|_fairy|||fairy} -{493|Item;278||||Arceus,9,0|_flying|_flying|||flying} -{493|Item;279||||Arceus,2,0|_water|_water|||water} -{493|Item;280||||Arceus,13,0|_ghost|_ghost|||ghost} -{493|Item;281||||Arceus,12,0|_rock|_rock|||rock} -{493|Item;282||||Arceus,7,0|_poison|_poison|||poison} -{493|Item;283||||Arceus,3,0|_electric|_electric|||electric} -{503|hisui|Hisuian ||_hisui|Regional,7,4|_hisui|_hisui|||} -{531|mega|Mega ||_mega|Megas,14,2|_mega|_mega|||} -{549|hisui|Hisuian ||_hisui|Regional,8,4|_hisui|_hisui|||} -{550||||||_white|_white||Random;white;blue|} -{550|white|||||_white|_white|||} -{550|blue|||_blue|OtherForms,0,5|_blue|_blue|||} -{554|galar|Galarian ||_galar|Regional,15,2|_galar|_galar|||} -{555|galar|Galarian ||_galar|Regional,0,3|_galar|_galar|||} -{562|galar|Galarian ||_galar|Regional,1,3|_galar|_galar|||} -{570|hisui|Hisuian ||_hisui|Regional,9,4|_hisui|_hisui|||} -{571|hisui|Hisuian ||_hisui|Regional,10,4|_hisui|_hisui|||} -{585|Season;0||||OtherForms,5,5|_wi|_wi||Season;0|} -{585|Season;1|||||_sp|_sp||Season;1|} -{585|Season;2||||OtherForms,3,5|_su|_su||Season;2|} -{585|Season;3||||OtherForms,4,5|_fa|_fa||Season;3|} -{586|Season;0||||OtherForms,8,5|_wi|_wi||Season;0|} -{586|Season;1|||||_sp|_sp||Season;1|} -{586|Season;2||||OtherForms,6,5|_su|_su||Season;2|} -{586|Season;3||||OtherForms,7,5|_fa|_fa||Season;3|} -{592|Gender;0|||||_m|_m||Gender;0|} -{592|Gender;1||||Gender,1,0|_f|_f||Gender;1|} -{593|Gender;0|||||_m|_m||Gender;0|} -{593|Gender;1||||Gender,2,0|_f|_f||Gender;1|} -{618|galar|Galarian ||_galar|Regional,2,3|_galar|_galar|||} -{628|hisui|Hisuian ||_hisui|Regional,11,4|_hisui|_hisui|||} -{641|therian|||_therian|OtherForms,9,5|_therian|_therian|||} -{642|therian|||_therian|OtherForms,10,5|_therian|_therian|||} -{645|therian|||_therian|OtherForms,11,5|_therian|_therian|||} -{646|black|||_black|OtherForms,13,5|_black|_black|||} -{646|white|||_white|OtherForms,12,5|_white|_white|||} -{666|||||Vivillon,0,0|_meadow|_meadow||Random;archipelago;continental;elegant;fancy;garden;high_planes;icy_snow;jungle;marine;modern;monsoon;ocean;pokeball;polar;river;sandstorm;savanna;sun;tundra|} -{666|archipelago||||Vivillon,1,0|_archipelago|_archipelago|||} -{666|continental||||Vivillon,2,0|_continental|_continental|||} -{666|elegant||||Vivillon,3,0|_elegant|_elegant|||} -{666|fancy||||Vivillon,4,0|_fancy|_fancy|||} -{666|garden||||Vivillon,5,0|_garden|_garden|||} -{666|high_planes||||Vivillon,6,0|_high_planes|_high_planes|||} -{666|icy_snow||||Vivillon,7,0|_icy_snow|_icy_snow|||} -{666|jungle||||Vivillon,8,0|_jungle|_jungle|||} -{666|marine||||Vivillon,9,0|_marine|_marine|||} -{666|meadow||||Vivillon,0,0|_meadow|_meadow|||} -{666|modern||||Vivillon,10,0|_modern|_modern|||} -{666|monsoon||||Vivillon,11,0|_monsoon|_monsoon|||} -{666|ocean||||Vivillon,12,0|_ocean|_ocean|||} -{666|pokeball||||Vivillon,13,0|_pokeball|_pokeball|||} -{666|polar||||Vivillon,14,0|_polar|_polar|||} -{666|river||||Vivillon,15,0|_river|_river|||} -{666|sandstorm||||Vivillon,0,1|_sandstorm|_sandstorm|||} -{666|savanna||||Vivillon,1,2|_savanna|_savanna|||} -{666|sun||||Vivillon,2,2|_sun|_sun|||} -{666|tundra||||Vivillon,3,2|_tundra|_tundra|||} -{668|Gender;0|||||_m|_m||Gender;0|} -{668|Gender;1||||Gender,3,0|_f|_f||Gender;1|} -{669||||||_red|_red||Random;red;yellow;blue;orange;white|} -{669|red|||||_red|_red|||} -{669|yellow||||OtherForms,0,7|_yellow|_yellow|||} -{669|blue||||OtherForms,1,7|_blue|_blue|||} -{669|orange||||OtherForms,2,7|_orange|_orange|||} -{669|white||||OtherForms,3,7|_white|_white|||} -{670||||||_red|_red||Random;red;yellow;blue;orange;white|} -{670|eternal|||_eternal|OtherForms,4,7|_eternal|_eternal|||} -{670|red|||||_red|_red|||} -{670|yellow||||OtherForms,5,7|_yellow|_yellow|||} -{670|blue||||OtherForms,6,7|_blue|_blue|||} -{670|orange||||OtherForms,7,7|_orange|_orange|||} -{670|white||||OtherForms,8,7|_white|_white|||} -{671||||||_red|_red||Random;red;yellow;blue;orange;white|} -{671|red|||||_red|_red|||} -{671|yellow||||OtherForms,9,7|_yellow|_yellow|||} -{671|blue||||OtherForms,10,7|_blue|_blue|||} -{671|orange||||OtherForms,11,7|_orange|_orange|||} -{671|white||||OtherForms,12,7|_white|_white|||} -{681|blade|||_blade|OtherForms,6,8|_blade|_blade|||} -{705|hisui|Hisuian ||_hisui|Regional,12,4|_hisui|_hisui|||} -{706|hisui|Hisuian ||_hisui|Regional,13,4|_hisui|_hisui|||} -{713|hisui|Hisuian ||_hisui|Regional,14,4|_hisui|_hisui|||} -{719|mega|Mega ||_mega|Megas,15,2|_mega|_mega|||} -{720|unbound|||_unbound|OtherForms,0,9|_unbound|_unbound|||} -{724|hisui|Hisuian ||_hisui|Regional,15,4|_hisui|_hisui|||} \ No newline at end of file +{3|mega||Mega ||_mega|Megas,0,0|_mega|_mega|||} +{6|mega_x||Mega | X|_mega_x|Megas,1,0|_mega_x|_mega_x|||} +{6|mega_y||Mega | Y|_mega_y|Megas,2,0|_mega_y|_mega_y|||} +{9|mega||Mega ||_mega|Megas,3,0|_mega|_mega|||} +{15|mega||Mega ||_mega|Megas,12,1|_mega|_mega|||} +{18|mega||Mega ||_mega|Megas,13,1|_mega|_mega|||} +{19|alola||Alolan ||_alola|Regional,0,0|_alola|_alola|||} +{20|alola||Alolan ||_alola|Regional,1,0|_alola|_alola|||} +{26|alola||Alolan ||_alola|Regional,2,0|_alola|_alola|||} +{27|alola||Alolan ||_alola|Regional,3,0|_alola|_alola|||} +{28|alola||Alolan ||_alola|Regional,4,0|_alola|_alola|||} +{37|alola||Alolan ||_alola|Regional,5,0|_alola|_alola|||} +{38|alola||Alolan ||_alola|Regional,6,0|_alola|_alola|||} +{50|alola||Alolan ||_alola|Regional,7,0|_alola|_alola|||} +{51|alola||Alolan ||_alola|Regional,8,0|_alola|_alola|||} +{52|alola||Alolan ||_alola|Regional,9,0|_alola|_alola|||} +{52|galar||Galarian ||_galar|Regional,0,2|_galar|_galar|||} +{53|alola||Alolan ||_alola|Regional,10,0|_alola|_alola|||} +{58|hisui||Hisuian ||_hisui|Regional,0,4|_hisui|_hisui|||} +{59|hisui||Hisuian ||_hisui|Regional,1,4|_hisui|_hisui|||} +{65|mega||Mega ||_mega|Megas,4,0|_mega|_mega|||} +{74|alola||Alolan ||_alola|Regional,11,0|_alola|_alola|||} +{75|alola||Alolan ||_alola|Regional,12,0|_alola|_alola|||} +{76|alola||Alolan ||_alola|Regional,13,0|_alola|_alola|||} +{77|galar||Galarian ||_galar|Regional,1,2|_galar|_galar|||} +{78|galar||Galarian ||_galar|Regional,2,2|_galar|_galar|||} +{79|galar||Galarian ||_galar|Regional,3,2|_galar|_galar|||} +{80|mega||Mega ||_mega|Megas,14,1|_mega|_mega|||} +{80|galar||Galarian ||_galar|Regional,4,2|_galar|_galar|||} +{83|galar||Galarian ||_galar|Regional,5,2|_galar|_galar|||} +{88|alola||Alolan ||_alola|Regional,14,0|_alola|_alola|||} +{89|alola||Alolan ||_alola|Regional,15,0|_alola|_alola|||} +{94|mega||Mega ||_mega|Megas,5,0|_mega|_mega|||} +{100|hisui||Hisuian ||_hisui|Regional,2,4|_hisui|_hisui|||} +{101|hisui||Hisuian ||_hisui|Regional,3,4|_hisui|_hisui|||} +{103|alola||Alolan ||_alola|Regional,0,1|_alola|_alola|||} +{105|alola||Alolan ||_alola|Regional,1,1|_alola|_alola|||} +{110|galar||Galarian ||_galar|Regional,6,2|_galar|_galar|||} +{115|mega||Mega ||_mega|Megas,6,0|_mega|_mega|||} +{122|galar||Galarian ||_galar|Regional,7,2|_galar|_galar|||} +{127|mega||Mega ||_mega|Megas,7,0|_mega|_mega|||} +{130|mega||Mega ||_mega|Megas,8,0|_mega|_mega|||} +{142|mega||Mega ||_mega|Megas,9,0|_mega|_mega|||} +{144|galar||Galarian ||_galar|Regional,8,2|_galar|_galar|||} +{145|galar||Galarian ||_galar|Regional,9,2|_galar|_galar|||} +{146|galar||Galarian ||_galar|Regional,10,2|_galar|_galar|||} +{150|mega_x||Mega | X|_mega_x|Megas,10,0|_mega_x|_mega_x|||} +{150|mega_y||Mega | Y|_mega_y|Megas,11,0|_mega_y|_mega_y|||} +{157|hisui||Hisuian ||_hisui|Regional,4,4|_hisui|_hisui|||} +{172|spiky-eared||||_spiky-eared|OtherForms,0,2|_spiky-eared|_spiky-eared|||} +{181|mega||Mega ||_mega|Megas,12,0|_mega|_mega|||} +{199|galar||Galarian ||_galar|Regional,11,2|_galar|_galar|||} +{201||||||Unown,0,0|_a|-a||Random;0-27|} +{201|0|||||Unown,0,0|_a|-a|||} +{201|1|||||Unown,1,0|_b|-b|||} +{201|2|||||Unown,2,0|_c|-c|||} +{201|3|||||Unown,3,0|_d|-d|||} +{201|4|||||Unown,4,0|_e|-e|||} +{201|5|||||Unown,5,0|_f|-f|||} +{201|6|||||Unown,6,0|_g|-g|||} +{201|7|||||Unown,7,0|_h|-h|||} +{201|8|||||Unown,8,0|_i|-i|||} +{201|9|||||Unown,9,0|_j|-j|||} +{201|10|||||Unown,10,0|_k|-k|||} +{201|11|||||Unown,11,0|_l|-l|||} +{201|12|||||Unown,12,0|_m|-m|||} +{201|13|||||Unown,13,0|_n|-n|||} +{201|14|||||Unown,14,0|_o|-o|||} +{201|15|||||Unown,15,0|_p|-p|||} +{201|16|||||Unown,0,1|_q|-q|||} +{201|17|||||Unown,1,1|_r|-r|||} +{201|18|||||Unown,2,1|_s|-s|||} +{201|19|||||Unown,3,1|_t|-t|||} +{201|20|||||Unown,4,1|_u|-u|||} +{201|21|||||Unown,5,1|_v|-v|||} +{201|22|||||Unown,6,1|_w|-w|||} +{201|23|||||Unown,7,1|_x|-x|||} +{201|24|||||Unown,8,1|_y|-y|||} +{201|25|||||Unown,9,1|_z|-z|||} +{201|26|||||Unown,10,1|_question|-question|||} +{201|27|||||Unown,11,1|_exclamation|-exclamation|||} +{208|mega||Mega ||_mega|Megas,15,1|_mega|_mega|||} +{211|hisui||Hisuian ||_hisui|Regional,5,4|_hisui|_hisui|||} +{212|mega||Mega ||_mega|Megas,13,0|_mega|_mega|||} +{214|mega||Mega ||_mega|Megas,14,0|_mega|_mega|||} +{215|hisui||Hisuian ||_hisui|Regional,6,4|_hisui|_hisui|||} +{222|galar||Galarian ||_galar|Regional,12,2|_galar|_galar|||} +{229|mega||Mega ||_mega|Megas,15,0|_mega|_mega|||} +{248|mega||Mega ||_mega|Megas,0,1|_mega|_mega|||} +{254|mega||Mega ||_mega|Megas,0,2|_mega|_mega|||} +{257|mega||Mega ||_mega|Megas,1,1|_mega|_mega|||} +{260|mega||Mega ||_mega|Megas,1,2|_mega|_mega|||} +{263|galar||Galarian ||_galar|Regional,13,2|_galar|_galar|||} +{264|galar||Galarian ||_galar|Regional,14,2|_galar|_galar|||} +{282|mega||Mega ||_mega|Megas,2,1|_mega|_mega|||} +{302|mega||Mega ||_mega|Megas,2,2|_mega|_mega|||} +{303|mega||Mega ||_mega|Megas,3,1|_mega|_mega|||} +{306|mega||Mega ||_mega|Megas,4,1|_mega|_mega|||} +{308|mega||Mega ||_mega|Megas,5,1|_mega|_mega|||} +{310|mega||Mega ||_mega|Megas,6,1|_mega|_mega|||} +{319|mega||Mega ||_mega|Megas,3,2|_mega|_mega|||} +{323|mega||Mega ||_mega|Megas,4,2|_mega|_mega|||} +{334|mega||Mega ||_mega|Megas,5,2|_mega|_mega|||} +{354|mega||Mega ||_mega|Megas,7,1|_mega|_mega|||} +{359|mega||Mega ||_mega|Megas,8,1|_mega|_mega|||} +{362|mega||Mega ||_mega|Megas,6,2|_mega|_mega|||} +{373|mega||Mega ||_mega|Megas,7,2|_mega|_mega|||} +{376|mega||Mega ||_mega|Megas,8,2|_mega|_mega|||} +{380|mega||Mega ||_mega|Megas,9,2|_mega|_mega|||} +{381|mega||Mega ||_mega|Megas,10,2|_mega|_mega|||} +{382|primal||Primal ||_primal|OtherForms,3,3|_primal|_primal|||} +{383|primal||Primal ||_primal|OtherForms,4,3|_primal|_primal|||} +{384|mega||Mega ||_mega|Megas,11,2|_mega|_mega|||} +{386|attack||||_attack|OtherForms,5,3|_attack|_attack|||} +{386|defense||||_defense|OtherForms,6,3|_defense|_defense|||} +{386|speed||||_speed|OtherForms,7,3|_speed|_speed|||} +{412|plant||||||_plant|_plant||environment;0;5|} +{412|sandy|||||OtherForms,0,4|_sandy|_sandy||environment;2;3|} +{412|trash|||||OtherForms,1,4|_trash|_trash||environment;1|} +{413|plant||||||_plant|_plant||environment;0;5|} +{413|sandy||||_sandy|OtherForms,2,4|_sandy|_sandy||environment;2;3|} +{413|trash||||_trash|OtherForms,3,4|_trash|_trash||environment;1|} +{422|||||||_w|_w||Random;west;east|} +{422|west||||||_w|_w|||} +{422|east|||||OtherForms,5,4|_e|_e|||} +{423|||||||_w|_w||Random;west;east|} +{423|west||||||_w|_w|||} +{423|east|||||OtherForms,6,4|_e|_e|||} +{428|mega||Mega ||_mega|Megas,12,2|_mega|_mega|||} +{445|mega||Mega ||_mega|Megas,9,1|_mega|_mega|||} +{448|mega||Mega ||_mega|Megas,10,1|_mega|_mega|||} +{460|mega||Mega ||_mega|Megas,11,1|_mega|_mega|||} +{475|mega||Mega ||_mega|Megas,13,2|_mega|_mega|||} +{479|fan||||_fan|OtherForms,12,4|_fan|_fan|||} +{479|frost||||_frost|OtherForms,11,4|_frost|_frost|||} +{479|heat||||_heat|OtherForms,9,4|_heat|_heat|||} +{479|mow||||_mow|OtherForms,13,4|_mow|_mow|||} +{479|wash||||_wash|OtherForms,12,4|_wash|_wash|||} +{483|primal||Primal ||_primal|OtherForms,14,26|_primal|_primal|||} +{493||Item;267||||Arceus,14,0|_dragon|_dragon|||dragon} +{493||Item;268||||Arceus,15,0|_dark|_dark|||dark} +{493||Item;269||||Arceus,8,0|_ground|_ground|||ground} +{493||Item;270||||Arceus,6,0|_fighting|_fighting|||fighting} +{493||Item;271||||Arceus,1,0|_fire|_fire|||fire} +{493||Item;272||||Arceus,5,0|_ice|_ice|||ice} +{493||Item;273||||Arceus,11,0|_bug|_bug|||bug} +{493||Item;274||||Arceus,0,1|_steel|_steel|||steel} +{493||Item;275||||Arceus,4,0|_grass|_grass|||grass} +{493||Item;276||||Arceus,10,0|_psychic|_psychic|||psychic} +{493||Item;277||||Arceus,1,1|_fairy|_fairy|||fairy} +{493||Item;278||||Arceus,9,0|_flying|_flying|||flying} +{493||Item;279||||Arceus,2,0|_water|_water|||water} +{493||Item;280||||Arceus,13,0|_ghost|_ghost|||ghost} +{493||Item;281||||Arceus,12,0|_rock|_rock|||rock} +{493||Item;282||||Arceus,7,0|_poison|_poison|||poison} +{493||Item;283||||Arceus,3,0|_electric|_electric|||electric} +{493||||||Arceus,0,0|||||} +{503|hisui||Hisuian ||_hisui|Regional,7,4|_hisui|_hisui|||} +{531|mega||Mega ||_mega|Megas,14,2|_mega|_mega|||} +{549|hisui||Hisuian ||_hisui|Regional,8,4|_hisui|_hisui|||} +{550|||||||_white|_white||Random;white;blue|} +{550|white||||||_white|_white|||} +{550|blue||||_blue|OtherForms,0,5|_blue|_blue|||} +{554|galar||Galarian ||_galar|Regional,15,2|_galar|_galar|||} +{555|galar||Galarian ||_galar|Regional,0,3|_galar|_galar|||} +{562|galar||Galarian ||_galar|Regional,1,3|_galar|_galar|||} +{570|hisui||Hisuian ||_hisui|Regional,9,4|_hisui|_hisui|||} +{571|hisui||Hisuian ||_hisui|Regional,10,4|_hisui|_hisui|||} +{585||Season;0||||OtherForms,5,5|_wi|_wi|||} +{585||Season;1|||||_sp|_sp||Season;1|} +{585||Season;2||||OtherForms,3,5|_su|_su|||} +{585||Season;3||||OtherForms,4,5|_fa|_fa|||} +{586||Season;0||||OtherForms,8,5|_wi|_wi|||} +{586||Season;1|||||_sp|_sp||Season;1|} +{586||Season;2||||OtherForms,6,5|_su|_su|||} +{586||Season;3||||OtherForms,7,5|_fa|_fa|||} +{592||Gender;0|||||_m|_m|||} +{592||Gender;1||||Gender,1,0|_f|_f|||} +{593||Gender;0|||||_m|_m|||} +{593||Gender;1||||Gender,2,0|_f|_f|||} +{618|galar||Galarian ||_galar|Regional,2,3|_galar|_galar|||} +{628|hisui||Hisuian ||_hisui|Regional,11,4|_hisui|_hisui|||} +{641|therian||||_therian|OtherForms,9,5|_therian|_therian|||} +{642|therian||||_therian|OtherForms,10,5|_therian|_therian|||} +{645|therian||||_therian|OtherForms,11,5|_therian|_therian|||} +{646|black||||_black|OtherForms,13,5|_black|_black|||} +{646|white||||_white|OtherForms,12,5|_white|_white|||} +{665||||||||||Random;archipelago;continental;elegant;fancy;garden;high_planes;icy_snow;jungle;marine;modern;monsoon;ocean;pokeball;polar;river;sandstorm;savanna;sun;tundra|} +{666||||||Vivillon,0,0|_meadow|_meadow||Random;archipelago;continental;elegant;fancy;garden;high_planes;icy_snow;jungle;marine;modern;monsoon;ocean;pokeball;polar;river;sandstorm;savanna;sun;tundra|} +{666|archipelago|||||Vivillon,1,0|_archipelago|_archipelago|||} +{666|continental|||||Vivillon,2,0|_continental|_continental|||} +{666|elegant|||||Vivillon,3,0|_elegant|_elegant|||} +{666|fancy|||||Vivillon,4,0|_fancy|_fancy|||} +{666|garden|||||Vivillon,5,0|_garden|_garden|||} +{666|high_planes|||||Vivillon,6,0|_high_planes|_high_planes|||} +{666|icy_snow|||||Vivillon,7,0|_icy_snow|_icy_snow|||} +{666|jungle|||||Vivillon,8,0|_jungle|_jungle|||} +{666|marine|||||Vivillon,9,0|_marine|_marine|||} +{666|meadow|||||Vivillon,0,0|_meadow|_meadow|||} +{666|modern|||||Vivillon,10,0|_modern|_modern|||} +{666|monsoon|||||Vivillon,11,0|_monsoon|_monsoon|||} +{666|ocean|||||Vivillon,12,0|_ocean|_ocean|||} +{666|pokeball|||||Vivillon,13,0|_pokeball|_pokeball|||} +{666|polar|||||Vivillon,14,0|_polar|_polar|||} +{666|river|||||Vivillon,15,0|_river|_river|||} +{666|sandstorm|||||Vivillon,0,1|_sandstorm|_sandstorm|||} +{666|savanna|||||Vivillon,1,1|_savanna|_savanna|||} +{666|sun|||||Vivillon,2,1|_sun|_sun|||} +{666|tundra|||||Vivillon,3,1|_tundra|_tundra|||} +{668||Gender;0|||||_m|_m|||} +{668||Gender;1||||Gender,3,0|_f|_f|||} +{669|||||||_red|_red||Random;red;yellow;blue;orange;white|} +{669|red||||||_red|_red|||} +{669|yellow|||||OtherForms,0,7|_yellow|_yellow|||} +{669|blue|||||OtherForms,1,7|_blue|_blue|||} +{669|orange|||||OtherForms,2,7|_orange|_orange|||} +{669|white|||||OtherForms,3,7|_white|_white|||} +{670|||||||_red|_red||Random;red;yellow;blue;orange;white|} +{670|eternal||||_eternal|OtherForms,4,7|_eternal|_eternal|||} +{670|red||||||_red|_red|||} +{670|yellow|||||OtherForms,5,7|_yellow|_yellow|||} +{670|blue|||||OtherForms,6,7|_blue|_blue|||} +{670|orange|||||OtherForms,7,7|_orange|_orange|||} +{670|white|||||OtherForms,8,7|_white|_white|||} +{671|||||||_red|_red||Random;red;yellow;blue;orange;white|} +{671|red||||||_red|_red|||} +{671|yellow|||||OtherForms,9,7|_yellow|_yellow|||} +{671|blue|||||OtherForms,10,7|_blue|_blue|||} +{671|orange|||||OtherForms,11,7|_orange|_orange|||} +{671|white|||||OtherForms,12,7|_white|_white|||} +{681|blade||||_blade|OtherForms,6,8|_blade|_blade|||} +{705|hisui||Hisuian ||_hisui|Regional,12,4|_hisui|_hisui|||} +{706|hisui||Hisuian ||_hisui|Regional,13,4|_hisui|_hisui|||} +{713|hisui||Hisuian ||_hisui|Regional,14,4|_hisui|_hisui|||} +{719|mega||Mega ||_mega|Megas,15,2|_mega|_mega|||} +{720|unbound||||_unbound|OtherForms,0,9|_unbound|_unbound|||} +{724|hisui||Hisuian ||_hisui|Regional,15,4|_hisui|_hisui|||} \ No newline at end of file diff --git a/P3D/Content/Pokemon/Data/115_mega.dat b/P3D/Content/Pokemon/Data/115_mega.dat index d728c8c5e..2ea34e04b 100644 --- a/P3D/Content/Pokemon/Data/115_mega.dat +++ b/P3D/Content/Pokemon/Data/115_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Kangaskhan +Name|Kangaskhan Number|115 ExperienceType|1 BaseExperience|172 diff --git a/P3D/Content/Pokemon/Data/127_mega.dat b/P3D/Content/Pokemon/Data/127_mega.dat index 51e82f6bc..8e730af96 100644 --- a/P3D/Content/Pokemon/Data/127_mega.dat +++ b/P3D/Content/Pokemon/Data/127_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Pinsir +Name|Pinsir Number|127 ExperienceType|3 BaseExperience|175 diff --git a/P3D/Content/Pokemon/Data/130_mega.dat b/P3D/Content/Pokemon/Data/130_mega.dat index cfaa1452f..ff09e13b2 100644 --- a/P3D/Content/Pokemon/Data/130_mega.dat +++ b/P3D/Content/Pokemon/Data/130_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Gyarados +Name|Gyarados Number|130 ExperienceType|3 BaseExperience|189 diff --git a/P3D/Content/Pokemon/Data/142_mega.dat b/P3D/Content/Pokemon/Data/142_mega.dat index 4c30d774c..b764bdd22 100644 --- a/P3D/Content/Pokemon/Data/142_mega.dat +++ b/P3D/Content/Pokemon/Data/142_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Aerodactyl +Name|Aerodactyl Number|142 ExperienceType|3 BaseExperience|180 diff --git a/P3D/Content/Pokemon/Data/150_mega_x.dat b/P3D/Content/Pokemon/Data/150_mega_x.dat index c5a9facd9..7ec60d80f 100644 --- a/P3D/Content/Pokemon/Data/150_mega_x.dat +++ b/P3D/Content/Pokemon/Data/150_mega_x.dat @@ -1,4 +1,4 @@ -Name|Mega Mewtwo X +Name|Mewtwo Number|150 ExperienceType|3 BaseExperience|306 diff --git a/P3D/Content/Pokemon/Data/150_mega_y.dat b/P3D/Content/Pokemon/Data/150_mega_y.dat index f860bd06f..fad3a7f45 100644 --- a/P3D/Content/Pokemon/Data/150_mega_y.dat +++ b/P3D/Content/Pokemon/Data/150_mega_y.dat @@ -1,4 +1,4 @@ -Name|Mega Mewtwo Y +Name|Mewtwo Number|150 ExperienceType|3 BaseExperience|306 diff --git a/P3D/Content/Pokemon/Data/15_mega.dat b/P3D/Content/Pokemon/Data/15_mega.dat index 5d28f757f..a7fea8f31 100644 --- a/P3D/Content/Pokemon/Data/15_mega.dat +++ b/P3D/Content/Pokemon/Data/15_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Beedrill +Name|Beedrill Number|15 ExperienceType|1 BaseExperience|173 diff --git a/P3D/Content/Pokemon/Data/181_mega.dat b/P3D/Content/Pokemon/Data/181_mega.dat index 37d7e1be3..a0fa55dc7 100644 --- a/P3D/Content/Pokemon/Data/181_mega.dat +++ b/P3D/Content/Pokemon/Data/181_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Ampharos +Name|Ampharos Number|181 ExperienceType|2 BaseExperience|225 diff --git a/P3D/Content/Pokemon/Data/18_mega.dat b/P3D/Content/Pokemon/Data/18_mega.dat index 5b9d82ad9..207c77e32 100644 --- a/P3D/Content/Pokemon/Data/18_mega.dat +++ b/P3D/Content/Pokemon/Data/18_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Pidgeot +Name|Pidgeot Number|18 ExperienceType|2 BaseExperience|211 diff --git a/P3D/Content/Pokemon/Data/208_mega.dat b/P3D/Content/Pokemon/Data/208_mega.dat index 348285f4d..e7d73dd95 100644 --- a/P3D/Content/Pokemon/Data/208_mega.dat +++ b/P3D/Content/Pokemon/Data/208_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Steelix +Name|Steelix Number|208 ExperienceType|1 BaseExperience|179 diff --git a/P3D/Content/Pokemon/Data/212_mega.dat b/P3D/Content/Pokemon/Data/212_mega.dat index 72aab95c1..169710b05 100644 --- a/P3D/Content/Pokemon/Data/212_mega.dat +++ b/P3D/Content/Pokemon/Data/212_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Scizor +Name|Scizor Number|212 ExperienceType|1 BaseExperience|175 diff --git a/P3D/Content/Pokemon/Data/214_mega.dat b/P3D/Content/Pokemon/Data/214_mega.dat index 39996789d..e0d48dae2 100644 --- a/P3D/Content/Pokemon/Data/214_mega.dat +++ b/P3D/Content/Pokemon/Data/214_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Heracross +Name|Heracross Number|214 ExperienceType|3 BaseExperience|175 diff --git a/P3D/Content/Pokemon/Data/229_mega.dat b/P3D/Content/Pokemon/Data/229_mega.dat index 27f8a44ab..3d0155e0a 100644 --- a/P3D/Content/Pokemon/Data/229_mega.dat +++ b/P3D/Content/Pokemon/Data/229_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Houndoom +Name|Houndoom Number|229 ExperienceType|3 BaseExperience|175 diff --git a/P3D/Content/Pokemon/Data/248_mega.dat b/P3D/Content/Pokemon/Data/248_mega.dat index 5641c7a4e..d370f9a5d 100644 --- a/P3D/Content/Pokemon/Data/248_mega.dat +++ b/P3D/Content/Pokemon/Data/248_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Tyranitar +Name|Tyranitar Number|248 ExperienceType|3 BaseExperience|270 diff --git a/P3D/Content/Pokemon/Data/254_mega.dat b/P3D/Content/Pokemon/Data/254_mega.dat index 0f521732b..0264a7641 100644 --- a/P3D/Content/Pokemon/Data/254_mega.dat +++ b/P3D/Content/Pokemon/Data/254_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Sceptile +Name|Sceptile Number|254 ExperienceType|2 BaseExperience|239 diff --git a/P3D/Content/Pokemon/Data/257_mega.dat b/P3D/Content/Pokemon/Data/257_mega.dat index fe61b45d6..114bc6bc4 100644 --- a/P3D/Content/Pokemon/Data/257_mega.dat +++ b/P3D/Content/Pokemon/Data/257_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Blaziken +Name|Blaziken Number|257 ExperienceType|2 BaseExperience|239 diff --git a/P3D/Content/Pokemon/Data/260_mega.dat b/P3D/Content/Pokemon/Data/260_mega.dat index 5d1542c47..f7cb95871 100644 --- a/P3D/Content/Pokemon/Data/260_mega.dat +++ b/P3D/Content/Pokemon/Data/260_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Swampert +Name|Swampert Number|260 ExperienceType|2 BaseExperience|241 diff --git a/P3D/Content/Pokemon/Data/282_mega.dat b/P3D/Content/Pokemon/Data/282_mega.dat index a6244bb72..aca311f8e 100644 --- a/P3D/Content/Pokemon/Data/282_mega.dat +++ b/P3D/Content/Pokemon/Data/282_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Gardevoir +Name|Gardevoir Number|282 ExperienceType|3 BaseExperience|233 diff --git a/P3D/Content/Pokemon/Data/302_mega.dat b/P3D/Content/Pokemon/Data/302_mega.dat index 9db304283..26f947df5 100644 --- a/P3D/Content/Pokemon/Data/302_mega.dat +++ b/P3D/Content/Pokemon/Data/302_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Sableye +Name|Sableye Number|302 ExperienceType|2 BaseExperience|133 diff --git a/P3D/Content/Pokemon/Data/303_mega.dat b/P3D/Content/Pokemon/Data/303_mega.dat index 86b970ef1..b134c07f1 100644 --- a/P3D/Content/Pokemon/Data/303_mega.dat +++ b/P3D/Content/Pokemon/Data/303_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Mawile +Name|Mawile Number|303 ExperienceType|0 BaseExperience|133 diff --git a/P3D/Content/Pokemon/Data/306_mega.dat b/P3D/Content/Pokemon/Data/306_mega.dat index 61a16d439..db405ae44 100644 --- a/P3D/Content/Pokemon/Data/306_mega.dat +++ b/P3D/Content/Pokemon/Data/306_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Aggron +Name|Aggron Number|306 ExperienceType|3 BaseExperience|239 diff --git a/P3D/Content/Pokemon/Data/308_mega.dat b/P3D/Content/Pokemon/Data/308_mega.dat index 6b1f6ccda..2f6c09b0e 100644 --- a/P3D/Content/Pokemon/Data/308_mega.dat +++ b/P3D/Content/Pokemon/Data/308_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Medicham +Name|Medicham Number|308 ExperienceType|1 BaseExperience|144 diff --git a/P3D/Content/Pokemon/Data/310_mega.dat b/P3D/Content/Pokemon/Data/310_mega.dat index 4720af1d0..1a4a200cb 100644 --- a/P3D/Content/Pokemon/Data/310_mega.dat +++ b/P3D/Content/Pokemon/Data/310_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Manectric +Name|Manectric Number|310 ExperienceType|3 BaseExperience|166 diff --git a/P3D/Content/Pokemon/Data/319_mega.dat b/P3D/Content/Pokemon/Data/319_mega.dat index 6890b8c18..5fa793d5f 100644 --- a/P3D/Content/Pokemon/Data/319_mega.dat +++ b/P3D/Content/Pokemon/Data/319_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Sharpedo +Name|Sharpedo Number|319 ExperienceType|3 BaseExperience|161 diff --git a/P3D/Content/Pokemon/Data/323_mega.dat b/P3D/Content/Pokemon/Data/323_mega.dat index 3b32929bf..4dc9a9ffb 100644 --- a/P3D/Content/Pokemon/Data/323_mega.dat +++ b/P3D/Content/Pokemon/Data/323_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Camerupt +Name|Camerupt Number|323 ExperienceType|1 BaseExperience|161 diff --git a/P3D/Content/Pokemon/Data/334_mega.dat b/P3D/Content/Pokemon/Data/334_mega.dat index 1dcff7ef2..a064ae97a 100644 --- a/P3D/Content/Pokemon/Data/334_mega.dat +++ b/P3D/Content/Pokemon/Data/334_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Altaria +Name|Altaria Number|334 ExperienceType|1 BaseExperience|172 diff --git a/P3D/Content/Pokemon/Data/354_mega.dat b/P3D/Content/Pokemon/Data/354_mega.dat index 9b4c89c83..bcc16c310 100644 --- a/P3D/Content/Pokemon/Data/354_mega.dat +++ b/P3D/Content/Pokemon/Data/354_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Banette +Name|Banette Number|354 ExperienceType|0 BaseExperience|159 diff --git a/P3D/Content/Pokemon/Data/359_mega.dat b/P3D/Content/Pokemon/Data/359_mega.dat index 82e7282ca..fcf6f279c 100644 --- a/P3D/Content/Pokemon/Data/359_mega.dat +++ b/P3D/Content/Pokemon/Data/359_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Absol +Name|Absol Number|359 ExperienceType|2 BaseExperience|163 diff --git a/P3D/Content/Pokemon/Data/362_mega.dat b/P3D/Content/Pokemon/Data/362_mega.dat index c0852d843..7b004c255 100644 --- a/P3D/Content/Pokemon/Data/362_mega.dat +++ b/P3D/Content/Pokemon/Data/362_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Glalie +Name|Glalie Number|362 ExperienceType|1 BaseExperience|168 diff --git a/P3D/Content/Pokemon/Data/373_mega.dat b/P3D/Content/Pokemon/Data/373_mega.dat index 2f1c2860d..9c5a26c03 100644 --- a/P3D/Content/Pokemon/Data/373_mega.dat +++ b/P3D/Content/Pokemon/Data/373_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Salamence +Name|Salamence Number|373 ExperienceType|3 BaseExperience|270 diff --git a/P3D/Content/Pokemon/Data/376_mega.dat b/P3D/Content/Pokemon/Data/376_mega.dat index 7a6a49546..aabc7b0ae 100644 --- a/P3D/Content/Pokemon/Data/376_mega.dat +++ b/P3D/Content/Pokemon/Data/376_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Metagross +Name|Metagross Number|376 ExperienceType|2 BaseExperience|270 diff --git a/P3D/Content/Pokemon/Data/380_mega.dat b/P3D/Content/Pokemon/Data/380_mega.dat index 181a32c67..f445e5368 100644 --- a/P3D/Content/Pokemon/Data/380_mega.dat +++ b/P3D/Content/Pokemon/Data/380_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Latias +Name|Latias Number|380 ExperienceType|3 BaseExperience|270 diff --git a/P3D/Content/Pokemon/Data/381_mega.dat b/P3D/Content/Pokemon/Data/381_mega.dat index 7eef227b0..63ecfa2ce 100644 --- a/P3D/Content/Pokemon/Data/381_mega.dat +++ b/P3D/Content/Pokemon/Data/381_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Latios +Name|Latios Number|381 ExperienceType|3 BaseExperience|270 diff --git a/P3D/Content/Pokemon/Data/384_mega.dat b/P3D/Content/Pokemon/Data/384_mega.dat index 9db41dc47..35d9c584f 100644 --- a/P3D/Content/Pokemon/Data/384_mega.dat +++ b/P3D/Content/Pokemon/Data/384_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Rayquaza +Name|Rayquaza Number|384 ExperienceType|3 BaseExperience|306 diff --git a/P3D/Content/Pokemon/Data/3_mega.dat b/P3D/Content/Pokemon/Data/3_mega.dat index 17d62126f..009a9d91b 100644 --- a/P3D/Content/Pokemon/Data/3_mega.dat +++ b/P3D/Content/Pokemon/Data/3_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Venusaur +Name|Venusaur Number|3 ExperienceType|2 BaseExperience|236 diff --git a/P3D/Content/Pokemon/Data/428_mega.dat b/P3D/Content/Pokemon/Data/428_mega.dat index 806da0803..24adde225 100644 --- a/P3D/Content/Pokemon/Data/428_mega.dat +++ b/P3D/Content/Pokemon/Data/428_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Lopunny +Name|Lopunny Number|428 ExperienceType|1 BaseExperience|168 diff --git a/P3D/Content/Pokemon/Data/445_mega.dat b/P3D/Content/Pokemon/Data/445_mega.dat index 83b94c7d8..bd7a1831e 100644 --- a/P3D/Content/Pokemon/Data/445_mega.dat +++ b/P3D/Content/Pokemon/Data/445_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Garchomp +Name|Garchomp Number|445 ExperienceType|3 BaseExperience|270 diff --git a/P3D/Content/Pokemon/Data/448_mega.dat b/P3D/Content/Pokemon/Data/448_mega.dat index 81a98dff4..c7fb27f64 100644 --- a/P3D/Content/Pokemon/Data/448_mega.dat +++ b/P3D/Content/Pokemon/Data/448_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Lucario +Name|Lucario Number|448 ExperienceType|2 BaseExperience|184 diff --git a/P3D/Content/Pokemon/Data/460_mega.dat b/P3D/Content/Pokemon/Data/460_mega.dat index 0d4307079..c65da130d 100644 --- a/P3D/Content/Pokemon/Data/460_mega.dat +++ b/P3D/Content/Pokemon/Data/460_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Abomasnow +Name|Abomasnow Number|460 ExperienceType|3 BaseExperience|173 diff --git a/P3D/Content/Pokemon/Data/475_mega.dat b/P3D/Content/Pokemon/Data/475_mega.dat index 9c29dbeb8..5dea98038 100644 --- a/P3D/Content/Pokemon/Data/475_mega.dat +++ b/P3D/Content/Pokemon/Data/475_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Gallade +Name|Gallade Number|475 ExperienceType|3 BaseExperience|233 diff --git a/P3D/Content/Pokemon/Data/531_mega.dat b/P3D/Content/Pokemon/Data/531_mega.dat index a2ddf523b..e151d540c 100644 --- a/P3D/Content/Pokemon/Data/531_mega.dat +++ b/P3D/Content/Pokemon/Data/531_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Audino +Name|Audino Number|531 ExperienceType|0 BaseExperience|390 diff --git a/P3D/Content/Pokemon/Data/65_mega.dat b/P3D/Content/Pokemon/Data/65_mega.dat index 58a963d62..7ba5aac63 100644 --- a/P3D/Content/Pokemon/Data/65_mega.dat +++ b/P3D/Content/Pokemon/Data/65_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Alakazam +Name|Alakazam Number|65 ExperienceType|2 BaseExperience|221 diff --git a/P3D/Content/Pokemon/Data/6_mega_x.dat b/P3D/Content/Pokemon/Data/6_mega_x.dat index 00ecb60bb..17e088682 100644 --- a/P3D/Content/Pokemon/Data/6_mega_x.dat +++ b/P3D/Content/Pokemon/Data/6_mega_x.dat @@ -1,4 +1,4 @@ -Name|Mega Charizard X +Name|Charizard Number|6 ExperienceType|2 BaseExperience|240 diff --git a/P3D/Content/Pokemon/Data/6_mega_y.dat b/P3D/Content/Pokemon/Data/6_mega_y.dat index 0c10841df..c93766394 100644 --- a/P3D/Content/Pokemon/Data/6_mega_y.dat +++ b/P3D/Content/Pokemon/Data/6_mega_y.dat @@ -1,4 +1,4 @@ -Name|Mega Charizard Y +Name|Charizard Number|6 ExperienceType|2 BaseExperience|240 diff --git a/P3D/Content/Pokemon/Data/719_mega.dat b/P3D/Content/Pokemon/Data/719_mega.dat index 21500b869..4332c6aad 100644 --- a/P3D/Content/Pokemon/Data/719_mega.dat +++ b/P3D/Content/Pokemon/Data/719_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Diancie +Name|Diancie Number|719 ExperienceType|3 BaseExperience|270 diff --git a/P3D/Content/Pokemon/Data/80_mega.dat b/P3D/Content/Pokemon/Data/80_mega.dat index c64454a85..c999400c0 100644 --- a/P3D/Content/Pokemon/Data/80_mega.dat +++ b/P3D/Content/Pokemon/Data/80_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Slowbro +Name|Slowbro Number|80 ExperienceType|1 BaseExperience|172 diff --git a/P3D/Content/Pokemon/Data/94_mega.dat b/P3D/Content/Pokemon/Data/94_mega.dat index b426be62e..cda251b7a 100644 --- a/P3D/Content/Pokemon/Data/94_mega.dat +++ b/P3D/Content/Pokemon/Data/94_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Gengar +Name|Gengar Number|94 ExperienceType|2 BaseExperience|225 diff --git a/P3D/Content/Pokemon/Data/9_mega.dat b/P3D/Content/Pokemon/Data/9_mega.dat index e32840c84..decf1036f 100644 --- a/P3D/Content/Pokemon/Data/9_mega.dat +++ b/P3D/Content/Pokemon/Data/9_mega.dat @@ -1,4 +1,4 @@ -Name|Mega Blastoise +Name|Blastoise Number|9 ExperienceType|2 BaseExperience|239 diff --git a/P3D/P3D.vbproj b/P3D/P3D.vbproj index 26b66817e..5ec0de2ac 100644 --- a/P3D/P3D.vbproj +++ b/P3D/P3D.vbproj @@ -28587,6 +28587,9 @@ PreserveNewest + + PreserveNewest + PreserveNewest diff --git a/P3D/Pokemon/Monster/Pokemon.vb b/P3D/Pokemon/Monster/Pokemon.vb index 45c7f56bb..5eb0ee161 100644 --- a/P3D/Pokemon/Monster/Pokemon.vb +++ b/P3D/Pokemon/Monster/Pokemon.vb @@ -209,7 +209,7 @@ Public Class Pokemon End Set End Property - Private Property Name() As String + Public Property Name() As String Get Return Me._name End Get @@ -556,8 +556,70 @@ Public Class Pokemon #End Region - Public Type1 As Element - Public Type2 As Element + Public Property Type1 As Element + Get + Dim TypeAddition As String = PokemonForms.GetTypeAdditionFromItem(Me) + Select Case TypeAddition.ToLower + Case "type;normal" + Return New Element(Element.Types.Normal) + Case "type;fighting" + Return New Element(Element.Types.Fighting) + Case "type;flying" + Return New Element(Element.Types.Flying) + Case "type;poison" + Return New Element(Element.Types.Poison) + Case "type;ground" + Return New Element(Element.Types.Ground) + Case "type;rock" + Return New Element(Element.Types.Rock) + Case "type;bug" + Return New Element(Element.Types.Bug) + Case "type;ghost" + Return New Element(Element.Types.Ghost) + Case "type;steel" + Return New Element(Element.Types.Steel) + Case "type;fire" + Return New Element(Element.Types.Fire) + Case "type;water" + Return New Element(Element.Types.Water) + Case "type;grass" + Return New Element(Element.Types.Grass) + Case "type;electric" + Return New Element(Element.Types.Electric) + Case "type;psychic" + Return New Element(Element.Types.Psychic) + Case "type;ice" + Return New Element(Element.Types.Ice) + Case "type;dragon" + Return New Element(Element.Types.Dragon) + Case "type;dark" + Return New Element(Element.Types.Dark) + Case "type;fairy" + Return New Element(Element.Types.Fairy) + Case "type;shadow" + Return New Element(Element.Types.Shadow) + Case Else + Return _type1 + End Select + End Get + Set(value As Element) + _type1 = value + End Set + End Property + Public Property Type2 As Element + Get + If PokemonForms.GetTypeAdditionFromItem(Me) <> "" Then + Return New Element(Element.Types.Blank) + Else + Return _type2 + End If + End Get + Set(value As Element) + _type2 = value + End Set + End Property + Private _type1 As Element + Private _type2 As Element Public StartItems As New Dictionary(Of Item, Integer) Public AttackLearns As New Dictionary(Of Integer, BattleSystem.Attack) Public EggMoves As New List(Of Integer) @@ -1213,7 +1275,7 @@ Public Class Pokemon ''' ''' Empties the cached textures. ''' - Private Sub ClearTextures() + Public Sub ClearTextures() Textures.Clear() Textures.AddRange({Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing}) RaiseEvent TexturesCleared(Me, New EventArgs()) @@ -1305,7 +1367,6 @@ Public Class Pokemon ''' Loads definition data from the data files and empties the temp textures. ''' Public Sub ReloadDefinitions() - Me.LoadDefinitions(Me.Number, Me.AdditionalData) Me.ClearTextures() End Sub @@ -2246,7 +2307,11 @@ Public Class Pokemon ''' Public Property OriginalName As String Get - Return Me.Name + If PokemonForms.GetFormName(Me) <> "" Then + Return PokemonForms.GetFormName(Me) + Else + Return Me.Name + End If End Get Set(value As String) Me.Name = value @@ -2514,10 +2579,8 @@ Public Class Pokemon ''' 9=shiny overworld ''' 10=normal,front,animation Private Function GetTexture(ByVal index As Integer) As Texture2D - Dim TextureNumberSuffix As String = "" - If Me.AnimationName.Contains("_") Then - TextureNumberSuffix = AnimationName.Remove(0, OriginalName.Length) - End If + Dim TextureNumberSuffix As String = PokemonForms.GetFrontBackSpriteFileSuffix(Me) + If Textures(index) Is Nothing Then Select Case index Case 0 @@ -2864,7 +2927,7 @@ Public Class Pokemon Pitch = -1.0F End If - SoundManager.PlayPokemonCry(Me.Number, Pitch, 0F) + SoundManager.PlayPokemonCry(Me.Number, Pitch, 0F, PokemonForms.GetCrySuffix(Me)) End Sub ''' diff --git a/P3D/Pokemon/Monster/Resource/PokemonForms.vb b/P3D/Pokemon/Monster/Resource/PokemonForms.vb index 6a56ad4f0..094806f00 100644 --- a/P3D/Pokemon/Monster/Resource/PokemonForms.vb +++ b/P3D/Pokemon/Monster/Resource/PokemonForms.vb @@ -3,18 +3,148 @@ Imports P3D Public Class PokemonForms Private Shared _pokemonList As New List(Of PokemonForm) - + Const PATH As String = "Data\Forms.dat" Public Shared Sub Initialize() _pokemonList.Clear() - _pokemonList.AddRange({New Venusaur(), New Charizard(), New Blastoise(), New Beedrill(), New Pidgeot(), New Nidoran(), New Alakazam(), New Slowbro(), New Gengar(), New Kangaskhan(), New Pinsir(), New Gyarados(), New Aerodactyl(), New Mewtwo(), - New Pichu(), New Unown(), New Ampharos(), New Steelix(), New Scizor(), New Heracross(), New Houndoom(), New Tyranitar(), - New Sceptile(), New Blaziken(), New Swampert(), New Gardevoir(), New Sableye(), New Mawile(), New Aggron(), New Medicham(), New Manectric(), New Sharpedo(), New Camerupt(), New Altaria(), New Banette(), New Absol(), New Glalie(), New Salamence(), New Metagross(), New Latias(), New Latios(), New Kyogre(), New Groudon(), New Rayquaza(), New Deoxys(), - New Burmy(), New Shellos(), New Gastrodon(), New Lopunny(), New Garchomp(), New Lucario(), New Abomasnow(), New Gallade(), New Rotom(), New Dialga(), New Arceus(), - New Audino(), New Basculin(), New Deerling(), New Sawsbuck(), New Frillish(), New Jellicent(), New Tornadus(), New Thundurus(), New Landorus(), New Kyurem(), - New Vivillon(), New Pyroar(), New Flabebe(), New Floette(), New Florges(), New Aegislash(), New Diancie(), New Hoopa(), - New Rattata(), New Raticate(), New Raichu(), New Sandshrew(), New Sandslash(), New Vulpix(), New Ninetales(), New Diglett(), New Dugtrio(), New Meowth(), New Persian(), New Geodude(), New Graveler(), New Golem(), New Grimer(), New Muk(), New Exeggutor(), New Marowak(), - New Ponyta(), New Rapidash(), New Slowpoke(), New Farfetch(), New Weezing(), New MrMime(), New Articuno(), New Zapdos(), New Moltres(), New Slowking(), New Corsola(), New Zigzagoon(), New Linoone(), New Darumaka(), New Darmanitan(), New Yamask(), New Stunfisk(), - New Growlithe(), New Arcanine(), New Voltorb(), New Electrode(), New Typhlosion(), New Qwilfish(), New Sneasel(), New Samurott(), New Lilligant(), New Zorua(), New Zoroark(), New Braviary(), New Sliggoo(), New Goodra(), New Avalugg(), New Decidueye()}) + + If GameModeManager.ActiveGameMode.IsDefaultGamemode = False AndAlso GameModeManager.ContentFileExists(GameController.GamePath & GameModeManager.ActiveGameMode.ContentPath & "\" & PATH) = True Then + LoadForm(GameController.GamePath & GameModeManager.ActiveGameMode.ContentPath & PATH) + Else + LoadForm(GameController.GamePath & GameMode.DefaultContentPath & PATH) + End If + End Sub + + ''' + ''' Loads a move from a file. + ''' + ''' The file to load the move from. + Private Shared Sub LoadForm(ByVal file As String) + Dim content() As String = System.IO.File.ReadAllLines(file) + + Dim line As String = "" + + Try + 'Go through lines of the file and set the properties depending on the content. + 'Lines starting with any other character than { (excluding tabs and spaces) are comments. + For Each l As String In content + Dim form As New PokemonForm() + Dim setDexNumber As Boolean = False 'Controls if the form sets its DexNumber. + + If l.Contains("|") = True AndAlso l.StartsWith("{") = True AndAlso l.EndsWith("}") = True Then + line = l.Remove(l.Length - 1, 1).Remove(0, 1) + Dim arguments() As String = line.Split("|") + + If arguments.Count >= 1 Then + If arguments(0) <> "" AndAlso StringHelper.IsNumeric(arguments(0)) Then + setDexNumber = True + form.DexNumber = CInt(arguments(0)) + End If + If arguments.Count >= 2 Then + form.AdditionalValue = arguments(1) + If arguments.Count >= 3 Then + If arguments(2).Contains(",") Then + Dim trigger() As String = arguments(2).Split(",") + For i = 0 To trigger.Count - 1 + form.InPartyFormTriggers.Add(trigger(i)) + Next + Else + form.InPartyFormTriggers.Add(arguments(2)) + End If + If arguments.Count >= 4 Then + form.FormNamePrefix = arguments(3) + If arguments.Count >= 5 Then + form.FormNameSuffix = arguments(4) + If arguments.Count >= 6 Then + form.DataFileSuffix = arguments(5) + If arguments.Count >= 7 Then + form.MenuIconFile = arguments(6).GetSplit(0, ",") + Select Case arguments(6).Split(",").Count + Case 2 + form.MenuIconPosition.X = CInt(arguments(6).GetSplit(1, ",")) + Case 3 + form.MenuIconPosition.X = CInt(arguments(6).GetSplit(1, ",")) + form.MenuIconPosition.Y = CInt(arguments(6).GetSplit(2, ",")) + End Select + If arguments.Count >= 8 Then + form.FrontBackSpriteFileSuffix = arguments(7) + If arguments.Count >= 9 Then + form.OverworldSpriteFileSuffix = arguments(8) + If arguments.Count >= 10 Then + form.CryFileSuffix = arguments(9) + If arguments.Count >= 11 Then + If arguments(10).Contains(",") Then + For Each trigger In arguments(10).Split(",") + form.WildFormTriggers.Add(trigger) + Next + Else + form.WildFormTriggers.Add(arguments(10)) + End If + If arguments.Count >= 12 Then + Select Case arguments(11).ToLower + Case "normal" + form.TypeChange = Element.Types.Normal + Case "fighting" + form.TypeChange = Element.Types.Fighting + Case "flying" + form.TypeChange = Element.Types.Flying + Case "poison" + form.TypeChange = Element.Types.Poison + Case "ground" + form.TypeChange = Element.Types.Ground + Case "rock" + form.TypeChange = Element.Types.Rock + Case "bug" + form.TypeChange = Element.Types.Bug + Case "ghost" + form.TypeChange = Element.Types.Ghost + Case "steel" + form.TypeChange = Element.Types.Steel + Case "fire" + form.TypeChange = Element.Types.Fire + Case "water" + form.TypeChange = Element.Types.Water + Case "grass" + form.TypeChange = Element.Types.Grass + Case "electric" + form.TypeChange = Element.Types.Electric + Case "psychic" + form.TypeChange = Element.Types.Psychic + Case "ice" + form.TypeChange = Element.Types.Ice + Case "dragon" + form.TypeChange = Element.Types.Dragon + Case "dark" + form.TypeChange = Element.Types.Dark + Case "fairy" + form.TypeChange = Element.Types.Fairy + Case "shadow" + form.TypeChange = Element.Types.Shadow + Case Else + form.TypeChange = Element.Types.Blank + End Select + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + End If + If setDexNumber = True Then + _pokemonList.Add(form) + Else + Debug.Print("PokemonForms.vb: A form needs to at least have a Dex Number set (the first value), however a form loaded from """ & file & """ has no Dex Number set so it will be ignored.") + End If + End If + Next + Catch ex As Exception + 'If an error occurs loading a move, log the error. + Logger.Log(Logger.LogTypes.ErrorMessage, "PokemonForms.vb: Error loading form from file """ & file & """: " & ex.Message & "; Last Key/Value pair successfully loaded: " & line) + End Try End Sub @@ -22,47 +152,110 @@ Public Class PokemonForms ''' Returns the initial Additional Data, if it needs to be set at generation time of the Pokémon. ''' Public Shared Function GetInitialAdditionalData(ByVal P As Pokemon) As String - For Each listP In _pokemonList - If listP.IsNumber(P.Number) = True Then - Return listP.GetInitialAdditionalData(P) - End If - Next + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True AndAlso listP.ValueMatch(P.AdditionalData) Then + Return listP.GetInitialAdditionalData(P) + End If + Next + End If Return "" End Function + Public Shared Function GetFormDataInParty(ByVal P As Pokemon) As String + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True AndAlso listP.ValueMatch(P.AdditionalData) Then + Return listP.GetFormDataInParty(P) + End If + Next + End If + Return "" + End Function + Public Shared Function GetTypeAdditionFromItem(ByVal P As Pokemon) As String + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True Then + Return listP.GetTypeAdditionFromItem(P) + End If + Next + End If + Return "" + End Function + ''' ''' Returns the Animation Name of the Pokémon, the path to its Sprite/Model files. ''' Public Shared Function GetAnimationName(ByVal P As Pokemon) As String - For Each listP In _pokemonList - If listP.IsNumber(P.Number) = True Then - Dim _name As String = listP.GetAnimationName(P).ToLower() - If _name.StartsWith("mega ") Then - _name = _name.Remove(0, 5) - If _name.EndsWith(" x_mega_x") OrElse _name.EndsWith(" y_mega_y") Then - _name = _name.Remove(_name.Length - 9, 2) - End If - ElseIf _name.StartsWith("primal ") Then - _name = _name.Remove(0, 7) - End If - Return _name - End If - Next + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True Then + Dim TypeAddition As String = GetTypeAdditionFromItem(P) - Return P.OriginalName + If GetTypeAdditionFromItem(P) <> "" OrElse (listP.TypeChange = Element.Types.Blank AndAlso listP.ValueMatch(P.AdditionalData) = True) Then + Return listP.GetAnimationName(P).ToLower + End If + End If + Next + End If + + Return CStr(P.Number) + End Function + + ''' + ''' Returns the Cry Suffix of the Pokémon. + ''' + Public Shared Function GetCrySuffix(ByVal P As Pokemon) As String + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True AndAlso listP.ValueMatch(P.AdditionalData) Then + Return listP.GetCrySuffix(P) + End If + Next + End If + Return "" + End Function + + ''' + ''' Returns the English Name of the Pokémon. + ''' + Public Shared Function GetFormName(ByVal P As Pokemon) As String + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True AndAlso listP.ValueMatch(P.AdditionalData) Then + Return listP.GetFormName(P) + End If + Next + End If + Return "" + End Function + Public Shared Function GetFrontBackSpriteFileSuffix(ByVal P As Pokemon) As String + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True Then + If GetTypeAdditionFromItem(P) <> "" OrElse (listP.TypeChange = Element.Types.Blank AndAlso listP.ValueMatch(P.AdditionalData) = True) Then + Return listP.GetFrontBackSpriteFileSuffix(P) + End If + End If + Next + End If + Return "" End Function ''' ''' Returns the name of spritesheet containing the Pokémon's menu sprite. ''' Public Shared Function GetSheetName(ByVal P As Pokemon) As String - For Each listP In _pokemonList - If listP.IsNumber(P.Number) = True Then - Return listP.GetSheetName(P) - End If - Next - + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True Then + If GetTypeAdditionFromItem(P) <> "" OrElse (listP.TypeChange = Element.Types.Blank AndAlso listP.ValueMatch(P.AdditionalData) = True) Then + Return listP.GetSheetName(P) + End If + End If + Next + End If Dim n As Integer = P.Number Select Case n @@ -89,11 +282,15 @@ Public Class PokemonForms ''' Returns the grid coordinates of the Pokémon's menu sprite. ''' Public Shared Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - For Each listP In _pokemonList - If listP.IsNumber(P.Number) = True Then - Return listP.GetMenuImagePosition(P) - End If - Next + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True Then + If GetTypeAdditionFromItem(P) <> "" OrElse (listP.TypeChange = Element.Types.Blank AndAlso listP.ValueMatch(P.AdditionalData) = True) Then + Return listP.GetMenuImagePosition(P) + End If + End If + Next + End If Dim x As Integer = 0 Dim y As Integer = 0 @@ -131,11 +328,13 @@ Public Class PokemonForms ''' Returns the size of the Pokémon's menu sprite. ''' Public Shared Function GetMenuImageSize(ByVal P As Pokemon) As Size - For Each listP In _pokemonList - If listP.IsNumber(P.Number) = True Then - Return listP.GetMenuImageSize(P) - End If - Next + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True AndAlso listP.ValueMatch(P.AdditionalData) = True Then + Return listP.GetMenuImageSize(P) + End If + Next + End If Dim sheet As String = GetSheetName(P) Dim _size As Integer = CInt(TextureManager.GetTexture("GUI\PokemonMenu\" & sheet).Width / 32) Return New Size(_size, _size) @@ -145,12 +344,16 @@ Public Class PokemonForms ''' Returns the addition to the Pokémon's overworld sprite name. ''' Public Shared Function GetOverworldAddition(ByVal P As Pokemon) As String - For Each listP In _pokemonList - If listP.IsNumber(P.Number) = True Then - Return listP.GetOverworldAddition(P) - End If - Next + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(P.Number) = True Then + If GetTypeAdditionFromItem(P) <> "" OrElse (listP.TypeChange = Element.Types.Blank AndAlso listP.ValueMatch(P.AdditionalData) = True) Then + Return listP.GetOverworldAddition(P) + End If + End If + Next + End If Return "" End Function @@ -176,12 +379,13 @@ Public Class PokemonForms Dim Addition As String = "" - For Each listP In _pokemonList - If listP.IsNumber(Number) = True Then - Addition = listP.GetDataFileAddition(AdditionalData) - End If - Next - + If _pokemonList.Count > 0 Then + For Each listP In _pokemonList + If listP.IsNumber(Number) = True Then + Addition = listP.GetDataFileAddition(AdditionalData) + End If + Next + End If If Addition <> "" Then FileName = FileName.Remove(FileName.Length - 4, 4) & Addition & ".dat" End If @@ -201,47 +405,189 @@ Public Class PokemonForms Public Shared Function GetDefaultImageAddition(ByVal Number As Integer) As String Return "" End Function +#Region "PokemonForm" + Private Class PokemonForm - Private MustInherit Class PokemonForm - - Private _numbers As New List(Of Integer) - - Public Sub New(ByVal Number As Integer) - Me._numbers.Add(Number) - End Sub - - Public Sub New(ByVal Numbers() As Integer) - Me._numbers.AddRange(Numbers) - End Sub + Public DexNumber As Integer = -1 + Public InPartyFormTriggers As New List(Of String) + Public AdditionalValue As String = "" + Public FormNamePrefix As String = "" + Public FormNameSuffix As String = "" + Public DataFileSuffix As String = "" + Public MenuIconFile As String = "" + Public MenuIconPosition As New Vector2(-1) + Public FrontBackSpriteFileSuffix As String = "" + Public OverworldSpriteFileSuffix As String = "" + Public CryFileSuffix As String = "" + Public WildFormTriggers As New List(Of String) + Public TypeChange As Element.Types = Element.Types.Blank Public Overridable Function GetInitialAdditionalData(ByVal P As Pokemon) As String + If WildFormTriggers.Count > 0 Then + For i = 0 To WildFormTriggers.Count - 1 + If WildFormTriggers(i).Contains(";") Then + Dim trigger() As String = WildFormTriggers(i).Split(";") + If trigger(0).ToLower = "random" Then + If trigger(1).Contains("-") Then + Dim randomMin As Integer = CInt(trigger(1).GetSplit(0, "-")) + Dim randomMax As Integer = CInt(trigger(1).GetSplit(1, "-")) + Return CStr(Core.Random.Next(randomMin, randomMax + 1)) + Else + Dim triggercount As Integer = 0 + For t = 1 To trigger.Count + triggercount += 1 + Next + Dim randomMin As Integer = 1 + Dim randomMax As Integer = triggercount + Return CStr(trigger(Core.Random.Next(randomMin, randomMax))) + End If + ElseIf trigger(0).ToLower = "gender" Then + If P.Gender = CType(CInt(trigger(1)), Pokemon.Genders) Then + Return AdditionalValue + End If + ElseIf trigger(0).ToLower = "season" Then + If World.CurrentSeason = CType(CInt(trigger(1)), World.Seasons) Then + Return AdditionalValue + End If + ElseIf trigger(0).ToLower = "environment" Then + Dim environmentlist As New List(Of World.EnvironmentTypes) + For e = 1 To trigger.Count - 1 + environmentlist.Add(CType(CInt(trigger(e)), World.EnvironmentTypes)) + Next + If environmentlist.Contains(CType(Screen.Level.EnvironmentType, World.EnvironmentTypes)) Then + Return AdditionalValue + End If + End If + End If + Next + End If + Return AdditionalValue + + End Function + Public Overridable Function GetFormDataInParty(ByVal P As Pokemon) As String + If InPartyFormTriggers.Count > 0 Then + For i = 0 To InPartyFormTriggers.Count - 1 + If InPartyFormTriggers(i).Contains(";") Then + Dim trigger() As String = InPartyFormTriggers(i).Split(";") + If trigger(0).ToLower = "gender" Then + If P.Gender = CType(CInt(trigger(1)), Pokemon.Genders) Then + If TypeChange <> Element.Types.Blank Then + Return TypeChange.ToString + Else + Return AdditionalValue + End If + End If + ElseIf trigger(0).ToLower = "season" Then + If World.CurrentSeason = CType(CInt(trigger(1)), World.Seasons) Then + If TypeChange <> Element.Types.Blank Then + Return TypeChange.ToString + Else + Return AdditionalValue + End If + End If + ElseIf trigger(0).ToLower = "environment" Then + Dim environmentlist As New List(Of World.EnvironmentTypes) + For e = 1 To trigger.Count - 1 + environmentlist.Add(CType(CInt(trigger(e)), World.EnvironmentTypes)) + Next + If environmentlist.Contains(CType(Screen.Level.EnvironmentType, World.EnvironmentTypes)) Then + If TypeChange <> Element.Types.Blank Then + Return TypeChange.ToString + Else + Return AdditionalValue + End If + End If + Else + Dim TypeAddition As String = GetTypeAdditionFromItem(P) + If TypeAddition <> "" Then + Return TypeAddition + Else + If trigger(0).ToLower = "item" Then + If P.Item IsNot Nothing Then + If P.Item.IsGameModeItem = False Then + If P.Item.ID = CInt(trigger(1)) Then + Return AdditionalValue + End If + Else + If P.Item.gmID = trigger(1) Then + Return AdditionalValue + End If + End If + End If + End If + End If + End If + End If + Next + End If + + Return "" + + End Function + Public Function GetTypeAdditionFromItem(ByVal P As Pokemon) As String + If InPartyFormTriggers.Count > 0 Then + For i = 0 To InPartyFormTriggers.Count - 1 + Dim trigger() As String = InPartyFormTriggers(i).Split(";") + If trigger(0).ToLower = "item" Then + If P.Item IsNot Nothing Then + If P.Item.IsGameModeItem = False Then + If P.Item.ID = CInt(trigger(1)) Then + If TypeChange <> Element.Types.Blank Then + Return CStr("type;" & TypeChange.ToString) + End If + End If + Else + If P.Item.gmID = trigger(1) Then + If TypeChange <> Element.Types.Blank Then + Return CStr("type;" & TypeChange.ToString) + End If + End If + End If + ElseIf trigger(1) = "-1" Then + Return CStr("default") + End If + End If + Next + End If Return "" End Function - Public Overridable Function GetAnimationName(ByVal P As Pokemon) As String - Return P.OriginalName + Return CStr(P.Number & OverworldSpriteFileSuffix) + End Function + Public Overridable Function GetFormName(ByVal P As Pokemon) As String + Return CStr(FormNamePrefix & P.Name & FormNameSuffix) + End Function + Public Overridable Function GetCrySuffix(ByVal P As Pokemon) As String + Return CryFileSuffix + End Function + Public Overridable Function GetFrontBackSpriteFileSuffix(ByVal P As Pokemon) As String + Return FrontBackSpriteFileSuffix End Function Public Overridable Function GetSheetName(ByVal P As Pokemon) As String Dim n As Integer = P.Number - Select Case n - Case 0 To 151 - Return "Gen1" - Case 152 To 251 - Return "Gen2" - Case 252 To 386 - Return "Gen3" - Case 387 To 493 - Return "Gen4" - Case 494 To 649 - Return "Gen5" - Case 650 To 721 - Return "Gen6" - Case 722 To 809 - Return "Gen7" - Case Else - Return "Gen8" - End Select + If MenuIconFile = "" Then + Select Case n + Case 0 To 151 + Return "Gen1" + Case 152 To 251 + Return "Gen2" + Case 252 To 386 + Return "Gen3" + Case 387 To 493 + Return "Gen4" + Case 494 To 649 + Return "Gen5" + Case 650 To 721 + Return "Gen6" + Case 722 To 809 + Return "Gen7" + Case Else + Return "Gen8" + End Select + Else + Return MenuIconFile + End If End Function Public Overridable Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 @@ -249,7 +595,6 @@ Public Class PokemonForms Dim y As Integer = 0 Dim n As Integer = P.Number Dim r As Integer = 0 - Select Case n Case 0 To 151 r = n @@ -269,12 +614,24 @@ Public Class PokemonForms r = n - 809 End Select + If CInt(MenuIconPosition.X) <> -1 Then + r = CInt(MenuIconPosition.X) + End If + If CInt(MenuIconPosition.Y) <> -1 Then + y = CInt(MenuIconPosition.Y) + End If + While r > 16 r -= 16 y += 1 End While - x = r - 1 + If CInt(MenuIconPosition.X) = -1 Then + x = r - 1 + Else + x = r + End If Return New Vector2(x, y) + End Function Public Overridable Function GetMenuImageSize(ByVal P As Pokemon) As Size @@ -284,6557 +641,26 @@ Public Class PokemonForms End Function Public Overridable Function GetOverworldAddition(ByVal P As Pokemon) As String - Return "" + Return OverworldSpriteFileSuffix End Function Public Overridable Function GetDataFileAddition(ByVal AdditionalData As String) As String + If Me.ValueMatch(AdditionalData) Then + Return DataFileSuffix + End If Return "" End Function Public Function IsNumber(ByVal number As Integer) As Boolean - Return Me._numbers.Contains(number) + Return Me.DexNumber = number End Function - - End Class - -#Region "Classes" - -#Region "Megas" - - Private Class Venusaur - Inherits PokemonForm - Public Sub New() - MyBase.New(3) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(0, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Charizard - Inherits PokemonForm - Public Sub New() - MyBase.New(6) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega_x", "mega_y" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega_x" - Return New Vector2(1, 0) - Case "mega_y" - Return New Vector2(2, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega_x" - Return "_mega_x" - Case "mega_y" - Return "_mega_y" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega_x" - Return P.OriginalName & "_mega_x" - Case "mega_y" - Return P.OriginalName & "_mega_y" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega_x" - Return "_mega_x" - Case "mega_y" - Return "_mega_y" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Blastoise - Inherits PokemonForm - Public Sub New() - MyBase.New(9) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(3, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Beedrill - Inherits PokemonForm - Public Sub New() - MyBase.New(15) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(12, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Pidgeot - Inherits PokemonForm - Public Sub New() - MyBase.New(18) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(13, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Alakazam - Inherits PokemonForm - Public Sub New() - MyBase.New(65) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(4, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Slowbro - Inherits PokemonForm - Public Sub New() - MyBase.New(80) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(14, 1) - Case "galar" - Return New Vector2(4, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - End Class - - Private Class Gengar - Inherits PokemonForm - Public Sub New() - MyBase.New(94) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(5, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Kangaskhan - Inherits PokemonForm - Public Sub New() - MyBase.New(115) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(6, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Pinsir - Inherits PokemonForm - Public Sub New() - MyBase.New(127) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(7, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Gyarados - Inherits PokemonForm - Public Sub New() - MyBase.New(130) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(8, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Aerodactyl - Inherits PokemonForm - Public Sub New() - MyBase.New(142) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(9, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Mewtwo - Inherits PokemonForm - Public Sub New() - MyBase.New(150) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega_x", "mega_y" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega_x" - Return New Vector2(10, 0) - Case "mega_y" - Return New Vector2(11, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega_x" - Return "_mega_x" - Case "mega_y" - Return "_mega_y" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega_x" - Return P.OriginalName & "_mega_x" - Case "mega_y" - Return P.OriginalName & "_mega_y" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega_x" - Return "_mega_x" - Case "mega_y" - Return "_mega_y" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Ampharos - Inherits PokemonForm - Public Sub New() - MyBase.New(181) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(12, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Steelix - - Inherits PokemonForm - - Public Sub New() - MyBase.New(208) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(15, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Scizor - Inherits PokemonForm - Public Sub New() - MyBase.New(212) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(13, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Heracross - Inherits PokemonForm - Public Sub New() - MyBase.New(214) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(14, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Houndoom - Inherits PokemonForm - Public Sub New() - MyBase.New(229) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(15, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Tyranitar - Inherits PokemonForm - Public Sub New() - MyBase.New(248) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(0, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Sceptile - Inherits PokemonForm - Public Sub New() - MyBase.New(254) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(0, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Blaziken - Inherits PokemonForm - Public Sub New() - MyBase.New(257) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(1, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Swampert - Inherits PokemonForm - Public Sub New() - MyBase.New(260) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(1, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Gardevoir - Inherits PokemonForm - Public Sub New() - MyBase.New(282) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(2, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Sableye - Inherits PokemonForm - Public Sub New() - MyBase.New(302) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(2, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Mawile - Inherits PokemonForm - Public Sub New() - MyBase.New(303) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(3, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Aggron - Inherits PokemonForm - Public Sub New() - MyBase.New(306) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(4, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Medicham - Inherits PokemonForm - Public Sub New() - MyBase.New(308) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(5, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Manectric - Inherits PokemonForm - Public Sub New() - MyBase.New(310) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(6, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Sharpedo - Inherits PokemonForm - Public Sub New() - MyBase.New(319) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(3, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Camerupt - Inherits PokemonForm - Public Sub New() - MyBase.New(323) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(4, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Altaria - Inherits PokemonForm - Public Sub New() - MyBase.New(334) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(5, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Banette - Inherits PokemonForm - Public Sub New() - MyBase.New(354) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(7, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Absol - Inherits PokemonForm - Public Sub New() - MyBase.New(359) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(8, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Glalie - Inherits PokemonForm - Public Sub New() - MyBase.New(362) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(6, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Salamence - Inherits PokemonForm - Public Sub New() - MyBase.New(373) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(7, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Metagross - Inherits PokemonForm - Public Sub New() - MyBase.New(376) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(8, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Latias - Inherits PokemonForm - Public Sub New() - MyBase.New(380) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(9, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Latios - Inherits PokemonForm - Public Sub New() - MyBase.New(381) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(10, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Kyogre - Inherits PokemonForm - Public Sub New() - MyBase.New(382) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "primal" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "primal" - Return New Vector2(3, 3) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "primal" - Return "_primal" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "primal" - Return P.OriginalName & "_primal" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "primal" - Return "_primal" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Groudon - Inherits PokemonForm - Public Sub New() - MyBase.New(383) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "primal" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "primal" - Return New Vector2(4, 3) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "primal" - Return "_primal" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "primal" - Return P.OriginalName & "_primal" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "primal" - Return "_primal" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Rayquaza - Inherits PokemonForm - Public Sub New() - MyBase.New(384) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(11, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Lopunny - Inherits PokemonForm - Public Sub New() - MyBase.New(428) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(12, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Garchomp - Inherits PokemonForm - Public Sub New() - MyBase.New(445) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(9, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Lucario - Inherits PokemonForm - Public Sub New() - MyBase.New(448) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(10, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Abomasnow - Inherits PokemonForm - Public Sub New() - MyBase.New(460) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(11, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Gallade - Inherits PokemonForm - Public Sub New() - MyBase.New(475) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(13, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Dialga - 'Leaving this untouched because Primal Dialga is stupid and not canon - Omega - Inherits PokemonForm - - Public Sub New() - MyBase.New(483) - End Sub - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - If P.AdditionalData.ToLower() = "primal" Then - Return P.OriginalName & "_primal" - Else - Return MyBase.GetAnimationName(P) - End If - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - If P.AdditionalData.ToLower() = "primal" Then - Return New Vector2(14, 26) - Else - Return MyBase.GetMenuImagePosition(P) - End If - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - If P.AdditionalData.ToLower() = "primal" Then - Return "_primal" - Else - Return MyBase.GetOverworldAddition(P) - End If - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "primal" - Return "_primal" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Audino - Inherits PokemonForm - Public Sub New() - MyBase.New(531) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(14, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - - Private Class Diancie - Inherits PokemonForm - Public Sub New() - MyBase.New(719) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "Megas" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "mega" - Return New Vector2(15, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return P.OriginalName & "_mega" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "mega" - Return "_mega" - Case Else - Return "" - End Select - End Function - End Class - -#End Region - -#Region "Gender" - - Private Class Nidoran - - Inherits PokemonForm - - Public Sub New() - MyBase.New({29, 32}) - End Sub - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - If P.Number = 29 Then - Return "Nidoran_f" - Else - Return "Nidoran_m" - End If - End Function - - End Class - - Private Class Frillish - - Inherits PokemonForm - - Public Sub New() - MyBase.New(592) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Female - Return "Gender" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.Gender - Case Pokemon.Genders.Female - Return New Vector2(1, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Female - Return P.OriginalName & "_f" - Case Else - Return P.OriginalName & "_m" - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Female - Return "_f" - Case Else - Return "_m" - End Select - End Function - - End Class - - Private Class Jellicent - - Inherits PokemonForm - - Public Sub New() - MyBase.New(593) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Female - Return "Gender" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.Gender - Case Pokemon.Genders.Female - Return New Vector2(2, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Female - Return P.OriginalName & "_f" - Case Else - Return P.OriginalName & "_m" - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Female - Return "_f" - Case Else - Return "_m" - End Select - End Function - - End Class - - Private Class Pyroar - - Inherits PokemonForm - - Public Sub New() - MyBase.New(668) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Female - Return "Gender" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.Gender - Case Pokemon.Genders.Female - Return New Vector2(3, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Male - Return P.OriginalName & "_m" - Case Else - Return P.OriginalName & "_f" - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.Gender - Case Pokemon.Genders.Male - Return "_m" - Case Else - Return "_f" - End Select - End Function - End Class - -#End Region - -#Region "Aesthetic" - Private Class Pichu - - Inherits PokemonForm - - Public Sub New() - MyBase.New(172) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "spiky-eared" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - If P.AdditionalData.ToLower() = "spiky-eared" Then - Return P.OriginalName & "_spiky-eared" - Else - Return MyBase.GetAnimationName(P) - End If - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - If P.AdditionalData.ToLower() = "spiky-eared" Then - Return "_spiky-eared" - Else - Return MyBase.GetOverworldAddition(P) - End If - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - If P.AdditionalData.ToLower() = "spiky-eared" Then - Return New Vector2(0, 2) - Else - Return MyBase.GetMenuImagePosition(P) - End If - End Function - - End Class - - Private Class Unown - - Inherits PokemonForm - - Public Sub New() - MyBase.New(201) - End Sub - - Public Overrides Function GetInitialAdditionalData(ByVal P As Pokemon) As String - Return CStr(Core.Random.Next(0, 28)) - End Function - - Public Overrides Function GetSheetName(P As Pokemon) As String - Return "Unown" - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Dim AlphabetArray() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "question", "exclamation"} - If CInt(P.AdditionalData) > 0 Then - Return "Unown_" & AlphabetArray(CInt(P.AdditionalData)) - End If - Return "Unown" - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Dim x As Integer = 0 - Dim y As Integer = 0 - Select Case CInt(P.AdditionalData) - Case 0 To 15 - y = 0 - x = CInt(P.AdditionalData) - Case Else - y = 1 - x = CInt(P.AdditionalData) - 16 - End Select - Return New Vector2(x, y) - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Dim alphabet() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "question", "exclamation"} - Return "-" & alphabet(CInt(P.AdditionalData)) - End Function - - End Class - - Private Class Shellos - - Inherits PokemonForm - - Public Sub New() - MyBase.New(422) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "1" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - If P.AdditionalData = "1" Then - Return New Vector2(5, 4) - Else - Return MyBase.GetMenuImagePosition(P) - End If - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - If P.AdditionalData = "1" Then - Return P.OriginalName & "_e" - Else - Return P.OriginalName & "_w" - End If - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - If P.AdditionalData = "1" Then - Return "_e" - Else - Return "_w" - End If - End Function - - End Class - - Private Class Gastrodon - - Inherits PokemonForm - - Public Sub New() - MyBase.New(423) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "1" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - If P.AdditionalData = "1" Then - Return New Vector2(6, 4) - Else - Return MyBase.GetMenuImagePosition(P) - End If - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - If P.AdditionalData = "1" Then - Return P.OriginalName & "_e" - Else - Return P.OriginalName & "_w" - End If - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - If P.AdditionalData = "1" Then - Return "_e" - Else - Return "_w" - End If - End Function - - End Class - - Private Class Deerling - - Inherits PokemonForm - - Public Sub New() - MyBase.New(585) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case World.CurrentSeason - Case World.Seasons.Summer, World.Seasons.Fall, World.Seasons.Winter - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case World.CurrentSeason - Case World.Seasons.Summer - Return New Vector2(3, 5) - Case World.Seasons.Fall - Return New Vector2(4, 5) - Case World.Seasons.Winter - Return New Vector2(5, 5) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case World.CurrentSeason - Case World.Seasons.Fall - Return P.OriginalName & "_fa" - Case World.Seasons.Spring - Return P.OriginalName & "_sp" - Case World.Seasons.Summer - Return P.OriginalName & "_su" - Case World.Seasons.Winter - Return P.OriginalName & "_wi" - End Select - Return P.OriginalName & "_fa" - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case World.CurrentSeason - Case World.Seasons.Fall - Return "_fa" - Case World.Seasons.Spring - Return "_sp" - Case World.Seasons.Summer - Return "_su" - Case World.Seasons.Winter - Return "_wi" - End Select - Return "_fa" - End Function - - End Class - - Private Class Sawsbuck - - Inherits PokemonForm - - Public Sub New() - MyBase.New(586) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case World.CurrentSeason - Case World.Seasons.Summer, World.Seasons.Fall, World.Seasons.Winter - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case World.CurrentSeason - Case World.Seasons.Summer - Return New Vector2(6, 5) - Case World.Seasons.Fall - Return New Vector2(7, 5) - Case World.Seasons.Winter - Return New Vector2(8, 5) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case World.CurrentSeason - Case World.Seasons.Fall - Return P.OriginalName & "_fa" - Case World.Seasons.Spring - Return P.OriginalName & "_sp" - Case World.Seasons.Summer - Return P.OriginalName & "_su" - Case World.Seasons.Winter - Return P.OriginalName & "_wi" - End Select - Return P.OriginalName & "_fa" - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case World.CurrentSeason - Case World.Seasons.Fall - Return "_fa" - Case World.Seasons.Spring - Return "_sp" - Case World.Seasons.Summer - Return "_su" - Case World.Seasons.Winter - Return "_wi" - End Select - Return "_fa" - End Function - - End Class - - Private Class Vivillon - Inherits PokemonForm - - Public Sub New() - MyBase.New(666) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Return "Vivillon" - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "archipelago" - Return New Vector2(1, 0) - Case "continental" - Return New Vector2(2, 0) - Case "elegant" - Return New Vector2(3, 0) - Case "fancy" - Return New Vector2(4, 0) - Case "garden" - Return New Vector2(5, 0) - Case "high_planes" - Return New Vector2(6, 0) - Case "icy_snow" - Return New Vector2(7, 0) - Case "jungle" - Return New Vector2(8, 0) - Case "marine" - Return New Vector2(9, 0) - Case "meadow" - Return New Vector2(0, 0) - Case "modern" - Return New Vector2(10, 0) - Case "monsoon" - Return New Vector2(11, 0) - Case "ocean" - Return New Vector2(12, 0) - Case "pokeball" - Return New Vector2(13, 0) - Case "polar" - Return New Vector2(14, 0) - Case "river" - Return New Vector2(15, 0) - Case "sandstorm" - Return New Vector2(0, 1) - Case "savanna" - Return New Vector2(1, 1) - Case "sun" - Return New Vector2(2, 1) - Case "tundra" - Return New Vector2(3, 1) - Case Else - Return New Vector2(0, 0) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "archipelago" - Return "_archipelago" - Case "continental" - Return "_continental" - Case "elegant" - Return "_elegant" - Case "fancy" - Return "_fancy" - Case "garden" - Return "_garden" - Case "high_planes" - Return "_high_planes" - Case "icy_snow" - Return "_icy_snow" - Case "jungle" - Return "_jungle" - Case "marine" - Return "_marine" - Case "meadow" - Return "_meadow" - Case "modern" - Return "_modern" - Case "monsoon" - Return "_monsoon" - Case "ocean" - Return "_ocean" - Case "pokeball" - Return "_pokeball" - Case "polar" - Return "_polar" - Case "river" - Return "_river" - Case "sandstorm" - Return "_sandstorm" - Case "savanna" - Return "_savanna" - Case "sun" - Return "_sun" - Case "tundra" - Return "_tundra" - Case Else - Return "_meadow" - End Select - End Function - End Class - - Private Class Flabebe - Inherits PokemonForm - Public Sub New() - MyBase.New(669) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow", "blue", "orange", "white" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "yellow" - Return New Vector2(0, 7) - Case "blue" - Return New Vector2(1, 7) - Case "orange" - Return New Vector2(2, 7) - Case "white" - Return New Vector2(3, 7) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow" - Return "flabebe_yellow" - Case "blue" - Return "flabebe_blue" - Case "orange" - Return "flabebe_orange" - Case "white" - Return "flabebe_white" - Case Else - Return "flabebe" - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow" - Return "_yellow" - Case "blue" - Return "_blue" - Case "orange" - Return "_orange" - Case "white" - Return "_white" - Case Else - Return "_red" - End Select - End Function - - End Class - Private Class Floette - Inherits PokemonForm - Public Sub New() - MyBase.New(670) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow", "blue", "orange", "white" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "yellow" - Return New Vector2(5, 7) - Case "blue" - Return New Vector2(6, 7) - Case "orange" - Return New Vector2(7, 7) - Case "white" - Return New Vector2(8, 7) - Case "eternal" - Return New Vector2(4, 7) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow" - Return P.OriginalName & "_yellow" - Case "blue" - Return P.OriginalName & "_blue" - Case "orange" - Return P.OriginalName & "_orange" - Case "white" - Return P.OriginalName & "_white" - Case "eternal" - Return P.OriginalName & "_eternal" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow" - Return "_yellow" - Case "blue" - Return "_blue" - Case "orange" - Return "_orange" - Case "white" - Return "_white" - Case "eternal" - Return "_eternal" - Case Else - Return "_red" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData - Case "eternal" - Return "_eternal" - Case Else - Return "" - End Select - End Function - - End Class - Private Class Florges - Inherits PokemonForm - Public Sub New() - MyBase.New(671) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow", "blue", "orange", "white" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "yellow" - Return New Vector2(9, 7) - Case "blue" - Return New Vector2(10, 7) - Case "orange" - Return New Vector2(11, 7) - Case "white" - Return New Vector2(12, 7) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow" - Return P.OriginalName & "_yellow" - Case "blue" - Return P.OriginalName & "_blue" - Case "orange" - Return P.OriginalName & "_orange" - Case "white" - Return P.OriginalName & "_white" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "yellow" - Return "_yellow" - Case "blue" - Return "_blue" - Case "orange" - Return "_orange" - Case "white" - Return "_white" - Case Else - Return "_red" - End Select + Public Function ValueMatch(ByVal additionalValue As String) As Boolean + Return Me.AdditionalValue = additionalValue End Function End Class #End Region -#Region "Other" - Private Class Deoxys - - Inherits PokemonForm - - Public Sub New() - MyBase.New(386) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "attack", "defense", "speed" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "attack", "defense", "speed" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "attack" - Return New Vector2(5, 3) - Case "defense" - Return New Vector2(6, 3) - Case "speed" - Return New Vector2(7, 3) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "attack", "defense", "speed" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "attack", "defense", "speed" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Burmy - - Inherits PokemonForm - - Public Sub New() - MyBase.New(412) - End Sub - - 'TODO: Finish forms. - Public Overrides Function GetInitialAdditionalData(ByVal P As Pokemon) As String - Select Case Screen.Level.EnvironmentType - Case 0, 5 'Outside, Forest - Return "plant" - Case 2, 3 'Cave, Underwater - Return "sandy" - Case 1 'Inside, Dark - Return "trash" - End Select - - Return "plant" - End Function - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "sandy", "trash" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - End Class - - Private Class Rotom - - Inherits PokemonForm - - Public Sub New() - MyBase.New(479) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "fan", "frost", "heat", "mow", "wash" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "fan", "frost", "heat", "mow", "wash" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "fan" - Return New Vector2(12, 4) - Case "frost" - Return New Vector2(11, 4) - Case "heat" - Return New Vector2(9, 4) - Case "mow" - Return New Vector2(13, 4) - Case "wash" - Return New Vector2(10, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "fan", "frost", "heat", "mow", "wash" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "fan", "frost", "heat", "mow", "wash" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Arceus - - Inherits PokemonForm - - Public Sub New() - MyBase.New(493) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Return "Arceus" - End Function - - Private Function GetTypeAdditionFromPlate(ByVal P As Pokemon) As Tuple(Of String, Integer, Integer) - If Not P.Item Is Nothing Then - If P.Item.IsPlate = False Then - Return New Tuple(Of String, Integer, Integer)("", 0, 0) - Else - Select Case P.Item.ID - Case 267 - Return New Tuple(Of String, Integer, Integer)("dragon", 14, 0) - Case 268 - Return New Tuple(Of String, Integer, Integer)("dark", 15, 0) - Case 269 - Return New Tuple(Of String, Integer, Integer)("ground", 8, 0) - Case 270 - Return New Tuple(Of String, Integer, Integer)("fighting", 6, 0) - Case 271 - Return New Tuple(Of String, Integer, Integer)("fire", 1, 0) - Case 272 - Return New Tuple(Of String, Integer, Integer)("ice", 5, 0) - Case 273 - Return New Tuple(Of String, Integer, Integer)("bug", 11, 0) - Case 274 - Return New Tuple(Of String, Integer, Integer)("steel", 0, 1) - Case 275 - Return New Tuple(Of String, Integer, Integer)("grass", 4, 0) - Case 276 - Return New Tuple(Of String, Integer, Integer)("psychic", 10, 0) - Case 277 - Return New Tuple(Of String, Integer, Integer)("fairy", 1, 1) - Case 278 - Return New Tuple(Of String, Integer, Integer)("flying", 9, 0) - Case 279 - Return New Tuple(Of String, Integer, Integer)("water", 2, 0) - Case 280 - Return New Tuple(Of String, Integer, Integer)("ghost", 13, 0) - Case 281 - Return New Tuple(Of String, Integer, Integer)("rock", 12, 0) - Case 282 - Return New Tuple(Of String, Integer, Integer)("poison", 7, 0) - Case 283 - Return New Tuple(Of String, Integer, Integer)("electric", 3, 0) - Case Else - Return New Tuple(Of String, Integer, Integer)("", 0, 0) - End Select - End If - Else - Return New Tuple(Of String, Integer, Integer)("", 0, 0) - End If - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Dim typeAddition As String = GetTypeAdditionFromPlate(P).Item1 - If typeAddition <> "" Then - typeAddition = "_" & typeAddition - End If - - Return "Arceus" & typeAddition - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Dim data = GetTypeAdditionFromPlate(P) - Return New Vector2(data.Item2, data.Item3) - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Dim typeAddition As String = GetTypeAdditionFromPlate(P).Item1 - If typeAddition <> "" Then - typeAddition = "_" & typeAddition - End If - Return typeAddition - End Function - - End Class - - Private Class Basculin - - Inherits PokemonForm - - Public Sub New() - MyBase.New(550) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "blue", "white" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetDataFileAddition(AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "blue", "white" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetAnimationName(P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "blue", "white" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "blue" - Return New Vector2(0, 5) - Case "white" - Return New Vector2(15, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "blue", "white" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Tornadus - - Inherits PokemonForm - - Public Sub New() - MyBase.New(641) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "therian" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(P As Pokemon) As String - If P.AdditionalData.ToLower() = "therian" Then - Return P.OriginalName & "_therian" - Else - Return MyBase.GetAnimationName(P) - End If - End Function - - Public Overrides Function GetMenuImagePosition(P As Pokemon) As Vector2 - If P.AdditionalData.ToLower() = "therian" Then - Return New Vector2(9, 5) - Else - Return MyBase.GetMenuImagePosition(P) - End If - End Function - - Public Overrides Function GetOverworldAddition(P As Pokemon) As String - If P.AdditionalData.ToLower() = "therian" Then - Return "_therian" - Else - Return MyBase.GetOverworldAddition(P) - End If - End Function - - End Class - - Private Class Thundurus - - Inherits PokemonForm - - Public Sub New() - MyBase.New(642) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "therian" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(P As Pokemon) As String - If P.AdditionalData.ToLower() = "therian" Then - Return P.OriginalName & "_therian" - Else - Return MyBase.GetAnimationName(P) - End If - End Function - - Public Overrides Function GetMenuImagePosition(P As Pokemon) As Vector2 - If P.AdditionalData.ToLower() = "therian" Then - Return New Vector2(10, 5) - Else - Return MyBase.GetMenuImagePosition(P) - End If - End Function - - Public Overrides Function GetOverworldAddition(P As Pokemon) As String - If P.AdditionalData.ToLower() = "therian" Then - Return "_therian" - Else - Return MyBase.GetOverworldAddition(P) - End If - End Function - - End Class - - Private Class Landorus - - Inherits PokemonForm - - Public Sub New() - MyBase.New(645) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "therian" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(P As Pokemon) As String - If P.AdditionalData.ToLower() = "therian" Then - Return P.OriginalName & "_therian" - Else - Return MyBase.GetAnimationName(P) - End If - End Function - - Public Overrides Function GetMenuImagePosition(P As Pokemon) As Vector2 - If P.AdditionalData.ToLower() = "therian" Then - Return New Vector2(11, 5) - Else - Return MyBase.GetMenuImagePosition(P) - End If - End Function - - Public Overrides Function GetOverworldAddition(P As Pokemon) As String - If P.AdditionalData.ToLower() = "therian" Then - Return "_therian" - Else - Return MyBase.GetOverworldAddition(P) - End If - End Function - - End Class - - Private Class Kyurem - - Inherits PokemonForm - - Public Sub New() - MyBase.New(646) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "black", "white" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "black" - Return P.OriginalName & "_black" - Case "white" - Return P.OriginalName & "_white" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "black" - Return "_black" - Case "white" - Return "_white" - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "black" - Return New Vector2(13, 5) - Case "white" - Return New Vector2(12, 5) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - End Class - - Private Class Aegislash - - Inherits PokemonForm - - Public Sub New() - MyBase.New(681) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "blade" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "blade" - Return New Vector2(6, 8) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "blade" - Return P.OriginalName & "_blade" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "blade" - Return "_blade" - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "blade" - Return "_blade" - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Hoopa - Inherits PokemonForm - Public Sub New() - MyBase.New(720) - End Sub - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "unbound" - Return "OtherForms" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData - Case "unbound" - Return New Vector2(0, 9) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "unbound" - Return "_unbound" - Case Else - Return "" - End Select - End Function - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "unbound" - Return P.OriginalName & "_unbound" - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData - Case "unbound" - Return "_unbound" - Case Else - Return "" - End Select - End Function - End Class - -#End Region - -#Region "Regionals" - -#Region "Alola" - Private Class Rattata - - Inherits PokemonForm - - Public Sub New() - MyBase.New(19) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(0, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Raticate - - Inherits PokemonForm - - Public Sub New() - MyBase.New(20) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(1, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Raichu - - Inherits PokemonForm - - Public Sub New() - MyBase.New(26) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(2, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Sandshrew - - Inherits PokemonForm - - Public Sub New() - MyBase.New(27) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(3, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Sandslash - - Inherits PokemonForm - - Public Sub New() - MyBase.New(28) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(4, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Vulpix - - Inherits PokemonForm - - Public Sub New() - MyBase.New(37) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(5, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Ninetales - - Inherits PokemonForm - - Public Sub New() - MyBase.New(38) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(6, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Diglett - - Inherits PokemonForm - - Public Sub New() - MyBase.New(50) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(7, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Dugtrio - - Inherits PokemonForm - - Public Sub New() - MyBase.New(51) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(8, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Meowth - - Inherits PokemonForm - - Public Sub New() - MyBase.New(52) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola", "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola", "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(9, 0) - Case "galar" - Return New Vector2(0, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola", "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola", "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Persian - - Inherits PokemonForm - - Public Sub New() - MyBase.New(53) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(10, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Geodude - - Inherits PokemonForm - - Public Sub New() - MyBase.New(74) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(11, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Graveler - - Inherits PokemonForm - - Public Sub New() - MyBase.New(75) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(12, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Golem - - Inherits PokemonForm - - Public Sub New() - MyBase.New(76) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(13, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Grimer - - Inherits PokemonForm - - Public Sub New() - MyBase.New(88) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(14, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Muk - - Inherits PokemonForm - - Public Sub New() - MyBase.New(89) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(15, 0) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Exeggutor - - Inherits PokemonForm - - Public Sub New() - MyBase.New(103) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(0, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Marowak - - Inherits PokemonForm - - Public Sub New() - MyBase.New(105) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "alola" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "alola" - Return New Vector2(1, 1) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "alola" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "alola" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - -#End Region - -#Region "Galar" - Private Class Ponyta - - Inherits PokemonForm - - Public Sub New() - MyBase.New(77) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(1, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Rapidash - - Inherits PokemonForm - - Public Sub New() - MyBase.New(78) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(2, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Slowpoke - - Inherits PokemonForm - - Public Sub New() - MyBase.New(79) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(3, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Farfetch 'd - - Inherits PokemonForm - - Public Sub New() - MyBase.New(83) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(5, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Weezing - - Inherits PokemonForm - - Public Sub New() - MyBase.New(110) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(6, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class MrMime - - Inherits PokemonForm - - Public Sub New() - MyBase.New(122) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(7, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Articuno - - Inherits PokemonForm - - Public Sub New() - MyBase.New(144) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(8, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Zapdos - - Inherits PokemonForm - - Public Sub New() - MyBase.New(145) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(9, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Moltres - - Inherits PokemonForm - - Public Sub New() - MyBase.New(146) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(10, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Slowking - - Inherits PokemonForm - - Public Sub New() - MyBase.New(199) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(11, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Corsola - - Inherits PokemonForm - - Public Sub New() - MyBase.New(222) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(12, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Zigzagoon - - Inherits PokemonForm - - Public Sub New() - MyBase.New(263) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(13, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Linoone - - Inherits PokemonForm - - Public Sub New() - MyBase.New(264) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(14, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Darumaka - - Inherits PokemonForm - - Public Sub New() - MyBase.New(554) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(15, 2) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Darmanitan - - Inherits PokemonForm - - Public Sub New() - MyBase.New(555) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(0, 3) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Yamask - - Inherits PokemonForm - - Public Sub New() - MyBase.New(562) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(1, 3) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Stunfisk - - Inherits PokemonForm - - Public Sub New() - MyBase.New(618) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "galar" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "galar" - Return New Vector2(2, 3) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "galar" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "galar" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - -#End Region - -#Region "Hisui" - - Private Class Growlithe - - Inherits PokemonForm - - Public Sub New() - MyBase.New(58) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(0, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Arcanine - - Inherits PokemonForm - - Public Sub New() - MyBase.New(59) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(1, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Voltorb - - Inherits PokemonForm - - Public Sub New() - MyBase.New(100) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(2, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Electrode - - Inherits PokemonForm - - Public Sub New() - MyBase.New(101) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(3, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Typhlosion - - Inherits PokemonForm - - Public Sub New() - MyBase.New(157) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(4, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Qwilfish - - Inherits PokemonForm - - Public Sub New() - MyBase.New(211) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(5, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Sneasel - - Inherits PokemonForm - - Public Sub New() - MyBase.New(215) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(6, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Samurott - - Inherits PokemonForm - - Public Sub New() - MyBase.New(503) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(7, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Lilligant - - Inherits PokemonForm - - Public Sub New() - MyBase.New(549) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(8, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Zorua - - Inherits PokemonForm - - Public Sub New() - MyBase.New(570) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(9, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Zoroark - - Inherits PokemonForm - - Public Sub New() - MyBase.New(571) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(10, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Braviary - - Inherits PokemonForm - - Public Sub New() - MyBase.New(628) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(11, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Sliggoo - - Inherits PokemonForm - - Public Sub New() - MyBase.New(705) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(12, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Goodra - - Inherits PokemonForm - - Public Sub New() - MyBase.New(706) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(13, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Avalugg - - Inherits PokemonForm - - Public Sub New() - MyBase.New(713) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(14, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - - Private Class Decidueye - - Inherits PokemonForm - - Public Sub New() - MyBase.New(724) - End Sub - - Public Overrides Function GetSheetName(P As Pokemon) As String - Select Case P.AdditionalData - Case "hisui" - Return "Regional" - Case Else - Return MyBase.GetSheetName(P) - End Select - End Function - - Public Overrides Function GetAnimationName(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return P.OriginalName & "_" & P.AdditionalData.ToLower() - Case Else - Return P.OriginalName - End Select - End Function - - Public Overrides Function GetMenuImagePosition(ByVal P As Pokemon) As Vector2 - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return New Vector2(15, 4) - Case Else - Return MyBase.GetMenuImagePosition(P) - End Select - End Function - - Public Overrides Function GetOverworldAddition(ByVal P As Pokemon) As String - Select Case P.AdditionalData.ToLower() - Case "hisui" - Return "_" & P.AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - Public Overrides Function GetDataFileAddition(ByVal AdditionalData As String) As String - Select Case AdditionalData.ToLower() - Case "hisui" - Return "_" & AdditionalData.ToLower() - Case Else - Return "" - End Select - End Function - - End Class - -#End Region - -#End Region - -#End Region End Class diff --git a/P3D/Resources/Sound/SoundManager.vb b/P3D/Resources/Sound/SoundManager.vb index b6211a6c8..43de65f24 100644 --- a/P3D/Resources/Sound/SoundManager.vb +++ b/P3D/Resources/Sound/SoundManager.vb @@ -101,16 +101,16 @@ End Sub - Public Shared Sub PlayPokemonCry(pokemonId As Integer) - PlaySound("Cries\" + pokemonId.ToString(), 0F, 0F, Volume * POKEMON_CRY_VOLUME_MULTIPLIER, False) + Public Shared Sub PlayPokemonCry(pokemonId As Integer, Optional CrySuffix As String = "") + PlaySound("Cries\" + pokemonId.ToString() & CrySuffix, 0F, 0F, Volume * POKEMON_CRY_VOLUME_MULTIPLIER, False) End Sub - Public Shared Sub PlayPokemonCry(pokemonId As Integer, pitch As Single, pan As Single) - PlaySound("Cries\" + pokemonId.ToString(), pitch, pan, Volume * POKEMON_CRY_VOLUME_MULTIPLIER, False) + Public Shared Sub PlayPokemonCry(pokemonId As Integer, pitch As Single, pan As Single, Optional CrySuffix As String = "") + PlaySound("Cries\" + pokemonId.ToString() & CrySuffix, pitch, pan, Volume * POKEMON_CRY_VOLUME_MULTIPLIER, False) End Sub - Public Shared Sub PlayPokemonCry(pokemonId As Integer, pitch As Single, pan As Single, volume As Single) - PlaySound("Cries\" + pokemonId.ToString(), pitch, pan, volume * POKEMON_CRY_VOLUME_MULTIPLIER, False) + Public Shared Sub PlayPokemonCry(pokemonId As Integer, pitch As Single, pan As Single, volume As Single, Optional CrySuffix As String = "") + PlaySound("Cries\" + pokemonId.ToString() & CrySuffix, pitch, pan, volume * POKEMON_CRY_VOLUME_MULTIPLIER, False) End Sub Public Shared Sub LoadSounds(ByVal forceReplace As Boolean) diff --git a/P3D/Screens/Pokemon/PartyScreen.vb b/P3D/Screens/Pokemon/PartyScreen.vb index e40b2ee5b..0c3f20dc6 100644 --- a/P3D/Screens/Pokemon/PartyScreen.vb +++ b/P3D/Screens/Pokemon/PartyScreen.vb @@ -156,10 +156,24 @@ Public Class PartyScreen Next Else For Each p As Pokemon In Core.Player.Pokemons + Dim FormData As String = PokemonForms.GetFormDataInParty(p) + If FormData <> "" AndAlso PokemonForms.GetTypeAdditionFromItem(p) = "" Then + p.LoadDefinitions(p.Number, FormData) + p.ClearTextures() + End If Me.PokemonList.Add(Pokemon.GetPokemonByData(p.GetSaveData())) Next End If Else + For Each p As Pokemon In Core.Player.Pokemons + Dim FormData As String = PokemonForms.GetFormDataInParty(p) + If FormData <> "" Then + If FormData <> "" AndAlso PokemonForms.GetTypeAdditionFromItem(p) = "" Then + p.LoadDefinitions(p.Number, FormData) + p.ClearTextures() + End If + End If + Next Me.PokemonList = Core.Player.Pokemons End If End Sub diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb index ae3400c2f..920347c0a 100644 --- a/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb +++ b/P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb @@ -53,7 +53,12 @@ End If Next - Dim PokemonID As Integer = int(argument.GetSplit(0)) + Dim PokemonID As String = argument.GetSplit(0) + Dim PokemonAddition As String = "xXx" + If PokemonID.Contains("_") Then + PokemonAddition = argument.GetSplit(0).GetSplit(1, "_") + PokemonID = argument.GetSplit(0, "_") + End If Dim Level As Integer = int(argument.GetSplit(1)) Dim catchMethod As String = "random reason" @@ -102,8 +107,8 @@ isShiny = CBool(argument.GetSplit(8)) End If - Dim Pokemon As Pokemon = Pokemon.GetPokemonByID(PokemonID) - Pokemon.Generate(Level, True) + Dim Pokemon As Pokemon = Pokemon.GetPokemonByID(int(PokemonID), PokemonAddition) + Pokemon.Generate(Level, True, PokemonAddition) Pokemon.CatchTrainerName = catchTrainer Pokemon.OT = Core.Player.OT @@ -878,7 +883,12 @@ End If Next - Dim PokemonID As Integer = int(argument.GetSplit(0)) + Dim PokemonID As String = argument.GetSplit(0) + Dim PokemonAddition As String = "" + If PokemonID.Contains("_") Then + PokemonAddition = argument.GetSplit(1, "_") + PokemonID = argument.GetSplit(0, "_") + End If Dim Level As Integer = int(argument.GetSplit(1)) Dim catchMethod As String = "random reason" @@ -927,7 +937,7 @@ isShiny = CBool(argument.GetSplit(8)) End If - Dim Pokemon As Pokemon = Pokemon.GetPokemonByID(PokemonID) + Dim Pokemon As Pokemon = Pokemon.GetPokemonByID(int(PokemonID), PokemonAddition) Pokemon.Generate(Level, True) Pokemon.CatchTrainerName = catchTrainer diff --git a/lib/P3D.ContentPipeline/Content/Content.mgcb b/lib/P3D.ContentPipeline/Content/Content.mgcb index e766dbefb..8d0979a04 100644 --- a/lib/P3D.ContentPipeline/Content/Content.mgcb +++ b/lib/P3D.ContentPipeline/Content/Content.mgcb @@ -249,13 +249,13 @@ /processorParam:TextureFormat=Compressed /build:Models/Environment/Test_floor/Test_floor.obj -#begin Models/Pokemon/Snorlax/Normal.fbx +#begin Models/Pokemon/143/Normal.fbx /importer:FbxImporter /processor:ModelProcessor /processorParam:ColorKeyColor=0,0,0,0 /processorParam:ColorKeyEnabled=True /processorParam:DefaultEffect=BasicEffect -/processorParam:GenerateMipmaps=False +/processorParam:GenerateMipmaps=True /processorParam:GenerateTangentFrames=False /processorParam:PremultiplyTextureAlpha=True /processorParam:PremultiplyVertexColors=True @@ -266,15 +266,15 @@ /processorParam:Scale=1 /processorParam:SwapWindingOrder=False /processorParam:TextureFormat=Color -/build:Models/Pokemon/Snorlax/Normal.fbx +/build:Models/Pokemon/143/Normal.fbx -#begin Models/Pokemon/Snorlax/Shiny.fbx +#begin Models/Pokemon/143/Shiny.fbx /importer:FbxImporter /processor:ModelProcessor /processorParam:ColorKeyColor=0,0,0,0 /processorParam:ColorKeyEnabled=True /processorParam:DefaultEffect=BasicEffect -/processorParam:GenerateMipmaps=False +/processorParam:GenerateMipmaps=True /processorParam:GenerateTangentFrames=False /processorParam:PremultiplyTextureAlpha=True /processorParam:PremultiplyVertexColors=True @@ -285,7 +285,31 @@ /processorParam:Scale=1 /processorParam:SwapWindingOrder=False /processorParam:TextureFormat=Color -/build:Models/Pokemon/Snorlax/Shiny.fbx +/build:Models/Pokemon/143/Shiny.fbx + +#begin Models/Pokemon/143/Snorlax_Normal.png +/importer:TextureImporter +/processor:TextureProcessor +/processorParam:ColorKeyColor=255,0,255,255 +/processorParam:ColorKeyEnabled=True +/processorParam:GenerateMipmaps=False +/processorParam:PremultiplyAlpha=True +/processorParam:ResizeToPowerOfTwo=False +/processorParam:MakeSquare=False +/processorParam:TextureFormat=Color +/build:Models/Pokemon/143/Snorlax_Normal.png + +#begin Models/Pokemon/143/Snorlax_Shiny.png +/importer:TextureImporter +/processor:TextureProcessor +/processorParam:ColorKeyColor=255,0,255,255 +/processorParam:ColorKeyEnabled=True +/processorParam:GenerateMipmaps=False +/processorParam:PremultiplyAlpha=True +/processorParam:ResizeToPowerOfTwo=False +/processorParam:MakeSquare=False +/processorParam:TextureFormat=Color +/build:Models/Pokemon/143/Snorlax_Shiny.png #begin Models/SeaPlane/SeaPlane.fbx /importer:FbxImporter diff --git a/lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Normal.fbx b/lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Normal.fbx similarity index 100% rename from lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Normal.fbx rename to lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Normal.fbx diff --git a/lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Shiny.fbx b/lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Shiny.fbx similarity index 100% rename from lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Shiny.fbx rename to lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Shiny.fbx diff --git a/lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Snorlax_Normal.png b/lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Snorlax_Normal.png similarity index 100% rename from lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Snorlax_Normal.png rename to lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Snorlax_Normal.png diff --git a/lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Snorlax_Shiny.png b/lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Snorlax_Shiny.png similarity index 100% rename from lib/P3D.ContentPipeline/Content/Models/Pokemon/Snorlax/Snorlax_Shiny.png rename to lib/P3D.ContentPipeline/Content/Models/Pokemon/143/Snorlax_Shiny.png diff --git a/lib/P3D.ContentPipeline/P3D.ContentPipeline.csproj b/lib/P3D.ContentPipeline/P3D.ContentPipeline.csproj index 7c2f390e9..badab9c03 100644 --- a/lib/P3D.ContentPipeline/P3D.ContentPipeline.csproj +++ b/lib/P3D.ContentPipeline/P3D.ContentPipeline.csproj @@ -62,8 +62,8 @@ - - + + @@ -94,8 +94,8 @@ - - + +