equal
deleted
inserted
replaced
193 Result^.Hedgehog:= CurrentHedgehog; |
193 Result^.Hedgehog:= CurrentHedgehog; |
194 Result^.IntersectGear:= CurrentHedgehog^.Gear |
194 Result^.IntersectGear:= CurrentHedgehog^.Gear |
195 end; |
195 end; |
196 |
196 |
197 case Kind of |
197 case Kind of |
198 gtAmmo_Bomb: begin |
198 gtAmmo_Bomb, |
|
199 gtClusterBomb: begin |
199 Result^.Radius:= 4; |
200 Result^.Radius:= 4; |
200 Result^.Elasticity:= _0_6; |
201 Result^.Elasticity:= _0_6; |
201 Result^.Friction:= _0_995; |
202 Result^.Friction:= _0_995; |
202 end; |
203 end; |
203 gtHedgehog: begin |
204 gtHedgehog: begin |
245 Result^.X:= Result^.X - _25; |
246 Result^.X:= Result^.X - _25; |
246 Result^.Y:= Result^.Y - _25; |
247 Result^.Y:= Result^.Y - _25; |
247 end; |
248 end; |
248 gtMine: begin |
249 gtMine: begin |
249 Result^.State:= Result^.State or gstMoving; |
250 Result^.State:= Result^.State or gstMoving; |
250 Result^.Radius:= 3; |
251 Result^.Radius:= 2; |
251 Result^.Elasticity:= _0_55; |
252 Result^.Elasticity:= _0_55; |
252 Result^.Friction:= _0_995; |
253 Result^.Friction:= _0_995; |
253 Result^.Timer:= 3000; |
254 Result^.Timer:= 3000; |
254 end; |
255 end; |
255 gtCase: begin |
256 gtCase: begin |
263 gtDynamite: begin |
264 gtDynamite: begin |
264 Result^.Radius:= 3; |
265 Result^.Radius:= 3; |
265 Result^.Elasticity:= _0_55; |
266 Result^.Elasticity:= _0_55; |
266 Result^.Friction:= _0_03; |
267 Result^.Friction:= _0_03; |
267 Result^.Timer:= 5000; |
268 Result^.Timer:= 5000; |
268 end; |
|
269 gtClusterBomb: begin |
|
270 Result^.Radius:= 4; |
|
271 Result^.Elasticity:= _0_6; |
|
272 Result^.Friction:= _0_995; |
|
273 end; |
269 end; |
274 gtCluster: Result^.Radius:= 2; |
270 gtCluster: Result^.Radius:= 2; |
275 gtShover: Result^.Radius:= 20; |
271 gtShover: Result^.Radius:= 20; |
276 gtFlame: begin |
272 gtFlame: begin |
277 Result^.Angle:= Counter mod 64; |
273 Result^.Angle:= Counter mod 64; |