{-# LANGUAGE LambdaCase #-} module Main where import Control.Concurrent (threadDelay) import Options.Applicative -- internal imports import Client.Communication import Client.Types import Library.Types main :: IO () main = do putStrLn "Hello, Arena!" (Options socketLocation) <- execParser opts putStrLn $ "connecting to Socket " <> socketLocation sock <- connectSocket socketLocation putStrLn "connected" sendMessage (IdRequest) sock threadDelay $ 5 * 10 ^ 6 clientIdMsg <- receiveMessage sock let clientId = acClientUUID clientIdMsg putStrLn $ "received client UUID: " <> show clientId threadDelay $ 5 * 10 ^ 6 putStrLn welcomeText threadDelay $ 15 * 10 ^ 6 sendMessage (ClientMessage clientId ClientRequestWizard) sock playerWizard <- receiveMessage sock let initRead = ReaderContainer sock clientId initState = StateContainer (initWizard playerWizard) putStrLn "sending quit message" sendMessage (ClientMessage clientId ClientQuit) sock where opts = info (options <**> helper) ( fullDesc <> progDesc "Run the \"wizard-wipeout\" Server." <> header "wizard-wipeout - Last Mage standing" ) welcomeText :: String welcomeText = mconcat $ map (<> "\n") [ "Welcome to the arena, wizards." , "" , "Let the toughest and bravest of you survive" , "" , "Some last hints before you enter the fighting grounds:" , "" , "press [SpACE] to fire your wand" , "press [1] through [9] to change wands, if you have collected more wands" , "press [ESC] to leave" , "" , "Good Luck!" ]