equal
deleted
inserted
replaced
3476 ApplyAmmoChanges(hedgehog^); |
3476 ApplyAmmoChanges(hedgehog^); |
3477 |
3477 |
3478 HHGear := CurrentHedgehog^.Gear; |
3478 HHGear := CurrentHedgehog^.Gear; |
3479 ApplyAmmoChanges(HHGear^.Hedgehog^); |
3479 ApplyAmmoChanges(HHGear^.Hedgehog^); |
3480 DeleteGear(Gear); |
3480 DeleteGear(Gear); |
|
3481 bShowSwitcher:= false; |
3481 exit |
3482 exit |
3482 end; |
3483 end; |
3483 |
3484 |
3484 HHGear := CurrentHedgehog^.Gear; |
3485 HHGear := CurrentHedgehog^.Gear; |
3485 if (Gear^.Message and gmSwitch) <> 0 then |
3486 if (Gear^.Message and gmSwitch) <> 0 then |
3536 procedure doStepSwitcher(Gear: PGear); |
3537 procedure doStepSwitcher(Gear: PGear); |
3537 var |
3538 var |
3538 HHGear: PGear; |
3539 HHGear: PGear; |
3539 begin |
3540 begin |
3540 Gear^.doStep := @doStepSwitcherWork; |
3541 Gear^.doStep := @doStepSwitcherWork; |
|
3542 |
|
3543 // Note: The game assumes there's at most only one gtSwitcher gear in the game. |
|
3544 bShowSwitcher:= true; |
3541 |
3545 |
3542 HHGear := Gear^.Hedgehog^.Gear; |
3546 HHGear := Gear^.Hedgehog^.Gear; |
3543 OnUsedAmmo(HHGear^.Hedgehog^); |
3547 OnUsedAmmo(HHGear^.Hedgehog^); |
3544 with HHGear^ do |
3548 with HHGear^ do |
3545 begin |
3549 begin |