hedgewars/uAmmos.pas
changeset 2730 f56592281526
parent 2716 b9ca1bfca24f
child 2731 9f5548ce70e4
equal deleted inserted replaced
2729:c216de4d0c93 2730:f56592281526
   105             cnt:= 0;
   105             cnt:= 0;
   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 
       
   111         if ((GameFlags and gfKing) <> 0) and (a <> amTeleport) then Ammoz[a].SkipTurns:= 1;
   110         end else
   112         end else
   111         ammos[a]:= AMMO_INFINITE
   113         ammos[a]:= AMMO_INFINITE
   112     end;
   114     end;
   113 
   115 
   114 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   116 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)