ascension 0.1.0

data/lib/ascension/card.rb

@@ -0,0 +1,133 @@
+module Card
+  module HonorEarned
+    attr_accessor :honor_earned
+    def honor_earned=(h)
+      @honor_earned = h
+      self.abilities << Ability::EarnHonor.new(:honor => h)
+    end
+  end
+
+  class << self
+    def dummy
+      Base.new(:name => "Dummy")
+    end
+  end
+
+  class Base
+    include FromHash
+    include HonorEarned
+
+    setup_mongo_persist :realm, :name, :card_id
+
+    attr_accessor :realm
+    
+    # abilities are things that happen when a card is put into play or defeated
+    # abilities can be conditional on whether other things have already happened
+    fattr(:abilities) { [] }
+    
+    # triggers are things than happen when external events occur.  
+    fattr(:triggers) { [] }
+
+    fattr(:card_id) { rand(10000000000000) }
+    
+    attr_accessor :name
+    def apply_abilities(side)
+      if playing_on_command_line?
+        abilities.each { |a| a.call(side) }
+      else
+        abilities.each do |a|
+          if a.respond_to?(:choice_instance)
+            a.choice_instance(side).save!
+          else
+            a.call(side)
+          end
+        end
+      end
+    end
+    def apply_triggers(event, side)
+      triggers.each { |a| a.call(event, side) }
+    end
+    
+    def monster?; kind_of?(Monster); end
+    def hero?; kind_of?(Hero); end
+    def construct?; kind_of?(Construct); end
+    
+    def to_s
+      name
+    end
+
+    def basic_card?
+      ["Heavy Infantry","Mystic","Cultist","Apprentice","Militia","Standin"].include?(name)
+    end
+
+    def hydrated
+      return self if basic_card?
+      res = Parse.get(name).clone
+      res.card_id = card_id
+      res
+    end
+
+
+  end
+  
+  class Purchaseable < Base
+    setup_mongo_persist :realm, :name, :runes, :power, :rune_cost, :card_id
+
+    fattr(:runes) { 0 }
+    fattr(:power) { 0 }
+    attr_accessor :rune_cost
+    def mechana?
+      realm == :mechana
+    end
+  end
+  
+  class Hero < Purchaseable
+    class << self
+      def apprentice
+        new(:runes => 1, :name => "Apprentice")
+      end
+      def mystic
+        new(:runes => 2, :name => 'Mystic', :rune_cost => 3)
+      end
+      def militia
+        new(:power => 1, :name => 'Militia')
+      end
+      def heavy_infantry
+        new(:power => 2, :name => "Heavy Infantry", :rune_cost => 2)
+      end
+      def standin
+        new(:rune_cost => 2, :name => "Standin")
+      end
+      def arha
+        new(:rune_cost => 1, :name => "Arha Initiate").tap do |h|
+          h.abilities << Ability::Draw.new
+        end
+      end
+    end
+  end
+  
+  class Construct < Purchaseable
+    class << self
+      def shadow_star
+        new(:power => 1)
+      end
+    end
+  end
+
+  class Monster < Base
+    attr_accessor :power_cost
+    setup_mongo_persist :realm, :name, :power_cost, :card_id
+    fattr(:runes) { 0 }
+    class << self
+      def cultist
+        new(:power_cost => 2, :name => "Cultist", :honor_earned => 1)
+      end
+      def cultist_standin
+        new(:power_cost => 2, :name => "Cultist Standin", :honor_earned => 1)
+      end
+      def cultist_standin2
+        new(:power_cost => 2, :name => "Cultist Standin2", :honor_earned => 1)
+      end
+    end
+  end
+end

data/lib/ascension/cards.csv

