initial team

[fp1415-soccerfun.git] / src / Team_MartLubbers.icl

diff --git a/src/Team_MartLubbers.icl b/src/Team_MartLubbers.icl
new file mode 100644 (file)
index 0000000..37db883
--- /dev/null
+++ b/src/Team_MartLubbers.icl
@@ -0,0 +1,77 @@
+implementation module Team_MartLubbers\r
+\r
+import Footballer\r
+import FootballerFunctions\r
+\r
+Names:: [String]\r
+Names = [\r
+       "Balder",\r
+       "Njord",\r
+//     "Freyr",\r
+       "Freyja",\r
+       "Tyr",\r
+       "Bragi",\r
+       "Heimdall",\r
+       "Hoder",\r
+       "Vidar",\r
+       "Vale",\r
+       "Ullr",\r
+       "Forseti"]\r
+\r
+Team_MartLubbers :: !Home !FootballField -> Team\r
+Team_MartLubbers home field\r
+|      home==West                              = westTeam\r
+|      otherwise                               = eastTeam\r
+where\r
+       eastTeam                                = mirror field westTeam\r
+       westTeam                                = [keeper : fielders]\r
+       clubname                                = base_TeamName_MartLubbers +++ if (home == West) "_W" "_E"\r
+       keeper                                  = Aesir clubname home field {zero & px=scale -0.5 field.flength} 1 "Thor"\r
+       fielders                                = [Aesir clubname home field {px=scale (-0.5*dx) field.flength,py=scale (0.5*dy) field.fwidth} nr name\r
+                                                         \\ (dx,dy) <- west_positions_fielders\r
+                                                          & nr      <- [2..]\r
+                                                          & name    <- Names\r
+                                                         ]\r
+       west_positions_fielders = [(0.20, 0.40)\r
+                                                         ,(0.20,-0.40)\r
+                                                         ,(0.23, 0.00) \r
+                                                         ,(0.50, 0.45)\r
+                                                         ,(0.50,-0.45)\r
+                                                         ,(0.60, 0.00)\r
+                                                         ,(0.70, 0.35)\r
+                                                         ,(0.70,-0.35)\r
+                                                         ,(0.90, 0.05)\r
+                                                         ,(0.90,-0.05)\r
+                                                         ]                                                       \r
+\r
+:: Mem :== Void\r
+\r
+Aesir :: !ClubName !Home !FootballField !Position !PlayersNumber !String -> Footballer\r
+Aesir club home field position nr name\r
+       = { playerID                    = {clubName=club,playerNr=nr}\r
+         , name                                = name +++ "_" <+++ nr\r
+         , length                              = min_length\r
+         , pos                                 = position\r
+         , nose                                = zero\r
+         , speed                               = zero\r
+         , skills                              = (Running, Kicking, Rotating)\r
+         , effect                              = Nothing\r
+         , stamina                             = max_stamina\r
+         , health                              = max_health\r
+         , brain                               = {memory = zero, ai = mind field }\r
+         }       \r
+\r
+mind :: !FootballField !(!BrainInput, !Mem) -> (!BrainOutput, !Mem)\r
+mind field (input, mm)         \r
+\r
+afterfix after point diff (input=:{me}, m)\r
+| d < diff = after (input, m)\r
+| otherwise = (move, m)\r
+       where\r
+               d = dist me point\r
+               a = bearing zero me point\r
+               r = bearing me.nose me point\r
+               v = ms (max 6.0 (toReal d))\r
+\r
+base_TeamName_MartLubbers :: String\r
+base_TeamName_MartLubbers = "Æsir"     
\ No newline at end of file