by ACMOA (7 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 29th January 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
' 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
No comments have been posted about This is a complete code for a monopoly game that I've made myself...The game itself is very very go. Why not be the first to post a comment about This is a complete code for a monopoly game that I've made myself...The game itself is very very go.
