From 81a658506d9f1e723ba130ca43536ffa847cbefc Mon Sep 17 00:00:00 2001
From: Antti Salonen <ajsalonen@gmail.com>
Date: Sat, 1 May 2010 21:46:54 +0200
Subject: [PATCH] change league for created teams and allow level finetuning

---
 src/CreateTeam.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/CreateTeam.hs b/src/CreateTeam.hs
index 21f6f7b..06ade09 100644
--- a/src/CreateTeam.hs
+++ b/src/CreateTeam.hs
@@ -15,7 +15,7 @@ usage = do
   n <- getProgName
   putStrLn $ "Usage: " ++ n ++ " <teamname> <teamnation> <teamlevel> <first-names-file> <surnames-file> <random seed> <out-file>"
   putStrLn "Team nation is an integer (see showTeamNation in Listings.hs.)"
-  putStrLn "Team level must be between 1 and 10."
+  putStrLn "Team level must be between 0 and 100."
 
 main = do
   args <- getArgs
@@ -50,7 +50,7 @@ create tname tnation tlevel s firsts surs outfile = do
   tkitcol4 <- chooseIO allColors
   let tkit = Kit 0 tkitcol1 tkitcol2 tkitcol3 tkitcol4
   tpls <- createPlayers tlevel firsts surs
-  encodeFile outfile [GenTeam tnation tname (d, m, f) 0 tkit tpls]
+  encodeFile outfile [GenTeam tnation tname (d, m, f) 5 tkit tpls]
 
 createPlayers :: Int -> [String] -> [String] -> IO [GenPlayer]
 createPlayers tlevel firsts surs = do
@@ -71,7 +71,7 @@ mkSkills tl = do
   var2 <- randomRIO (-0.4, 0.4)
   var3 <- randomRIO (-0.4, 0.4)
   var4 <- randomRIO (-0.4, 0.4)
-  let std = fromIntegral tl * 0.1
+  let std = fromIntegral tl * 0.01
   let s1 = clamp 0 1 $ std + var1
   let s2 = clamp 0 1 $ std + var2
   let s3 = clamp 0 1 $ std + var3