hedgewars/uAmmos.pas
changeset 4141 2bd5ecf7b4fb
parent 4102 96efb3bbf8e3
child 4143 eb7981f34800
equal deleted inserted replaced
4140:1563b216f243 4141:2bd5ecf7b4fb
    96     substr: shortstring; // TEMPORARY
    96     substr: shortstring; // TEMPORARY
    97 begin
    97 begin
    98 TryDo((byte(ammoLoadout[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoProbability[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoDelay[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoReinforcement[0]) = byte(ord(High(TAmmoType)))), 'Incomplete or missing ammo scheme set (incompatible frontend or demo/save?)', true);
    98 TryDo((byte(ammoLoadout[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoProbability[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoDelay[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoReinforcement[0]) = byte(ord(High(TAmmoType)))), 'Incomplete or missing ammo scheme set (incompatible frontend or demo/save?)', true);
    99 
    99 
   100 // FIXME - TEMPORARY hardcoded check on shoppa pending creation of crate *type* probability editor
   100 // FIXME - TEMPORARY hardcoded check on shoppa pending creation of crate *type* probability editor
   101 substr:= Copy(ammoLoadout,1,39);
   101 substr:= Copy(ammoLoadout,1,42);
   102 if (substr = '000000990000009000000000000000000000000000') or  // ropes + parachute
   102 if (substr = '000000990000009000000000000000000000000000') or  // ropes + parachute
   103    (substr = '000000900000000000000000000000000000009000') or  // saucer
   103    (substr = '000000900000000000000000000000000000009000') or  // saucer
   104    (substr = '000000900000000000000000000000000000000009') or  // portal
   104    (substr = '000000900000000000000000000000000000000009') or  // portal
   105    (substr = '000000990000000000000000000000000000000000')     // ropes
   105    (substr = '000000990000000000000000000000000000000000')     // ropes
   106    then shoppa:= true;
   106    then shoppa:= true;