diff -r 49e657b77499 -r 0cd63b963330 gameServer/EngineInteraction.hs --- a/gameServer/EngineInteraction.hs Thu Feb 21 22:31:03 2013 +0400 +++ b/gameServer/EngineInteraction.hs Thu Feb 21 22:43:00 2013 +0400 @@ -90,7 +90,7 @@ initHealth = scheme !! 27 teamSetup :: TeamInfo -> [B.ByteString] teamSetup t = (++) ammo $ - eml ["eaddteam ", showB $ (1 + (readInt_ $ teamcolor t) :: Int) * 1234, " ", teamname t] + eml ["eaddteam ", showB $ (1 + (readInt_ $ teamcolor t) :: Int) * 2113696, " ", teamname t] : em "erdriven" : eml ["efort ", teamfort t] : take (2 * hhnum t) (