\' Gambas class file
Inherits Comando
Private p1 As New Point
Private p2 As New Point
Private torigen As Tablero
Public Sub _new(t As Tablero, x0 As Integer, y0 As Integer, x1 As Integer, y1 As Integer)
torigen = t
p1.x = x0
p1.y = y0
p2.x = x1
p2.y = y1
End
Public Sub ejecutar()
torigen.mover(p1.x, p1.y, p2.x, p2.y)
torigen.dibujalista()
End
Public Sub deshacer()
\'cambio movimiento
torigen.mover(p2.x, p2.y, p1.x, p1.y)
torigen.dibujalista()
\'la ficha que esta en la p2, la pone en la p1
\'htab.cambiar(pieza, pto2, tpo1)
End