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 : replicate (hhnum t) (eml ["eaddhh 0 ", initHealth, " hedgehog"]) |
96 : take (hhnum t) ( |
|
97 concatMap (\(HedgehogInfo hname hhat) -> [ |
|
98 eml ["eaddhh ", showB $ difficulty t, " ", initHealth, " ", hname] |
|
99 , eml ["ehat ", hhat] |
|
100 ]) |
|
101 $ hedgehogs t |
|
102 ) |
97 |
103 |
98 drawnMapData :: B.ByteString -> [B.ByteString] |
104 drawnMapData :: B.ByteString -> [B.ByteString] |
99 drawnMapData = error "drawnMapData" |
105 drawnMapData = error "drawnMapData" |
100 |
106 |
101 schemeParams :: [(B.ByteString, Int)] |
107 schemeParams :: [(B.ByteString, Int)] |