equal
deleted
inserted
replaced
805 |
805 |
806 procedure HedgehogChAngle(HHGear: PGear); |
806 procedure HedgehogChAngle(HHGear: PGear); |
807 var da: LongWord; |
807 var da: LongWord; |
808 begin |
808 begin |
809 with HHGear^.Hedgehog^ do |
809 with HHGear^.Hedgehog^ do |
810 if ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amRope) and ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving)) |
810 if (((CurAmmoType = amRope) or ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amRope))) and |
|
811 ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving)) |
811 or ((CurAmmoType = amPortalGun) and ((HHGear^.State and gstMoving) <> 0)) then |
812 or ((CurAmmoType = amPortalGun) and ((HHGear^.State and gstMoving) <> 0)) then |
812 da:= 2 |
813 da:= 2 |
813 else da:= 1; |
814 else da:= 1; |
814 |
815 |
815 if ((HHGear^.Message and gmPrecise = 0) or ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack))) or (GameTicks mod 5 = 1) then |
816 if ((HHGear^.Message and gmPrecise = 0) or ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack))) or (GameTicks mod 5 = 1) then |