equal
deleted
inserted
replaced
2748 |
2748 |
2749 //////////////////////////////////////////////////////////////////////////////// |
2749 //////////////////////////////////////////////////////////////////////////////// |
2750 procedure doStepSwitcherWork(Gear: PGear); |
2750 procedure doStepSwitcherWork(Gear: PGear); |
2751 var |
2751 var |
2752 HHGear: PGear; |
2752 HHGear: PGear; |
|
2753 hedgehog: PHedgehog; |
2753 State: Longword; |
2754 State: Longword; |
2754 begin |
2755 begin |
2755 AllInactive := false; |
2756 AllInactive := false; |
2756 |
2757 |
2757 if ((Gear^.Message and (not gmSwitch)) <> 0) or (TurnTimeLeft = 0) then |
2758 if ((Gear^.Message and (not gmSwitch)) <> 0) or (TurnTimeLeft = 0) then |
2758 begin |
2759 begin |
2759 HHGear := Gear^.Hedgehog^.Gear; |
2760 hedgehog := Gear^.Hedgehog; |
2760 //Msg := Gear^.Message and (not gmSwitch); |
2761 //Msg := Gear^.Message and (not gmSwitch); |
2761 DeleteGear(Gear); |
2762 DeleteGear(Gear); |
2762 ApplyAmmoChanges(HHGear^.Hedgehog^); |
2763 ApplyAmmoChanges(hedgehog^); |
2763 |
2764 |
2764 HHGear := CurrentHedgehog^.Gear; |
2765 HHGear := CurrentHedgehog^.Gear; |
2765 ApplyAmmoChanges(HHGear^.Hedgehog^); |
2766 ApplyAmmoChanges(HHGear^.Hedgehog^); |
2766 //HHGear^.Message := Msg; |
2767 //HHGear^.Message := Msg; |
2767 exit |
2768 exit |