src/StdTeam/Team_Opponent_Slalom_Assignment.icl

   1 implementation module Team_Opponent_Slalom_Assignment
   2
   3 import StdReal
   4 import Footballer
   5
   6 Team_Opponent_Slalom :: !Home FootballField -> Team
   7 Team_Opponent_Slalom home field
   8                                 = if (home == West) dummies (mirror field dummies)
   9 where
  10         club            = base_TeamName_Opponent_Slalom +++ if (home == West) "_W" "_E"
  11         keeper          = Nothing
  12         dummies         = [dummy1,dummy2,dummy3,dummy4,dummy5]
  13         dummy1          = {defaultFootballer {clubName=club,playerNr=2} & pos={zero & px = west_edge + scale 0.09 field.flength}}
  14         dummy2          = {defaultFootballer {clubName=club,playerNr=3} & pos={zero & px = west_edge + scale 0.19 field.flength}}
  15         dummy3          = {defaultFootballer {clubName=club,playerNr=4} & pos={zero & px = west_edge + scale 0.24 field.flength}}
  16         dummy4          = {defaultFootballer {clubName=club,playerNr=5} & pos={zero & px =             scale 0.11 field.flength}}
  17         dummy5          = {defaultFootballer {clubName=club,playerNr=6} & pos={zero & px =             scale 0.15 field.flength}}
  18         west_edge       = scale -0.5 field.flength
  19
  20 base_TeamName_Opponent_Slalom :: String
  21 base_TeamName_Opponent_Slalom = "Opp_Slalom"