hedgewars/uVisualGears.pas
changeset 5576 bf30c60786a5
parent 5574 3d7438991ed8
child 5583 63b274a4fb01
equal deleted inserted replaced
5575:41ee1c71deb3 5576:bf30c60786a5
   280                 Frame:= 1
   280                 Frame:= 1
   281                 end;
   281                 end;
   282   vgtHealthTag: begin
   282   vgtHealthTag: begin
   283                 Frame:= 0;
   283                 Frame:= 0;
   284                 Timer:= 1500;
   284                 Timer:= 1500;
       
   285                 dY:= -0.08;
   285                 //gear^.Z:= 2002;
   286                 //gear^.Z:= 2002;
   286                 end;
   287                 end;
   287   vgtSmokeTrace,
   288   vgtSmokeTrace,
   288   vgtEvilTrace: begin
   289   vgtEvilTrace: begin
   289                 gear^.X:= gear^.X - 16;
   290                 gear^.X:= gear^.X - 16;