equal
deleted
inserted
replaced
537 |
537 |
538 procedure chAmmoMenu(var s: shortstring); |
538 procedure chAmmoMenu(var s: shortstring); |
539 begin |
539 begin |
540 s:= s; // avoid compiler hint |
540 s:= s; // avoid compiler hint |
541 if CheckNoTeamOrHH then |
541 if CheckNoTeamOrHH then |
542 bShowAmmoMenu:= true |
542 bShowAmmoMenu:= (not bShowAmmoMenu) |
543 else |
543 else |
544 begin |
544 begin |
545 with CurrentTeam^ do |
545 with CurrentTeam^ do |
546 with Hedgehogs[CurrHedgehog] do |
546 with Hedgehogs[CurrHedgehog] do |
547 begin |
547 begin |