Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[egonschiele]

Hi there,
I'm new to this forum. I recently got into Dominion strategy after getting trashed by "big money". I decided to write my own simulator for fun, and here is a quick demo! https://vimeo.com/84722179

Right now it supports all the cards from the original version. It is implemented as a DSL in Haskell, so you can write absolutely any kind of logic you want. It seems like a lot of simulators use a "non-programmer friendly" approach, so I went in the opposite direction...if you are a programmer this gives you a lot of power in an easy-to-use DSL.

I'm hoping to add more cards from the expansions soon. Hopefully this is relevant to somebody's interests

[qmech]

Haskell and Dominion?  This is simply too exciting.

I'll definitely be looking at this when I've got time to do it justice.

(It might just be me, but the video was a bit glitchy, and I had to click around a bit at the start to get the images to update; the sound was fine.)

[flies]

I <3 schiele

[florrat]

It seems like a lot of simulators use a "non-programmer friendly" approach, so I went in the opposite direction...

You have seen Dominiate, right? That is pretty non-programmer unfriendly to me, IMO.

But nice job making another simulator!

[qmech]

The great thing about Haskell is that you get source code that looks like this:

Code: [Select]

throneRoom = Card "Throne Room" 4 [Action] [PlayActionCard 2]
village = Card "Village" 3 [Action] [PlusCard 1, PlusAction 2]
witch = Card "Witch" 5 [Action, Attack] [PlusCard 2, OthersGainCurse 1]
woodcutter = Card "Woodcutter" 3 [Action] [PlusCoin 2, PlusBuy 1]
The scary thing about Haskell is that sooner or later you run up against a monad.

Code: [Select]

run :: T.GameState -> [T.Strategy] -> IO T.Result
run state strategies = do
              (_, newState) <- runStateT (game strategies) state
              let cards = newState ^. T.cards
              if gameOver cards
                then returnResults newState
                else run (over T.round (+1) newState) strategies

[egonschiele]

Yup! This package uses the State monad to keep track of the game state. If you're interested, I had written a visual guide to monads a while back: http://adit.io/posts/2013-04-17-functors,_applicatives,_and_monads_in_pictures.html

[amalloy]

I want to look at the code, but not watch anything on vimeo. Perhaps a link to the source here would be a good idea?

[qmech]

Hackage and GitHub.

Trivia: isotropic is still my browser's first suggestion for "dominion".

[amalloy]

Reading over this, it looks like the support for a number of the cards is not really right. For example, with Cellar you have to discard all N cards at once, and then draw N replacements, rather than doing a discard/draw pair N times. That one's easy enough for me to fix, and I'll probably send over a pull request soonish. But some of them run into more fundamental problems, mostly that of an opponent making a choice mid-turn: eg, Militia's current "you must discard the cheapest cards" behavior is obviously wrong. Bureaucrat is more subtly wrong, because there are very few scenarios in base where it matters which card you put back, so not offering a choice isn't so bad; but for example I might have a Remodel in hand, and need to keep the Province to end the game next turn, rather than keeping my useless Estate.

It looks like you forgot to finish Moat: apparently at the moment it only works against Bureaucrat, and no other attacks. There's the same problem of mid-turn choices, of course: mostly I'm happy to block an attack, but maybe I want to accept the Curse from Witch so as to empty the third pile sooner, or let you Thief away one of my Coppers.

I briefly tried to write my own Dominion engine in Haskell, but I still only really dabble in Haskell, and I gave up when I couldn't figure out how to model the many choices that have to be made, especially with reaction cards. I like your "followup" model, and it handles a lot of the issues, but there are still a lot of things left that I don't know how to handle and it looks like you haven't planned for (cards in other expansions, mostly).

[skinpenthar]

You have seen Dominiate, right? That is pretty non-programmer unfriendly to me, IMO.