equal
deleted
inserted
replaced
1883 begin |
1883 begin |
1884 AllInactive := false; |
1884 AllInactive := false; |
1885 |
1885 |
1886 if ((GameTicks mod 100) = 0) then |
1886 if ((GameTicks mod 100) = 0) then |
1887 begin |
1887 begin |
1888 vgt:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire); |
1888 vgt:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire, gstTmpFlag); |
1889 if vgt <> nil then |
1889 if vgt <> nil then |
1890 begin |
1890 begin |
1891 vgt^.dx:= 0; |
1891 vgt^.dx:= 0; |
1892 vgt^.dy:= 0; |
1892 vgt^.dy:= 0; |
1893 vgt^.FrameTicks:= 1800 div (Gear^.Tag mod 3 + 2); |
1893 vgt^.FrameTicks:= 1800 div (Gear^.Tag mod 3 + 2); |
1894 vgt^.State:= gstTmpFlag; |
|
1895 end; |
1894 end; |
1896 end; |
1895 end; |
1897 |
1896 |
1898 |
1897 |
1899 if Gear^.dX.QWordValue > _0_01.QWordValue then |
1898 if Gear^.dX.QWordValue > _0_01.QWordValue then |