4 liftIO $ putStrln "I’m gone"
6 cb (GotHint player hint) = do
7 pi <- getPlayerInfo player
9 when (meist nicht gelogen (pi)) $ case hint of
10 PartyAt there -> setU there
11 NoPartyAt there -> if (there == somewhere) then
12 tell otherplayer (Liar player)
14 cb (GotHint player hint) = do
15 pi <- getPlayerInfo player
17 when (meist nicht gelogen (pi)) $ do
18 tellPlayer player (PartyAt somewhere)
23 runPartty "localhost" 1111 "me" cb