negamax y evalua

' Gambas module file

Public Function negamax(tablero As ClassTablero, jugador As Integer, profundidad As Integer, alfa As Integer, beta As Integer) As Variant[]

  Dim alfa_local, max_puntuacion, jugada, puntuacion As Integer
  Dim tableroaux As ClassTablero
  Dim jugada_max As Integer
  Dim JugadasPosibles As Integer[]
  Dim contador As Integer
  Dim opcion As Integer
  Dim valorjugadorContrario As Integer = 0
  Dim valorposicionContrario As Integer = 0

  max_puntuacion = - main.maximoInteger - 1
  alfa_local = alfa

  'hago un array de las jugadas que puedo hacer segun el tablero recibido.
  jugadasPosibles = tablero.JugadasPosibles()
  If jugadasPosibles.count = 0 Then Print "Cuidado juagdas posibles=0"
  'repite por cada jugada posible
  tableroaux = New ClassTablero(tablero)
  For contador = 0 To jugadasPosibles.max

    tableroaux.insertaficha(JugadasPosibles[contador], jugador)
    '  tableroaux.muestra
    If tableroaux.GameOver() Or profundidad = 0 Then
      Return [EvaluaJugadaMov(tableroaux, jugador), JugadasPosibles[contador]]
    Else

      puntuacion = - negamax(tableroaux, jugador * (-1), profundidad - 1, - beta, - alfa_local)[0]
      tableroaux.deshacer(jugadasPosibles[contador])
      If puntuacion > max_puntuacion Then
        max_puntuacion = puntuacion
        jugada_max = JugadasPosibles[contador]

      Else If puntuacion = max_puntuacion Then
        'de un modo aleatorio elijo una de las dos... (para que las partidas no sean iguales)

        opcion = Int(Rnd(0, 2))

        'Print opcion; " ";

        If opcion = 0 Then
          max_puntuacion = puntuacion
          jugada_max = JugadasPosibles[contador]
        Endif
        'poda alfa beta

        If max_puntuacion > alfa_local Then
          alfa_local = max_puntuacion
        Endif
        'poda....
        If alfa_local >= beta Then
          'comprueba si hay lista de jugadas iguales...

          Return [alfa_local, jugada_max]

        Endif

      Endif

    Endif

  Next

  Return [max_puntuacion, jugada_max]

End

Public Sub EvaluaJugadaMov(tablero As ClassTablero, jugador As Integer) As Integer

  Dim valor_jugada, valor As Integer
  Dim n2, n3, n4 As Integer
  Dim j2, j3, j4 As Integer
  Dim eva As Integer[]

  eva = tablero.comprueba_linea(4, jugador)
  n4 = eva[1]
  j4 = eva[0]

  If n4 = 0 Then
    'mejora de rendimiento  (version 0.0.4),
    eva = tablero.comprueba_linea(2, jugador)
    n2 = eva[1]
    j2 = eva[0]

    eva = tablero.comprueba_linea(3, jugador)
    n3 = eva[1]
    j3 = eva[0]

  Endif

  valor_jugada = (4 * n2 + 9 * n3 + 100000 * n4)

  Return valor_jugada

End