equal
deleted
inserted
replaced
371 AddGearCI(Gear) |
371 AddGearCI(Gear) |
372 end |
372 end |
373 end; |
373 end; |
374 |
374 |
375 procedure HedgehogChAngle(Gear: PGear); |
375 procedure HedgehogChAngle(Gear: PGear); |
376 begin |
376 var da: LongWord; |
377 if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle > CurMinAngle) then dec(Gear^.Angle) |
377 begin |
|
378 with PHedgehog(Gear^.Hedgehog)^ do |
|
379 if (Ammo^[CurSlot, CurAmmo].AmmoType = amRope) |
|
380 and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1; |
|
381 |
|
382 if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da) |
378 else |
383 else |
379 if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle < CurMaxAngle) then inc(Gear^.Angle); |
384 if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle + da <= CurMaxAngle) then inc(Gear^.Angle, da); |
380 end; |
385 end; |
381 |
386 |
382 procedure doStepHedgehog(Gear: PGear); forward; |
387 procedure doStepHedgehog(Gear: PGear); forward; |
383 //////////////////////////////////////////////////////////////////////////////// |
388 //////////////////////////////////////////////////////////////////////////////// |
384 procedure doStepHedgehogMoving(Gear: PGear); |
389 procedure doStepHedgehogMoving(Gear: PGear); |