@@ -0,0 +1,49 @@
+"Realm Short","Card Type","Name","count","rune_cost","power_cost","honor","runes","honor","power","+C","draw","banish_center","banish_hand","banish_discard","banish_hand_discard","discard_from_hand","special_abilities","triggerable_ability","undefined"
+"V","H","Void Initiate",3,1,,1,1,,,1,,,,,"o1",,,,
+"V","H","Spike Vixen",2,2,,1,,,1,1,1,,,,,,,,
+"V","H","Shade ot Black Watch",3,3,,1,,,2,1,,,,,"o1",,,,
+"V","C","Shadow Star",2,3,,2,,,1,,,,,,,,,,
+"V","H","Arbiter of the Precipice",2,4,,1,,,,02/01/11,2,,1,,,,,,
+"V","H","Demon Slayer",2,4,,2,,,3,,,,,,,,,,
+"V","C","Void Thirster",2,5,,3,,"1 on first_center_monster_killed",1,,,,,,,,,,
+"V","H","Emeri One with the Void",1,6,,3,,,4,,,,,,,,,,
+"V","C","Muramasa",1,7,,4,,,3,,,,,,,,,,
+"E","H","Arha Initiate",3,1,,1,,,,1,1,,,,,,,,
+"E","H","Temple Librarian",3,2,,1,,,,-2,2,,,,,1,,,
+"E","H","Seer of the Forked Path",3,2,,1,,,,1,1,"o1",,,,,,,
+"E","H","Twofold Askara",1,4,,2,,,,,,,,,,,"copy_hero",,
+"E","H","Arha Templar",2,4,,3,,,,,,,,,,,"kill_monster_4",,
+"E","H","Ascetic of the Lidless Eye",2,5,,2,,,,2,2,,,,,,,,
+"E","C","Tablet of Times Dawn",1,5,,2,,,,,,,,,,,,,
+"E","C","The All Seeing Eye",1,6,,2,,,,1,,,,,,,,"draw_1",
+"E","H","Oziah the Peerless",1,6,,3,,,,,,,,,,,"kill_monster_6",,
+"E","H","Master Dhartha",1,7,,3,,,,3,3,,,,,,,,
+"L","H","Lifeblood Initiate",3,1,,1,1,1,,,,,,,,,,,
+"L","H","Wolf Shaman",3,3,,1,1,,,1,1,,,,,,,,
+"L","H","Runic Lycanthrope",2,3,,1,2,,"2 if lifebound_hero_played",,,,,,,,,,
+"L","C","Yggdrasil Staff",2,4,,2,,,1,,,,,,,,,"4_rune_to_3_honor",
+"L","H","Druids ot Stone Circle",2,4,,3,,,,,,,,,,,"acquire_hero_3",,
+"L","C","Snapdragon",2,5,,2,1,"1 on first_lifebound_hero_played",,,,,,,,,,,
+"L","H","Flytrap Witch",2,5,,2,,2,,1,1,,,,,,,,
+"L","H","Landtalker",1,6,,3,3,,,,,,,,,,,,
+"L","H","Cetra Weaver ot Stars",1,7,,4,,,,,,,,,,,"acquire_hero_10",,
+"M","H","Mechana Initiate",3,1,,1,,,,,,,,,,,"power_or_rune_1",,
+"M","H","Kor the Ferromancer",1,3,,2,,,2,-1,"1 if 2_or_more_constructs",,,,,,,,
+"M","C","Burrower Mk II",2,3,,3,,,,-1,"1 on mechana_construct_played",,,,,,,,
+"M","H","Avatar Golem",2,4,,2,,"1 foreach type_of_construct",2,,,,,,,,,,
+"M","H","Reactor Monk",2,4,,2,"2, 1 for construct",,,,,,,,,,,,
+"M","C","Rocket Courier X-99",2,4,,4,,,,,,,,,,,,,"something"
+"M","C","Watchmaker Altar",2,5,,5,"1 for mechana",,,,,,,,,,,,
+"M","C","The Grand Design",2,6,,6,"2 for mechana",,,,,,,,,,,,
+"M","C","Hedron Link Device",1,7,,7,,,,,,,,,,,,,"all_mechana"
+"M","C","Hedron Cannon",1,8,,8,,,,,,,,,,,,"power_for_mechana",
+"S","M","Samael's Trickster",4,,3,,1,1,,,,,,,,,,,
+"S","M","Tormented Soul",3,,3,,,1,,1,,,,,,,,,
+"S","M","Mephit",3,,3,,,2,,,,"o1",,,,,,,
+"S","M","Corrosive Widow",4,,4,,,3,,,,,,,,,"discard_construct",,
+"S","M","Mistake of Creation",4,,4,,,4,,1,,"o1",,"o1",,,,,
+"S","M","Wind Tyrant",3,,5,,3,3,,,,,,,,,,,
+"S","M","Sea Tyrant",3,,5,,,5,,,,,,,,,"discard_all_but_one_construct",,
+"S","M","Earth Tyrant",2,,6,,,5,,2,2,,,,,,,,
+"S","M","Xeron Duke of Lies",1,,6,,,3,,,,,,,,,"take_opponents_card",,
+"S","M","Avatar ot Fallen",1,,7,,,4,,,,,,,,,"acquire_center",,

