equal
deleted
inserted
replaced
41 var dmg: Longword; |
41 var dmg: Longword; |
42 begin |
42 begin |
43 if _0_4 < Gear^.dY then |
43 if _0_4 < Gear^.dY then |
44 begin |
44 begin |
45 if _0_6 < Gear^.dY then |
45 if _0_6 < Gear^.dY then |
46 PlaySound(sndOw1, false) |
46 PlaySound(sndOw4, false) |
47 else |
47 else |
48 PlaySound(sndOw4, false); |
48 PlaySound(sndOw1, false); |
49 |
49 |
50 dmg:= 1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70); |
50 dmg:= 1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70); |
51 inc(Gear^.Damage, dmg); |
51 inc(Gear^.Damage, dmg); |
52 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius, dmg, Gear); |
52 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius, dmg, Gear); |
53 end |
53 end |