hedgewars/uVisualGears.pas
changeset 3697 d5b30d6373fc
parent 3689 e2be39ee19f0
child 3704 ed2b9c7fb260
equal deleted inserted replaced
3695:c11abf387a7d 3697:d5b30d6373fc
   225                 end;
   225                 end;
   226     vgtAmmo: begin
   226     vgtAmmo: begin
   227                 alpha:= 1.0;
   227                 alpha:= 1.0;
   228                 scale:= 1.0
   228                 scale:= 1.0
   229                 end;
   229                 end;
   230   vgtSmokeWhite, 
   230   vgtSmokeWhite,
   231   vgtSmoke: begin
   231   vgtSmoke: begin
   232                 dx:= 0.0002 * (random(45) + 10);
   232                 dx:= 0.0002 * (random(45) + 10);
   233                 dy:= 0.0002 * (random(45) + 10);
   233                 dy:= 0.0002 * (random(45) + 10);
   234                 if random(2) = 0 then dx := -dx;
   234                 if random(2) = 0 then dx := -dx;
   235                 Frame:= 7 - random(2);
   235                 Frame:= 7 - random(2);