hedgewars/uLandObjects.pas
changeset 15163 d97f0b96e45f
parent 15120 07de9e60c305
child 15177 84e98f0f7f7b
equal deleted inserted replaced
15162:af14c418c92f 15163:d97f0b96e45f
   565 cnt:= 0;
   565 cnt:= 0;
   566 with Obj do
   566 with Obj do
   567     begin
   567     begin
   568     if Maxcnt = 0 then
   568     if Maxcnt = 0 then
   569         exit;
   569         exit;
   570     x:= 0;
   570     x:= leftX;
   571     repeat
   571     repeat
   572         y:= topY+32; // leave room for a hedgie to teleport in
   572         y:= topY+32; // leave room for a hedgie to teleport in
   573         repeat
   573         repeat
   574 
   574 
   575             if (inrectcnt > 0) and (inland[0].x = 0) and (inland[0].y = 0) and (inland[0].w = 0) and (inland[0].h = 0) then
   575             if (inrectcnt > 0) and (inland[0].x = 0) and (inland[0].y = 0) and (inland[0].w = 0) and (inland[0].h = 0) then
   587                     else inc(cnt);
   587                     else inc(cnt);
   588                 end;
   588                 end;
   589             inc(y, 3);
   589             inc(y, 3);
   590         until y >= LAND_HEIGHT - Height;
   590         until y >= LAND_HEIGHT - Height;
   591         inc(x, getrandom(6) + 3)
   591         inc(x, getrandom(6) + 3)
   592     until x >= LAND_WIDTH - Width;
   592     until x >= rightX - Width;
   593     bRes:= cnt <> 0;
   593     bRes:= cnt <> 0;
   594     if bRes then
   594     if bRes then
   595         begin
   595         begin
   596         i:= getrandom(cnt);
   596         i:= getrandom(cnt);
   597         if Obj.Mask <> nil then
   597         if Obj.Mask <> nil then