equal
deleted
inserted
replaced
189 if CurrentTeam <> nil then |
189 if CurrentTeam <> nil then |
190 begin |
190 begin |
191 Result^.Hedgehog:= CurrentHedgehog; |
191 Result^.Hedgehog:= CurrentHedgehog; |
192 Result^.IntersectGear:= CurrentHedgehog^.Gear |
192 Result^.IntersectGear:= CurrentHedgehog^.Gear |
193 end; |
193 end; |
194 |
194 |
195 case Kind of |
195 case Kind of |
196 gtCloud: Result^.Z:= High(Result^.Z); |
196 gtCloud: Result^.Z:= High(Result^.Z); |
197 gtAmmo_Bomb: begin |
197 gtAmmo_Bomb: begin |
198 Result^.Radius:= 4; |
198 Result^.Radius:= 4; |
199 Result^.Elasticity:= _0_6; |
199 Result^.Elasticity:= _0_6; |