hedgewars/uAmmos.pas
changeset 6472 bced12412f94
parent 6131 4e8816cf9459
child 6515 74a04089bb56
equal deleted inserted replaced
6471:010ec2fa7d7b 6472:bced12412f94
   109         // merge this into DisableSomeWeapons ?
   109         // merge this into DisableSomeWeapons ?
   110         if ((a = amLowGravity) and ((GameFlags and gfLowGravity) <> 0)) or
   110         if ((a = amLowGravity) and ((GameFlags and gfLowGravity) <> 0)) or
   111            ((a = amInvulnerable) and ((GameFlags and gfInvulnerable) <> 0)) or
   111            ((a = amInvulnerable) and ((GameFlags and gfInvulnerable) <> 0)) or
   112            ((a = amLaserSight) and ((GameFlags and gfLaserSight) <> 0)) or
   112            ((a = amLaserSight) and ((GameFlags and gfLaserSight) <> 0)) or
   113            ((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) or
   113            ((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) or
   114            ((a = amExtraTime) and (cHedgehogTurnTime >= 1000000)) or
   114            ((a = amExtraTime) and (cHedgehogTurnTime >= 1000000)) then
   115             (a = amStructure) then
       
   116             begin
   115             begin
   117             cnt:= 0;
   116             cnt:= 0;
   118             Ammoz[a].Probability:= 0
   117             Ammoz[a].Probability:= 0
   119             end;
   118             end;
   120         ammos[a]:= cnt;
   119         ammos[a]:= cnt;