equal
deleted
inserted
replaced
90 gear^.dX:= dX; |
90 gear^.dX:= dX; |
91 gear^.dY:= dY; |
91 gear^.dY:= dY; |
92 gear^.doStep:= doStepHandlers[Kind]; |
92 gear^.doStep:= doStepHandlers[Kind]; |
93 gear^.CollisionIndex:= -1; |
93 gear^.CollisionIndex:= -1; |
94 gear^.Timer:= Timer; |
94 gear^.Timer:= Timer; |
95 gear^.FlightTime:= 0; |
|
96 gear^.uid:= GCounter; |
95 gear^.uid:= GCounter; |
97 gear^.SoundChannel:= -1; |
96 gear^.SoundChannel:= -1; |
98 gear^.ImpactSound:= sndNone; |
97 gear^.ImpactSound:= sndNone; |
99 gear^.nImpactSounds:= 0; |
|
100 gear^.Density:= _1; |
98 gear^.Density:= _1; |
101 // Define ammo association, if any. |
99 // Define ammo association, if any. |
102 gear^.AmmoType:= GearKindAmmoTypeMap[Kind]; |
100 gear^.AmmoType:= GearKindAmmoTypeMap[Kind]; |
103 gear^.CollisionMask:= $FFFF; |
101 gear^.CollisionMask:= $FFFF; |
104 gear^.Power:= 0; |
|
105 |
102 |
106 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog; |
103 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog; |
107 |
104 |
108 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then |
105 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then |
109 gear^.Z:= cHHZ+1 |
106 gear^.Z:= cHHZ+1 |
189 gtGrave: begin |
186 gtGrave: begin |
190 gear^.ImpactSound:= sndGraveImpact; |
187 gear^.ImpactSound:= sndGraveImpact; |
191 gear^.nImpactSounds:= 1; |
188 gear^.nImpactSounds:= 1; |
192 gear^.Radius:= 10; |
189 gear^.Radius:= 10; |
193 gear^.Elasticity:= _0_6; |
190 gear^.Elasticity:= _0_6; |
|
191 gear^.Timer:= 1; |
194 end; |
192 end; |
195 gtBee: begin |
193 gtBee: begin |
196 gear^.Radius:= 5; |
194 gear^.Radius:= 5; |
197 gear^.Timer:= 500; |
195 gear^.Timer:= 500; |
198 gear^.RenderTimer:= true; |
196 gear^.RenderTimer:= true; |