78 lines
2 KiB
Haskell
78 lines
2 KiB
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Main where
|
|
|
|
import Control.Concurrent (threadDelay)
|
|
|
|
import qualified Control.Concurrent.STM as STM
|
|
|
|
import Control.Monad.Loops (whileM_)
|
|
|
|
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
|
|
queue <- STM.newTQueueIO
|
|
putStrLn "connected"
|
|
|
|
|
|
sendMessage (IdRequest) sock
|
|
threadDelay $ 1 * 10 ^ 6
|
|
receiveMessage sock queue
|
|
whileM_
|
|
(STM.atomically $ STM.isEmptyTQueue queue)
|
|
(threadDelay $ 1 * 10 ^ 6)
|
|
clientIdMsg <- head <$> STM.atomically (STM.flushTQueue queue)
|
|
let clientId = acClientUUID clientIdMsg
|
|
putStrLn $ "received client UUID: " <> show clientId
|
|
|
|
|
|
putStrLn welcomeText
|
|
-- threadDelay $ 15 * 10 ^ 6
|
|
|
|
|
|
sendMessage (ClientMessage clientId ClientRequestWizard) sock
|
|
threadDelay $ 1 * 10 ^ 6
|
|
receiveMessage sock queue
|
|
whileM_
|
|
(STM.atomically $ STM.isEmptyTQueue queue)
|
|
(threadDelay $ 1 * 10 ^ 6)
|
|
playerWizard <- head <$> STM.atomically (STM.flushTQueue queue)
|
|
putStrLn $ "received wizard: " <> show (initWizard playerWizard)
|
|
|
|
|
|
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!"
|
|
]
|