1033 lines
40 KiB
VB.net
1033 lines
40 KiB
VB.net
''' <summary>
|
|
''' Represents the Element of a Pokémon or move type.
|
|
''' </summary>
|
|
Public Class Element
|
|
|
|
Public IsGameModeElement As Boolean = False
|
|
|
|
''' <summary>
|
|
''' The Type an Element can be.
|
|
''' </summary>
|
|
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)
|
|
|
|
''' <summary>
|
|
''' The Type of this Element.
|
|
''' </summary>
|
|
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
|
|
''' <summary>
|
|
''' Creates a new instance of the Element class for GameMode Elements.
|
|
''' </summary>
|
|
'''
|
|
Public Sub New()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Creates a new instance of the Element class.
|
|
''' </summary>
|
|
''' <param name="TypeID">The ID of the type.</param>
|
|
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
|
|
|
|
''' <summary>
|
|
''' Creates a new instance of the Element class.
|
|
''' </summary>
|
|
''' <param name="Type">The Type as string.</param>
|
|
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
|
|
|
|
''' <summary>
|
|
''' Creates a new instance of the Element class.
|
|
''' </summary>
|
|
''' <param name="Type">The Type to set this Element to.</param>
|
|
Public Sub New(ByVal Type As Types)
|
|
Me._type = Type
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Returns a multiplier which represents the connection between an attacking and a defending element.
|
|
''' </summary>
|
|
''' <param name="AttackElement">The attacking element.</param>
|
|
''' <param name="DefenseElement">The defending element.</param>
|
|
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
|
|
|
|
''' <summary>
|
|
''' Returns the rectangle from the texture "GUI\Menus\Types" that represents the Type of this Element.
|
|
''' </summary>
|
|
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
|