equal
deleted
inserted
replaced
2168 else |
2168 else |
2169 inc(uTot, Ammoz[i].Probability); |
2169 inc(uTot, Ammoz[i].Probability); |
2170 |
2170 |
2171 t:=0; |
2171 t:=0; |
2172 a:=aTot; |
2172 a:=aTot; |
2173 h:= 0; |
2173 h:= 1; |
2174 // FIXME - shoppa is TEMPORARY REMOVE WHEN CRATE PROBABILITY ALLOWS DISABLING OF HEALTH CRATES |
2174 // FIXME - shoppa is TEMPORARY REMOVE WHEN CRATE PROBABILITY ALLOWS DISABLING OF HEALTH CRATES |
2175 // Preserving health crate distribution of 35% until that happens |
2175 // Preserving health crate distribution of 35% until that happens |
2176 if not shoppa and ((GameFlags and gfInvulnerable) = 0) and ((aTot+uTot)<>0) then |
2176 if (aTot+uTot) <> 0 then |
2177 begin |
2177 if not shoppa and ((GameFlags and gfInvulnerable) = 0) then |
2178 h:= 3500; |
2178 begin |
2179 t:= GetRandom(10000); |
2179 h:= 3500; |
2180 a:= 6500*aTot div (aTot+uTot) |
2180 t:= GetRandom(10000); |
2181 end |
2181 a:= 6500*aTot div (aTot+uTot) |
2182 else t:= GetRandom(aTot+uTot); |
2182 end |
|
2183 else |
|
2184 begin |
|
2185 t:= GetRandom(aTot+uTot); |
|
2186 h:= 0 |
|
2187 end; |
2183 |
2188 |
2184 |
2189 |
2185 if t<h then |
2190 if t<h then |
2186 begin |
2191 begin |
2187 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |
2192 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |