equal
deleted
inserted
replaced
39 |
39 |
40 procedure CheckHHDamage(Gear: PGear); |
40 procedure CheckHHDamage(Gear: PGear); |
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 dmg:= 1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70); |
45 if _0_6 < Gear^.dY then |
46 inc(Gear^.Damage, dmg); |
46 PlaySound(sndOw1, false) |
47 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius, dmg, Gear); |
47 else |
48 end |
48 PlaySound(sndOw4, false); |
|
49 |
|
50 dmg:= 1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70); |
|
51 inc(Gear^.Damage, dmg); |
|
52 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius, dmg, Gear); |
|
53 end |
49 end; |
54 end; |
50 |
55 |
51 //////////////////////////////////////////////////////////////////////////////// |
56 //////////////////////////////////////////////////////////////////////////////// |
52 //////////////////////////////////////////////////////////////////////////////// |
57 //////////////////////////////////////////////////////////////////////////////// |
53 procedure CalcRotationDirAngle(Gear: PGear); |
58 procedure CalcRotationDirAngle(Gear: PGear); |