Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Implementation of Plains

  • Loading branch information...
commit d6d97b2966fc013f23f6c559bba3db93491522cb 1 parent 66b1fa1
@MedeaMelana authored
Showing with 54 additions and 0 deletions.
  1. +54 −0 BasicLands.hs
View
54 BasicLands.hs
@@ -0,0 +1,54 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module BasicLands where
+
+import Types
+import Predicates
+
+import Data.Boolean
+import Data.Monoid
+import Data.Set as Set
+import Data.Label.PureM
+
+
+plains :: Card
+plains = Card $ \ts rOwner rSelf ->
+ Object
+ { _name = Just "Plains"
+ , _colors = mempty
+ , _group = Permanent
+ { _supertypes = Set.singleton Basic
+ , _artifactTypes = Nothing
+ , _creatureTypes = Nothing
+ , _enchantmentTypes = Nothing
+ , _landTypes = Just (Set.singleton Plains)
+ , _planeswalkerTypes = Nothing
+ }
+ , _zone = Library
+ , _owner = rOwner
+ , _controller = rOwner
+ , _timestamp = ts
+ , _counters = []
+
+ , _tapStatus = Nothing
+
+ , _power = Nothing
+ , _toughness = Nothing
+ , _damage = Nothing
+
+ , _play = Ability
+ { _available = \rp -> do
+ os <- asks objects
+ let self = os ! rSelf
+ let ok = (isControlledBy rp &&* isInZone Hand) self
+ return ok
+ , _manaCost = mempty
+ , _additionalCosts = []
+ , _effect = SpecialAction (return [MoveObject rSelf Library Battlefield])
+ }
+ , _staticKeywordAbilities = []
+ , _continuousEffects = []
+ , _activatedAbilities = []
+ , _triggeredAbilities = []
+ , _replacementEffects = []
+ }
Please sign in to comment.
Something went wrong with that request. Please try again.