# HG changeset patch
# User nemo
# Date 1255621782 0
# Node ID fdb76012b6884b9c034d4e1fdb8fc5645ac314b0
# Parent  a6edc408a37657e53c4afd0195e76beef5130ac5
Restore crate probability restriction for "shoppa" weapon sets

diff -r a6edc408a376 -r fdb76012b688 hedgewars/uAmmos.pas
--- a/hedgewars/uAmmos.pas	Thu Oct 15 15:33:43 2009 +0000
+++ b/hedgewars/uAmmos.pas	Thu Oct 15 15:49:42 2009 +0000
@@ -62,9 +62,16 @@
 var cnt: Longword;
     a: TAmmoType;
     ammos: TAmmoCounts;
+    substr: shortstring; // TEMPORARY
 begin
 TryDo(byte(s[0]) = byte(ord(High(TAmmoType))) * 2, 'Invalid ammo scheme (incompatible frontend)', true);
 
+// FIXME - TEMPORARY hardcoded check on shoppa pending creation of crate *type* probability editor
+substr:= Copy(s,1,15);
+if (substr = '000000990000009') or 
+   (substr = '000000990000000') then
+    shoppa:= true;
+
 inc(StoreCnt);
 TryDo(StoreCnt <= cMaxHHs, 'Ammo stores overflow', true);