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 = (++) ammo $ |
92 teamSetup t = (++) ammo $ |
93 eml ["eaddteam <hash> ", showB $ (1 + (readInt_ $ teamcolor t) :: Int) * 1234, " ", teamname t] |
93 eml ["eaddteam <hash> ", showB $ (1 + (readInt_ $ teamcolor t) :: Int) * 2113696, " ", teamname t] |
94 : em "erdriven" |
94 : em "erdriven" |
95 : eml ["efort ", teamfort t] |
95 : eml ["efort ", teamfort t] |
96 : take (2 * hhnum t) ( |
96 : take (2 * hhnum t) ( |
97 concatMap (\(HedgehogInfo hname hhat) -> [ |
97 concatMap (\(HedgehogInfo hname hhat) -> [ |
98 eml ["eaddhh ", showB $ difficulty t, " ", initHealth, " ", hname] |
98 eml ["eaddhh ", showB $ difficulty t, " ", initHealth, " ", hname] |