data/lib/ascension/cards.rb

@@ -0,0 +1,206 @@
+class Cards
+  include FromHash
+  include Enumerable
+  setup_mongo_persist :cards
+  attr_accessor :side, :game
+  fattr(:game) { side.game }
+  fattr(:cards) { [] }
+  def <<(c)
+    cards << c
+  end
+  def remove(c)
+    raise "#{c} not here" unless cards.include?(c)
+    self.cards -= [c]
+  end
+  def each(&b)
+    cards.each(&b)
+  end
+  def shuffle!
+    self.cards = cards.sort_by { |x| rand() }
+  end
+  def empty?
+    size == 0
+  end
+  def size
+    cards.size
+  end
+  def first
+    cards.first
+  end
+  def pop
+    cards.pop
+  end
+  def index(obj)
+    cards.index(obj)
+  end
+  def clear!
+    self.cards = []
+  end
+  def include?(c)
+    cards.include?(c)
+  end
+  def banish(card)
+    remove(card)
+    game.void << card
+  end
+  def []=(i,card)
+    cards[i] = card
+  end
+  def [](i)
+    cards[i]
+  end
+  def to_s_cards
+    map { |x| x.name }.join(" | ")
+  end
+  def get_one(name)
+    res = find { |x| x.name == name }
+    raise "couldn't find #{name}" unless res
+    self.cards -= [res]
+    res
+  end
+  def hydrate!
+    self.cards = map { |x| x.hydrated }
+  end
+end
+
+class Discard < Cards; end
+
+class PlayerDeck < Cards
+  def draw_one
+    fill_from_discard! if empty?
+    cards.pop
+  end
+  def fill_from_discard!
+    self.cards = side.discard.cards
+    side.discard.cards = []
+    shuffle!
+  end
+  def self.starting(ops={})
+    res = new(ops)
+    8.times { res << Card::Hero.apprentice }
+    2.times { res << Card::Hero.militia }
+    res.shuffle!
+    res
+  end
+end
+
+class Hand < Cards
+  def play_all!
+    while size > 0
+      side.play(first)
+    end
+  end
+  def discard!
+    each { |c| side.discard << c }
+    clear!
+  end
+end
+
+class Played < Cards
+  setup_mongo_persist :cards, :pool
+  fattr(:pool) { Pool.new }
+  def apply(card)
+    pool.runes += card.runes
+    pool.power += card.power
+    card.apply_abilities(side)
+  end
+  def <<(card)
+    super
+    apply(card)
+    
+    side.fire_event(Event::CardPlayed.new(:card => card))
+    
+    if card.kind_of?(Card::Construct)
+      remove(card)
+      side.constructs << card
+    end
+  end
+  def discard!
+    each { |c| side.discard << c }
+    clear!
+    self.pool!
+  end
+end
+
+class Void < Cards; end
+
+module Selectable
+  def engageable_cards(side)
+    select { |x| can?(x,side) }
+  end
+  def can?(card,side)
+    if card.monster?
+      raise card.name unless card.power_cost
+      side.played.pool.power >= card.power_cost
+    else
+      side.played.pool.can_purchase?(card)
+    end
+  end
+end
+
+class Center < Cards
+  def fill!
+    (0...size).each do |i|
+      if self[i].name == 'Dummy'
+        self[i] = game.deck.pop
+      end
+    end
+
+    while size < 6
+      self << game.deck.pop
+    end
+  end
+  def remove(c)
+    raise "#{c} not here" unless include?(c)
+    i = index(c)
+    self[i] = Card.dummy
+    fill!
+  end
+  def banish(card)
+    super
+    fill!
+  end
+end
+
+class CenterWithConstants < Cards
+  attr_accessor :game
+  include FromHash
+  include Selectable
+  fattr(:constant_cards) do
+    [Card::Hero.mystic,Card::Hero.heavy_infantry,Card::Monster.cultist]
+  end
+  def cards
+    game.center.cards + constant_cards
+  end
+  def size
+    cards.size
+  end
+  def remove(card)
+    return nil if constant_cards.map { |x| x.name }.include?(card.name)
+    game.center.remove(card)
+  end
+  def method_missing(sym,*args,&b)
+    game.center.send(sym,*args,&b)
+  end
+end
+
+class CenterDeck < Cards
+  class << self
+    def starting
+      res = new
+      Parse::InputFile.new.cards.each { |c| res << c }
+      res.shuffle!
+      res
+    end
+  end
+end
+
+class Constructs < Cards
+  def apply!
+    each { |c| side.played.apply(c) }
+  end
+  def discard(card)
+    remove(card)
+    side.discard << card
+  end
+end

