equal
deleted
inserted
replaced
103 gear^.CollisionMask:= $FFFF; |
103 gear^.CollisionMask:= $FFFF; |
104 gear^.Power:= 0; |
104 gear^.Power:= 0; |
105 |
105 |
106 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog; |
106 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog; |
107 |
107 |
108 if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then |
108 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then |
109 gear^.Z:= cHHZ+1 |
109 gear^.Z:= cHHZ+1 |
110 else gear^.Z:= cUsualZ; |
110 else gear^.Z:= cUsualZ; |
111 |
111 |
112 |
112 |
113 case Kind of |
113 case Kind of |
293 end; |
293 end; |
294 gtFirePunch: begin |
294 gtFirePunch: begin |
295 gear^.Radius:= 15; |
295 gear^.Radius:= 15; |
296 gear^.Tag:= Y |
296 gear^.Tag:= Y |
297 end; |
297 end; |
|
298 gtAirAttack: gear^.Z:= cHHZ+2; |
298 gtAirBomb: begin |
299 gtAirBomb: begin |
299 gear^.Radius:= 5; |
300 gear^.Radius:= 5; |
300 gear^.Density:= _2; |
301 gear^.Density:= _2; |
301 end; |
302 end; |
302 gtBlowTorch: begin |
303 gtBlowTorch: begin |