equal
deleted
inserted
replaced
1866 procedure doStepRollingBarrel(Gear: PGear); |
1866 procedure doStepRollingBarrel(Gear: PGear); |
1867 var |
1867 var |
1868 i: LongInt; |
1868 i: LongInt; |
1869 particle: PVisualGear; |
1869 particle: PVisualGear; |
1870 begin |
1870 begin |
1871 if not TestCollisionYwithGear(Gear, 1) and (Gear^.dY.QWordValue = 0) then SetLittle(Gear^.dY); |
1871 if (Gear^.dY.QWordValue = 0) and (Gear^.dY.QWordValue = 0) and not TestCollisionYwithGear(Gear, 1) then SetLittle(Gear^.dY); |
1872 Gear^.State := Gear^.State or gstAnimation; |
1872 Gear^.State := Gear^.State or gstAnimation; |
1873 if ((Gear^.dX.QWordValue <> 0) or (Gear^.dY.QWordValue <> 0)) then |
1873 if ((Gear^.dX.QWordValue <> 0) or (Gear^.dY.QWordValue <> 0)) then |
1874 begin |
1874 begin |
1875 DeleteCI(Gear); |
1875 DeleteCI(Gear); |
1876 AllInactive := false; |
1876 AllInactive := false; |