• Home
 · 
• Games
 · 
• This is a complete code for a monopoly game that I've made myself...The game itself is very very go

This is a complete code for a monopoly game that I've made myself...The game itself is very very go

This is a complete code for a monopoly game that I've made myself...The game itself is very very good-looking, but I don't have a website to

API Declarations



' Array used to hold names of players
Public PNAME(1 To 4) As String
' Array used to hold colors of players
Public PCOLOR(1 To 4) As ColorConstants
' Integer used to tell which player this turn is for
Public P As Integer
' Array used to hold the old position of the player
Public TEMPPOS(1 To 4) As Integer
' Type used to define properties characteristics
' PNAME = property name
' PPRICE = price of property
' PRENT = rent of property
' HOUSECOST = cost of one house
' HOUSERENT = rent of one house
' CASTLECOST = cost of one castle
' CASTLERENT = rent of one castle
Type PROPERTY
PNAME As String
PPRICE As Currency
PRENT As Currency
HOUSECOST As Currency
HOUSERENT As Currency
CASTLECOST As Currency
CASTLERENT As Currency
End Type
' Array used to hold the characteristic of all properties
Public PROP(0 To 35) As PROPERTY
' Array used to tell which property is owned by each player
Public PROPCHECK(0 To 35) As Integer
' Array used to check when a castle is built
Public CASTLE(1 To 35) As Boolean
' Array used to hold gold amounts with each player
Public GOLD(1 To 4) As Long
' Speed of the animation of the game
Public SPEED As Long
' Integer used to hold the gold amount that will given to
' a player who passes GO
Public GOGOLD As Long
' Array used for the "Get Out Of Jail Card"
Public FREE(1 To 4) As Boolean
' Array used to check which player is currently in jail
Public JAIL(1 To 4) As Integer
' Integers used in for loops
Public i, d As Long
' Integer used to hold the timed games time in minutes
Public GAMETIME As Integer
' Integer used to hold the seconds
Public SECTIME As Integer
' Arrays used for the scores and names of scorers
Public SCORES(1 To 10) As Long, FNAME(1 To 10) As String
' Variables used for the bubbles sorting of scores
Public PASSSCORE, TEMP As Long
Public TEMP2 As String
' Integers used to check which houses are currently built
' depending on the color of property and number of properties
' in a group

Public BrownHouse(1 To 2) As Integer
Public YellowHouse(1 To 3) As Integer
Public OrangeHouse(1 To 3) As Integer
Public RedHouse(1 To 3) As Integer
Public WhiteHouse(1 To 3) As Integer
Public BlackHouse(1 To 3) As Integer
Public BlueHouse(1 To 3) As Integer
Public GreenHouse(1 To 2) As Integer

' Integers used to check if a player has a complete set of
' a colored group, to make him/her able to buy houses

Public BrownGroup As Integer
Public YellowGroup As Integer
Public OrangeGroup As Integer
Public RedGroup As Integer
Public WhiteGroup As Integer
Public BlackGroup As Integer
Public BlueGroup As Integer
Public GreenGroup As Integer




Rate This is a complete code for a monopoly game that I've made myself...The game itself is very very go

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'  DICE keeps adding DIE each time to be able
'  to know the positions of the players
Dim DIE(1 To 4), DICE(1 To 4) As Integer
'  Arrays used to hold CHANCE and CHEST cards
Dim CHANC(1 To 10) As String
Dim CHEST(1 To 10) As String
'  The integers used to display the text in the
'  cards that the players randomly received
Dim GOTCHANCE, GOTCHEST As String
'  Used to check how many players are playing
Dim TURN As Integer

Option Explicit

'  Chance cards procedure
Public Function CHANCE()
'  Each card defined with the text to be displayed
CHANC(1) = "Bank Pays You  $50"
CHANC(2) = "Advance to GO"
CHANC(3) = "Go Back 3 Spaces"
CHANC(4) = "Advance To Holland"
CHANC(5) = "Pay Poor Tax of $15"
CHANC(6) = "Pay bank $50 for each player"
CHANC(7) = "Advance To Egypt"
CHANC(8) = "Go To Gail!"
CHANC(9) = "Get Out Of Jail Card!"
CHANC(10) = "Collect $200"
'  Select a card randomly between 1 and 10

GOTCHANCE = CHANC(Int(Rnd * 10) + 1)

'  Do whatever is written on the card that the player got
'  For instance, if the player got the first card
'  Let the bank give the player 50 dollars

