fools 0.0.4

data/lib/fools/dm/mod.rb

@@ -0,0 +1,120 @@
+# 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/mod"
+require "fools/rules"
+
+module Fools
+
+   module DM
+
+      # An implementation of the Mod class for DMing The Fools
+      class Mod < CARPS::DM::Mod
+
+         include Fools::Mod 
+
+         # Create the controller
+         def initialize resource
+            super
+            load_verifiers
+         end
+
+         # Apply the sense rule
+         def sense sap, lady, friend
+            with_entities sap, lady, friend do |sap_sheet, lady_sheet, friend_sheet|
+               apply_sense sap_sheet, lady_sheet, friend_sheet
+            end
+         end
+
+         # See the odds on talking sense
+         def sense_odds sap, lady, friend
+            with_entities sap, lady, friend do |sap_sheet, lady_sheet, friend_sheet| 
+               see_sense_odds sap_sheet, lady_sheet, friend_sheet
+            end
+         end
+
+         # Apply the drinking rule
+         def drink entity, quantity, target
+            with_entity entity do |drone|
+               apply_drink drone, quantity, target
+            end
+         end
+
+         # See the drink odds
+         def drink_odds entity, quantity, target
+            with_entity entity do |drone|
+               see_drink_odds drone, quantity, target
+            end
+         end
+
+         # Apply the romantic resistance rule
+         def resist person, lady
+            with_entities person, lady do |drone, lady_sheet|
+               apply_resist drone, lady_sheet
+            end
+         end
+
+         # See the odds on romantic resistance
+         def resist_odds person, lady
+            with_entities person, lady do |drone, lady_sheet|
+               see_resist_odds drone, lady_sheet
+            end
+         end
+
+         # One Drone engages another in combat
+         def tussle attacker, defender, weapon
+            with_entities attacker, defender do |attacker_sheet, defender_sheet|
+               apply_combat attacker_sheet, defender_sheet, weapon
+            end
+         end
+
+         # See the odds of combat
+         def tussle_odds attacker, defender, weapon
+            with_entities attacker, defender do |attacker_sheet, defender_sheet|
+               see_combat_odds attacker_sheet, defender_sheet, weapon
+            end
+         end
+
+         private
+
+         # Apply the sense rule
+         def apply_sense sap, lady, friend
+            rule = Rules::Sense.new
+            rule.apply sap, lady, friend
+         end
+
+         # Apply combat rule
+         def apply_combat attacker, defender, weapon
+            rule = Rules::Combat.new
+            rule.apply attacker, defender, weapon
+         end
+
+         # Apply the romantic resistance rule
+         def apply_resist drone, lady
+            rule = Rules::Resist.new
+            rule.apply drone, lady
+         end
+
+         # Apply the drink rule
+         def apply_drink sheet, quantity, target
+            rule = Rules::Drink.new
+            rule.apply sheet, quantity, target
+         end
+
+      end
+
+   end
+
+end

data/lib/fools/dm.rb

@@ -0,0 +1,20 @@
+# 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/launch" 
+require "fools/dm/interface"
+require "fools/dm/mod"

data/lib/fools/interface.rb

@@ -0,0 +1,32 @@
+# 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/>.
+
+module Fools
+
+   # Functionality common to Fools DM and Player interfaces
+   module Interface
+   
+      protected
+
+      # Combat options
+      def combat_options
+         options "handbag", "fist", "stick", "crowbar", "knife", "sabre", "gun"
+      end
+
+   end
+
+end

data/lib/fools/mod.rb

@@ -0,0 +1,74 @@
+# 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/rules"
+
+require "fools/sheet"
+
+module Fools
+
+   # Generic mod, base of Player and DM mods.
+   module Mod 
+
+      # Load in the rules
+      include Rules
+
+      protected
+
+      # Load up the semantics and the schema
+      def load_verifiers
+         @semantics = Sheet::Semantics.new
+         @schema = Sheet::schema
+      end
+
+      # Fools schema
+      def schema
+         @schema
+      end
+
+      # Semantic verifier for Fools sheets
+      def semantic_verifier
+         @semantics
+      end
+
+      # See drink odds
+      def see_drink_odds sheet, quantity, target
+         rule = Rules::Drink.new
+         rule.show_odds sheet, quantity, target
+      end
+
+      # See the odds of resisting
+      def see_resist_odds drone, lady
+         rule = Rules::Resist.new
+         rule.show_odds drone, lady
+      end
+
+      # Find the combat odds
+      def see_combat_odds attacker, defender, weapon
+         rule = Rules::Combat.new
+         rule.show_odds attacker, defender, weapon
+      end
+
+      # See the sense odds
+      def see_sense_odds sap, lady, friend
+         rule = Rules::Sense.new
+         rule.show_odds sap, lady, friend
+      end
+
+   end
+
+end

