equal
deleted
inserted
replaced
401 begin |
401 begin |
402 with PHedgehog(Gear^.Hedgehog)^ do |
402 with PHedgehog(Gear^.Hedgehog)^ do |
403 if (Ammo^[CurSlot, CurAmmo].AmmoType = amRope) |
403 if (Ammo^[CurSlot, CurAmmo].AmmoType = amRope) |
404 and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1; |
404 and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1; |
405 |
405 |
406 if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da) |
406 if (((Gear^.Message and gm_Precise) = 0) or ((GameTicks mod 5) = 1)) then |
407 else |
407 if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da) |
408 if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle + da <= CurMaxAngle) then inc(Gear^.Angle, da); |
408 else |
|
409 if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle + da <= CurMaxAngle) then inc(Gear^.Angle, da); |
409 end; |
410 end; |
410 |
411 |
411 procedure doStepHedgehog(Gear: PGear); forward; |
412 procedure doStepHedgehog(Gear: PGear); forward; |
412 //////////////////////////////////////////////////////////////////////////////// |
413 //////////////////////////////////////////////////////////////////////////////// |
413 procedure doStepHedgehogMoving(Gear: PGear); |
414 procedure doStepHedgehogMoving(Gear: PGear); |