Select Case GOTCHANCE

   Case Is = CHANC(1)
   
     GOLD(P) = GOLD(P) + 50
     lblGold(P).Caption = GOLD(P)
     
   Case Is = CHANC(2)
   
     DICE(P) = 0
     imgplayer(P).Left = lblProp(DICE(P)).Left
     imgplayer(P).Top = lblProp(DICE(P)).Top
     
   Case Is = CHANC(3)
     
     DICE(P) = DICE(P) - 3
     TEMPPOS(P) = DICE(P)
     imgplayer(P).Left = lblProp(DICE(P)).Left
     imgplayer(P).Top = lblProp(DICE(P)).Top
     
   Case Is = CHANC(4)
    
     DICE(P) = 35
     TEMPPOS(P) = DICE(P)
     imgplayer(P).Left = lblProp(DICE(P)).Left
     imgplayer(P).Top = lblProp(DICE(P)).Top
     
   Case Is = CHANC(5)
   
     GOLD(P) = GOLD(P) - 15
     lblGold(P).Caption = GOLD(P)
     
   Case Is = CHANC(6)
   
     GOLD(P) = GOLD(P) - (50 * (TURN - 1))
     lblGold(P) = GOLD(P)
     
   Case Is = CHANC(7)
     
     DICE(P) = 7
     TEMPPOS(P) = DICE(P)
     imgplayer(P).Left = lblProp(DICE(P)).Left
     imgplayer(P).Top = lblProp(DICE(P)).Top
     
   Case Is = CHANC(8)
     
     DICE(P) = 9
     TEMPPOS(P) = DICE(P)
     imgplayer(P).Left = lblProp(DICE(P)).Left
     imgplayer(P).Top = lblProp(DICE(P)).Top
     MsgBox ("GO TO JAIL AND STAY FOR 3 TURNS")
     JAIL(P) = 1
     
   Case Is = CHANC(9)
     
     FREE(P) = True
     
   Case Is = CHANC(10)
    
     GOLD(P) = GOLD(P) + 200
     lblGold(P).Caption = GOLD(P)

End Select

'  Print the card on the sidebar so the players can see it

lblchance.Caption = lblchance.Caption & Chr(13) & GOTCHANCE

'  call the BankRupt procedure (described later)

Call BankRupt

End Function

'  code processed when the form is activated
Private Sub Form_Activate()
'  let Turn hold number of players
TURN = P
'  Depending on the number of players let the following happen:
'   1- Images of players appear
'   2- Gold labels of all players appear with the amount of gold
'   3- Properties list appear
'   4- Labels showing names of players appear
'   5- Position the images of players and allign it with the first block
'   6- Set Jail to 0 to make sure nobody goes there
'   7- Set the old position of players to 0
'   8- Set DICE to 0
For i = 1 To P
  imgplayer(i).Visible = True
  lblGold(i).Visible = True
  lstprop(i).Visible = True
  lblGold(i).Caption = GOLD(i)
  lblplayergold(i).Visible = True
  lblplayergold(i).Caption = PNAME(i)
  lblpropowner(i).Caption = PNAME(i) & " --->"
  imgplayer(i).Top = lblProp(0).Top
  imgplayer(i).Left = lblProp(0).Left
  JAIL(i) = 0
  TEMPPOS(i) = 0
  DICE(i) = 0
Next
'  Set the property checker to 0
For i = 0 To 35
   PROPCHECK(i) = 0
Next
'  Set castles to false because there are no castles built yet
For i = 1 To 35
   CASTLE(i) = False
Next

'  Set the time if the time option was selected
'  If not then disable the timers

If GAMETIME = Empty Then
   time.Enabled = False
   sectimer.Enabled = False
Else
   time.Enabled = True
   sectimer.Enabled = True
   SECTIME = 59
   lblmintime.Caption = Format(GAMETIME, "00")
   lblsectime.Caption = Format(SECTIME, "00")
End If

'  The first to play is player 1
P = 1
'  Display name of player 1
lblplayer.Caption = PNAME(1)

'  Set the counters of houses in each property
'  For instance, YELLOWHOUSE(2) would be set to 4
'  because the index of houses in the second yellow
'  property is highr than 4 (it starts with 5)
'  so the counter adds 1 and begins with building
'  that house with the index of 5

BrownHouse(1) = 0
BrownHouse(2) = 4

YellowHouse(1) = 0
YellowHouse(2) = 4
YellowHouse(3) = 8

OrangeHouse(1) = 0
OrangeHouse(2) = 4
OrangeHouse(3) = 8

