Public J1 As String
Public J2 As String
Public J3 As String
Public J4 As String

Public MoneyJ1
Public MoneyJ2
Public MoneyJ3
Public MoneyJ4

Public turn

Public PosJ1 As Integer
Public PosJ2 As Integer
Public PosJ3 As Integer
Public PosJ4 As Integer

Public JailJ1 As Boolean
Public JailJ2 As Boolean
Public JailJ3 As Boolean
Public JailJ4 As Boolean

Public tJ1 As Integer
Public tJ2 As Integer
Public tJ3 As Integer
Public tJ4 As Integer
'

Public Function CasillaActual(ByRef casas() As String)

    casas(0, 0) = "Salida"
    casas(0, 0) = "Salida"
    casas(0, 1) = "M14"
    casas(1, 0) = "Mediterranean Avenue"
    casas(1, 1) = "L14"
    casas(2, 0) = "Caja de comunidad"
    casas(2, 1) = "K14"
    casas(3, 0) = "Baltic Avenue"
    casas(3, 1) = "J14"
    casas(4, 0) = "Income Tax"
    casas(4, 1) = "I14"
    casas(5, 0) = "Reading Railroad"
    casas(5, 1) = "H14"
    casas(6, 0) = "Oriental Avenue"
    casas(6, 1) = "G14"
    casas(7, 0) = "Suerte"
    casas(7, 1) = "F14"
    casas(8, 0) = "Vermont Avenue"
    casas(8, 1) = "E14"
    casas(9, 0) = "Connecticut Avenue"
    casas(9, 1) = "D14"
    casas(10, 0) = "Just Visiting (jail)"
    casas(10, 1) = "B13"
    casas(11, 0) = "St. Charles Place"
    casas(11, 1) = "B12"
    casas(12, 0) = "Electric Company"
    casas(12, 1) = "B11"
    casas(13, 0) = "States Avenue"
    casas(13, 1) = "B10"
    casas(14, 0) = "Virginia Avenue"
    casas(14, 1) = "B9"
    casas(15, 0) = "Pennsylvania Railroad"
    casas(15, 1) = "B8"
    casas(16, 0) = "St. James Place"
    casas(16, 1) = "B7"
    casas(17, 0) = "Caja de comunidad"
    casas(17, 1) = "B6"
    casas(18, 0) = "Tennessee Avenue"
    casas(18, 1) = "B5"
    casas(19, 0) = "New York Avenue"
    casas(19, 1) = "B4"
    casas(20, 0) = "Free Parking"
    casas(20, 1) = "C2"
    casas(21, 0) = "Kentucky Avenue"
    casas(21, 1) = "D2"
    casas(22, 0) = "Suerte"
    casas(22, 1) = "E2"
    casas(23, 0) = "Indiana Avenue"
    casas(23, 1) = "F2"
    casas(24, 0) = "Illinois Avenue"
    casas(24, 1) = "G2"
    casas(25, 0) = "B&O Railroad"
    casas(25, 1) = "H2"
    casas(26, 0) = "Atlantic Avenue"
    casas(26, 1) = "I2"
    casas(27, 0) = "Ventnor Avenue"
    casas(27, 1) = "J2"
    casas(28, 0) = "Water Works"
    casas(28, 1) = "K2"
    casas(29, 0) = "Maryn Gardens"
    casas(29, 1) = "L2"
    casas(30, 0) = "Go to jail"
    casas(30, 1) = "N3"
    casas(31, 0) = "Pacific Avenue"
    casas(31, 1) = "N4"
    casas(32, 0) = "North Carolina Avenue"
    casas(32, 1) = "N5"
    casas(33, 0) = "Caja de comunidad"
    casas(33, 1) = "N6"
    casas(34, 0) = "Pennsylvania Avenue"
    casas(34, 1) = "N7"
    casas(35, 0) = "Short Line"
    casas(35, 1) = "N8"
    casas(36, 0) = "Suerte"
    casas(36, 1) = "N9"
    casas(37, 0) = "Park Place"
    casas(37, 1) = "N10"
    casas(38, 0) = "Luxury Tax"
    casas(38, 1) = "N11"
    casas(39, 0) = "Broadwalk"
    casas(39, 1) = "N12"
  
