equal
deleted
inserted
replaced
143 end; |
143 end; |
144 DeleteGear(Gear); |
144 DeleteGear(Gear); |
145 exit |
145 exit |
146 end; |
146 end; |
147 CalcRotationDirAngle(Gear); |
147 CalcRotationDirAngle(Gear); |
148 if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then PlaySound(sndGrenadeImpact, false) |
148 if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then |
|
149 if (hwAbs(Gear^.dX) > _0_1) or |
|
150 (hwAbs(Gear^.dY) > _0_1) then |
|
151 PlaySound(sndGrenadeImpact, false) |
149 end; |
152 end; |
150 |
153 |
151 procedure doStepCluster(Gear: PGear); |
154 procedure doStepCluster(Gear: PGear); |
152 begin |
155 begin |
153 AllInactive:= false; |
156 AllInactive:= false; |