hedgewars/uVisualGears.pas
changeset 3909 4ba25a3d15af
parent 3836 833c0f32e326
child 3976 abaf741a4e21
equal deleted inserted replaced
3908:1429c303858d 3909:4ba25a3d15af
   211     vgtSmallDamageTag: begin
   211     vgtSmallDamageTag: begin
   212                 gear^.FrameTicks:= 1100
   212                 gear^.FrameTicks:= 1100
   213                 end;
   213                 end;
   214     vgtBubble: begin
   214     vgtBubble: begin
   215                 dx:= 0.0000038654705 * random(10000);
   215                 dx:= 0.0000038654705 * random(10000);
   216                 dy:= 0.001 * (random(85) + 95);
   216                 dy:= 0;
   217                 if random(2) = 0 then dx := -dx;
   217                 if random(2) = 0 then dx := -dx;
   218                 FrameTicks:= 250 + random(1751);
   218                 FrameTicks:= 250 + random(1751);
   219                 Frame:= random(5)
   219                 Frame:= random(5)
   220                 end;
   220                 end;
   221     vgtSteam: begin
   221     vgtSteam: begin