Welcome to the Lounge

Namespace BaseCharacters

   Public MustInherit Class BaseMonster
      Inherits BaseDefence

      Private m_Name As String
      Private m_Level As Integer
      Private m_HP As Integer
      Private m_CurrentHP As Integer
      Private m_MP As Integer
      Private m_CurrentMP As Integer
      Private m_Strength As Integer
      Private m_CurrentStrength As Integer
      Private m_Defence As Integer
      Private m_CurrentDefence As Integer
      Private m_Magic As Integer
      Private m_CurrentMagic As Integer
      Private m_MagicDef As Integer
      Private m_CurrentMagicDef As Integer
      Private m_Speed As Integer
      Private m_CurrentSpeed As Integer
      Private m_Image As Bitmap

      Public Event Charging(ByVal sender As BaseCharacters.BaseMonster, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
      Public Event TurnStarted(ByVal sender As BaseCharacters.BaseMonster, ByVal e As System.EventArgs)
      Public Event TurnEnded(ByVal sender As BaseCharacters.BaseMonster, ByVal e As System.EventArgs)
      Public Event Killed(ByVal sender As BaseCharacters.BaseMonster, ByVal e As System.EventArgs)

      Private WithEvents m_Bgw As System.ComponentModel.BackgroundWorker

      Public Sub New()
         InitializeBgw()

         SetMonsterProperties()

         If Not TypeOf Me Is BaseHumanoid Then
            SetCurrentStatus()
         End If
      End Sub

      ''' <summary>
      ''' This sub must be used to set the properties Name, Level, HP, MP,
      ''' Strength, Defence, Magic, MagicDefence and Speed of the new Monster.
      ''' </summary>
      ''' <remarks></remarks>
      MustOverride Sub SetMonsterProperties()

      Public Sub SetCurrentStatus()
         Me.CurrentHP = Me.HP
         Me.CurrentMP = Me.MP
         Me.CurrentStrength = Me.Strength
         Me.CurrentDefense = Me.Defense
         Me.CurrentMagic = Me.Magic
         Me.CurrentMagicDef = Me.MagicDef
         Me.CurrentSpeed = Me.Speed

         m_Bgw.RunWorkerAsync()
      End Sub

      Public Sub Me_TurnEnded(ByVal sender As BaseCharacters.BaseMonster, ByVal e As System.EventArgs) Handles Me.TurnEnded
         m_Bgw.RunWorkerAsync()
      End Sub

      ' A lot of properties for the m_Fields after this point...

Public MustInherit Class BaseDefence

#Region "Magic Defense"
    Private m_AstralDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_DarkDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_EarthDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_FireDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_GravityDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_HealingDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.FullAbsorb
   Private m_HolyDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_IceDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_LightningDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_PoisonDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_WaterDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal
   Private m_WindDef As DefenceDefinition.DefenceEnum = DefenceDefinition.DefenceEnum.Normal

   Public Property AstralDef() As DefenceDefinition.DefenceEnum
      Get
         Return m_AstralDef
      End Get
      Set(ByVal value As DefenceDefinition.DefenceEnum)
         m_AstralDef = value
      End Set
   End Property

   ' Etc.

Namespace BaseCharacters

   Public MustInherit Class BaseHumanoid
      Inherits BaseMonster

      Private m_OffHand As IOffHand
      Private m_MainHand As BaseWeapon
      Private m_Magic As New List(Of BaseSpell)

      Public Sub New()
         MyBase.New()

         SetHumanProperties()
         SetCurrentStatus()
      End Sub

      Overrides Sub SetMonsterProperties()
         ' Does nothing.
         ' This sub is replaced with SetHumanProperties. 
      End Sub

      ''' <summary>
      ''' This sub must be used to set the properties Name, Level, HP, MP,
      ''' Strength, Defence, Magic, MagicDefence, Speed, MainHand and OffHand of the new Humanoid.
      ''' </summary>
      ''' <remarks></remarks>
      MustOverride Sub SetHumanProperties()

      Public ReadOnly Property GetMagic() As List(Of BaseSpell)
         Get
            Return m_Magic
         End Get
      End Property

      ' Etc...

Public Class Hero
   Inherits BaseCharacters.BaseHumanoid

   Public Sub New(ByVal name As String)
      MyBase.New()

      Me.Name = name
      'SetStatus()
   End Sub

   Public Overrides Sub SetHumanProperties()
      Me.Level = 10
      Me.Strength = 10
      Me.HP = 100
      Me.MP = 10
      Me.Defense = 10
      Me.Magic = 10
      Me.MagicDef = 10
      Me.Speed = 4
      Me.Image = My.Resources.super_hero
      Me.MainHand = New HealingStaff

      Me.AddMagic = New IceWhisper
      'Me.AddMagic = New FireBreath
   End Sub

End Class

Public Class Imp
   Inherits BaseCharacters.BaseMonster

   Public Sub New()
      MyBase.New()
   End Sub

   Public Overrides Sub SetMonsterProperties()
      Me.Name = "Imp"
      Me.Level = 3
      Me.Strength = 6
      Me.Defense = 3
      Me.HP = 50
      Me.MP = 5
      Me.Speed = 3
      Me.Image = My.Resources.images
   End Sub

End Class

Public Class Forest
   Implements ILandscape

   Public Function GetMonster() As BaseCharacters.BaseMonster Implements ILandscape.GetMonster
      Dim random As New Random
      Dim i As Integer = random.Next(0, 2)

      Select Case i
         Case 0
            Return New Imp

         Case 1
            Return New Harpy

         Case Else
            Return New Imp

      End Select
   End Function

   Public ReadOnly Property BackGround() As System.Drawing.Bitmap Implements ILandscape.BackGround
      Get
         Return My.Resources.forest_wallpaper987
      End Get
   End Property
End Class