RedHouse(1) = 0
RedHouse(2) = 4
RedHouse(3) = 8

WhiteHouse(1) = 0
WhiteHouse(2) = 4
WhiteHouse(3) = 8

BlackHouse(1) = 0
BlackHouse(2) = 4
BlackHouse(3) = 8

BlueHouse(1) = 0
BlueHouse(2) = 4
BlueHouse(3) = 8

GreenHouse(1) = 0
GreenHouse(2) = 4
End Sub


'  Code When form is loaded
Private Sub Form_Load()


'  properties characteristics are set by the index of each

'    -PNAME = NAME OF PROPERTY
'    -PPRICE = PRICE OF PROPERTY
'    -PRENT = HOW MUCH RENT IT COSTS (WITHOUT BUILDINGS)
'    -HOUSERENT = RENT OF ONE HOUSE
'    -HOUSECOST = COST OF BUILDING ONE HOUSE
'    -CASTLERENT = RENT OF A CASTLE
'    -CASTLECOST = COST OF BUILDING ONE CASTLE


'  Brown Group
PROP(1).PNAME = "Scotland"
PROP(1).PPRICE = 60
PROP(1).PRENT = 2
PROP(1).HOUSERENT = 40
PROP(1).HOUSECOST = 50
PROP(1).CASTLERENT = 100
PROP(1).CASTLECOST = 75

PROP(3).PNAME = "Ireland"
PROP(3).PPRICE = 60
PROP(3).PRENT = 5
PROP(3).HOUSERENT = 45
PROP(3).HOUSECOST = 55
PROP(3).CASTLERENT = 115
PROP(3).CASTLECOST = 80
'   Yellow Group

PROP(5).PNAME = "Persia"
PROP(5).PPRICE = 100
PROP(5).PRENT = 6
PROP(5).HOUSERENT = 80
PROP(5).HOUSECOST = 100
PROP(5).CASTLERENT = 150
PROP(5).CASTLECOST = 250

PROP(7).PNAME = "Egypt"
PROP(7).PPRICE = 100
PROP(7).PRENT = 6
PROP(7).HOUSERENT = 80
PROP(7).HOUSECOST = 100
PROP(7).CASTLERENT = 150
PROP(7).CASTLECOST = 250

PROP(8).PNAME = "Iraq"
PROP(8).PPRICE = 120
PROP(8).PRENT = 8
PROP(8).HOUSERENT = 85
PROP(8).HOUSECOST = 110
PROP(8).CASTLERENT = 160
PROP(8).CASTLECOST = 260

'   Orange Group

PROP(10).PNAME = "Italy"
PROP(10).PPRICE = 140
PROP(10).PRENT = 10
PROP(10).HOUSERENT = 100
PROP(10).HOUSECOST = 125
PROP(10).CASTLECOST = 300
PROP(10).CASTLERENT = 200

'   War Utility

PROP(11).PNAME = "War Utility"
PROP(11).PPRICE = 150
PROP(11).PRENT = 50

'   Orange Group

PROP(12).PNAME = "England"
PROP(12).PPRICE = 140
PROP(12).PRENT = 10
PROP(12).HOUSERENT = 100
PROP(12).HOUSECOST = 125
PROP(12).CASTLECOST = 300
PROP(12).CASTLERENT = 200

PROP(13).PNAME = "France"
PROP(13).PPRICE = 160
PROP(13).PRENT = 12
PROP(13).HOUSERENT = 120
PROP(13).HOUSECOST = 135
PROP(13).CASTLECOST = 320
PROP(13).CASTLERENT = 220

'   Red Group

PROP(14).PNAME = "China"
PROP(14).PPRICE = 180
PROP(14).PRENT = 15
PROP(14).HOUSERENT = 140
PROP(14).HOUSECOST = 150
PROP(14).CASTLECOST = 350
PROP(14).CASTLERENT = 250

PROP(16).PNAME = "Japan"
PROP(16).PPRICE = 180
PROP(16).PRENT = 15
PROP(16).HOUSERENT = 140
PROP(16).HOUSECOST = 150
PROP(16).CASTLECOST = 350
PROP(16).CASTLERENT = 250

PROP(17).PNAME = "Korea"
PROP(17).PPRICE = 200
PROP(17).PRENT = 18
PROP(17).HOUSERENT = 150
PROP(17).HOUSECOST = 160
PROP(17).CASTLECOST = 360
PROP(17).CASTLERENT = 260

