equal
deleted
inserted
replaced
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 |