changeset 8496 | a06b1598c3a2 |
parent 8485 | 7cae79214537 |
child 8499 | da5394a3eb0e |
8495:f1223400b473 | 8496:a06b1598c3a2 |
---|---|
88 (map (\(x, y) -> eml [x, " ", y]) $ zip ["eammloadt", "eammprob", "eammdelay", "eammreinf"] [a, b, c, d]) |
88 (map (\(x, y) -> eml [x, " ", y]) $ zip ["eammloadt", "eammprob", "eammdelay", "eammreinf"] [a, b, c, d]) |
89 ++ [em "eammstore" | scheme !! 14 == "true" || scheme !! 20 == "false"] |
89 ++ [em "eammstore" | scheme !! 14 == "true" || scheme !! 20 == "false"] |
90 initHealth = scheme !! 27 |
90 initHealth = scheme !! 27 |
91 teamSetup :: TeamInfo -> [B.ByteString] |
91 teamSetup :: TeamInfo -> [B.ByteString] |
92 teamSetup t = |
92 teamSetup t = |
93 eml ["eaddteam ", teamcolor t, " ", teamowner t, " <hash>"] |
93 eml ["eaddteam 20", teamcolor t, " ", teamowner t, " <hash>"] |
94 : em "erdriven" |
94 : em "erdriven" |
95 : eml ["efort ", teamfort t] |
95 : eml ["efort ", teamfort t] |
96 : replicate (hhnum t) (eml ["eaddhh 0 ", initHealth, " hedgehog"]) |
96 : replicate (hhnum t) (eml ["eaddhh 0 ", initHealth, " hedgehog"]) |
97 |
97 |
98 drawnMapData :: B.ByteString -> [B.ByteString] |
98 drawnMapData :: B.ByteString -> [B.ByteString] |