hedgewars/uCommandHandlers.pas
changeset 12847 1aba77b2e4ac
parent 12815 92218a06c9ff
child 12990 8dd95c095882
equal deleted inserted replaced
12846:e5c461729fe3 12847:1aba77b2e4ac
   531     begin
   531     begin
   532     SetRandomSeed(s, true);
   532     SetRandomSeed(s, true);
   533     cSeed:= s;
   533     cSeed:= s;
   534     InitStepsFlags:= InitStepsFlags or cifRandomize
   534     InitStepsFlags:= InitStepsFlags or cifRandomize
   535     end
   535     end
   536     end;
   536 end;
   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