changeset 2369 | c3eb11f1ab3a |
parent 2364 | 272977d2df53 |
child 2370 | 2ff8fce5e06f |
2368:e0750b23c9e6 | 2369:c3eb11f1ab3a |
---|---|
56 inc(mi[Ammoz[a].Slot]) |
56 inc(mi[Ammoz[a].Slot]) |
57 end |
57 end |
58 end; |
58 end; |
59 |
59 |
60 procedure AddAmmoStore(s: shortstring); |
60 procedure AddAmmoStore(s: shortstring); |
61 // [0,20,30,60,100,150,200,400,600] |
|
61 var cnt: Longword; |
62 var cnt: Longword; |
62 a: TAmmoType; |
63 a: TAmmoType; |
63 ammos: TAmmoCounts; |
64 ammos: TAmmoCounts; |
64 substr: shortstring; // TEMPORARY |
65 substr: shortstring; // TEMPORARY |
65 begin |
66 begin |