Type Score
    As Integer XPos
    As Integer YPos
    As Integer VersatzX
    As Integer VersatzY
    As Integer Score
    
    As ANY PTR Panel
    As ANY PTR Numbers(0 to 9)
    
    Declare Constructor(X as Integer, Y as Integer, VX as Integer, VY as Integer, S as Integer)
    Declare Sub G()
    Declare Function twist(Text as String) as String
End Type

Constructor Score(X as Integer, Y as Integer, VX as Integer, VY as Integer, S as Integer)
    Dim as Integer a
    
    XPos = X
    YPos = Y
    VersatzX = VX
    VersatzY = VY
    Score = S
    
    Panel = LoadImgFile("res\score\panel.bmp")
    For a = 0 to 9
        Numbers(a) = LoadImgFile("res\score\" & STR(a) & ".bmp")
    Next a
End Constructor

Sub Score.G()
    Dim as Integer a
    
    Put(XPos, YPos), Panel, ALPHA, 255
    For a = 0 to 4
        Put(a * 18 + XPos + VersatzX, YPos + VersatzY), Numbers(VAL(MID(twist(STR(Score)), 4 - a + 1, 1))), ALPHA, 255
    Next a
End Sub 

Function Score.twist(Text as String) as String
    Dim as Integer a
    Dim as String NewString
    
    For a = 0 to Len(Text) - 1
        NewString += MID(Text, Len(Text) - a, 1)
    Next a
    
    Return NewString
End Function