hedgewars/uVisualGearsList.pas
changeset 15773 da1bb21e6fbf
parent 15586 19c85b010144
child 15875 d7b53d08ad9c
equal deleted inserted replaced
15772:95db10dcad71 15773:da1bb21e6fbf
   175                 Frame:= 1
   175                 Frame:= 1
   176                 end;
   176                 end;
   177         vgtShell: FrameTicks:= 500;
   177         vgtShell: FrameTicks:= 500;
   178     vgtSmallDamageTag:
   178     vgtSmallDamageTag:
   179                 begin
   179                 begin
   180                 gear^.FrameTicks:= 1100
   180                 gear^.Frame:= 0;
       
   181                 gear^.FrameTicks:= 1100;
       
   182                 gear^.dX:= 0;
       
   183                 gear^.dY:= -0.02;
   181                 end;
   184                 end;
   182     vgtBubble:
   185     vgtBubble:
   183                 begin
   186                 begin
   184                 dx:= 0.0000038654705 * random(10000);
   187                 dx:= 0.0000038654705 * random(10000);
   185                 dy:= 0;
   188                 dy:= 0;