If turn = 1 Then
    TextBox8.Text = casas(PosJ1, 0)
End If

If turn = 2 Then
    TextBox8.Text = casas(PosJ2, 0)
End If

If turn = 3 Then
    TextBox8.Text = casas(PosJ3, 0)
End If

If turn = 4 Then
    TextBox8.Text = casas(PosJ4, 0)
End If

End Function


Public Sub Suerte()

Dim Numero As Integer
  Numero = Int((6 - 1 + 1) * Rnd() + 1)

  If Numero = 5 Then
  Range("V8").Value = ("Te tocó la lotería: Ganas 1000$")
    If turn = 0 Then
    MoneyJ4 = MoneyJ4 + 1000
    End If
    If turn = 1 Then
    MoneyJ1 = MoneyJ1 + 1000
    End If
    If turn = 2 Then
    MoneyJ2 = MoneyJ2 + 1000
    End If
    If turn = 3 Then
    MoneyJ3 = MoneyJ3 + 1000
    End If
   
  Else
  Range("V8").Value = ("No pagaste los impuestos correspondientes:" & vbCrLf & "Pagas una multa de 500$")
    If turn = 0 Then
    MoneyJ4 = MoneyJ4 - 500
    End If
    If turn = 1 Then
    MoneyJ1 = MoneyJ1 - 500
    End If
    If turn = 2 Then
    MoneyJ2 = MoneyJ2 - 500
    End If
    If turn = 3 Then
    MoneyJ3 = MoneyJ3 - 500
    End If
 
  End If

End Sub


Public Sub PrecioCalle(ByRef casas() As String)

 'Creo una array con 40 elementos para cada propiedad
   casas(0) = 0
   casas(1) = 60
   casas(2) = 0
   casas(3) = 60
   casas(4) = 0
   casas(5) = 200
   casas(6) = 100
   casas(7) = 0
   casas(8) = 100
   casas(9) = 120
   casas(10) = 0
   casas(11) = 140
   casas(12) = 150
   casas(13) = 140
   casas(14) = 160
   casas(15) = 200
   casas(16) = 160
   casas(17) = 0
   casas(18) = 180
   casas(19) = 200
   casas(20) = 0
   casas(21) = 200
   casas(22) = 0
   casas(23) = 220
   casas(24) = 240
   casas(25) = 200
   casas(26) = 240
   casas(27) = 260
   casas(28) = 150
   casas(29) = 280
   casas(30) = 0
   casas(31) = 280
   casas(32) = 300
   casas(33) = 0
   casas(34) = 320
   casas(35) = 200
   casas(36) = 0
   casas(37) = 320
   casas(38) = 0
   casas(39) = 340

End Sub


Public Sub PrecioEstancia(ByRef casas() As String)

 'Creo una array con 40 elementos para cada propiedad
   casas(0) = 0
   casas(1) = 6
   casas(2) = 0
   casas(3) = 6
   casas(4) = 0
   casas(5) = 20
   casas(6) = 10
   casas(7) = 0
   casas(8) = 10
   casas(9) = 12
   casas(10) = 0
   casas(11) = 14
   casas(12) = 15
   casas(13) = 14
   casas(14) = 16
   casas(15) = 20
   casas(16) = 16
   casas(17) = 0
   casas(18) = 18
   casas(19) = 20
   casas(20) = 0
   casas(21) = 20
   casas(22) = 0
   casas(23) = 22
   casas(24) = 24
   casas(25) = 2
   casas(26) = 24
   casas(27) = 26
   casas(28) = 15
   casas(29) = 28
   casas(30) = 0
   casas(31) = 28
   casas(32) = 30
   casas(33) = 0
   casas(34) = 32
   casas(35) = 20
   casas(36) = 0
   casas(37) = 32
   casas(38) = 0
   casas(39) = 34

