Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Clase ClassJugadorHumano
- Public Function juega(tablero As ClassTablero, Optional ProducidoClick As Boolean[], Optional col As Integer[], Optional TextLabelmensajes As TextLabel, Optional area As TextArea) As ClassTablero
- ...
- ...
- While Not ok
- 'espero que se produza un click en el tablero...
- If ProducidoClick[0] = True Then
- area.Text &= gb.CrLf & "Jugador: " & colorJugador[Str$(Super.numero)] & ", columna: " & Str$(col[0])
- ok = tablero.insertaficha(col[0] - 1, Super.numero)
- If OK = False Then
- Print "Movimiento ilegal"
- TextLabelMensajes.text = "Movimiento ilegal"
- ProducidoClick[0] = False
- Else
- ProducidoClick[0] = False
- Break
- Endif
- ProducidoClick[0] = False
- Else
- Wait 0.005
- Endif
- Wend
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement