80 

    80 

    81 procedure DrawWorld(Lag: integer; Surface: PSDL_Surface);

    81 procedure DrawWorld(Lag: integer; Surface: PSDL_Surface);

    82 var i, t: integer;

    82 var i, t: integer;

    83     r: TSDL_Rect;

    83     r: TSDL_Rect;

    84     team: PTeam;

    84     team: PTeam;

    86 

    86 

    87     procedure DrawRepeated(spr: TSprite; Shift: integer);

    87     procedure DrawRepeated(spr: TSprite; Shift: integer);

    88     var i, w: integer;

    88     var i, w: integer;

    89     begin

    89     begin

    90     w:= SpritesData[spr].Width;

    90     w:= SpritesData[spr].Width;