160 			@doStepWaterUp,

   160 			@doStepWaterUp,

   161 			@doStepDrill,

   161 			@doStepDrill,

   162 			@doStepBallgun,

   162 			@doStepBallgun,

   163 			@doStepBomb,

   163 			@doStepBomb,

   164 			@doStepRCPlane,

   164 			@doStepRCPlane,

   166 			);

   167 			);

   167 

   168 

   168 procedure InsertGearToList(Gear: PGear);

   169 procedure InsertGearToList(Gear: PGear);

   169 var tmp, ptmp: PGear;

   170 var tmp, ptmp: PGear;

   170 begin

   171 begin

   383                 end;

   384                 end;

   384      gtRCPlane: begin

   385      gtRCPlane: begin

   385                 Result^.Timer:= 15000;

   386                 Result^.Timer:= 15000;

   386                 Result^.Health:= 3;

   387                 Result^.Health:= 3;

   387                 Result^.Radius:= 8;

   388                 Result^.Radius:= 8;

   388                 end;

   393                 end;

   389      end;

   394      end;

   390 InsertGearToList(Result);

   395 InsertGearToList(Result);

   391 AddGear:= Result

   396 AddGear:= Result

   392 end;

   397 end;