End Sub


Public Sub CajaComunidad()

Dim Numero As Integer
Numero = Int((8 - 1 + 1) * Rnd() + 1)

If Numero = 5 Then
    Range("V10").Value = ("Has ganado el primer premio de un concurso:" & vbCrLf & "Ganas 300$")
    If turn = 0 Then
        MoneyJ4 = MoneyJ4 + 300
    End If
    If turn = 1 Then
        MoneyJ1 = MoneyJ1 + 300
    End If
    If turn = 2 Then
        MoneyJ2 = MoneyJ2 + 300
    End If
    If turn = 3 Then
        MoneyJ3 = MoneyJ3 + 300
    End If
 
Else
    Range("V10").Value = ("Multa por exceso de velocidad" & vbCrLf & "Pagas una multa de 60$")
    If turn = 0 Then
        MoneyJ4 = MoneyJ4 - 60
    End If
    If turn = 1 Then
        MoneyJ1 = MoneyJ1 - 60
    End If
    If turn = 2 Then
        MoneyJ2 = MoneyJ2 - 60
    End If
    If turn = 3 Then
        MoneyJ3 = MoneyJ3 - 60
    End If
 
End If

End Sub


Private Sub Botón_PropiedadExit_Click() 'CERRAR VENTANA PROPIEDADES

Text_PropiedadTítulo.Visible = False
Text_PropiedadInfo.Visible = False
Botón_PropiedadVender.Visible = False

'Buscar forma de crear una sucesión para saber el precio. Tener en cuenta casillas de suerte y caj. comunidad
'Es una sucesión que se debería de obtener mediante una fórmula. El primer término es 200

FondoPropiedades.Visible = False
Botón_PropiedadExit.Visible = False
TextBox6.Visible = False
TextBox7.Visible = False

End Sub

Private Sub CommandButton1_Click() 'SALIR
Application.Quit

End Sub


Private Sub CommandButton2_Click() 'NUEVA PARTIDA

'Dinero inicial
InitMoney = 600
MoneyJ1 = InitMoney
MoneyJ2 = InitMoney
MoneyJ3 = InitMoney
MoneyJ4 = InitMoney

'Posiciones a 0
PosJ1 = 0
PosJ2 = 0
PosJ3 = 0
PosJ4 = 0

'Turno a 0
turn = 0

'Propiedades de nadie
Range("A1:N14").Interior.Color = RGB(255, 255, 255)

'Fichas a M13
ActiveSheet.Shapes(19).Top = ActiveSheet.Range("M13").Top + 12
ActiveSheet.Shapes(19).Left = ActiveSheet.Range("M13").Left + 12
ActiveSheet.Shapes(20).Top = ActiveSheet.Range("M13").Top + 12
ActiveSheet.Shapes(20).Left = ActiveSheet.Range("M13").Left + 45
ActiveSheet.Shapes(21).Top = ActiveSheet.Range("M13").Top + 42
ActiveSheet.Shapes(21).Left = ActiveSheet.Range("M13").Left + 12
ActiveSheet.Shapes(22).Top = ActiveSheet.Range("M13").Top + 42
ActiveSheet.Shapes(22).Left = ActiveSheet.Range("M13").Left + 45

'Dados a 0
Range("W6").Value = 0
Range("X6").Value = 0
TextBox1.Text = 0

'Borrar carteles Suerte/CajaComunidad
Range("V8").Value = ("Caja de comunidad")
Range("V10").Value = ("Suerte")

'Todos desencarcelados
JailJ1 = False
JailJ2 = False
JailJ3 = False
JailJ4 = False
tJ1 = 0
tJ2 = 0
tJ3 = 0
tJ4 = 0

TextBox2.Visible = False
CommandButton4.Visible = False
TextBox3.Visible = False
CommandButton7.Visible = False
TextBox4.Visible = False
CommandButton8.Visible = False
TextBox5.Visible = False
CommandButton9.Visible = False

