120 New(Rects)

   120 New(Rects)

   121 end;

   121 end;

   122 

   122 

   123 procedure FreeRects;

   123 procedure FreeRects;

   124 begin

   124 begin

   126 end;

   126 end;

   127 

   127 

   128 function CheckIntersect(x1, y1, w1, h1: LongInt): boolean;

   128 function CheckIntersect(x1, y1, w1, h1: LongInt): boolean;

   129 var i: Longword;

   129 var i: Longword;

   130     res: boolean = false;

   130     res: boolean = false;

   500         AddGirder(i);

   500         AddGirder(i);

   501         i:=i+int;

   501         i:=i+int;

   502     until (i>rightX-int);

   502     until (i>rightX-int);

   503     end;

   503     end;

   504 AddThemeObjects(ThemeObjects, (8 * MaxHedgehogs) div 18); // MaxHedgehogs should roughly correspond to available surface area.  Was also thinking maybe using playHeight * playWidth div constant   :)

   504 AddThemeObjects(ThemeObjects, (8 * MaxHedgehogs) div 18); // MaxHedgehogs should roughly correspond to available surface area.  Was also thinking maybe using playHeight * playWidth div constant   :)

   507 end;

   507 end;

   508 

   508 

   509 procedure AddOnLandObjects(Surface: PSDL_Surface);

   509 procedure AddOnLandObjects(Surface: PSDL_Surface);

   510 begin

   510 begin

   511 InitRects;

   511 InitRects;