changeset 2061 | 0f99aa28b9f4 |
parent 2017 | 7845c77c8d31 |
child 2073 | a735c41d97dc |
--- a/hedgewars/uAmmos.pas Fri May 15 17:15:37 2009 +0000 +++ b/hedgewars/uAmmos.pas Sat May 16 14:51:04 2009 +0000 @@ -95,7 +95,12 @@ end else if shoppa then // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED if not cnt = AMMO_INFINITE then - Ammoz[a].Probability:= 100; + begin + if a = amGirder then + Ammoz[a].Probability:= 0 + else + Ammoz[a].Probability:= 100 + end; ammos[a]:= cnt end;