gameServer/EngineInteraction.hs
changeset 8527 bf671ddf467c
parent 8506 3889dab021b8
child 8541 0cd63b963330
--- a/gameServer/EngineInteraction.hs	Thu Feb 21 01:26:38 2013 +0400
+++ b/gameServer/EngineInteraction.hs	Thu Feb 21 01:27:21 2013 +0400
@@ -93,7 +93,7 @@
                 eml ["eaddteam <hash> ", showB $ (1 + (readInt_ $ teamcolor t) :: Int) * 1234, " ", teamname t]
                 : em "erdriven"
                 : eml ["efort ", teamfort t]
-                : take (hhnum t) (
+                : take (2 * hhnum t) (
                     concatMap (\(HedgehogInfo hname hhat) -> [
                             eml ["eaddhh ", showB $ difficulty t, " ", initHealth, " ", hname]
                             , eml ["ehat ", hhat]