equal
deleted
inserted
replaced
63 ammos: TAmmoCounts; |
63 ammos: TAmmoCounts; |
64 substr: shortstring; // TEMPORARY |
64 substr: shortstring; // TEMPORARY |
65 begin |
65 begin |
66 TryDo(byte(s[0]) = byte(ord(High(TAmmoType)) + 1), 'Invalid ammo scheme (incompatible frontend)', true); |
66 TryDo(byte(s[0]) = byte(ord(High(TAmmoType)) + 1), 'Invalid ammo scheme (incompatible frontend)', true); |
67 |
67 |
68 // TEMPORARY hardcoded check on shoppa pending creation of probability editor |
68 // FIXME - TEMPORARY hardcoded check on shoppa pending creation of probability editor |
69 substr:= Copy(s,1,15); |
69 substr:= Copy(s,1,15); |
70 if (substr = '000000990000009') or |
70 if (substr = '000000990000009') or |
71 (substr = '000000990000000') then |
71 (substr = '000000990000000') then |
72 shoppa:= true; |
72 shoppa:= true; |
73 for a:= Low(TAmmoType) to High(TAmmoType) do |
73 for a:= Low(TAmmoType) to High(TAmmoType) do |
91 ((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) then |
91 ((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) then |
92 begin |
92 begin |
93 cnt:= 0; |
93 cnt:= 0; |
94 Ammoz[a].Probability:= 0 |
94 Ammoz[a].Probability:= 0 |
95 end |
95 end |
96 else if shoppa then // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED |
96 else if shoppa then // FIXME - TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED |
97 if cnt <> AMMO_INFINITE then |
97 if cnt <> AMMO_INFINITE then |
98 begin |
98 begin |
99 if a = amGirder then |
99 if a = amGirder then |
100 Ammoz[a].Probability:= 0 |
100 Ammoz[a].Probability:= 0 |
101 else |
101 else |