equal
deleted
inserted
replaced
693 |
693 |
694 procedure HedgehogStep(Gear: PGear); |
694 procedure HedgehogStep(Gear: PGear); |
695 var PrevdX: LongInt; |
695 var PrevdX: LongInt; |
696 CurWeapon: PAmmo; |
696 CurWeapon: PAmmo; |
697 begin |
697 begin |
|
698 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then exit; |
698 CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^); |
699 CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^); |
699 if ((Gear^.State and (gstAttacking or gstMoving)) = 0) then |
700 if ((Gear^.State and (gstAttacking or gstMoving)) = 0) then |
700 begin |
701 begin |
701 if isCursorVisible then |
702 if isCursorVisible then |
702 with Gear^.Hedgehog^ do |
703 with Gear^.Hedgehog^ do |