Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/EngineInteraction.hs
changeset 8499 da5394a3eb0e
parent 8496 a06b1598c3a2
child 8503 e60c84b42f4d 
--- 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"])
hedgewars