X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2FGame%2FTeam.icl;h=21c0286fd770b6db1863040c8007b516342295c1;hb=HEAD;hp=d41af0bdd323ebda905e0b60f77bb98dc0bb5015;hpb=27de4a1e16c36ce943c53362117f899f4f36fa84;p=fp1415-soccerfun.git diff --git a/src/Game/Team.icl b/src/Game/Team.icl index d41af0b..21c0286 100644 --- a/src/Game/Team.icl +++ b/src/Game/Team.icl @@ -14,6 +14,7 @@ import Team_Student_Passing_Assignment import Team_Student_DeepPass_Assignment import Team_Student_Keeper_Assignment import Team_MartLubbers +import Team_Harmless allAvailableTeams :: [Home FootballField -> Team] allAvailableTeams = [ Team_MartLubbers @@ -27,7 +28,7 @@ allAvailableTeams = [ Team_MartLubbers , Team_Opponent_Passing , Team_Opponent_DeepPass , Team_Opponent_Keeper - ] + ] ++ [MostlyHarmless (11, Level n) \\ n <- [0..10]] instance nameOf Team where nameOf players = case players of