905 ForcePlaceOnLand(hwRound(Gear^.X) - SpritesData[sprTargetBee].Width div 2, |
905 ForcePlaceOnLand(hwRound(Gear^.X) - SpritesData[sprTargetBee].Width div 2, |
906 hwRound(Gear^.Y) - SpritesData[sprTargetBee].Height div 2, |
906 hwRound(Gear^.Y) - SpritesData[sprTargetBee].Height div 2, |
907 sprTargetBee, 0, lfBasic, $FFFFFFFF, false, false, false); |
907 sprTargetBee, 0, lfBasic, $FFFFFFFF, false, false, false); |
908 Gear^.Y:= int2hwFloat(hwRound(Gear^.Y) - 16 - Gear^.Radius); |
908 Gear^.Y:= int2hwFloat(hwRound(Gear^.Y) - 16 - Gear^.Radius); |
909 Gear^.State:= Gear^.State and (not gsttmpFlag); |
909 Gear^.State:= Gear^.State and (not gsttmpFlag); |
910 AddFileLog('Carved a hole for hog at coordinates (' + inttostr(hwRound(Gear^.X)) + ',' + inttostr(hwRound(Gear^.Y)) + ')') |
910 AddFileLog('Placed flower for hog at coordinates (' + inttostr(hwRound(Gear^.X)) + ',' + inttostr(hwRound(Gear^.Y)) + ')') |
911 end; |
911 end; |
912 |
912 |
913 |
913 |
914 // divided teams: sort the hedgehogs from left to right by clan and shuffle clan members |
914 // divided teams: sort the hedgehogs from left to right by clan and shuffle clan members |
915 // let's do this even after a possible section-divide, because some hogs may have spawned randomly on flowers |
915 // let's do this even after a possible section-divide, because some hogs may have spawned randomly on flowers |