equal
deleted
inserted
replaced
791 |
791 |
792 procedure HedgehogChAngle(HHGear: PGear); |
792 procedure HedgehogChAngle(HHGear: PGear); |
793 var da: LongWord; |
793 var da: LongWord; |
794 begin |
794 begin |
795 with HHGear^.Hedgehog^ do |
795 with HHGear^.Hedgehog^ do |
796 if ((CurAmmoType = amRope) and ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving)) |
796 if ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amRope) and ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving)) |
797 or ((CurAmmoType = amPortalGun) and ((HHGear^.State and gstMoving) <> 0)) then |
797 or ((CurAmmoType = amPortalGun) and ((HHGear^.State and gstMoving) <> 0)) then |
798 da:= 2 |
798 da:= 2 |
799 else da:= 1; |
799 else da:= 1; |
800 |
800 |
801 if (((HHGear^.Message and gmPrecise) = 0) or ((GameTicks mod 5) = 1)) then |
801 if (((HHGear^.Message and gmPrecise) = 0) or ((GameTicks mod 5) = 1)) then |