180             @doStepBirdy,

   180             @doStepBirdy,

   181             @doStepEggWork,

   181             @doStepEggWork,

   182             @doStepPortalShot,

   182             @doStepPortalShot,

   183             @doStepPiano,

   183             @doStepPiano,

   184             @doStepBomb,

   184             @doStepBomb,

   186             );

   187             );

   187 

   188 

   188 procedure InsertGearToList(Gear: PGear);

   189 procedure InsertGearToList(Gear: PGear);

   189 var tmp, ptmp: PGear;

   190 var tmp, ptmp: PGear;

   190 begin

   191 begin

   480                 gear^.Radius:= 32

   481                 gear^.Radius:= 32

   481                 end;

   482                 end;

   482  gtSineGunShot: begin

   483  gtSineGunShot: begin

   483                 gear^.Radius:= 5;

   484                 gear^.Radius:= 5;

   484                 gear^.Health:= 6000;

   485                 gear^.Health:= 6000;

   485                 end;

   489                 end;

   486      end;

   490      end;

   487 InsertGearToList(gear);

   491 InsertGearToList(gear);

   488 AddGear:= gear;

   492 AddGear:= gear;

   489 

   493