hedgewars/uVisualGears.pas
changeset 5564 4f42009237df
parent 5563 fc73b6e941f7
child 5566 9ffa2e2ec550
equal deleted inserted replaced
5563:fc73b6e941f7 5564:4f42009237df
   315                 Frame:= 7;
   315                 Frame:= 7;
   316                 Angle := 0;
   316                 Angle := 0;
   317                 end;
   317                 end;
   318 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   318 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   319  vgtStraightShot: begin
   319  vgtStraightShot: begin
   320                 dx:= 0.001 * (random(200));
   320                 dx:= 0.001 * random(45);
   321                 dy:= 0.001 * (random(200));
   321                 dy:= 0.001 * (random(20) + 25);
   322                 if random(2) = 0 then dx := -dx;
   322                 State:= ord(sprHealth);
   323                 if random(2) = 0 then dy := -dy;
   323                 if random(2) = 0 then dx := -dx;
   324                 Frame:= 0;
   324                 Frame:= 0;
   325                 FrameTicks:= random(750) + 1000;
   325                 FrameTicks:= random(750) + 1250;
   326                 State:= ord(sprSnowDust);
   326                 State:= ord(sprSnowDust);
   327                 end;
   327                 end;
   328         end;
   328         end;
   329 
   329 
   330 if State <> 0 then gear^.State:= State;
   330 if State <> 0 then gear^.State:= State;