'  White Group

PROP(19).PNAME = "Scandinavia"
PROP(19).PPRICE = 220
PROP(19).PRENT = 20
PROP(19).HOUSERENT = 170
PROP(19).HOUSECOST = 180
PROP(19).CASTLECOST = 400
PROP(19).CASTLERENT = 280

PROP(21).PNAME = "Germany"
PROP(21).PPRICE = 220
PROP(21).PRENT = 20
PROP(21).HOUSERENT = 170
PROP(21).HOUSECOST = 180
PROP(21).CASTLECOST = 400
PROP(21).CASTLERENT = 280

PROP(22).PNAME = "Spain"
PROP(22).PPRICE = 240
PROP(22).PRENT = 22
PROP(22).HOUSERENT = 180
PROP(22).HOUSECOST = 200
PROP(22).CASTLECOST = 420
PROP(22).CASTLERENT = 300

'  Black Group

PROP(23).PNAME = "Mongolia"
PROP(23).PPRICE = 260
PROP(23).PRENT = 25
PROP(23).HOUSERENT = 200
PROP(23).HOUSECOST = 220
PROP(23).CASTLECOST = 450
PROP(23).CASTLERENT = 350

'  MILL Utility

PROP(24).PNAME = "Mill Utility"
PROP(24).PPRICE = 150
PROP(24).PRENT = 25

'  Black Group

PROP(25).PNAME = "Vietnam"
PROP(25).PPRICE = 260
PROP(25).PRENT = 25
PROP(25).HOUSERENT = 200
PROP(25).HOUSECOST = 220
PROP(25).CASTLECOST = 450
PROP(25).CASTLERENT = 350

PROP(26).PNAME = "Russia"
PROP(26).PPRICE = 280
PROP(26).PRENT = 28
PROP(26).HOUSERENT = 220
PROP(26).HOUSECOST = 250
PROP(26).CASTLECOST = 480
PROP(26).CASTLERENT = 400

'  Blue Group

PROP(28).PNAME = "Poland"
PROP(28).PPRICE = 280
PROP(28).PRENT = 30
PROP(28).HOUSERENT = 250
PROP(28).HOUSECOST = 300
PROP(28).CASTLECOST = 500
PROP(28).CASTLERENT = 450

PROP(29).PNAME = "Switzerland"
PROP(29).PPRICE = 280
PROP(29).PRENT = 30
PROP(29).HOUSERENT = 250
PROP(29).HOUSECOST = 300
PROP(29).CASTLECOST = 500
PROP(29).CASTLERENT = 450


PROP(31).PNAME = "Great Rome"
PROP(31).PPRICE = 300
PROP(31).PRENT = 35
PROP(31).HOUSERENT = 300
PROP(31).HOUSECOST = 350
PROP(31).CASTLECOST = 600
PROP(31).CASTLERENT = 550

'  Green Group

PROP(32).PNAME = "Denmark"
PROP(32).PPRICE = 350
PROP(32).PRENT = 35
PROP(32).HOUSERENT = 400
PROP(32).HOUSECOST = 400
PROP(32).CASTLECOST = 700
PROP(32).CASTLERENT = 650

PROP(35).PNAME = "Holland"
PROP(35).PPRICE = 400
PROP(35).PRENT = 50
PROP(35).HOUSERENT = 500
PROP(35).HOUSECOST = 550
PROP(35).CASTLECOST = 700
PROP(35).CASTLERENT = 700

End Sub


'  The clear procedure
Public Function CLEAR()
'  Reset Chance and Chest Labels
lblchance.Caption = Space(8) & "CHANCE"
lblchest.Caption = Space(9) & "CHEST"
'  Reset the status bar
lblstatus.Caption = Empty
'  Reset CHANCE and CHEST holders
GOTCHANCE = Empty
GOTCHEST = Empty
End Function

'  Chest cards procedure
Public Function CCHEST()
'  Each card defined with the text to be displayed
CHEST(1) = "Income Tax Refund Collect $20"
CHEST(2) = "You Inherit $100"
CHEST(3) = "Collect $50 for Each player"
CHEST(4) = "Pay Hospital $100"
CHEST(5) = "You Get $45 From Stock"
CHEST(6) = "Pay School Tax Of $150"
CHEST(7) = "Get Out Of Jail Card!"
CHEST(8) = "Advance To Nearest Utility"
CHEST(9) = "Life Insurance, Collect $100"
CHEST(10) = "Advance To Go"

'  Select a card randomly between 1 and 10

