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]