fools 0.0.4

data/features/steps/character_sheet.rb

@@ -0,0 +1,152 @@
+require "fools/sheet"
+
+require "carps/mod"
+
+require "yaml"
+
+Given /^the Fools' verifier$/ do
+   $verifier = CARPS::Sheet::Editor.new Sheet::schema, Sheet::Semantics.new
+end
+
+When /^a valid sheet is provided$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Sir Bigglesly
+Character Points: 37
+The Readies: 6
+The Old Grey Matter: 1
+The Outer Crust: 5
+Vim & Vigour: -2
+Romantic Resistance: 2
+Tolerance for Alcohol: 2
+Pounds: 0
+Shillings: 0
+Pence: 0
+Intoxication: 0
+Discomfiture: 0
+Luck: 0
+Chances: 0
+Etiquette: 1
+Conscience: 0 
+Sports Car: flashy 
+Student of the Turf: no 
+Connections: Gentry
+Gentleman's Gentleman: superior
+END
+end
+
+When /^a syntactically invalid sheet is provided$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Mr Invalid
+Character Points: 8
+The Readies: 0
+The Old Grey Matter: Not much!
+The Outer Crust:
+Vim & Vigour: 0
+END
+end
+
+When /^an out of bounds sheet is provided$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Mr Odd
+Character Points: 8
+The Readies: 11
+The Old Grey Matter: 0
+The Outer Crust: 0
+Pounds: 0
+Shillings: -1
+Pence: 0
+Vim & Vigour: 0
+Luck: 0
+Intoxication: 0
+Discomfiture: 0
+Romantic Resistance: 0
+Tolerance for Alcohol: 0
+Etiquette: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+END
+end
+
+When /^a character sheet using more than 8 character points is provided$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Mr Greedy
+Character Points: 8
+The Readies: 2
+The Old Grey Matter: 0
+The Outer Crust: 0
+Vim & Vigour: 2
+Intoxication: 0
+Discomfiture: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Romantic Resistance: 0
+Tolerance for Alcohol: 2
+Luck: 2
+Etiquette: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+END
+end
+
+When /^a character sheet using less than 8 character points is provided$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Mr Needy
+Character Points: 8
+The Readies: 0
+The Old Grey Matter: 0
+The Outer Crust: 0
+Vim & Vigour: 2
+Intoxication: 0
+Discomfiture: 0
+Luck: 0
+Chances: 0
+Conscience: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Romantic Resistance: 0
+Tolerance for Alcohol: 0
+Student of the Turf: no
+Etiquette: 0
+END
+end
+
+When /^a character sheet using exactly 8 character points is provided$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Mr Balanced
+Character Points: 8
+The Readies: 1
+The Old Grey Matter: 3
+The Outer Crust: -1
+Vim & Vigour: 1
+Intoxication: 0
+Discomfiture: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Tolerance for Alcohol: 1
+Romantic Resistance: 0
+Etiquette: 0
+Luck: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+END
+end
+
+Then /^do not accept the character sheet$/ do
+   valid = $verifier.valid? $sheet
+   if valid
+      raise StandardError, "Passed invalid sheet"
+   end
+end
+
+Then /^accept the character sheet$/ do
+   valid = $verifier.valid? $sheet
+   unless valid
+      raise StandardError, "Failed valid sheet."
+   end
+end

data/features/steps/dice.rb

@@ -0,0 +1,19 @@
+require "fools/rules"
+
+include Fools::Dice
+
+Given /^a hash of the dice rolls$/ do
+   $rolls = {}
+   $rolls["drunkenness"] = lambda {drink 0, 1, -4, 4}
+   $rolls["combat"] = lambda {combat 1, 1.0/3.0, 3}
+   $rolls["sense"] = lambda {talk_sense 0, 1, 0}
+   $rolls["romance"] = lambda {resist_romance 1, 5}
+end
+
+Given /^a roll is made for (.+)$/ do |roll_name|
+   $dice = $rolls[roll_name].call
+end
+
+Then /^show the odds$/ do
+   puts $dice.odds
+end

data/features/steps/dm_interface.rb

