hedgewars/uAmmos.pas
changeset 1895 7ba647a88b2f
parent 1865 ebc6dfca60d4
child 1909 30fa1608b54f
equal deleted inserted replaced
1894:ba54441631da 1895:7ba647a88b2f
    72     if cnt = 9 then
    72     if cnt = 9 then
    73         begin
    73         begin
    74         cnt:= AMMO_INFINITE;
    74         cnt:= AMMO_INFINITE;
    75         Ammoz[a].Probability:= 0 
    75         Ammoz[a].Probability:= 0 
    76         end;
    76         end;
       
    77     if ((a = amLowGravity) and ((GameFlags and gfLowGravity) <> 0)) or
       
    78        ((a = amInvulnerable) and ((GameFlags and gfInvulnerable) <> 0)) or
       
    79        ((a = amLaserSight) and ((GameFlags and gfLaserSight) <> 0)) then
       
    80         begin
       
    81         cnt:= 0;
       
    82         Ammoz[a].Probability:= 0 
       
    83         end;
    77     ammos[a]:= cnt
    84     ammos[a]:= cnt
    78     end;
    85     end;
    79 
    86 
    80 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
    87 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
    81 end;
    88 end;