mover

' 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