Initial Checkin
[darcs-mirror-haskell-partty.git] / Dummy.hs
1 module Dummy where
2
3 cb Disconnect = do
4         liftIO $ putStrln "I’m gone"
5
6 cb (GotHint player hint) = do
7         pi <- getPlayerInfo player
8         somewhere <- getU
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)
13         
14 cb (GotHint player hint) = do
15         pi <- getPlayerInfo player
16         somewhere <- getU
17         when (meist nicht gelogen (pi)) $ do
18                 tellPlayer player (PartyAt somewhere)
19
20 cb _ = return ()        
21
22 main = do
23         runPartty "localhost" 1111 "me" cb
24