equal
deleted
inserted
replaced
202 @doStepBomb, |
202 @doStepBomb, |
203 @doStepSineGunShot, |
203 @doStepSineGunShot, |
204 @doStepFlamethrower, |
204 @doStepFlamethrower, |
205 @doStepSMine, |
205 @doStepSMine, |
206 @doStepPoisonCloud, |
206 @doStepPoisonCloud, |
207 @doStepHammer |
207 @doStepHammer, |
|
208 @doStepHammerHit |
208 ); |
209 ); |
209 |
210 |
210 procedure InsertGearToList(Gear: PGear); |
211 procedure InsertGearToList(Gear: PGear); |
211 var tmp, ptmp: PGear; |
212 var tmp, ptmp: PGear; |
212 begin |
213 begin |
338 gear^.Radius:= 2 |
339 gear^.Radius:= 2 |
339 end; |
340 end; |
340 gtPickHammer: begin |
341 gtPickHammer: begin |
341 gear^.Radius:= 10; |
342 gear^.Radius:= 10; |
342 gear^.Timer:= 4000 |
343 gear^.Timer:= 4000 |
|
344 end; |
|
345 gtHammerHit: begin |
|
346 gear^.Radius:= 8; |
|
347 gear^.Timer:= 125 |
343 end; |
348 end; |
344 gtRope: begin |
349 gtRope: begin |
345 gear^.Radius:= 3; |
350 gear^.Radius:= 3; |
346 gear^.Friction:= _450; |
351 gear^.Friction:= _450; |
347 RopePoints.Count:= 0; |
352 RopePoints.Count:= 0; |