@@ -0,0 +1,21 @@
+require "fools/dm/interface"
+
+Given /^the DM user interface$/ do
+   $interface = DM::Interface.new $controller 
+end
+
+Then /^test all the DM user inputs$/ do
+   commands = []
+   commands.push [:spawn, "drone", "todd"]
+   commands.push [:spawn, "drone", "bob"]
+   commands.push [:spawn, "hawt", "mandy"]
+   commands.push [:drink, "bob", "-4", "1"]
+   commands.push [:drink_odds, "bob", "-5", "1"]
+   commands.push [:resist, "todd", "mandy"]
+   commands.push [:resist_odds, "todd", "mandy"]
+   commands.push [:sense, "bob", "mandy", "todd"]
+   commands.push [:sense_odds, "bob", "mandy", "todd"]
+   commands.push [:tussle_odds, "bob", "todd"]
+   commands.push [:tussle, "bob", "todd", "sabre"]
+   test_interface $interface, commands
+end

data/features/steps/dm_mod.rb

@@ -0,0 +1,6 @@
+require "fools/rules"
+
+Given /^the DM mod for campaign (.+)$/ do |campaign|
+   $controller = DM::create_mod campaign
+   $controller.mailer = $mailer
+end

data/features/steps/dm_test_mailer.rb

@@ -0,0 +1,23 @@
+class DMTestMailer
+
+   def relay to, message
+      puts "Sending to #{to}: #{message}"
+   end
+
+   def save mod
+      puts "Saving:"
+      puts mod.to_s
+   end
+
+   def check type, from = nil
+      puts "Checking mail for #{type} from #{from}"
+   end
+
+   def load
+   end
+
+end
+
+Given /^a DM test mailer$/ do
+   $mailer = DMTestMailer.new
+end

data/features/steps/general.rb

@@ -0,0 +1,7 @@
+require "carps/util/init"
+
+include Fools
+
+Given /^carps is initialized with (.+)$/ do |config|
+   CARPS::init 0, config
+end

data/features/steps/interface.rb

@@ -0,0 +1,10 @@
+Then /^present the interface to the user$/ do
+   $interface.run
+end
+
+# Test an interface by calling the commands
+def test_interface interface, commands
+   commands.each do |cmd|
+      interface.send *cmd
+   end
+end

data/features/steps/launch_dm.rb

@@ -0,0 +1,12 @@
+require "fools/dm/launch"
+
+require "drb"
+
+Given /^a campaign called (.+)$/ do |name|
+   $campaign = name
+end
+
+Then /^launch the DM interface$/ do
+   CARPS::Process.singleton.launch $mailer, "bin/carps_fools -h #{$campaign}"
+end
+

data/features/steps/launch_player.rb

@@ -0,0 +1,6 @@
+require "fools/player/launch"
+
+Then /^launch the player interface$/ do
+   CARPS::Process.singleton.launch $mailer, "bin/carps_fools -p"
+end
+

data/features/steps/player_interface.rb

@@ -0,0 +1,45 @@
+require "fools/player/interface"
+
+require "carps/mod"
+
+require "yaml"
+
+Given /^the Player user interface$/ do
+   $interface = Player::Interface.new $controller 
+end
+
+# What an awful hack
+When /^a character sheet is provided for the player$/ do
+   $controller.instance_eval <<-END
+@sheet = CARPS::Sheet::Character.new(YAML::load <<-NASTY
+Name: Basic Drone
+Character Points: 0
+The Readies: 0
+The Old Grey Matter: 0
+The Outer Crust: 0 
+"Vim & Vigour": 0
+Intoxication: 0
+Discomfiture: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Tolerance for Alcohol: 0
+Romantic Resistance: 0
+Etiquette: 0
+Luck: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+NASTY
+)
+END
+end
+
+Then /^test all the Player user inputs$/ do
+   commands = []
+   commands.push [:drink, "-3", "1"]
+   commands.push [:resist, "6"]
+   commands.push [:sense, "-2", "6"]
+   commands.push [:tussle, "1"]
+   test_interface $interface, commands
+end

data/features/steps/player_mod.rb

@@ -0,0 +1,6 @@
+require "fools/player"
+
+Given /^the Player mod$/ do
+   $controller = Player::create_mod
+   $controller.mailer = $mailer
+end

data/features/steps/player_test_mailer.rb

@@ -0,0 +1,27 @@
+require "drb"
+
+class PlayerTestMailer
+
+   include DRbUndumped
+
+   def relay message
+      puts "Sending #{message}"
+   end
+
+   def save mod
+      puts "Saving:"
+      puts mod.to_s
+   end
+
+   def check type
+      puts "Checking mail for #{type}"
+   end
+
+   def load
+   end
+
+end
+
+Given /^a test player mailer$/ do
+   $mailer = PlayerTestMailer.new
+end

data/features/steps/resource.rb

