--- a/hedgewars/uAmmos.pas	Wed Nov 03 12:28:44 2010 -0400
+++ b/hedgewars/uAmmos.pas	Wed Nov 03 13:00:17 2010 -0400
@@ -98,10 +98,12 @@
 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);
 
 // FIXME - TEMPORARY hardcoded check on shoppa pending creation of crate *type* probability editor
-substr:= Copy(ammoLoadout,1,15);
-if (substr = '000000990000009') or
-   (substr = '000000990000000') then
-    shoppa:= true;
+substr:= Copy(ammoLoadout,1,39);
+if (substr = '000000990000009000000000000000000000000000') or  // ropes + parachute
+   (substr = '000000900000000000000000000000000000009000') or  // saucer
+   (substr = '000000900000000000000000000000000000000009') or  // portal
+   (substr = '000000990000000000000000000000000000000000')     // ropes
+   then shoppa:= true;
 
 inc(StoreCnt);
 TryDo(StoreCnt <= cMaxHHs, 'Ammo stores overflow', true);