'Nombres de los jugadores?
J1 = InputBox("Nombre:", "Jugador 1")
J2 = InputBox("Nombre:", "Jugador 2")
J3 = InputBox("Nombre:", "Jugador 3")
J4 = InputBox("Nombre:", "Jugador 4")

'Actualizar dinero y nombres
Range("P4").Value = "NOMBRE: " & J1 & vbCrLf & "DINERO: " & MoneyJ1 & "$"
Range("P6").Value = "NOMBRE: " & J2 & vbCrLf & "DINERO: " & MoneyJ2 & "$"
Range("P8").Value = "NOMBRE: " & J3 & vbCrLf & "DINERO: " & MoneyJ3 & "$"
Range("P10").Value = "NOMBRE: " & J4 & vbCrLf & "DINERO: " & MoneyJ4 & "$"

'Casilla actual
TextBox8.Text = "Casilla actual"

'info: pos de cada jugador
Range("AA4").Value = PosJ1
Range("AA5").Value = PosJ2
Range("AA6").Value = PosJ3
Range("AA7").Value = PosJ4

End Sub


Private Sub CommandButton3_Click() 'TIRAR DADOS

'Cambio de turno
turn = turn + 1
If turn = 5 Then
    turn = turn - 4
End If

'Valores de los dados
Dim NumeroAleatorio As Integer

NumeroAleatorio = Int((6 - 1 + 1) * Rnd() + 1)
Range("W6").Value = NumeroAleatorio

NumeroAleatorio = Int((6 - 1 + 1) * Rnd() + 1)
Range("X6").Value = NumeroAleatorio

TextBox1.Text = Range("W6").Value + Range("X6").Value

'Borrar carteles Suerte/CajaComunidad
Range("V8").Value = ("Caja de comunidad")
Range("V10").Value = ("Suerte")

'Mover fichas
Call MoverFicha
   
'Acción por tipo de casilla:
If turn = 1 Then
    If PosJ1 = 2 Or PosJ1 = 17 Or PosJ1 = 33 Then
        Call CajaComunidad
    End If
    If PosJ1 = 7 Or PosJ1 = 22 Or PosJ1 = 36 Then
        Call Suerte
    End If
    If PosJ1 = 30 Then
        Call Jail
    End If
    If PosJ1 = 4 Then
        MoneyJ1 = MoneyJ1 - 200
    End If
    If PosJ1 = 38 Then
        MoneyJ1 = MoneyJ1 - 500
    End If
End If

If turn = 2 Then
    If PosJ2 = 2 Or PosJ1 = 17 Or PosJ2 = 33 Then
        Call CajaComunidad
    End If
    If PosJ2 = 7 Or PosJ1 = 22 Or PosJ2 = 36 Then
        Call Suerte
    End If
    If PosJ2 = 30 Then
        Call Jail
    End If
    If PosJ2 = 4 Then
        MoneyJ2 = MoneyJ2 - 200
    End If
    If PosJ2 = 38 Then
        MoneyJ2 = MoneyJ2 - 500
    End If
End If

If turn = 3 Then
    If PosJ3 = 2 Or PosJ3 = 17 Or PosJ3 = 33 Then
        Call CajaComunidad
    End If
    If PosJ3 = 7 Or PosJ3 = 22 Or PosJ3 = 36 Then
        Call Suerte
    End If
    If PosJ3 = 30 Then
        Call Jail
    End If
    If PosJ3 = 4 Then
        MoneyJ3 = MoneyJ3 - 200
    End If
    If PosJ3 = 38 Then
        MoneyJ3 = MoneyJ3 - 500
    End If
End If

If turn = 4 Then
    If PosJ4 = 2 Or PosJ4 = 17 Or PosJ4 = 33 Then
        Call CajaComunidad
    End If
    If PosJ4 = 7 Or PosJ4 = 22 Or PosJ4 = 36 Then
        Call Suerte
    End If
    If PosJ4 = 30 Then
        Call Jail
    End If
    If PosJ4 = 4 Then
        MoneyJ4 = MoneyJ4 - 200
    End If
    If PosJ4 = 38 Then
        MoneyJ4 = MoneyJ4 - 500
    End If
