equal
deleted
inserted
replaced
746 if (GameFlags and gfPlaceHog) <> 0 then |
746 if (GameFlags and gfPlaceHog) <> 0 then |
747 PlacingHogs:= true; |
747 PlacingHogs:= true; |
748 if (ClansCount = 2) and ((GameFlags and gfDivideTeams) <> 0) then |
748 if (ClansCount = 2) and ((GameFlags and gfDivideTeams) <> 0) then |
749 begin |
749 begin |
750 t:= 0; |
750 t:= 0; |
751 TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true); |
751 if checkFails(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true) then exit; |
752 for p:= 0 to 1 do |
752 for p:= 0 to 1 do |
753 begin |
753 begin |
754 with ClansArray[p]^ do |
754 with ClansArray[p]^ do |
755 for j:= 0 to Pred(TeamsNumber) do |
755 for j:= 0 to Pred(TeamsNumber) do |
756 with Teams[j]^ do |
756 with Teams[j]^ do |
819 begin |
819 begin |
820 ForcePlaceOnLand(hwRound(Gear^.X) - SpritesData[sprTargetBee].Width div 2, |
820 ForcePlaceOnLand(hwRound(Gear^.X) - SpritesData[sprTargetBee].Width div 2, |
821 hwRound(Gear^.Y) - SpritesData[sprTargetBee].Height div 2, |
821 hwRound(Gear^.Y) - SpritesData[sprTargetBee].Height div 2, |
822 sprTargetBee, 0, lfBasic, $FFFFFFFF, false, false, false); |
822 sprTargetBee, 0, lfBasic, $FFFFFFFF, false, false, false); |
823 Gear^.Y:= int2hwFloat(hwRound(Gear^.Y) - 16 - Gear^.Radius); |
823 Gear^.Y:= int2hwFloat(hwRound(Gear^.Y) - 16 - Gear^.Radius); |
824 Gear^.State:= Gear^.State and not gsttmpFlag; |
824 Gear^.State:= Gear^.State and (not gsttmpFlag); |
825 AddFileLog('Carved a hole for hog at coordinates (' + inttostr(hwRound(Gear^.X)) + ',' + inttostr(hwRound(Gear^.Y)) + ')') |
825 AddFileLog('Carved a hole for hog at coordinates (' + inttostr(hwRound(Gear^.X)) + ',' + inttostr(hwRound(Gear^.Y)) + ')') |
826 end |
826 end |
827 end; |
827 end; |
828 |
828 |
829 |
829 |