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