hedgewars/uGears.pas
changeset 601 78a68cc4d846
parent 595 5ee863f2f568
child 602 f7628ebfccde
equal deleted inserted replaced
600:f6e5f4e122db 601:78a68cc4d846
   249                 Result^.Friction:= _0_995;
   249                 Result^.Friction:= _0_995;
   250                 Result^.Timer:= 3000;
   250                 Result^.Timer:= 3000;
   251                 end;
   251                 end;
   252         gtCase: begin
   252         gtCase: begin
   253                 Result^.Radius:= 16;
   253                 Result^.Radius:= 16;
   254                 Result^.Elasticity:= _0_4
   254                 Result^.Elasticity:= _0_3
   255                 end;
   255                 end;
   256   gtDEagleShot: begin
   256   gtDEagleShot: begin
   257                 Result^.Radius:= 1;
   257                 Result^.Radius:= 1;
   258                 Result^.Health:= 50
   258                 Result^.Health:= 50
   259                 end;
   259                 end;
   292                 end;
   292                 end;
   293     gtSwitcher: begin
   293     gtSwitcher: begin
   294                 Result^.Z:= cCurrHHZ
   294                 Result^.Z:= cCurrHHZ
   295                 end;
   295                 end;
   296       gtTarget: begin
   296       gtTarget: begin
   297                 Result^.Radius:= 16
   297                 Result^.Radius:= 16;
       
   298                 Result^.Elasticity:= _0_3
   298                 end;
   299                 end;
   299      end;
   300      end;
   300 InsertGearToList(Result);
   301 InsertGearToList(Result);
   301 AddGear:= Result
   302 AddGear:= Result
   302 end;
   303 end;