63 

    63 

    64 var Rects: PRectArray;

    64 var Rects: PRectArray;

    65     RectCount: Longword;

    65     RectCount: Longword;

    66     ThemeObjects: TThemeObjects;

    66     ThemeObjects: TThemeObjects;

    67     SprayObjects: TSprayObjects;

    67     SprayObjects: TSprayObjects;

    68 

    70 

    69 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); inline;

    71 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); inline;

    70 begin

    72 begin

    71     BlitImageAndGenerateCollisionInfo(cpX, cpY, Width, Image, 0);

    73     BlitImageAndGenerateCollisionInfo(cpX, cpY, Width, Image, 0);

    72 end;

    74 end;

   440 

   442 

   441 ThemeObjects.Count:= 0;

   443 ThemeObjects.Count:= 0;

   442 SprayObjects.Count:= 0;

   444 SprayObjects.Count:= 0;

   443 

   445 

   444 while not eof(f) do

   446 while not eof(f) do

   446     Readln(f, s);

   448     Readln(f, s);

   447     if Length(s) = 0 then

   449     if Length(s) = 0 then

   448         continue;

   450         continue;

   449     if s[1] = ';' then

   451     if s[1] = ';' then

   450         continue;

   452         continue;