Prevent 'black team color' error
authorunc0rr
Mon, 11 Feb 2013 00:14:05 +0400
changeset 8496 a06b1598c3a2
parent 8495 f1223400b473
child 8497 c5605c6f5bb3
Prevent 'black team color' error
gameServer/EngineInteraction.hs
--- a/gameServer/EngineInteraction.hs	Sun Feb 10 22:58:16 2013 +0400
+++ b/gameServer/EngineInteraction.hs	Mon Feb 11 00:14:05 2013 +0400
@@ -90,7 +90,7 @@
         initHealth = scheme !! 27
         teamSetup :: TeamInfo -> [B.ByteString]
         teamSetup t = 
-                eml ["eaddteam ", teamcolor t, " ", teamowner t, " <hash>"]
+                eml ["eaddteam 20", teamcolor t, " ", teamowner t, " <hash>"]
                 : em "erdriven"
                 : eml ["efort ", teamfort t]
                 : replicate (hhnum t) (eml ["eaddhh 0 ", initHealth, " hedgehog"])