document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Jugador
  4.  
  5. Private hgolesmarcados As Integer
  6.  
  7.  
  8. Public Sub _new(nombre As String, minutosjugados As Integer, salario As Integer, golesmarcados As Integer)
  9.  
  10.   Super.New(nombre, minutosjugados, salario)
  11.   hgolesmarcados = golesmarcados
  12.  
  13. End
  14.  
  15.  
  16. Public Sub calculaPuntosPorObjetivos() As Single
  17.  
  18.   Return 30 * (hgolesmarcados / Super.getPartidosJugados())
  19.  
  20. End
  21.  
  22. Public Sub getPuntosPenalizacionPorSalarioAlto() As Single
  23.  
  24.   Return Super.hsalario * 0.1
  25.  
  26. End
');