equal
deleted
inserted
replaced
180 @doStepJetpack, |
180 @doStepJetpack, |
181 @doStepMolotov, |
181 @doStepMolotov, |
182 @doStepCase, |
182 @doStepCase, |
183 @doStepBirdy, |
183 @doStepBirdy, |
184 @doStepBigExplosion, |
184 @doStepBigExplosion, |
185 @doStepEggWork |
185 @doStepEggWork, |
|
186 @doStepPortal, |
|
187 @doStepPortalGun |
186 ); |
188 ); |
187 |
189 |
188 procedure InsertGearToList(Gear: PGear); |
190 procedure InsertGearToList(Gear: PGear); |
189 var tmp, ptmp: PGear; |
191 var tmp, ptmp: PGear; |
190 begin |
192 begin |
465 gtEgg: begin |
467 gtEgg: begin |
466 gear^.Radius:= 4; |
468 gear^.Radius:= 4; |
467 gear^.Elasticity:= _0_6; |
469 gear^.Elasticity:= _0_6; |
468 gear^.Friction:= _0_96; |
470 gear^.Friction:= _0_96; |
469 if gear^.Timer = 0 then gear^.Timer:= 3000 |
471 if gear^.Timer = 0 then gear^.Timer:= 3000 |
|
472 end; |
|
473 gtPortal: begin |
|
474 gear^.ImpactSound:= sndMelonImpact; |
|
475 gear^.nImpactSounds:= 1; |
|
476 gear^.AdvBounce:= 0; |
|
477 gear^.Radius:= 16; |
470 end; |
478 end; |
471 end; |
479 end; |
472 InsertGearToList(gear); |
480 InsertGearToList(gear); |
473 AddGear:= gear; |
481 AddGear:= gear; |
474 |
482 |