hedgewars/uAmmos.pas
changeset 2731 9f5548ce70e4
parent 2730 f56592281526
child 2732 d893901eff4a
equal deleted inserted replaced
2730:f56592281526 2731:9f5548ce70e4
   106             Ammoz[a].Probability:= 0
   106             Ammoz[a].Probability:= 0
   107             end;
   107             end;
   108         ammos[a]:= cnt;
   108         ammos[a]:= cnt;
   109         if shoppa then Ammoz[a].NumberInCase:= 1;  // FIXME - TEMPORARY remove when crate number in case editor is added
   109         if shoppa then Ammoz[a].NumberInCase:= 1;  // FIXME - TEMPORARY remove when crate number in case editor is added
   110 
   110 
   111         if ((GameFlags and gfKing) <> 0) and (a <> amTeleport) then Ammoz[a].SkipTurns:= 1;
   111         if ((GameFlags and gfKing) <> 0) and (a <> amTeleport) and (a <> amSkip) then Ammoz[a].SkipTurns:= 1;
   112         end else
   112         end else
   113         ammos[a]:= AMMO_INFINITE
   113         ammos[a]:= AMMO_INFINITE
   114     end;
   114     end;
   115 
   115 
   116 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   116 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)