--- 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"])