Fix index of script param
authorunc0rr
Sun, 14 Feb 2016 20:57:17 +0300
changeset 11552 2bbbe9cb2980
parent 11551 59bf29b4f523
child 11553 45982bda46cc
Fix index of script param
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