End If

'Actualizar dinero (y nombres)
Range("P4").Value = "NOMBRE: " & J1 & vbCrLf & "DINERO: " & MoneyJ1 & "$"
Range("P6").Value = "NOMBRE: " & J2 & vbCrLf & "DINERO: " & MoneyJ2 & "$"
Range("P8").Value = "NOMBRE: " & J3 & vbCrLf & "DINERO: " & MoneyJ3 & "$"
Range("P10").Value = "NOMBRE: " & J4 & vbCrLf & "DINERO: " & MoneyJ4 & "$"

'info: pos de cada jugador
Range("AA4").Value = PosJ1
Range("AA5").Value = PosJ2
Range("AA6").Value = PosJ3
Range("AA7").Value = PosJ4

End Sub


Public Sub Jail() 'ENCARCELAMIENTO

If turn = 1 Then
    JailJ1 = True
    PosJ1 = 10
    ActiveSheet.Shapes(19).Top = ActiveSheet.Range("C13").Top + 12
    ActiveSheet.Shapes(19).Left = ActiveSheet.Range("C13").Left + 12
    TextBox2.Visible = True
    CommandButton4.Visible = True
End If

If turn = 2 Then
    JailJ2 = True
    PosJ2 = 10
    ActiveSheet.Shapes(20).Top = ActiveSheet.Range("C13").Top + 12
    ActiveSheet.Shapes(20).Left = ActiveSheet.Range("C13").Left + 45
    TextBox3.Visible = True
    CommandButton7.Visible = True
End If

If turn = 3 Then
    JailJ3 = True
    PosJ3 = 10
    ActiveSheet.Shapes(21).Top = ActiveSheet.Range("C13").Top + 42
    ActiveSheet.Shapes(21).Left = ActiveSheet.Range("C13").Left + 12
    TextBox4.Visible = True
    CommandButton8.Visible = True
End If

If turn = 4 Then
    JailJ4 = True
    PosJ4 = 10
    ActiveSheet.Shapes(22).Top = ActiveSheet.Range("C13").Top + 42
    ActiveSheet.Shapes(22).Left = ActiveSheet.Range("C13").Left + 45
    TextBox5.Visible = True
    CommandButton9.Visible = True
End If

End Sub


Public Sub MoverFicha()
   
If turn = 1 Then
    If tJ1 = 3 Or JailJ1 = False Then
        tJ1 = 0
        PosJ1 = PosJ1 + Range("W6").Value + Range("X6").Value
        If PosJ1 > 39 Then
            PosJ1 = PosJ1 - 40
            MoneyJ1 = MoneyJ1 + 200
        End If
        If PosJ1 < 10 Then
            x = 13
            y = 13 - (PosJ1 - 0)
            ActiveSheet.Shapes(19).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(19).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ1 >= 10 And PosJ1 < 20 Then
            y = 3
            x = 13 - (PosJ1 - 10)
            ActiveSheet.Shapes(19).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(19).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ1 >= 20 And PosJ1 < 30 Then
            x = 3
            y = 3 + (PosJ1 - 20)
            ActiveSheet.Shapes(19).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(19).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
            End If
        If PosJ1 >= 30 Then
            y = 13
            x = 3 + (PosJ1 - 30)
            ActiveSheet.Shapes(19).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(19).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
           
        Dim casas(40, 2) As String
                Call CasillaActual(casas)
          If PosJ1 = 0 Or PosJ1 = 2 Or PosJ1 = 4 Or PosJ1 = 7 Or PosJ1 = 10 Or PosJ1 = 17 Or PosJ1 = 20 Or PosJ1 = 22 Or PosJ1 = 30 Or PosJ1 = 33 Or PosJ1 = 36 Or PosJ1 = 38 Then
          Else
            If Range(casas(PosJ1, 1)).Interior.Color = RGB(200, 160, 27) Then
            Else
              If Range(casas(PosJ1, 1)).Interior.Color = RGB(255, 255, 255) Then
                Dim Mensaje, Botones, Título, Respuesta
                Mensaje = J1 & vbCrLf & "¿Desea comprar esta calle?"
                Botones = vbYesNo + vbQuestion + vbDefaultButton2
                Título = "Comprar calle"
                Respuesta = MsgBox(Mensaje, Botones, Título)
               
                If Respuesta = vbYes Then
                       
                    Range(casas(PosJ1, 1)).Interior.Color = RGB(200, 160, 27)
                   
                    Dim Precio(40) As String
                    Call PrecioCalle(Precio)
                   
                    MoneyJ1 = MoneyJ1 - Precio(PosJ1)
                End If
               End If
             End If
            If Not Range(casas(PosJ4, 1)).Interior.Color = RGB(200, 160, 27) Or Range(casas(PosJ4, 1)).Interior.Color = RGB(255, 255, 255) Then
                'MoneyJ1 = MoneyJ1 - 50
                'Dim Precio(40) As String
                    Call PrecioCalle(Precio)
                   
                    MoneyJ1 = MoneyJ1 - CInt(Precio(PosJ1)) / 10
                    Call ActualizarMoney(PosJ1, 1, CInt(Precio(PosJ1)) / 10)
            End If
          End If
        End If
    Else
        tJ1 = tJ1 + 1
        If tJ1 >= 3 Then
            TextBox2.Visible = False
            CommandButton4.Visible = False
        End If
    End If


