hedgewars/uStore.pas
changeset 13370 e202d58236b1
parent 13343 93325e13d329
child 13453 8f746b6a477c
equal deleted inserted replaced
13369:2eb09b27fbba 13370:e202d58236b1
  1006 
  1006 
  1007 // default (no extra text)
  1007 // default (no extra text)
  1008 extra:= _S'';
  1008 extra:= _S'';
  1009 extracolor:= 0;
  1009 extracolor:= 0;
  1010 
  1010 
  1011 if (CurrentTeam <> nil) and (Ammoz[atype].SkipTurns >= CurrentTeam^.Clan^.TurnNumber) then // weapon or utility is not yet available
  1011 if (trluaammoe[Ammoz[atype].NameId] = true) then
  1012     begin
  1012     if (CurrentTeam <> nil) and (Ammoz[atype].SkipTurns >= CurrentTeam^.Clan^.TurnNumber) then // weapon or utility is not yet available
  1013     if (atype = amTardis) and (SuddenDeathActive) then
  1013         begin
  1014         extra:= trmsg[sidNotAvailableInSD]
  1014         if (atype = amTardis) and (SuddenDeathActive) then
  1015     else
  1015             extra:= trmsg[sidNotAvailableInSD]
  1016         extra:= trmsg[sidNotYetAvailable];
  1016         else
  1017     extracolor:= LongInt($ffc77070);
  1017             extra:= trmsg[sidNotYetAvailable];
  1018     end
  1018         extracolor:= LongInt($ffc77070);
  1019 else if (((GameFlags and gfInfAttack) <> 0) and ((Ammoz[atype].Ammo.Propz and ammoprop_ForceTurnEnd) = 0)) or ((Ammoz[atype].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) then
  1019         end
  1020     // weapon or utility will not end your turn
  1020     else if (((GameFlags and gfInfAttack) <> 0) and ((Ammoz[atype].Ammo.Propz and ammoprop_ForceTurnEnd) = 0)) or ((Ammoz[atype].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) then
  1021     begin
  1021         // weapon or utility will not end your turn
  1022     extra:= trmsg[sidNoEndTurn];
  1022         begin
  1023     extracolor:= LongInt($ff70c770);
  1023         extra:= trmsg[sidNoEndTurn];
  1024     end
  1024         extracolor:= LongInt($ff70c770);
  1025 else
  1025         end;
  1026     begin
       
  1027     extra:= _S'';
       
  1028     extracolor:= 0;
       
  1029     end;
       
  1030 
  1026 
  1031 if length(trluaammo[Ammoz[atype].NameId]) > 0  then
  1027 if length(trluaammo[Ammoz[atype].NameId]) > 0  then
  1032     ammoname := trluaammo[Ammoz[atype].NameId]
  1028     ammoname := trluaammo[Ammoz[atype].NameId]
  1033 else
  1029 else
  1034     ammoname := trammo[Ammoz[atype].NameId];
  1030     ammoname := trammo[Ammoz[atype].NameId];