53 

    53 

    54 

    54 

    55 implementation

    55 implementation

    56 uses uVariables;

    56 uses uVariables;

    57 

    57 

    58 var LastTint: LongWord = 0;

    64 var LastTint: LongWord = 0;

    59 

    65 

    60 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt);

    66 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt);

    61 begin

    67 begin

    62 r.y:= r.y + Height * Position;

    68 r.y:= r.y + Height * Position;