equal
deleted
inserted
replaced
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) * 1234, " ", teamname t] |
94 : em "erdriven" |
94 : em "erdriven" |
95 : eml ["efort ", teamfort t] |
95 : eml ["efort ", teamfort t] |
96 : take (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] |
99 , eml ["ehat ", hhat] |
99 , eml ["ehat ", hhat] |
100 ]) |
100 ]) |
101 $ hedgehogs t |
101 $ hedgehogs t |