If turn = 2 Then
    If tJ2 = 3 Or JailJ2 = False Then
        tJ2 = 0
        PosJ2 = PosJ2 + Range("W6").Value + Range("X6").Value
        If PosJ2 > 39 Then
            PosJ2 = PosJ2 - 40
            MoneyJ2 = MoneyJ2 + 200
        End If
   
        If PosJ2 < 10 Then
            x = 13
            y = 13 - (PosJ2 - 0)
            ActiveSheet.Shapes(20).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(20).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ2 >= 10 And PosJ2 < 20 Then
            y = 3
            x = 13 - (PosJ2 - 10)
            ActiveSheet.Shapes(20).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(20).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ2 >= 20 And PosJ2 < 30 Then
            x = 3
            y = 3 + (PosJ2 - 20)
            ActiveSheet.Shapes(20).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(20).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ2 >= 30 Then
            y = 13
            x = 3 + (PosJ2 - 30)
            ActiveSheet.Shapes(20).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(20).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
       
        'Nombre casilla actual
        Call CasillaActual(casas)
           
        'Dim casas(40, 2) As String
                Call CasillaActual(casas)
        If PosJ2 = 0 Or PosJ2 = 2 Or PosJ2 = 4 Or PosJ2 = 7 Or PosJ2 = 10 Or PosJ2 = 17 Or PosJ2 = 20 Or PosJ2 = 22 Or PosJ2 = 30 Or PosJ2 = 33 Or PosJ2 = 36 Or PosJ2 = 38 Then
        Else
            If Range(casas(PosJ2, 1)).Interior.Color = RGB(220, 30, 35) Then
            Else
              If Range(casas(PosJ2, 1)).Interior.Color = RGB(255, 255, 255) Then
                'Dim Mensaje, Botones, Título, Respuesta
                Mensaje = J2 & vbCrLf & "¿Desea comprar esta calle?"
                Botones = vbYesNo + vbQuestion + vbDefaultButton2
                Título = "Comprar calle"
                Respuesta = MsgBox(Mensaje, Botones, Título)
               
                If Respuesta = vbYes Then
                       
                    Range(casas(PosJ2, 1)).Interior.Color = RGB(220, 30, 35)
                   
                    'Dim Precio(40) As String
                    Call PrecioCalle(Precio)
                   
                    MoneyJ2 = MoneyJ2 - Precio(PosJ2)
                End If
               End If
             End If
            If Not Range(casas(PosJ2, 1)).Interior.Color = RGB(220, 30, 35) Or Range(casas(PosJ2, 1)).Interior.Color = RGB(255, 255, 255) Then
               'MoneyJ2 = MoneyJ2 - 50
               Call PrecioCalle(Precio)
                   
                    MoneyJ2 = MoneyJ2 - CInt(Precio(PosJ2)) / 10
                    Call ActualizarMoney(PosJ2, 1, CInt(Precio(PosJ2)) / 10)
            End If
        End If
        tJ2 = tJ2 + 1
        If tJ2 >= 3 Then
            TextBox3.Visible = False
            CommandButton7.Visible = False
        End If
    End If
