'''
''' Represents the Element of a Pokémon or move type.
'''
Public Class Element
Public IsGameModeElement As Boolean = False
'''
''' The Type an Element can be.
'''
Public Enum Types
Normal
Fighting
Flying
Poison
Ground
Rock
Bug
Ghost
Steel
Fire
Water
Grass
Electric
Psychic
Ice
Dragon
Dark
Fairy
Shadow
Blank
End Enum
Private _type As Types = Types.Blank
'GameMode Element Properties
Private gmType As Integer = 0
Public gmOriginalName As String = "Normal"
Public gmTypeRectangle As Rectangle = New Rectangle(0, 0, 48, 16)
Public gmMachineTextureSource As String = "Items\ItemSheet"
Public gmMachineTextureRectangle As Rectangle = New Rectangle(144, 168, 24, 24)
Public gmEffectivenessAttack As New Dictionary(Of Integer, Single)
Public gmEffectivenessDefense As New Dictionary(Of Integer, Single)
'''
''' The Type of this Element.
'''
Public Property Type As Integer
Get
If Me.IsGameModeElement = True Then
Return Me.gmType
Else
Return Me._type
End If
End Get
Set(value As Integer)
If Me.IsGameModeElement = True Then
Me.gmType = value
Else
Me._type = CType(value, Types)
End If
End Set
End Property
'''
''' Creates a new instance of the Element class for GameMode Elements.
'''
'''
Public Sub New()
End Sub
'''
''' Creates a new instance of the Element class.
'''
''' The ID of the type.
Public Sub New(ByVal TypeID As Integer)
Select Case TypeID
Case 0
Me._type = Types.Normal
Case 1
Me._type = Types.Fighting
Case 2
Me._type = Types.Flying
Case 3
Me._type = Types.Poison
Case 4
Me._type = Types.Ground
Case 5
Me._type = Types.Rock
Case 6
Me._type = Types.Bug
Case 7
Me._type = Types.Ghost
Case 8
Me._type = Types.Steel
Case 9
Me._type = Types.Fire
Case 10
Me._type = Types.Water
Case 11
Me._type = Types.Grass
Case 12
Me._type = Types.Electric
Case 13
Me._type = Types.Psychic
Case 14
Me._type = Types.Ice
Case 15
Me._type = Types.Dragon
Case 16
Me._type = Types.Dark
Case 17
Me._type = Types.Blank
Case 18
Me._type = Types.Fairy
End Select
End Sub
'''
''' Creates a new instance of the Element class.
'''
''' The Type as string.
Public Sub New(ByVal Type As String)
Select Case Type.ToLower()
Case "normal"
Me._type = Types.Normal
Case "fighting"
Me._type = Types.Fighting
Case "flying"
Me._type = Types.Flying
Case "poison"
Me._type = Types.Poison
Case "ground"
Me._type = Types.Ground
Case "rock"
Me._type = Types.Rock
Case "bug"
Me._type = Types.Bug
Case "ghost"
Me._type = Types.Ghost
Case "steel"
Me._type = Types.Steel
Case "fire"
Me._type = Types.Fire
Case "water"
Me._type = Types.Water
Case "grass"
Me._type = Types.Grass
Case "electric"
Me._type = Types.Electric
Case "psychic"
Me._type = Types.Psychic
Case "ice"
Me._type = Types.Ice
Case "dragon"
Me._type = Types.Dragon
Case "dark"
Me._type = Types.Dark
Case "fairy"
Me._type = Types.Fairy
Case "shadow"
Me._type = Types.Shadow
Case "blank"
Me._type = Types.Blank
Case Else
Me._type = Types.Blank
End Select
End Sub
'''
''' Creates a new instance of the Element class.
'''
''' The Type to set this Element to.
Public Sub New(ByVal Type As Types)
Me._type = Type
End Sub
'''
''' Returns a multiplier which represents the connection between an attacking and a defending element.
'''
''' The attacking element.
''' The defending element.
Public Shared Function GetElementMultiplier(ByVal AttackElement As Element, ByVal DefenseElement As Element) As Single
Dim a As Element = AttackElement
Dim d As Element = DefenseElement
If d Is Nothing Or a Is Nothing Then
Return 1
End If
If d.Type = Types.Blank Or a.Type = Types.Blank Then
Return 1
End If
If a.IsGameModeElement = False Then
If d.IsGameModeElement = False Then
Select Case a.Type
Case Types.Normal
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 1
Case Types.Rock
Return 0.5F
Case Types.Bug
Return 1
Case Types.Ghost
Return 0
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 1
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Fighting
Select Case d.Type
Case Types.Normal
Return 2
Case Types.Fighting
Return 1
Case Types.Flying
Return 0.5F
Case Types.Poison
Return 0.5F
Case Types.Ground
Return 1
Case Types.Rock
Return 2
Case Types.Bug
Return 0.5F
Case Types.Ghost
Return 0
Case Types.Steel
Return 2
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 1
Case Types.Electric
Return 1
Case Types.Psychic
Return 0.5F
Case Types.Ice
Return 2
Case Types.Dragon
Return 1
Case Types.Dark
Return 2
Case Types.Fairy
Return 0.5F
Case Else
Return 1
End Select
Case Types.Flying
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 2
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 1
Case Types.Rock
Return 0.5F
Case Types.Bug
Return 2
Case Types.Ghost
Return 1
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 2
Case Types.Electric
Return 0.5F
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Poison
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 1
Case Types.Poison
Return 0.5F
Case Types.Ground
Return 0.5F
Case Types.Rock
Return 0.5F
Case Types.Bug
Return 1
Case Types.Ghost
Return 0.5F
Case Types.Steel
Return 0
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 2
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 1
Case Types.Fairy
Return 2
Case Else
Return 1
End Select
Case Types.Ground
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 0
Case Types.Poison
Return 2
Case Types.Ground
Return 1
Case Types.Rock
Return 2
Case Types.Bug
Return 0.5F
Case Types.Ghost
Return 1
Case Types.Steel
Return 2
Case Types.Fire
Return 2
Case Types.Water
Return 1
Case Types.Grass
Return 0.5F
Case Types.Electric
Return 2
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Rock
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 0.5F
Case Types.Flying
Return 2
Case Types.Poison
Return 1
Case Types.Ground
Return 0.5F
Case Types.Rock
Return 1
Case Types.Bug
Return 2
Case Types.Ghost
Return 1
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 2
Case Types.Water
Return 1
Case Types.Grass
Return 1
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 2
Case Types.Dragon
Return 1
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Bug
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 0.5F
Case Types.Flying
Return 0.5F
Case Types.Poison
Return 0.5F
Case Types.Ground
Return 1
Case Types.Rock
Return 1
Case Types.Bug
Return 1
Case Types.Ghost
Return 0.5F
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 0.5F
Case Types.Water
Return 1
Case Types.Grass
Return 2
Case Types.Electric
Return 1
Case Types.Psychic
Return 2
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 2
Case Types.Fairy
Return 0.5F
Case Else
Return 1
End Select
Case Types.Ghost
Select Case d.Type
Case Types.Normal
Return 0
Case Types.Fighting
Return 1
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 1
Case Types.Rock
Return 1
Case Types.Bug
Return 1
Case Types.Ghost
Return 2
Case Types.Steel
Return 1
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 1
Case Types.Electric
Return 1
Case Types.Psychic
Return 2
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 0.5F
Case Else
Return 1
End Select
Case Types.Steel
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 1
Case Types.Rock
Return 2
Case Types.Bug
Return 1
Case Types.Ghost
Return 1
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 0.5F
Case Types.Water
Return 0.5F
Case Types.Grass
Return 1
Case Types.Electric
Return 0.5F
Case Types.Psychic
Return 1
Case Types.Ice
Return 2
Case Types.Dragon
Return 1
Case Types.Dark
Return 1
Case Types.Fairy
Return 2
Case Else
Return 1
End Select
Case Types.Fire
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 1
Case Types.Rock
Return 0.5F
Case Types.Bug
Return 2
Case Types.Ghost
Return 1
Case Types.Steel
Return 2
Case Types.Fire
Return 0.5F
Case Types.Water
Return 0.5F
Case Types.Grass
Return 2
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 2
Case Types.Dragon
Return 0.5F
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Water
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 2
Case Types.Rock
Return 2
Case Types.Bug
Return 1
Case Types.Ghost
Return 1
Case Types.Steel
Return 1
Case Types.Fire
Return 2
Case Types.Water
Return 0.5F
Case Types.Grass
Return 0.5F
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 0.5F
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Grass
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 0.5F
Case Types.Poison
Return 0.5F
Case Types.Ground
Return 2
Case Types.Rock
Return 2
Case Types.Bug
Return 0.5F
Case Types.Ghost
Return 1
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 0.5F
Case Types.Water
Return 2
Case Types.Grass
Return 0.5F
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 0.5F
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Electric
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 2
Case Types.Poison
Return 1
Case Types.Ground
Return 0
Case Types.Rock
Return 1
Case Types.Bug
Return 1
Case Types.Ghost
Return 1
Case Types.Steel
Return 1
Case Types.Fire
Return 1
Case Types.Water
Return 2
Case Types.Grass
Return 0.5F
Case Types.Electric
Return 0.5F
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 0.5F
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Psychic
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 2
Case Types.Flying
Return 1
Case Types.Poison
Return 2
Case Types.Ground
Return 1
Case Types.Rock
Return 1
Case Types.Bug
Return 1
Case Types.Ghost
Return 1
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 1
Case Types.Electric
Return 1
Case Types.Psychic
Return 0.5F
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 0
Case Else
Return 1
End Select
Case Types.Ice
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 2
Case Types.Poison
Return 1
Case Types.Ground
Return 2
Case Types.Rock
Return 1
Case Types.Bug
Return 1
Case Types.Ghost
Return 1
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 0.5F
Case Types.Water
Return 0.5F
Case Types.Grass
Return 2
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 0.5F
Case Types.Dragon
Return 2
Case Types.Dark
Return 1
Case Else
Return 1
End Select
Case Types.Dragon
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 1
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 1
Case Types.Rock
Return 1
Case Types.Bug
Return 1
Case Types.Ghost
Return 1
Case Types.Steel
Return 0.5F
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 1
Case Types.Electric
Return 1
Case Types.Psychic
Return 1
Case Types.Ice
Return 1
Case Types.Dragon
Return 2
Case Types.Dark
Return 1
Case Types.Fairy
Return 0
Case Else
Return 1
End Select
Case Types.Dark
Select Case d.Type
Case Types.Normal
Return 1
Case Types.Fighting
Return 0.5F
Case Types.Flying
Return 1
Case Types.Poison
Return 1
Case Types.Ground
Return 1
Case Types.Rock
Return 1
Case Types.Bug
Return 1
Case Types.Ghost
Return 2
Case Types.Steel
Return 1
Case Types.Fire
Return 1
Case Types.Water
Return 1
Case Types.Grass
Return 1
Case Types.Electric
Return 1
Case Types.Psychic
Return 2
Case Types.Ice
Return 1
Case Types.Dragon
Return 1
Case Types.Dark
Return 0.5F
Case Types.Fairy
Return 0.5F
Case Else
Return 1
End Select
Case Types.Fairy
Select Case d.Type
Case Types.Fire
Return 0.5F
Case Types.Fighting
Return 2.0F
Case Types.Poison
Return 0.5F
Case Types.Dragon
Return 2.0F
Case Types.Dark
Return 2.0F
Case Types.Steel
Return 0.5F
End Select
Case Types.Shadow
Select Case d.Type
Case Types.Shadow
Return 0.5F
Case Else
Return 2
End Select
Case Else
Return 1
End Select
Else
If d.gmEffectivenessDefense.ContainsKey(a.Type) Then
Return d.gmEffectivenessDefense(a.Type)
End If
End If
Else
If a.gmEffectivenessDefense.ContainsKey(d.Type) Then
Return a.gmEffectivenessDefense(d.Type)
End If
End If
Return 1
End Function
'''
''' Returns the rectangle from the texture "GUI\Menus\Types" that represents the Type of this Element.
'''
Public Function GetElementImage() As Rectangle
Dim r As New Rectangle(0, 0, 0, 0)
If Me.IsGameModeElement = False Then
Select Case Me._type
Case Types.Normal
r = New Rectangle(0, 0, 48, 16)
Case Types.Grass
r = New Rectangle(0, 16, 48, 16)
Case Types.Fire
r = New Rectangle(0, 32, 48, 16)
Case Types.Water
r = New Rectangle(0, 48, 48, 16)
Case Types.Electric
r = New Rectangle(0, 64, 48, 16)
Case Types.Ground
r = New Rectangle(0, 80, 48, 16)
Case Types.Rock
r = New Rectangle(0, 96, 48, 16)
Case Types.Ice
r = New Rectangle(0, 112, 48, 16)
Case Types.Steel
r = New Rectangle(0, 128, 48, 16)
Case Types.Bug
r = New Rectangle(48, 0, 48, 16)
Case Types.Fighting
r = New Rectangle(48, 16, 48, 16)
Case Types.Flying
r = New Rectangle(48, 32, 48, 16)
Case Types.Poison
r = New Rectangle(48, 48, 48, 16)
Case Types.Ghost
r = New Rectangle(48, 64, 48, 16)
Case Types.Dark
r = New Rectangle(48, 80, 48, 16)
Case Types.Psychic
r = New Rectangle(48, 96, 48, 16)
Case Types.Dragon
r = New Rectangle(48, 128, 48, 16)
Case Types.Fairy
r = New Rectangle(96, 48, 48, 16)
Case Types.Shadow
r = New Rectangle(96, 64, 48, 16)
Case Types.Blank
r = New Rectangle(48, 112, 48, 16)
Case Else
r = New Rectangle(48, 112, 48, 16)
End Select
Else
r = gmTypeRectangle
End If
Return r
End Function
Public Overrides Function ToString() As String
If IsGameModeElement = False Then
Select Case Me._type
Case Types.Blank
Return "Blank"
Case Types.Bug
Return "Bug"
Case Types.Dark
Return "Dark"
Case Types.Dragon
Return "Dragon"
Case Types.Electric
Return "Electric"
Case Types.Fairy
Return "Fairy"
Case Types.Fighting
Return "Fighting"
Case Types.Fire
Return "Fire"
Case Types.Flying
Return "Flying"
Case Types.Ghost
Return "Ghost"
Case Types.Grass
Return "Grass"
Case Types.Ground
Return "Ground"
Case Types.Ice
Return "Ice"
Case Types.Normal
Return "Normal"
Case Types.Poison
Return "Poison"
Case Types.Psychic
Return "Psychic"
Case Types.Rock
Return "Rock"
Case Types.Shadow
Return "Shadow"
Case Types.Steel
Return "Steel"
Case Types.Water
Return "Water"
Case Else
Return "Blank"
End Select
Else
If Localization.TokenExists("type_" & gmOriginalName) = True Then
Return Localization.GetString("type_" & gmOriginalName, gmOriginalName)
Else
Return gmOriginalName
End If
End If
End Function
Public Shared Operator =(ByVal Element1 As Element, ByVal Element2 As Element) As Boolean
Return Element1.Type = Element2.Type
End Operator
Public Shared Operator <>(ByVal Element1 As Element, ByVal Element2 As Element) As Boolean
Return Element1.Type <> Element2.Type
End Operator
End Class