MuscleMeat

Sticky Wat heeft jouw dag verpest?

Eerste werkdag na vakantie.
Klote.
 
Warm water doet het niet :mad:
 
Ik had een paar dagen terug toegegeven aan een eetbui. Als een groene weduwe propte ik mijn mond vol met zinloze calorieen. Die dag had ik nog veel definite op mijn bovenbenen. Dat is nu wel weer anders:sad:




























(:gay:)
 
Hoofdpijn (Caffeine Deficiency Syndrome)
 
Neem een bak koffie dan..
 
Politie stond net aan de deur
Mijn ouders hadden paar jaar geleden te snel gereden in zwitserland, maar de boete onlangs pas aangekregen. Ze hadden me dit verteld en de politie stond dus net aan de deur voor die boete. Ze lieten de foto's zien van de auto en natuurlijk zeg ik: 'aaa ja daar heb ik iets over gehoord'
maar ondertussen nieuwe nummerplaat enz en ze waren niet zeker dat het mijn ouders waren oid. Hoe het precies zit weet ik niet, maar mijn ouders prodeerder eronderuit te kruipen. De politie komt donderdagavond terug, want dan zijn ze thuis.

Damn, dat wordt leuk vanavond :roflol:
 
arnodsi zei:
Politie stond net aan de deur
Mijn ouders hadden paar jaar geleden te snel gereden in zwitserland, maar de boete onlangs pas aangekregen. Ze hadden me dit verteld en de politie stond dus net aan de deur voor die boete. Ze lieten de foto's zien van de auto en natuurlijk zeg ik: 'aaa ja daar heb ik iets over gehoord'
maar ondertussen nieuwe nummerplaat enz en ze waren niet zeker dat het mijn ouders waren oid. Hoe het precies zit weet ik niet, maar mijn ouders prodeerder eronderuit te kruipen. De politie komt donderdagavond terug, want dan zijn ze thuis.

Damn, dat wordt leuk vanavond :roflol:
Klik om te vergroten...
Klik om te verkleinen...

:roflol:

Te hard rijden in Zwitserland staat met gemak de doodstraf op
 
Lol. Als je ouders met de agenten praten, moet je zo uit het niets in het naakt *DRONKEN!* aan hun voorbij lopen:o
 
arnodsi zei:
Politie stond net aan de deur
Mijn ouders hadden paar jaar geleden te snel gereden in zwitserland, maar de boete onlangs pas aangekregen. Ze hadden me dit verteld en de politie stond dus net aan de deur voor die boete. Ze lieten de foto's zien van de auto en natuurlijk zeg ik: 'aaa ja daar heb ik iets over gehoord'
maar ondertussen nieuwe nummerplaat enz en ze waren niet zeker dat het mijn ouders waren oid. Hoe het precies zit weet ik niet, maar mijn ouders prodeerder eronderuit te kruipen. De politie komt donderdagavond terug, want dan zijn ze thuis.

Damn, dat wordt leuk vanavond :roflol:
Klik om te vergroten...
Klik om te verkleinen...

http://www.bussgeldkatalog.ws/schweiz/

Als je ouders niet herkenbaar op die foto staan, kei hard ontkennen gewoon :p
 
arnodsi zei:
Ja ze lieten dus een foto zien, moeder lag mooi te pitten :roflol:
En natuurlijk was ik zo dom om te zeggen dat ik die foto al eens had gezien :o
Klik om te vergroten...
Klik om te verkleinen...

Dan zeg je de volgende keer: huh? Dat heb ik helemaal niet gezegd..Ik zei dat ik die foto nog nooit had gezien :o

Nja, of je daarmee weg komt..geen idee :p
 
Code: 
main :: IO ()
main = do

    typeOfP1 <- askFor "Should Player 1 be a (H)uman or a (C)omputer player?"
                       [Human, Computer]
    typeOfP2 <- askFor "Should Player 2 be a (H)uman or a (C)omputer player?"
                       [Human, Computer]

    let playerType :: Player -> PlayerType 
        playerType P1 = typeOfP1
        playerType P2 = typeOfP2

        gameLoop :: Player -> Board -> IO ()
        gameLoop p b = do
            putStrLn ("\n" ++ printBoard b)
            case hasWinner b of
                Just p  -> putStrLn (show p ++ " has won!")
                Nothing -> do
                    putStr   ("It's " ++ show p ++ "'s turn. ")
                    mb' <- case playerType p of
                        Human    -> humanMove    p b
                        Computer -> computerMove p b
                    case mb' of
                        Nothing -> do putStr   "No more moves are possible. "
                                      putStrLn "It's a draw."
                        Just b' -> gameLoop (nextPlayer p) b'

        humanMove :: Player -> Board -> IO (Maybe Board)
        humanMove p b = do
            let possibleMoves = moves p b
            if null possibleMoves then
                return Nothing
            else do
                putStrLn "Possible moves are:"
                putStrLn (listMoves possibleMoves)
                i <- askFor "Make your choice:" [1..length possibleMoves]
                return (Just (possibleMoves !! (i-1)))

        computerMove :: Player -> Board -> IO (Maybe Board)
        computerMove p b = do
            putStrLn "Thinking..."
            return (makeMove p b)

        listMoves :: [Board] -> String
        listMoves = intercalate "\n"
                    . map (intercalate "    ")
                    . transpose
                    . map lines
                    . map (\(i,b) -> "(" ++ show i ++ "): \n" ++ printBoard b) 
                    . zip [1..]

    gameLoop P1 emptyBoard

askFor :: Show a => String -> [a] -> IO a
askFor m xs = do
    putStr (m ++ " ")
    hFlush stdout
    i <- getLine
    case find ((map toLower i ==) . map toLower . show) xs of
        Nothing -> do putStrLn $ "I didn't understand you. Enter one of: "
                                 ++ intercalate ", " (map show xs) ++ "."
                      askFor m xs
        Just y  -> return y
[Afbeelding niet meer beschikbaar]
 
Uurtje werk
 
Inloggen of registreren om te reageren.

Soortgelijke topics

R
IVDM - September 2017 - Robke78
2
Reacties
29
Weergaven
11.150
sector
sector
R
Aankondiging Forumgame 10: The war between two ideologies
28 29 30
Reacties
595
Weergaven
30.762
Remi AFCA
R
L
Forum game 8: Voor de niet valsspelers only
64 65 66
Reacties
1.313
Weergaven
50.356
z1000
z1000
The Dutch Giant
  • Sticky
Sticky Rise of the Dutch Giant (2.18meter / 7.2feet)
133 134 135
Reacties
2.690
Weergaven
544.794
spitfire01
spitfire01
Terug
Naar boven