equal
deleted
inserted
replaced
600 end |
600 end |
601 end; |
601 end; |
602 |
602 |
603 procedure chAmmoMenu(var s: shortstring); |
603 procedure chAmmoMenu(var s: shortstring); |
604 begin |
604 begin |
605 if CheckNoTeamOrHH then exit; |
605 if CheckNoTeamOrHH then |
606 with CurrentTeam^ do |
606 bShowAmmoMenu:= true |
607 with Hedgehogs[CurrHedgehog] do |
607 else |
608 begin |
608 with CurrentTeam^ do |
609 bSelected:= false; |
609 with Hedgehogs[CurrHedgehog] do |
610 |
610 begin |
611 if bShowAmmoMenu then bShowAmmoMenu:= false |
611 bSelected:= false; |
612 else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (MultiShootAttacks > 0) |
612 |
613 or ((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true |
613 if bShowAmmoMenu then bShowAmmoMenu:= false |
614 end |
614 else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (MultiShootAttacks > 0) |
|
615 or ((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true |
|
616 end |
615 end; |
617 end; |
616 |
618 |
617 procedure chFullScr(var s: shortstring); |
619 procedure chFullScr(var s: shortstring); |
618 var flags: Longword = 0; |
620 var flags: Longword = 0; |
619 ico: PSDL_Surface; |
621 ico: PSDL_Surface; |