changeset 3255 | 6d6f4241debe |
parent 3114 | 3a3d1ee2ebd0 |
child 3319 | af0d256205c1 |
3254:eb1382353361 | 3255:6d6f4241debe |
---|---|
80 end |
80 end |
81 end |
81 end |
82 end; |
82 end; |
83 |
83 |
84 procedure AddAmmoStore(s: shortstring); |
84 procedure AddAmmoStore(s: shortstring); |
85 const probability: array [0..8] of LongWord = (0,20,30,60,100,150,200,400,600); |
85 const probability: array [0..8] of LongWord = (0,20,30,60,100,200,400,600,800); |
86 var cnt: Longword; |
86 var cnt: Longword; |
87 a: TAmmoType; |
87 a: TAmmoType; |
88 ammos: TAmmoCounts; |
88 ammos: TAmmoCounts; |
89 substr: shortstring; // TEMPORARY |
89 substr: shortstring; // TEMPORARY |
90 begin |
90 begin |