hedgewars/uGears.pas
changeset 11508 09be932506a9
parent 11483 8c95d5a4366c
child 11537 bf86c6cb9341
equal deleted inserted replaced
11507:382f91348d91 11508:09be932506a9
   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