Module Enemy

    Private enemyName(7) As String
    Private enemyImage(7) As Bitmap
    Private enemyImageName(7) As String
    Private eName As String
    Private eImage As Bitmap
    Private imgName As String

    Private eneImage As New Hashtable()

    Private dmg As Integer = 0
    Private arm As Integer = 0
    Private agi As Integer = 0
    Private int As Integer = 0
    Private str As Integer = 0
    Private health As Integer = 75

    Private orc As String

    Dim n1 As Integer
    Dim n2 As Integer
    Dim n3 As Integer
    Dim n4 As Integer

    Sub Main()
        eneImage.Add("orc", My.Resources.orc)
        eneImage.Add("troll", My.Resources.troll)
        eneImage.Add("salamander", My.Resources.salamander)
        eneImage.Add("cavetroll", My.Resources.cavetroll)
        eneImage.Add("dragon", My.Resources.dragon)
        eneImage.Add("vampire", My.Resources.vampire)
        eneImage.Add("werewolf", My.Resources.werewolf)
    End Sub

    Private Sub InitMonsters()
        enemyName(0) = "Orc"
        enemyName(1) = "Troll"
        enemyName(2) = "Salamander"
        enemyName(3) = "Cave Troll"
        enemyName(4) = "Dragon"
        enemyName(5) = "Vampire"
        enemyName(6) = "Werewolf"
    End Sub

    Private Sub initMonsterImages()
        'enemyImage(0) = My.Resources.orc
        'enemyImage(1) = My.Resources.troll
        'enemyImage(2) = My.Resources.salamander
        'enemyImage(3) = My.Resources.cavetroll
        'enemyImage(4) = My.Resources.dragon
        'enemyImage(5) = My.Resources.vampire
        'enemyImage(6) = My.Resources.werewolf
    End Sub

    Public Function getEnemyName() As String
        InitMonsters()
        n1 = LBound(enemyName)
        n2 = UBound(enemyName)

        For i As Integer = n1 To n2
            If i = GetRandom(n1, n2) And Not String.IsNullOrEmpty(enemyName(i)) Then
                eName = enemyName(i)
            End If
        Next i
        Return eName
    End Function

    Public Function getEnemyImage() As Bitmap
        'Dim runTimeResourceSet As Object
        'Dim dictEntry As DictionaryEntry
        n1 = LBound(enemyImage)
        n2 = UBound(enemyImage)
        n3 = LBound(enemyImageName)
        n4 = UBound(enemyImageName)

        'runTimeResourceSet = My.Resources.ResourceManager.GetResourceSet(System.Globalization.CultureInfo.CurrentCulture, False, True)
        'For Each dictEntry In runTimeResourceSet
        'For i As Integer = n3 To n4
        'If (dictEntry.Value.GetType() Is GetType(Bitmap)) Then
        'enemyImageName(LBound(enemyImageName)) = dictEntry.Key.ToString
        'End If
        'Next
        'Next

        For Each de As DictionaryEntry In eneImage
            MsgBox("Key = {0}, Value = {1}", de.Key, de.Value)
        Next de

        For i As Integer = n1 To n2
            If i = GetRandom(n1, n2) Then
                eImage = enemyImage(i)
            End If
        Next i
        Return eImage
    End Function

    Public Function getEnemyHealth()
        Return health
    End Function

    Public Function getEnemyDamage()
        Return dmg
    End Function

    Public Function getEnemyArmor()
        Return arm
    End Function

    Public Function getEnemyAgility()
        Return agi
    End Function

    Public Function getEnemyIntelligence()
        Return int
    End Function

    Public Function getEnemyStrength()
        Return str
    End Function

    Public Function GetRandom(ByVal min As Integer, ByVal max As Integer)
        Dim Generator As System.Random = New System.Random
        Return Generator.Next(min, max)
    End Function
End Module
--------------------------------------------------------------------------------
Public Class Form3

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btNormalAttack.Click

    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btSpell3.Click

    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btSpell2.Click

    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btSpell1.Click

    End Sub

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lbPlayerName.Text = getPlayerName()
        lbPlayerHealth.Text = getPlayerHealth()

        lbEnemyName.Text = getEnemyName()
        lbEnemyHealth.Text = getEnemyHealth()

	// Requesting enemy Image and sets it to the PictureBox 'pbEnemyPic'
        pbEnemyPic.Image = getEnemyImage()
        pbPlayerPic.Image = getPlayerImage()
    End Sub
End Class