document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Function GameOver() As Boolean
  2.   Dim notablas As Boolean = False
  3.   Dim i, j As Integer
  4.   \'hay ganador?
  5.   If Me.ganador()[0] = 0 Then
  6.     For i = 6 To 0 Step -1
  7.       For j = 6 To 0 Step -1
  8.         If Me.casillas[i, j] = 0 Then
  9.           \'comprobar tablas
  10.           notablas = True
  11.           Return False
  12.         Endif
  13.       Next
  14.     Next
  15.   Endif
  16.   Return True
  17. End
');