equal
deleted
inserted
replaced
855 begin |
855 begin |
856 if isCursorVisible then |
856 if isCursorVisible then |
857 with Gear^.Hedgehog^ do |
857 with Gear^.Hedgehog^ do |
858 with CurWeapon^ do |
858 with CurWeapon^ do |
859 begin |
859 begin |
860 if (Gear^.Message and gmLeft ) <> 0 then |
860 if Ammoz[AmmoType].PosCount < 2 then |
|
861 exit |
|
862 else if (Gear^.Message and gmLeft ) <> 0 then |
861 Pos:= (Pos - 1 + Ammoz[AmmoType].PosCount) mod Ammoz[AmmoType].PosCount |
863 Pos:= (Pos - 1 + Ammoz[AmmoType].PosCount) mod Ammoz[AmmoType].PosCount |
|
864 else if (Gear^.Message and gmRight ) <> 0 then |
|
865 Pos:= (Pos + 1) mod Ammoz[AmmoType].PosCount |
862 else |
866 else |
863 if (Gear^.Message and gmRight ) <> 0 then |
867 exit; |
864 Pos:= (Pos + 1) mod Ammoz[AmmoType].PosCount |
868 GHStepTicks:= 200; |
865 else |
869 exit |
|
870 end; |
|
871 |
|
872 if (Gear^.Hedgehog^.Unplaced) then |
866 exit; |
873 exit; |
867 GHStepTicks:= 200; |
|
868 exit |
|
869 end; |
|
870 |
|
871 if (Gear^.Hedgehog^.Unplaced) then |
|
872 exit; |
|
873 |
874 |
874 if ((Gear^.Message and gmAnimate) <> 0) then |
875 if ((Gear^.Message and gmAnimate) <> 0) then |
875 begin |
876 begin |
876 Gear^.Message:= 0; |
877 Gear^.Message:= 0; |
877 Gear^.State:= Gear^.State or gstAnimation; |
878 Gear^.State:= Gear^.State or gstAnimation; |