End If


If turn = 3 Then
    If tJ3 = 3 Or JailJ3 = False Then
        tJ3 = 0
        PosJ3 = PosJ3 + Range("W6").Value + Range("X6").Value
        If PosJ3 > 39 Then
            PosJ3 = PosJ3 - 40
            MoneyJ3 = MoneyJ3 + 200
        End If
   
        If PosJ3 < 10 Then
            x = 13
            y = 13 - (PosJ3 - 0)
            ActiveSheet.Shapes(21).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(21).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ3 >= 10 And PosJ3 < 20 Then
            y = 3
            x = 13 - (PosJ3 - 10)
            ActiveSheet.Shapes(21).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(21).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ3 >= 20 And PosJ3 < 30 Then
            x = 3
            y = 3 + (PosJ3 - 20)
            ActiveSheet.Shapes(21).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(21).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ3 >= 30 Then
            y = 13
            x = 3 + (PosJ3 - 30)
            ActiveSheet.Shapes(21).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(21).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
       
        'Nombre casilla actual
        Call CasillaActual(casas)
        If PosJ3 = 0 Or PosJ3 = 2 Or PosJ3 = 4 Or PosJ3 = 7 Or PosJ3 = 10 Or PosJ3 = 17 Or PosJ3 = 20 Or PosJ3 = 22 Or PosJ3 = 30 Or PosJ3 = 33 Or PosJ3 = 36 Or PosJ3 = 38 Then
        Else
           
            If Range(casas(PosJ3, 1)).Interior.Color = RGB(34, 177, 36) Then
            Else
                If Range(casas(PosJ3, 1)).Interior.Color = RGB(255, 255, 255) Then
                'Dim Mensaje, Botones, Título, Respuesta
                Mensaje = J3 & vbCrLf & "¿Desea comprar esta calle?"
                Botones = vbYesNo + vbQuestion + vbDefaultButton2
                Título = "Comprar calle"
                Respuesta = MsgBox(Mensaje, Botones, Título)
                
                    If Respuesta = vbYes Then
                       
                        Range(casas(PosJ3, 1)).Interior.Color = RGB(34, 177, 36)
                   
                        'Dim Precio(40) As String
                        Call PrecioCalle(Precio)
                    
                        MoneyJ3 = MoneyJ3 - Precio(PosJ3)
                    End If
                End If
              End If
            If Not Range(casas(PosJ2, 1)).Interior.Color = RGB(34, 177, 36) Or Range(casas(PosJ2, 1)).Interior.Color = RGB(255, 255, 255) Then
                'MoneyJ3 = MoneyJ3 - 50
                Call PrecioCalle(Precio)
                   
                    MoneyJ3 = MoneyJ3 - CInt(Precio(PosJ3)) / 10
                    Call ActualizarMoney(PosJ3, 1, CInt(Precio(PosJ3)) / 10)
             End If
        End If
    Else
        tJ3 = tJ3 + 1
        If tJ1 >= 3 Then
            TextBox4.Visible = False
            CommandButton8.Visible = False
        End If
    End If
End If


