hedgewars/uGearsList.pas
changeset 12119 3374e0f67f39
parent 12094 4dfc95eabee1
child 12169 869cf5f34700
equal deleted inserted replaced
12118:4f567f7a08e8 12119:3374e0f67f39
   506                 gear^.Friction:= _0_8;
   506                 gear^.Friction:= _0_8;
   507                 gear^.Radius:= 2;
   507                 gear^.Radius:= 2;
   508                 gear^.Density:= _1_5;
   508                 gear^.Density:= _1_5;
   509                 gear^.RenderTimer:= true
   509                 gear^.RenderTimer:= true
   510                 end;
   510                 end;
   511       gtShover: gear^.Radius:= 20;
   511       gtShover: begin
       
   512                 gear^.Radius:= 20;
       
   513                 gear^.Tag:= 0;
       
   514                 gear^.Timer:= 100;
       
   515                 end;
   512        gtFlame: begin
   516        gtFlame: begin
   513                 gear^.Tag:= GetRandom(32);
   517                 gear^.Tag:= GetRandom(32);
   514                 gear^.Radius:= 1;
   518                 gear^.Radius:= 1;
   515                 gear^.Health:= 5;
   519                 gear^.Health:= 5;
   516                 gear^.Density:= _1;
   520                 gear^.Density:= _1;