equal
deleted
inserted
replaced
468 with PHedgehog(Gear^.Hedgehog)^ do |
468 with PHedgehog(Gear^.Hedgehog)^ do |
469 if (Ammo^[CurSlot, CurAmmo].AmmoType = amRope) |
469 if (Ammo^[CurSlot, CurAmmo].AmmoType = amRope) |
470 and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1; |
470 and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1; |
471 |
471 |
472 if (((Gear^.Message and gm_Precise) = 0) or ((GameTicks mod 5) = 1)) then |
472 if (((Gear^.Message and gm_Precise) = 0) or ((GameTicks mod 5) = 1)) then |
473 if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da) |
473 if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle >= CurMinAngle + da) then dec(Gear^.Angle, da) |
474 else |
474 else |
475 if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle + da <= CurMaxAngle) then inc(Gear^.Angle, da) |
475 if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle + da <= CurMaxAngle) then inc(Gear^.Angle, da) |
476 end; |
476 end; |
477 |
477 |
478 procedure doStepHedgehog(Gear: PGear); forward; |
478 procedure doStepHedgehog(Gear: PGear); forward; |