If turn = 4 Then
    If tJ4 = 3 Or JailJ4 = False Then
        tJ4 = 0
        PosJ4 = PosJ4 + Range("W6").Value + Range("X6").Value
        If PosJ4 > 39 Then
            PosJ4 = PosJ4 - 40
            MoneyJ4 = MoneyJ4 + 200
        End If
   
        If PosJ4 < 10 Then
            x = 13
            y = 13 - (PosJ4 - 0)
            ActiveSheet.Shapes(22).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(22).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ4 >= 10 And PosJ4 < 20 Then
            y = 3
            x = 13 - (PosJ4 - 10)
            ActiveSheet.Shapes(22).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(22).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ4 >= 20 And PosJ4 < 30 Then
            x = 3
            y = 3 + (PosJ4 - 20)
            ActiveSheet.Shapes(22).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(22).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
        If PosJ4 >= 30 Then
            y = 13
            x = 3 + (PosJ4 - 30)
            ActiveSheet.Shapes(22).Top = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Top + 15
            ActiveSheet.Shapes(22).Left = ActiveSheet.Range(Cells(x, y), Cells(x, y)).Left + 15
        End If
       
        'Nombre casilla actual
        Call CasillaActual(casas)
        If PosJ4 = 0 Or PosJ4 = 2 Or PosJ4 = 4 Or PosJ4 = 7 Or PosJ4 = 10 Or PosJ4 = 17 Or PosJ4 = 20 Or PosJ4 = 22 Or PosJ4 = 30 Or PosJ4 = 33 Or PosJ4 = 36 Or PosJ4 = 38 Then
        Else
            'Dim casas(40, 2) As String
            If Range(casas(PosJ4, 1)).Interior.Color = RGB(0, 128, 255) Then
            Else
              If Range(casas(PosJ4, 1)).Interior.Color = RGB(255, 255, 255) Then
                'Dim Mensaje, Botones, Título, Respuesta
                Mensaje = J4 & vbCrLf & "¿Desea comprar esta calle?"
                Botones = vbYesNo + vbQuestion + vbDefaultButton2
                Título = "Comprar calle"
                Respuesta = MsgBox(Mensaje, Botones, Título)
               
                If Respuesta = vbYes Then
                       
                    Range(casas(PosJ4, 1)).Interior.Color = RGB(0, 128, 255)
                   
                    'Dim Precio(40) As String
                    Call PrecioCalle(Precio)
                   
                    MoneyJ4 = MoneyJ4 - Precio(PosJ4)
                End If
               End If
             End If
            If Not Range(casas(PosJ4, 1)).Interior.Color = RGB(0, 128, 255) Or Range(casas(PosJ4, 1)).Interior.Color = RGB(255, 255, 255) Then
               'MoneyJ4 = MoneyJ4 - 50
               Call PrecioCalle(Precio)
                   
                    MoneyJ4 = MoneyJ4 - CInt(Precio(PosJ4)) / 10
                    Call ActualizarMoney(PosJ4, 1, CInt(Precio(PosJ4)) / 10)
            End If
        End If
    Else
        tJ4 = tJ4 + 1
        If tJ4 >= 3 Then
            TextBox5.Visible = False
            CommandButton9.Visible = False
        End If
    End If
End If

End Sub


Public Sub PrecioPropiedad()

Dim PrecioPropiedad() As String
PrecioPropiedad = PrecioCalle(21) / 15
 
End Sub


Public Sub ActualizarMoney(ByVal nfil As Integer, ByVal ncol As Integer, ByVal Money As Integer)
Dim casas(40, 2) As String
Call CasillaActual(casas)

If Range(casas(nfil, ncol)).Interior.Color = RGB(200, 160, 27) Then 'amarillo
 MoneyJ1 = MoneyJ1 + Money
ElseIf Range(casas(nfil, ncol)).Interior.Color = RGB(220, 30, 35) Then 'rojo
 MoneyJ2 = MoneyJ2 + Money
ElseIf Range(casas(nfil, ncol)).Interior.Color = RGB(34, 177, 36) Then 'verde
 MoneyJ3 = MoneyJ3 + Money
ElseIf Range(casas(nfil, ncol)).Interior.Color = RGB(0, 128, 255) Then 'azul
 MoneyJ4 = MoneyJ4 + Money
End If

End Sub