@@ -0,0 +1,5 @@
+require "carps/mod/dm/resource"
+
+Given /^a resource manager$/ do
+   $resource = CARPS::Resource.new "fools/#{$campaign}"
+end

data/features/steps/rules.rb

@@ -0,0 +1,144 @@
+require "fools/rules"
+require "carps/mod"
+
+require "yaml"
+
+Given /^a hash of the rules$/ do
+   $rules = {}
+   $rules["drunkenness"] = Rules::Drink.new
+   $rules["combat"] = Rules::Combat.new
+   $rules["romance"] = Rules::Resist.new
+   $rules["sense"] = Rules::Sense.new
+end
+
+When /^the rule is (.+)$/ do |rule_name|
+   $rule = $rules[rule_name]
+end
+
+Given /^a character sheet for an ordinary drone$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Ordinary McOrdin
+Character Points: 0
+The Readies: 0
+The Old Grey Matter: 0
+The Outer Crust: 0
+Vim & Vigour: 0
+Intoxication: 0
+Discomfiture: 0
+Tolerance for Alcohol: 0
+Romantic Resistance: 0
+Etiquette: 0
+Luck: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+END
+end
+
+Given /^a character sheet for a drone with a high tolerance for alcohol$/ do
+   $sheet = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Tolerance McTolerancy 
+Character Points: 0
+The Readies: 0
+The Old Grey Matter: 0
+The Outer Crust: 0
+Vim & Vigour: 0
+Intoxication: 0
+Discomfiture: 0
+Tolerance for Alcohol: 3
+Romantic Resistance: 0
+Etiquette: 0
+Luck: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+END
+end
+
+Then /^display the character sheet$/ do
+   puts $sheet.emit
+end
+
+Then /^show the odds for the drunk rule$/ do
+   $rule.show_odds $sheet, -4, 4
+end
+
+Then /^apply the drunk rule$/ do
+   $rule.apply $sheet, -5, 4
+end
+
+Then /^show the odds for the combat rule$/ do
+   $rule.show_odds $sheet, $other, :fist 
+end
+
+Then /^apply the combat rule$/ do
+   $rule.apply $sheet, $other, :fist
+end
+
+Then /^apply the romance rule$/ do
+   $rule.apply $sheet, $lady
+end
+
+Then /^show the odds for the romance rule$/ do
+   $rule.show_odds $sheet, $lady
+end
+
+Then /^apply the sense rule$/ do
+   $rule.apply $sheet, $lady, $other
+end
+
+Then /^show the odds for the sense rule$/ do
+   $rule.show_odds $sheet, $lady, $other
+end
+
+Given /^also a character sheet for a fit drone$/ do
+   $other = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Fitty McFitFit
+Character Points: 0
+The Readies: 0
+The Old Grey Matter: 0
+The Outer Crust: 0
+Vim & Vigour: 2
+Intoxication: 0
+Discomfiture: 0
+Tolerance for Alcohol: 0
+Romantic Resistance: 0
+Etiquette: 0
+Luck: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+END
+end
+
+Given /^a character sheet for teh hawt wimenz$/ do
+   $lady = CARPS::Sheet::Character.new YAML.load <<-END
+Name: Hawty McHawtHawt
+Character Points: 0
+The Readies: 0
+The Old Grey Matter: 0
+The Outer Crust: 5
+Vim & Vigour: 0
+Intoxication: 0
+Discomfiture: 0
+Tolerance for Alcohol: 0
+Romantic Resistance: 0
+Etiquette: 0
+Luck: 0
+Pounds: 0
+Shillings: 0
+Pence: 0
+Chances: 0
+Conscience: 0
+Student of the Turf: no
+END
+end

data/features/support/common.rb

@@ -0,0 +1,29 @@
+module CommonHelpers
+  def in_tmp_folder(&block)
+    FileUtils.chdir(@tmp_root, &block)
+  end
+
+  def in_project_folder(&block)
+    project_folder = @active_project_folder || @tmp_root
+    FileUtils.chdir(project_folder, &block)
+  end
+
+  def in_home_folder(&block)
+    FileUtils.chdir(@home_path, &block)
+  end
+
+  def force_local_lib_override(project_name = @project_name)
+    rakefile = File.read(File.join(project_name, 'Rakefile'))
+    File.open(File.join(project_name, 'Rakefile'), "w+") do |f|
+      f << "$:.unshift('#{@lib_path}')\n"
+      f << rakefile
+    end
+  end
+
+  def setup_active_project_folder project_name
+    @active_project_folder = File.join(@tmp_root, project_name)
+    @project_name = project_name
+  end
+end
+
+World(CommonHelpers)

