equal
deleted
inserted
replaced
4809 |
4809 |
4810 //////////////////////////////////////////////////////////////////////////////// |
4810 //////////////////////////////////////////////////////////////////////////////// |
4811 procedure doStepStructure(Gear: PGear); |
4811 procedure doStepStructure(Gear: PGear); |
4812 var |
4812 var |
4813 x, y: LongInt; |
4813 x, y: LongInt; |
4814 hog: PHedgehog; |
|
4815 begin |
4814 begin |
4816 if CurAmmoGear = Gear then |
4815 if CurAmmoGear = Gear then |
4817 begin |
4816 begin |
4818 if (CurrentHedgehog = nil) or (CurrentHedgehog^.Gear = nil) then |
4817 if (CurrentHedgehog = nil) or (CurrentHedgehog^.Gear = nil) then |
4819 begin |
4818 begin |