Untitled

module Main where
import Data.Char
import Text.ParserCombinators.Parsec
import Data.ByteString.Lex.Double
import qualified Data.ByteString.Char8 as B

str2float x = case (readDouble x) of
  Nothing -> 0
  Just (k,rest) -> k

cleanstr s = [ n | n <- s , n/='\r']
tfarm (s1:s2:s3:s4:s5:s6:s7:s8:[]) = [(s1,s2,s3,s4,s5,s6,s7,str2float $ B.pack s8)]
tfarm (s1:s2:s3:s4:s5:s6:s7:s8:t) = (s1,s2,s3,s4,s5,s6,s7,str2float $ B.pack s8):tfarm t

makestr (s1,s2,s3,s4,s5,s6,s7,s8) = "\n<strategy class=\"Farmizzator\" desc=\"Farm"++s1++ "\" enabled=\"true\" uid=\""++s2++s3++"\">\n"++"<target x=\""++s2++"\" y=\""++s3++"\" movement=\"attack\" rate=\""++show (37/s8)++ "\"/>\n"++"<troops type=\"Clubswinger\" min=\"3\" randomise=\"true\" allowLess=\"true\">10</troops>\n"++"</strategy>\n"

main = do
  s <- readFile "0_farm_targets.txt"
  mapM_ (putStr) (map (makestr) (tfarm (map (cleanstr ) (lines s))))