# HG changeset patch
# User unc0rr
# Date 1360698461 -14400
# Node ID da5394a3eb0ee019969157de6839705cb939b6eb
# Parent  eecadca7db50386c33a47221c65c011eda72613c
 - Add forgotten ammo definitions
 - Fix addteam arguments

diff -r eecadca7db50 -r da5394a3eb0e gameServer/EngineInteraction.hs
--- a/gameServer/EngineInteraction.hs	Mon Feb 11 10:20:07 2013 +0400
+++ b/gameServer/EngineInteraction.hs	Tue Feb 12 23:47:41 2013 +0400
@@ -89,8 +89,8 @@
                    ++ [em "eammstore" | scheme !! 14 == "true" || scheme !! 20 == "false"]
         initHealth = scheme !! 27
         teamSetup :: TeamInfo -> [B.ByteString]
-        teamSetup t = 
-                eml ["eaddteam 20", teamcolor t, " ", teamowner t, " <hash>"]
+        teamSetup t = (++) ammo $
+                eml ["eaddteam <hash> ", showB $ (1 + (readInt_ $ teamcolor t) :: Int) * 1234, " ", teamname t]
                 : em "erdriven"
                 : eml ["efort ", teamfort t]
                 : replicate (hhnum t) (eml ["eaddhh 0 ", initHealth, " hedgehog"])