data/lib/fools/player/interface.rb

@@ -0,0 +1,66 @@
+# 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 Player
+      
+      # Interface for Fools Player
+      class Interface < CARPS::Player::Interface
+        
+         # Create the interface
+         def initialize mod
+            super
+            add_command :drink, "See the odds on how drunk you might get.", "DRUNKENNESS", "TARGET"
+            add_command :resist, "See your chance to resist romance, given a lady with given The Outer CRUST.", "CRUST"
+            add_command :sense, "See your chance to talk sense into a man with Romantic RESISTANCE, who is smitten by a lady with The Outer CRUST.", "RESISTANCE", "CRUST"
+            add_command :tussle, "See your chance to overpower a drone with given VIM & Vigour", "VIM"
+         end
+
+         protected
+
+         def drink drunkenness, target
+            drunkenness = drunkenness.to_i
+            target = target.to_i
+            @mod.drink drunkenness, target
+         end
+
+         def resist crust
+            crust = crust.to_i
+            @mod.resist crust
+         end
+
+         def sense resist, crust
+            resist = resist.to_i
+            crust = crust.to_i
+            @mod.sense resist, crust
+         end
+
+         def tussle vim
+            vim = vim.to_i
+            @mod.tussle vim
+         end
+
+      end
+
+   end
+
+end

data/lib/fools/player/launch.rb

@@ -0,0 +1,37 @@
+# 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/player"
+
+module Fools
+
+   module Player
+
+      # Create the mod
+      def Player::create_mod
+         Mod.new
+      end
+
+      # Launch the Player's interface
+      def Player::launch mod  
+         face = Interface.new mod
+         face.run
+      end
+
+   end
+
+end

data/lib/fools/player/mod.rb

@@ -0,0 +1,105 @@
+# 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/rules"
+require "fools/sheet"
+
+module Fools
+   
+   module Player 
+
+      # An implementation of the Mod class for playing The Fools
+      class Mod < CARPS::Player::Mod
+
+         include Fools::Mod
+
+         # Create the controller
+         def initialize
+            super
+            load_verifiers
+         end
+
+         # Describe the Fools
+         def description
+            <<-END
+The Fools.  Copyright John Morrice 2010. 
+
+The Fools is distributed for educational purposes: it is 
+intended to be used by programmers, as an aid in 
+learning how to write mods for CARPS.
+
+The Fools is loosely based on the rules of the Drones RPG:
+http://www.granta.demon.co.uk/drones/
+Copyright Ian Crowther, Sheila Thomas, Victoria Uren 1995-1996
+
+You should familiarise yourself with the rules before
+play, though note the following differences and quriks
+present in this CARPS mod:
+
+* Your character points are present on the character
+  sheet. These are your total character points, rather
+  than the points you have not yet spent available.  
+  Hence you should NOT reduce this value when you spend 
+  a point.  
+  As in the Fools rules, you should expect 
+  the Game Master to tell you how many points you have 
+  available before the game begins.
+
+* Two additional character attributes are added:
+  Intoxication and Discomfiture.
+  These attributes are to keep track of the transitory 
+  nature of drunkenness and being the subject of A Sound 
+  Drubbing, respectively.  
+  These values range from 0 to -10.  0 indicates 
+  sobreity or perfect health, while -10 represents a 
+  highly debilated state.
+
+END
+         end
+
+         # See the drinking odds
+         def drink drunkenness, target
+            see_drink_odds @sheet, drunkenness, target
+         end
+
+         # See the chance to resist romance
+         def resist crust
+            lady = CARPS::Sheet::Character.new({"The Outer Crust" => crust})
+            see_resist_odds @sheet, lady
+         end
+
+         # See the odds of winning a fight
+         def tussle vim
+            drone = CARPS::Sheet::Character.new({"Vim & Vigour" => vim})
+            # Weapon doesn't matter
+            #
+            # THIS IS WRONG!
+            see_combat_odds @sheet, drone, :stick
+         end
+
+         # See the chance of talking sense
+         def sense resist, crust
+            lady = CARPS::Sheet::Character.new({"The Outer Crust" => crust})
+            sap = CARPS::Sheet::Character.new({"Romantic Resistance" => resist})
+            see_sense_odds sap, lady, @sheet
+         end
+
+      end
+
+   end
+
+end

