equal
deleted
inserted
replaced
201 @doStepPiano, |
201 @doStepPiano, |
202 @doStepBomb, |
202 @doStepBomb, |
203 @doStepSineGunShot, |
203 @doStepSineGunShot, |
204 @doStepFlamethrower, |
204 @doStepFlamethrower, |
205 @doStepSMine, |
205 @doStepSMine, |
206 @doStepPoisonCloud |
206 @doStepPoisonCloud, |
|
207 @doStepHammer |
207 ); |
208 ); |
208 |
209 |
209 procedure InsertGearToList(Gear: PGear); |
210 procedure InsertGearToList(Gear: PGear); |
210 var tmp, ptmp: PGear; |
211 var tmp, ptmp: PGear; |
211 begin |
212 begin |
432 gear^.Radius:= 4; |
433 gear^.Radius:= 4; |
433 gear^.Elasticity:= _0_2; |
434 gear^.Elasticity:= _0_2; |
434 gear^.Friction:= _0_08 |
435 gear^.Friction:= _0_08 |
435 end; |
436 end; |
436 gtWhip: gear^.Radius:= 20; |
437 gtWhip: gear^.Radius:= 20; |
|
438 gtHammer: gear^.Radius:= 20; |
437 gtKamikaze: begin |
439 gtKamikaze: begin |
438 gear^.Health:= 2048; |
440 gear^.Health:= 2048; |
439 gear^.Radius:= 20 |
441 gear^.Radius:= 20 |
440 end; |
442 end; |
441 gtCake: begin |
443 gtCake: begin |