portero

' Gambas class file

Inherits Jugador

Private hgolesEncajados As Integer


Public Sub _new(nombre As String, minutosjugados As Integer, salario As Integer, golesEncajados As Integer)

  Super.New(nombre, minutosjugados, salario)
 hgolesEncajados = golesEncajados
End


Public Sub calculaPuntosPorObjetivos() As Single

  Return 50 - (30 * Me.golesEncajadosPorPartido())

End

Public Function golesEncajadosPorPartido() As Single

  Return hgolesEncajados / Super.getPartidosJugados()

End



Public Sub getPuntosPenalizacionPorSalarioAlto() As Single

  Return Super.hsalario * 0.08

End