data/lib/fools/player.rb

@@ -0,0 +1,20 @@
+# 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/player/launch"
+require "fools/player/interface"
+require "fools/player/mod"

data/lib/fools/rules/combat/dice.rb

@@ -0,0 +1,41 @@
+# 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/>.
+
+module Fools
+
+   module Dice
+
+      include CARPS::Dice
+
+      # Engage in combat
+      #
+      # The first parameter is the attacker's vim
+      # The second is the weapon used
+      # The third is the defender's vim
+      def combat avim, awep, dvim
+         at = d 10
+         de = d 10
+         at + avim
+         de + dvim
+         at - de
+         at * awep
+         at
+      end
+
+   end
+
+end

data/lib/fools/rules/combat/rule.rb

@@ -0,0 +1,130 @@
+# 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/sheet"
+
+module Fools
+
+   module Rules
+
+      # Someone has won the combat
+      class CombatWin < CARPS::Action
+
+         protected
+
+         # Decrease the discomfiture of the loser
+         def lose sh, by
+            Sheet::alter sh, "Discomfiture", -by
+            Sheet::alter sh, "Vim & Vigour", -by
+            Sheet::alter sh, "The Outer Crust", -by
+         end
+
+      end
+
+      # The attacker won
+      class AttackerWins < CombatWin
+      
+         def summary
+            "The attacker wins."
+         end
+
+         protected
+
+         # The attacker has won
+         def execute result, attacker, defender, mul
+            lose defender, result
+         end
+
+      end
+
+      # The defender won
+      class DefenderWins < CombatWin
+
+         def summary
+            "The defender wins."
+         end
+
+         protected
+
+         # The defender has won
+         def execute result, attacker, defender, mul
+            lose attacker, result * -1
+         end
+
+      end
+
+      # No one wins
+      class NoOneWins < CARPS::Action
+
+         def summary
+            "Stalemate."
+         end
+
+         protected
+
+         # Do nothing
+         def execute *forget
+         end
+
+      end
+
+      # Combat
+      class Combat < CARPS::Rule
+
+         include Fools::Dice
+
+         # Add the actions
+         def initialize
+            super
+            add_action :<, 0, DefenderWins
+            add_action :>, 0, AttackerWins
+            add_action :==, 0, NoOneWins
+         end
+
+         protected
+
+         # The combat dice
+         def dice attacker, defender, weapon
+            avim = attacker["Vim & Vigour"]
+            dvim = defender["Vim & Vigour"]
+            mul = 1.0 / 3
+            case weapon
+            when :handbag
+               mul = 1.0 / 5
+            when :fist
+               mul = 1.0 / 3
+            when :stick
+               mul = 1.0 / 2
+            when :crowbar
+               mul = 1.0
+            when :knife
+               mul = 3.0 / 2
+            when :sabre
+               mul = 2.0
+            when :gun
+               mul = 5.0
+            end
+            combat avim, mul, dvim
+         end
+
+      end
+
+   end
+
+end
+

data/lib/fools/rules/drink/dice.rb

@@ -0,0 +1,43 @@
+# 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"
+
+module Fools
+
+   # Fools dice
+   module Dice
+
+      # How drunk will you get?
+      def drink vim, resistance, quantity, target
+         quantity += resistance
+         roll = d 10
+         roll + (vim + resistance)
+         roll - target
+         # Inspect result of roll and determine course of action
+         roll.is :<=, -7, quantity - 3
+         roll.in_range -6..-4, quantity - 2
+         roll.in_range -3..-1, quantity - 1
+         roll.in_range 1..3, quantity + 1
+         roll.in_range 4..6, quantity + 2
+         roll.is :>=, 7, quantity + 3
+         roll
+      end
+
+   end
+
+end