hedgewars/uAmmos.pas
changeset 2769 82bfcc006afb
parent 2767 77c030ac978e
child 2796 7f86e7ad378b
equal deleted inserted replaced
2768:b7e0b0751179 2769:82bfcc006afb
   124             Ammoz[a].Probability:= 0
   124             Ammoz[a].Probability:= 0
   125             end;
   125             end;
   126         ammos[a]:= cnt;
   126         ammos[a]:= cnt;
   127         if shoppa then Ammoz[a].NumberInCase:= 1;  // FIXME - TEMPORARY remove when crate number in case editor is added
   127         if shoppa then Ammoz[a].NumberInCase:= 1;  // FIXME - TEMPORARY remove when crate number in case editor is added
   128 
   128 
   129         if ((GameFlags and gfKing) <> 0) and (Ammoz[a].SkipTurns = 0) and (a <> amTeleport) and (a <> amSkip) then 
   129         if ((GameFlags and gfKing) <> 0) and ((GameFlags and gfPlaceHog) = 0) and (Ammoz[a].SkipTurns = 0) and (a <> amTeleport) and (a <> amSkip) then 
   130             Ammoz[a].SkipTurns:= 1;
   130             Ammoz[a].SkipTurns:= 1;
   131 
   131 
   132         if ((GameFlags and gfPlaceHog) <> 0) and
   132         if ((GameFlags and gfPlaceHog) <> 0) and
   133             (a <> amTeleport) and (a <> amSkip) and 
   133             (a <> amTeleport) and (a <> amSkip) and 
   134             (Ammoz[a].SkipTurns < 10000) then inc(Ammoz[a].SkipTurns,10000)
   134             (Ammoz[a].SkipTurns < 10000) then inc(Ammoz[a].SkipTurns,10000)