GOTCHEST = CHEST(Int(Rnd * 10) + 1)

'  Do whatever is written on the card that the player got
'  For instance, if the player got the second card
'  Let the bank give the player 100 dollars

Select Case GOTCHEST
   Case Is = CHEST(1)
     
     GOLD(P) = GOLD(P) + 20
     lblGold(P).Caption = GOLD(P)
   
   Case Is = CHEST(2)
         
     GOLD(P) = GOLD(P) + 100
     lblGold(P).Caption = GOLD(P)

   Case Is = CHEST(3)
         
     GOLD(P) = GOLD(P) + (50 * (TURN - 1))
     lblGold(P) = GOLD(P)
     
   Case Is = CHEST(4)
         
     GOLD(P) = GOLD(P) - 100
     lblGold(P).Caption = GOLD(P)

     
   Case Is = CHEST(5)
         
     GOLD(P) = GOLD(P) + 45
     lblGold(P).Caption = GOLD(P)

    
   Case Is = CHEST(6)
         
     GOLD(P) = GOLD(P) - 150
     lblGold(P).Caption = GOLD(P)

     
   Case Is = CHEST(7)
     
     FREE(P) = True
     
   Case Is = CHEST(8)
    
     If DICE(P) < 11 Or DICE(P) > 24 Then
         DICE(P) = 11
         TEMPPOS(P) = DICE(P)
     Else
         DICE(P) = 24
         TEMPPOS(P) = DICE(P)
     End If
     imgplayer(P).Left = lblProp(DICE(P)).Left
     imgplayer(P).Top = lblProp(DICE(P)).Top
   
   Case Is = CHEST(9)
   
     GOLD(P) = GOLD(P) + 100
     lblGold(P).Caption = GOLD(P)
     
   Case Is = CHEST(10)
   
     DICE(P) = 0
     imgplayer(P).Left = lblProp(DICE(P)).Left
     imgplayer(P).Top = lblProp(DICE(P)).Top
     GOLD(P) = GOLD(P) + 200
     lblGold(P).Caption = GOLD(P)
End Select

'  Print the card on the sidebar so the players can see it

lblchest.Caption = lblchest.Caption & Chr(13) & GOTCHEST

'  Call the BankRupt procedure (described later)

Call BankRupt

End Function

'  Code executed when the mouse is moved over the board image
Private Sub imgboard_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'  Set the text color on the label marked (ROLL) and the label
'  marked (DONE) to yellow
lblroll.ForeColor = vbYellow
lbldone.ForeColor = vbYellow
'  Set the back colors of the shapes of tax buttons to black
shp10border.BackColor = vbBlack
shp200border.BackColor = vbBlack
End Sub

'  Code executed when the Pay 10%(Tax) label is clicked
Private Sub lbl10_Click()
'  Calculate the 10% amount of Gold that the player should pay
'  and subtract that amount from his/her Gold
GOLD(P) = GOLD(P) - Int((GOLD(P) * 10) / 100)

'  Display the updated amount of Gold after deduction
lblGold(P).Caption = GOLD(P)
'  Report the deducted amount by displaying it on the status bar
lblstatus.Caption = PNAME(P) & " Paid %10 of his assets as tax"

'  When done, let the buttons of Tax payment disappear and proceed
lbldone.Visible = True
lbl10.Visible = False
lbl200.Visible = False
shp10border.Visible = False
shp200border.Visible = False
End Sub

'  Code executed when the mouse is moved over pay 10% label(tax)
Private Sub lbl10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'  Set the back color of the shape behind the label to red
shp10border.BackColor = vbRed
End Sub

'  Code executed when the Pay 200(Tax) label is clicked
Private Sub lbl200_Click()
'  Deduct 200 gold from the player
GOLD(P) = GOLD(P) - 200
'  Display the updated Gold amount after deduction
lblGold(P).Caption = GOLD(P)
'  Report the deducted amount by displaying it on the status bar
lblstatus.Caption = PNAME(P) & " Paid $200 of his assets as tax"

'  When done, let the buttons of Tax payment disappear and proceed

lbldone.Visible = True
lbl10.Visible = False
lbl200.Visible = False
shp10border.Visible = False
shp200border.Visible = False
End Sub

'  Code executed when the mouse is moved over pay 10% label(tax)
Private Sub lbl200_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'  Set the back color of the shape behind the label to red
shp200border.BackColor = vbRed
End Sub

'  Code executed when the build label is clicked
Private Sub lblbuild_Click()