data/lib/ascension/cards2.csv

@@ -0,0 +1,49 @@
+"Realm Short","Card Type","Name","count","rune_cost","honor","runes","honor","power","+C","draw","banish_center","banish_hand","banish_discard","banish_hand_discard","discard_from_hand","special_ability","triggerable_ability","undefined"
+"V","H","Void Initiate",3,1,1,1,,,"(-1)",,,,,"o1",,,,
+"V","H","Spike Vixen",2,2,1,,,1,1,1,,,,,,,,
+"V","H","Shade ot Black Watch",3,3,1,,,2,"(-1)",,,,,"o1",,,,
+"V","C","Shadow Star",2,3,2,,,1,,,,,,,,,,
+"V","H","Arbiter ot Precipice",2,4,1,,,,"2-1",2,,1,,,,,,
+"V","H","Demon Slayer",2,4,2,,,3,,,,,,,,,,
+"V","C","Void Thirster",2,5,3,,"1 on first_center_monster_killed","1",,,,,,,,,,
+"V","H","Emeri One with the Void",1,6,3,,,4,,,,,,,,,,
+"V","C","Muramasa",1,7,4,,,3,,,,,,,,,,
+"E","H","Arha Initiate",3,1,1,,,,1,1,,,,,,,,
+"E","H","Temple Librarian",3,2,1,,,,"(2)",2,,,,,1,,,
+"E","H","Seer ot Forked Path",3,2,1,,,,1,1,"o1",,,,,,,
+"E","H","Twofold Askara",1,4,2,,,,,,,,,,,"copy_hero",,
+"E","H","Arha Templar",2,4,3,,,,,,,,,,,"kill_monster_4",,
+"E","H","Ascetic ot Lidless Eye",2,5,2,,,,2,2,,,,,,,,
+"E","C","Tablet of Times Dawn",1,5,2,,,,,,,,,,,,,
+"E","C","The All Seeing Eye",1,6,2,,,,1,,,,,,,,"draw_1",
+"E","H","Oziah the Peerless",1,6,3,,,,,,,,,,,"kill_monster_6",,
+"E","H","Master Dhartha",1,7,3,,,,3,3,,,,,,,,
+"L","H","Lifeblood Initiate",3,1,1,1,1,,,,,,,,,,,
+"L","H","Wolf Shaman",3,3,1,1,,,1,1,,,,,,,,
+"L","H","Runic Lycanthrope",2,3,1,2,,"2 if lifebound_hero_played",,,,,,,,,,
+"L","C","Yggdrasil Staff",2,4,2,,,"1",,,,,,,,,"4_rune_to_3_honor",
+"L","H","Druids ot Stone Circle",2,4,3,,,,,,,,,,,"acquire_hero_3",,
+"L","C","Snapdragon",2,5,2,1,"1 on first_lifebound_hero_played",,,,,,,,,,,
+"L","H","Flytrap Witch",2,5,2,,2,,1,1,,,,,,,,
+"L","H","Landtalker",1,6,3,3,,,,,,,,,,,,
+"L","H","Cetra Weaver ot Stars",1,7,4,,,,,,,,,,,"acquire_hero_10",,
+"M","H","Mechana Initiate",3,1,1,,,,,,,,,,,"power_or_rune_1",,
+"M","H","Kor the Ferromancer",1,3,2,,,2,"(1)","1 if 2_or_more_constructs",,,,,,,,
+"M","C","Burrower Mk II",2,3,3,,,,"(1)","1 on mechana_construct_played",,,,,,,,
+"M","H","Avatar Golem",2,4,2,,"1 foreach type_of_construct","2",,,,,,,,,,
+"M","H","Reactor Monk",2,4,2,"2, 1 for construct",,,,,,,,,,,,
+"M","C","Rocket Courier X-99",2,4,4,,,,,,,,,,,,,"something"
+"M","C","Watchmaker Altar",2,5,5,"1 for mechana",,,,,,,,,,,,
+"M","C","The Grand Deisgn",2,6,6,"2 for mechana",,,,,,,,,,,,
+"M","C","Hedron Link Device",1,7,7,,,,,,,,,,,,,"all_mechana"
+"M","C","Hedron Cannon",1,8,8,,,,,,,,,,,,"power_for_mechana",
+"S","M","Samael's Trickster",4,"3P","-",1,1,,,,,,,,,,,
+"S","M","Tormented Soul",3,"3P","-",,1,,1,,,,,,,,,
+"S","M","Mephit",3,"3P","-",,2,,,,"o1",,,,,,,
+"S","M","Corrosive Widow",4,"4P","-",,3,,,,,,,,,"discard_construct",,
+"S","M","Mistake of Creation",4,"4P","-",,4,,"(-1)",,"o1",,"o1",,,,,
+"S","M","Wind Tyrant",3,"5P","-",3,3,,,,,,,,,,,
+"S","M","Sea Tyrant",3,"5P","-",,5,,,,,,,,,"discard_all_but_one_construct",,
+"S","M","Earth Tyrant",2,"6P","-",,5,,2,2,,,,,,,,
+"S","M","Xeron Duke of Lies",1,"6P","-",,3,,,,,,,,,"take_opponents_card",,
+"S","M","Avatar ot Fallen",1,"7P","-",,4,,,,,,,,,"acquire_center",,

