hedgewars/GSHandlers.inc
changeset 3497 9327fae93244
parent 3485 ab91c56a9050
child 3505 ada9f697eb11
equal deleted inserted replaced
3496:8fb007d36c09 3497:9327fae93244
  3266 
  3266 
  3267         s := _0_2 + _0_008 * Gear^.Health;
  3267         s := _0_2 + _0_008 * Gear^.Health;
  3268         iterator^.dX := s * iterator^.dX;
  3268         iterator^.dX := s * iterator^.dX;
  3269         iterator^.dY := s * iterator^.dY;
  3269         iterator^.dY := s * iterator^.dY;
  3270 
  3270 
  3271         if Gear^.Health > 1 then
  3271         if Gear^.Health > 1 then dec(Gear^.Health);
  3272         begin
  3272             //dec(iterator^.Health);??
  3273             dec(Gear^.Health);
       
  3274             dec(iterator^.Health);
       
  3275         end;
       
  3276 
  3273 
  3277         // breaks (some) loops
  3274         // breaks (some) loops
  3278         if Distance(iterator^.dX, iterator^.dY) > _0_96 then
  3275         if Distance(iterator^.dX, iterator^.dY) > _0_96 then
  3279         begin
  3276         begin
  3280             iterator^.dX := iterator^.dX + signAs(cGravity * getRandom(1000),iterator^.dX);
  3277             iterator^.dX := iterator^.dX + signAs(cGravity * getRandom(1000),iterator^.dX);