299 var x, y: Longword;

   299 var x, y: Longword;

   300     ar: array[0..MaxPointsIndex] of TPoint;

   300     ar: array[0..MaxPointsIndex] of TPoint;

   301     cnt, i: Longword;

   301     cnt, i: Longword;

   302     bRes: boolean;

   302     bRes: boolean;

   303 begin

   303 begin

   304 cnt:= 0;

   305 cnt:= 0;

   305 with Obj do

   306 with Obj do

   306     begin

   307     begin

   307     if Maxcnt = 0 then

   308     if Maxcnt = 0 then

   309     x:= 0;

   310     x:= 0;

   310     repeat

   311     repeat

   311         y:= topY+32; // leave room for a hedgie to teleport in

   312         y:= topY+32; // leave room for a hedgie to teleport in

   312         repeat

   313         repeat

   313             if CheckCanPlace(x, y, Obj) then

   314             if CheckCanPlace(x, y, Obj) then

   344     ar: array[0..MaxPointsIndex] of TPoint;

   345     ar: array[0..MaxPointsIndex] of TPoint;

   345     cnt, i: Longword;

   346     cnt, i: Longword;

   346     r: TSDL_Rect;

   347     r: TSDL_Rect;

   347     bRes: boolean;

   348     bRes: boolean;

   348 begin

   349 begin

   349 cnt:= 0;

   351 cnt:= 0;

   350 with Obj do

   352 with Obj do

   351     begin

   353     begin

   352     if Maxcnt = 0 then

   354     if Maxcnt = 0 then

   354     x:= 0;

   356     x:= 0;

   355     r.x:= 0;

   357     r.x:= 0;

   356     r.y:= 0;

   358     r.y:= 0;

   357     r.w:= Width;

   359     r.w:= Width;

   358     r.h:= Height + 16;

   360     r.h:= Height + 16;