classjugador

' Gambas class file

Property numero As Integer ' jugador primero ("Amarillo", "-1") y jugador segundo("Naranja", "1")
Private hnumero As Integer
Property profundidad As Integer
Private hprofundidad As Integer

Private Function numero_Read() As Integer

  Return hnumero

End

Private Sub numero_Write(Value As Integer)

  hnumero = value

End

Private Function profundidad_Read() As Integer

  Return hprofundidad

End

Private Sub profundidad_Write(Value As Integer)

  hprofundidad = value

End