hedgewars/uAmmos.pas
changeset 3075 b4ef08187d22
parent 3052 1d60306f6b34
child 3114 3a3d1ee2ebd0
equal deleted inserted replaced
3074:271cfcb2bcda 3075:b4ef08187d22
    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
    91 TryDo(byte(s[0]) = byte(ord(High(TAmmoType))) * 4, 'Invalid ammo scheme (incompatible frontend)', true);
    91 TryDo(byte(s[0]) = byte(ord(High(TAmmoType))) * 4, 'Invalid ammo scheme (incompatible frontend; got: ' + inttostr(byte(s[0]) div 4) + ', expected: ' + inttostr(ord(High(TAmmoType))) + ')', true);
    92 
    92 
    93 // FIXME - TEMPORARY hardcoded check on shoppa pending creation of crate *type* probability editor
    93 // FIXME - TEMPORARY hardcoded check on shoppa pending creation of crate *type* probability editor
    94 substr:= Copy(s,1,15);
    94 substr:= Copy(s,1,15);
    95 if (substr = '000000990000009') or 
    95 if (substr = '000000990000009') or 
    96    (substr = '000000990000000') then
    96    (substr = '000000990000000') then