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

Changed mail items

This commit is contained in:
nilllzz 2016-09-20 06:18:09 +02:00
parent a025a626f9
commit 3d44fdf9db
38 changed files with 117 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/AirMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of colorful letter sets. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Air Mail", 50, 313, New Rectangle(288, 456, 24, 24), "Stationery featuring a print of colorful letter sets. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(288, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BeadMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Mail featuring a sketch of the holding Pokémon."
Public Sub New()
MyBase.New("Bead Mail", 50, 301, New Rectangle(0, 456, 24, 24), "Mail featuring a sketch of the holding Pokémon.")
_textureRectangle = New Rectangle(0, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BloomMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of pretty floral patterns. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Bloom Mail", 50, 314, New Rectangle(312, 456, 24, 24), "Stationery featuring a print of pretty floral patterns. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(312, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BrickMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a tough-looking brick pattern. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Brick Mail", 50, 315, New Rectangle(336, 456, 24, 24), "Stationery featuring a print of a tough-looking brick pattern. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(336, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BridgeMailD.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a red drawbridge. Let a Pokémon hold it for use."
Public Sub New()
MyBase.New("BridgeMail D", 50, 325, New Rectangle(96, 480, 24, 24), "Stationery featuring a print of a red drawbridge. Let a Pokémon hold it for use.")
_textureRectangle = New Rectangle(96, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BridgeMailM.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of an arched bridge. Let a Pokémon hold it for use."
Public Sub New()
MyBase.New("BridgeMail M", 50, 328, New Rectangle(168, 480, 24, 24), "Stationery featuring a print of an arched bridge. Let a Pokémon hold it for use.")
_textureRectangle = New Rectangle(168, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BridgeMailS.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a sky-piercing bridge. Let a Pokémon hold it for use."
Public Sub New()
MyBase.New("BridgeMail S", 50, 326, New Rectangle(120, 480, 24, 24), "Stationery featuring a print of a sky-piercing bridge. Let a Pokémon hold it for use.")
_textureRectangle = New Rectangle(120, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BridgeMailT.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a steel suspension bridge. Let a Pokémon hold it for use."
Public Sub New()
MyBase.New("BridgeMail T", 50, 324, New Rectangle(72, 480, 24, 24), "Stationery featuring a print of a steel suspension bridge. Let a Pokémon hold it for use.")
_textureRectangle = New Rectangle(72, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BridgeMailV.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a brick bridge. Let a Pokémon hold it for use."
Public Sub New()
MyBase.New("BridgeMail V", 50, 327, New Rectangle(144, 480, 24, 24), "Stationery featuring a print of a brick bridge. Let a Pokémon hold it for use.")
_textureRectangle = New Rectangle(144, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/BubbleMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a blue world underwater. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Bubble Mail", 50, 316, New Rectangle(360, 456, 24, 24), "Stationery featuring a print of a blue world underwater. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(360, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/DreamMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Mail featuring a sketch of the holding Pokémon."
Public Sub New()
MyBase.New("Dream Mail", 50, 302, New Rectangle(24, 456, 24, 24), "Mail featuring a sketch of the holding Pokémon.")
_textureRectangle = New Rectangle(24, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/FabMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A gorgeous-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Fab Mail", 50, 303, New Rectangle(48, 456, 24, 24), "A gorgeous-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(48, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/FavoredMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationary designed for writing about your favorite things. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Favored Mail", 50, 329, New Rectangle(192, 480, 24, 24), "Stationary designed for writing about your favorite things. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(192, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/FlameMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of flames in blazing red. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Flame Mail", 50, 317, New Rectangle(384, 456, 24, 24), "Stationery featuring a print of flames in blazing red. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(384, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/GlitterMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Pikachu-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Glitter Mail", 50, 304, New Rectangle(72, 456, 24, 24), "A Pikachu-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(72, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/GrassMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Grass Mail", 50, 300, New Rectangle(408, 456, 24, 24), "Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(408, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/GreetMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationary designed for introductory greetings. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Greet Mail", 50, 332, New Rectangle(264, 480, 24, 24), "Stationary designed for introductory greetings. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(264, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/HarborMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Wingull-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Harbor Mail", 50, 305, New Rectangle(96, 456, 24, 24), "A Wingull-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(96, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/HeartMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of giant heart patterns. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Heart Mail", 50, 318, New Rectangle(432, 456, 24, 24), "Stationery featuring a print of giant heart patterns. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(432, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/InquiryMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationary designed for writing questions. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Inquiry Mail", 50, 331, New Rectangle(240, 480, 24, 24), "Stationary designed for writing questions. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(240, 480, 24, 24)
End Sub
End Class

14
2.5DHero/2.5DHero/Pokemon/Items/Mail/KolbenMail.vb
View File

@ -5,13 +5,15 @@ Namespace Items.Mail
Inherits MailItem
Public Sub New()
MyBase.New("Kolben Mail", 2674, 336, New Rectangle(360, 480, 24, 24), "Stationery featuring a print of the Kolben Logo. It is given to Pokémon with a special meaning.")
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of the Kolben Logo. It is given to Pokémon with a special meaning."
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeTraded As Boolean = False
Public Overrides ReadOnly Property CanBeHold As Boolean = False
Public Overrides ReadOnly Property CanBeTossed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = False
Me._canBeHold = False
Public Sub New()
_textureRectangle = New Rectangle(360, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/LikeMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationary designed for writing recommendations. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Like Mail", 50, 334, New Rectangle(312, 480, 24, 24), "Stationary designed for writing recommendations. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(312, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/MechMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Magnemite-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Mech Mail", 50, 306, New Rectangle(120, 456, 24, 24), "A Magnemite-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(120, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/MosaicMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a vivid rainbow pattern. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Mosaic Mail", 50, 319, New Rectangle(456, 456, 24, 24), "Stationery featuring a print of a vivid rainbow pattern. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(456, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/OrangeMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Zigzagoon-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Orange Mail", 50, 307, New Rectangle(144, 456, 24, 24), "A Zigzagoon-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(144, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/RSVPMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationary designed for invitations. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("RSVP Mail", 50, 333, New Rectangle(288, 480, 24, 24), "Stationary designed for invitations. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(288, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/ReplyMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationary designed for writing a reply. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Reply Mail", 50, 335, New Rectangle(336, 480, 24, 24), "Stationary designed for writing a reply. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(336, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/RetroMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Mail featuring the drawings of three Pokémon."
Public Sub New()
MyBase.New("Retro Mail", 50, 308, New Rectangle(168, 456, 24, 24), "Mail featuring the drawings of three Pokémon.")
_textureRectangle = New Rectangle(168, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/ShadowMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Duskull-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Shadow Mail", 50, 309, New Rectangle(192, 456, 24, 24), "A Duskull-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(192, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/SnowMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a chilly, snow-covered world. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Snow Mail", 50, 320, New Rectangle(480, 456, 24, 24), "Stationery featuring a print of a chilly, snow-covered world. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(480, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/SpaceMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print depicting the huge expanse of space. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Space Mail", 50, 321, New Rectangle(0, 480, 24, 24), "Stationery featuring a print depicting the huge expanse of space. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(0, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/SteelMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of cool mechanical designs. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Steel Mail", 50, 322, New Rectangle(24, 480, 24, 24), "Stationery featuring a print of cool mechanical designs. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(24, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/ThanksMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationary designed for a thank-you note. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Thanks Mail", 50, 330, New Rectangle(216, 480, 24, 24), "Stationary designed for a thank-you note. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(216, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/TropicMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Bellossom-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Tropic Mail", 50, 310, New Rectangle(216, 456, 24, 24), "A Bellossom-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(216, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/TunnelMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "Stationery featuring a print of a dimly lit coal mine. Let a Pokémon hold it for delivery."
Public Sub New()
MyBase.New("Tunnel Mail", 50, 323, New Rectangle(48, 480, 24, 24), "Stationery featuring a print of a dimly lit coal mine. Let a Pokémon hold it for delivery.")
_textureRectangle = New Rectangle(48, 480, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/WaveMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Wailmer-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Wave Mail", 50, 311, New Rectangle(240, 456, 24, 24), "A Wailmer-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(240, 456, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Mail/WoodMail.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Mail
Inherits MailItem
Public Overrides ReadOnly Property Description As String = "A Slakoth-print Mail to be held by a Pokémon."
Public Sub New()
MyBase.New("Wood Mail", 50, 312, New Rectangle(264, 456, 24, 24), "A Slakoth-print Mail to be held by a Pokémon.")
_textureRectangle = New Rectangle(264, 456, 24, 24)
End Sub
End Class

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

@ -20,6 +20,7 @@ Namespace Items
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Mail
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 50
Public Shared Function GetMailDataFromString(ByVal s As String) As MailData
If s.Contains("|") = True Then