Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Add forgotten ammo definitions
authorunc0rr
Tue, 12 Feb 2013 23:47:41 +0400
changeset 8499 da5394a3eb0e
parent 8498 eecadca7db50
child 8500 7a20d3142284
- Add forgotten ammo definitions - Fix addteam arguments
gameServer/EngineInteraction.hs file | annotate | diff | comparison | revisions 
--- 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