formularioJugadores

' Gambas class file

Public texto As String[]
Public jugadores As Variant[]

Public Sub Form_Open()

  ComboBoxDificultad1.Add(1)
  ComboBoxDificultad1.Add(2)
  ComboBoxDificultad1.Add(3)
  ComboBoxDificultad1.Add(4)
  ComboBoxDificultad2.Add(1)
  ComboBoxDificultad2.Add(2)
  ComboBoxDificultad2.Add(3)
  ComboBoxDificultad2.Add(4)
  ComboBoxJugador1.Add("Humano")
  ComboBoxJugador1.Add("Ordenador")
  ComboBoxJugador2.Add("Humano")
  ComboBoxJugador2.Add("Ordenador")

End

Public Sub Button1_Click()

  If ComboBoxJugador1.Index = 0 Then
    jugadores.Add(Object.New("ClassJugadorHumano"))
    jugadores[0].profundidad = -100 ' es humano
    texto.Add("El jugador 1 (amarillo) es Humano")
  Else

    jugadores.Add(Object.New("ClassJugadorOrdenador"))
    jugadores[0].profundidad = Val(ComboBoxDificultad1.text)
    texto.Add("El jugador 1 (amarillo) es Ordenador, nivel: " & ComboBoxDificultad1.text)
  Endif
  If ComboBoxJugador2.Index = 0 Then
    jugadores.Add(Object.New("ClassJugadorHumano"))
    jugadores[1].profundidad = -100 ' es humano
    texto[0] &= "<br>El jugador 2 (naranja) es Humano"
  Else
    jugadores.Add(Object.New("ClassJugadorOrdenador"))
    jugadores[1].profundidad = Val(ComboBoxDificultad2.text)
    texto[0] &= "<br>El jugador 2 (naranja) es Ordenador, nivel: " & ComboBoxDificultad2.text
  Endif

  Me.Close()

End

Public Sub ComboBoxJugador2_Click()

  If ComboBoxJugador2.Index = 0 Then
    ComboBoxDificultad2.Enabled = False
  Else
    ComboBoxDificultad2.Enabled = True
  Endif

End

Public Sub ComboBoxJugador1_Click()

  If ComboBoxJugador1.Index = 0 Then
    ComboBoxDificultad1.Enabled = False

  Else
    ComboBoxDificultad1.Enabled = True
  Endif

End