equal
deleted
inserted
replaced
289 i: LongWord; |
289 i: LongWord; |
290 particle: PVisualGear; |
290 particle: PVisualGear; |
291 begin |
291 begin |
292 if _0_4 < Gear^.dY then |
292 if _0_4 < Gear^.dY then |
293 begin |
293 begin |
294 dmg := ModifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70), Gear); |
294 dmg := ModifyDamage(1 + hwRound((Gear^.dY - _0_4) * 70), Gear); |
295 PlaySound(sndBump); |
295 PlaySound(sndBump); |
296 if dmg < 1 then |
296 if dmg < 1 then |
297 exit; |
297 exit; |
298 |
298 |
299 for i:= min(12, (3 + dmg div 10)) downto 0 do |
299 for i:= min(12, (3 + dmg div 10)) downto 0 do |