hedgewars/uGears.pas
changeset 56 a29135563e94
parent 54 839fd258ae6f
child 57 e1a77ae57065
equal deleted inserted replaced
55:e09f7c952a40 56:a29135563e94
   202                 Result.Radius:= 1;
   202                 Result.Radius:= 1;
   203                 Result.Health:= 50
   203                 Result.Health:= 50
   204                 end;
   204                 end;
   205     gtDynamite: begin
   205     gtDynamite: begin
   206                 Result.Radius:= 3;
   206                 Result.Radius:= 3;
   207                 Result.Elasticity:= 0.03;
   207                 Result.Elasticity:= 0.55;
   208                 Result.Friction:= 0.03;
   208                 Result.Friction:= 0.03;
   209                 Result.Timer:= 5000;
   209                 Result.Timer:= 5000;
   210                 end;
   210                 end;
   211      end;
   211      end;
   212 if GearsList = nil then GearsList:= Result
   212 if GearsList = nil then GearsList:= Result