data/lib/ascension/events.rb

@@ -0,0 +1,73 @@
+events = <<EOF
+hero played
+construct played
+monster defeated
+EOF
+
+module Event
+  class Events
+    include FromHash
+    attr_accessor :side
+    fattr(:events) { [] }
+    def <<(event)
+      event.first = true if first?(event)
+      self.events << event
+      propagate(event)
+    end
+    def propagate(event)
+      side.constructs.each { |c| c.apply_triggers(event,side) } if side
+    end
+    def first?(event)
+      events.select { |x| x.key == event.key && x.class == event.class }.empty?#.tap { |x| puts "first? #{x}" }
+    end
+    def [](i)
+      events[i]
+    end
+    def cond?(&b)
+      events.any?(&b)
+    end
+  end
+  
+  class Base
+    include FromHash
+    fattr(:first) { false }
+  end
+  
+  class CardPlayed < Base
+    attr_accessor :card
+    def realm
+      card.realm
+    end
+    def card_type
+      card.class
+    end
+    def key
+      [realm,card_type]
+    end
+  end
+  
+  class MonsterKilled < Base
+    attr_accessor :card
+    fattr(:center) { false }
+    def key
+      [center]
+    end
+  end
+  
+  class CardPurchased < Base
+    attr_accessor :card
+    def realm
+      card.realm
+    end
+    def card_type
+      card.class
+    end
+    def key
+      [realm,card_type]
+    end
+  end
+end
+
+class Trigger
+  
+end