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