data/features/support/env.rb

@@ -0,0 +1,4 @@
+require File.dirname(__FILE__) + "/../../lib/fools"
+
+gem 'cucumber'
+require 'cucumber'

data/features/support/matchers.rb

@@ -0,0 +1,11 @@
+module Matchers
+  def contain(expected)
+    simple_matcher("contain #{expected.inspect}") do |given, matcher|
+      matcher.failure_message = "expected #{given.inspect} to contain #{expected.inspect}"
+      matcher.negative_failure_message = "expected #{given.inspect} not to contain #{expected.inspect}"
+      given.index expected
+    end
+  end
+end
+
+World(Matchers)

data/lib/fools/dm/interface.rb

@@ -0,0 +1,97 @@
+# Copyright 2010 John Morrice
+ 
+# This file is part of The Fools.
+
+# The Fools is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# The Fools is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with The Fools.  If not, see <http://www.gnu.org/licenses/>.
+
+require "carps/mod"
+
+require "fools/interface"
+
+module Fools
+
+   module DM
+      
+      # Interface for Fools DM
+      class Interface < CARPS::DM::Interface
+        
+         include Fools::Interface
+
+         # Create the interface
+         def initialize controller
+            super
+            add_command :drink, "Apply drink to a DRONE.", "DRONE", "DRUNKENNESS", "TARGET"
+            add_command :drink_odds, "See the odds on how drunk a DRONE might get.", "DRONE", "DRUNKENNESS", "TARGET"
+            add_command :resist, "Check a DRONE's romantic resistance to the LADY.", "DRONE", "LADY"
+            add_command :resist_odds, "See the odds on whether or not an entity will resist romance.", "DRONE", "LADY"
+            add_command :sense, "A FRIEND of a SAP tried to talk him out of his love for a LADY.", "SAP", "LADY", "FRIEND"
+            add_command :sense_odds, "See the odds on whether talking sense will succeed.", "SAP", "LADY", "FRIEND"
+            add_command :tussle, "An ATTACKER attempts to overpower the DEFENDER with a WEAPON.\n#{combat_options}", "ATTACKER", "DEFENDER", "WEAPON"
+            add_command :tussle_odds, "See the odds on a fight when the ATTACKER assaults the DEFENDER.", "ATTACKER", "DEFENDER"
+         end
+
+         protected
+
+         # Apply the drinking rule
+         def drink entity, quantity, target
+            quantity = quantity.to_i
+            target = target.to_i
+            @mod.drink entity, quantity, target
+         end
+
+         # See the odds on the drinking rule
+         def drink_odds entity, quantity, target
+            quantity = quantity.to_i
+            target = target.to_i
+            @mod.drink_odds entity, quantity, target
+         end
+
+         # Apply the romantic resistance rule
+         def resist drone, lady
+            @mod.resist drone, lady
+         end
+
+         # See the odds on the romantic resistance rule
+         def resist_odds drone, lady
+            @mod.resist_odds drone, lady
+         end
+
+         # Apply the talking sense rule
+         def sense sap, lady, friend
+            @mod.sense sap, lady, friend
+         end
+
+         # See the odds on talking sense
+         def sense_odds sap, lady, friend
+            @mod.sense_odds sap, lady, friend
+         end
+
+         # Apply the combat rule
+         def tussle attacker, defender, weapon
+            weapon = weapon.to_sym
+            @mod.tussle attacker, defender, weapon
+         end
+
+         # See the odds on the combat rule
+         def tussle_odds attacker, defender
+            # The weapon is not used for this computation.
+            # THIS IS NOT RIGHT 
+            @mod.tussle_odds attacker, defender, :stick
+         end
+
+      end
+
+   end
+
+end

data/lib/fools/dm/launch.rb

@@ -0,0 +1,40 @@
+# Copyright 2010 John Morrice
+ 
+# This file is part of The Fools.
+
+# The Fools is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# The Fools is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with The Fools.  If not, see <http://www.gnu.org/licenses/>.
+
+require "fools/dm"
+
+require "carps/mod"
+
+module Fools
+
+   module DM
+
+      # Create the mod  
+      def DM::create_mod campaign
+         resource = CARPS::Resource.new "fools/#{campaign}" 
+         Mod.new resource
+      end
+
+      # Launch the game
+      def DM::launch mod
+         face = Interface.new mod
+         face.run
+      end
+
+   end
+
+end