# HG changeset patch
# User unc0rr
# Date 1455472637 -10800
# Node ID 2bbbe9cb29808a37fc6f55c0383ee84ea4bacd52
# Parent  59bf29b4f52301b1440b1f3bddf00695c16ef0f6
Fix index of script param

diff -r 59bf29b4f523 -r 2bbbe9cb2980 gameServer/EngineInteraction.hs
--- a/gameServer/EngineInteraction.hs	Sat Feb 13 12:32:08 2016 +0300
+++ b/gameServer/EngineInteraction.hs	Sun Feb 14 20:57:17 2016 +0300
@@ -144,7 +144,7 @@
         schemeFlags = map (\(v, (n, m)) -> eml [n, " ", showB $ (readInt_ v) * m])
             $ filter (\(_, (n, _)) -> not $ B.null n)
             $ zip (drop (length gameFlagConsts) scheme) schemeParams
-        schemeAdditional = let scriptParam = B.tail $ scheme !! 41 in [eml ["e$scriptparam ", scriptParam] | not $ B.null scriptParam]
+        schemeAdditional = let scriptParam = B.tail $ scheme !! 42 in [eml ["e$scriptparam ", scriptParam] | not $ B.null scriptParam]
         ammoStr :: B.ByteString
         ammoStr = head . tail $ prms Map.! "AMMO"
         ammo = let l = B.length ammoStr `div` 4; ((a, b), (c, d)) = (B.splitAt l . fst &&& B.splitAt l . snd) . B.splitAt (l * 2) $ ammoStr in