equal
deleted
inserted
replaced
177 particle: PVisualGear; |
177 particle: PVisualGear; |
178 begin |
178 begin |
179 if _0_4 < Gear^.dY then |
179 if _0_4 < Gear^.dY then |
180 begin |
180 begin |
181 dmg := ModifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70), Gear); |
181 dmg := ModifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70), Gear); |
|
182 PlaySound(sndBump); |
182 if dmg < 1 then exit; |
183 if dmg < 1 then exit; |
183 |
184 |
184 for i:= min(12, (3 + dmg div 10)) downto 0 do |
185 for i:= min(12, (3 + dmg div 10)) downto 0 do |
185 begin |
186 begin |
186 particle := AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12, |
187 particle := AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12, |