author | unc0rr |
Thu, 21 Feb 2013 01:27:21 +0400 | |
changeset 8527 | bf671ddf467c |
parent 8525 | 81630d47dc0f |
child 8529 | 124b49fa408b |
--- 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]