'  If the property list for the current player is not selected
'  then display a message box asking the player to select one


'  If A property was selected then do the following

'    1- Check the name of that property



'    2- Check if the player have the completed color group
'       A player who has a completed color goup can be known
'       if multiplying his/her number (i.e. player 1) by the
'       number of properties in that color group was equal to
'       double his/her number. For instance, the current player
'       is player 1, and he/she wants to build a house on 'Scotland'
'       which is a property of two in the Brown colored group
'       we multiply 1(player 1) * 2(two properties), if the answer
'       is 2 then proceed with the building, if not then exit sub.



'    3- When the player have a completed color group then check
'       how many houses He/She have built. If they have all houses
'       built (8 houses for instance) then show a castle, hide
'       the houses, Set the Boolean variable for that castle to
'       True so no that the operation is not repeated, and finally
'       Call the Castle procedure (described later)



'    4- When the player is not done with building the houses then
'       add 1 to the house counter, let that house appear, and then
'       Call the House procedure (described later)

Select Case Trim(lstprop(P).Text)
  Case Is = Empty
    MsgBox ("Please select a property from your list")

'   Brown Group

  Case Is = "Scotland"
    If BrownGroup <> (P * 2) Then
       Exit Sub
    Else
       If BrownHouse(1) + BrownHouse(2) = 12 Then
          imgBrownC(1).Visible = True
          If CASTLE(1) = True Then Exit Sub
          For i = 1 To 4
            imgBrownH(i).Visible = False
          Next
          CASTLE(1) = True
          CASTLECHECK (1)
          Exit Sub
       End If
       BrownHouse(1) = BrownHouse(1) + 1
       If BrownHouse(1) > 4 Then
          BrownHouse(1) = 4
          Exit Sub
       End If
       
       imgBrownH(BrownHouse(1)).Visible = True
       HOUSE (1)
    End If
  
  
  Case Is = "Ireland"
    If BrownGroup <> (P * 2) Then
       Exit Sub
    Else
       If BrownHouse(1) + BrownHouse(2) = 12 Then
          imgBrownC(2).Visible = True
          If CASTLE(3) = True Then Exit Sub
          For i = 5 To 8
            imgBrownH(i).Visible = False
          Next
          CASTLE(3) = True
          CASTLECHECK (3)
          Exit Sub
       End If
       BrownHouse(2) = BrownHouse(2) + 1
       If BrownHouse(2) > 8 Then
          BrownHouse(2) = 8
          Exit Sub
       End If
       
       imgBrownH(BrownHouse(2)).Visible = True
       HOUSE (3)
    End If
    
'   Yellow Group
  
  Case Is = "Persia"
    If YellowGroup <> (P * 3) Then
       Exit Sub
    Else
       If YellowHouse(1) + YellowHouse(2) + YellowHouse(3) = 24 Then
          imgYellowC(1).Visible = True
          If CASTLE(5) = True Then Exit Sub
          For i = 1 To 4
            imgYellowH(i).Visible = False
          Next
          CASTLE(5) = True
          CASTLECHECK (5)
          Exit Sub
       End If
       YellowHouse(1) = YellowHouse(1) + 1
       If YellowHouse(1) > 4 Then
          YellowHouse(1) = 4
          Exit Sub
       End If
       imgYellowH(YellowHouse(1)).Visible = True
       HOUSE (5)
    End If
    
  
  Case Is = "Egypt"
    If YellowGroup <> (P * 3) Then
       Exit Sub
    Else
       If YellowHouse(1) + YellowHouse(2) + YellowHouse(3) = 24 Then
          imgYellowC(2).Visible = True
          If CASTLE(7) = True Then Exit Sub
          For i = 5 To 8
            imgYellowH(i).Visible = False
          Next
          CASTLE(7) = True
          CASTLECHECK (7)
          Exit Sub
       End If
       YellowHouse(2) = YellowHouse(2) + 1
       If YellowHouse(2) > 8 Then
          YellowHouse(2) = 8
          Exit Sub
       End If
       imgYellowH(YellowHouse(2)).Visible = True
       HOUSE (7)
    End If
    
  
  Case Is = "Iraq"
    If YellowGroup <> (P * 3) Then
       Exit Sub
    Else
       If YellowHouse(1) + YellowHouse(2) + YellowHouse(3) = 24 Then
          imgYellowC(3).Visible = True
          If CASTLE(8) = True Then Exit Sub
          For i = 9 To 12
            imgYellowH(i).Visible = False
          Next