hedgewars/uVisualGears.pas
branchhedgeroid
changeset 5611 099868c5bba5
parent 5596 555c4fc1f3bd
child 5690 f6e0c5bd8020
equal deleted inserted replaced
5609:9d66611e4d0a 5611:099868c5bba5
   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                 dY:= -0.08;
       
   286                 dX:= 0;
   286                 //gear^.Z:= 2002;
   287                 //gear^.Z:= 2002;
   287                 end;
   288                 end;
   288   vgtSmokeTrace,
   289   vgtSmokeTrace,
   289   vgtEvilTrace: begin
   290   vgtEvilTrace: begin
   290                 gear^.X:= gear^.X - 16;
   291                 gear^.X:= gear^.X - 16;