fools 0.0.4

data/lib/fools/rules/drink/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/rules/drink/dice"
+
+require "fools/sheet"
+
+module Fools
+
+   module Rules
+
+      # A drinking action
+      class DrinkAction < CARPS::Action
+
+         protected
+
+         # Make the person drunk
+         def execute result, sh, *params
+            pending = sh["Intoxication"] + result
+            if pending < -9
+               pending = -9
+            elsif pending > 0
+               pending = 0
+            end
+            sh["Intoxication"] = pending
+            if result < 0
+               Sheet::alter sh, "Vim & Vigour", result
+               Sheet::alter sh, "The Outer Crust", result
+            end
+         end
+
+      end
+
+      # You are cold sober, ie no change from before.
+      class ColdSober < DrinkAction
+
+         def summary
+            "Cold sober"
+         end
+
+      end
+
+      # You have drunk enough to be happy
+      class Happy < DrinkAction
+
+         def summary
+            "Become happy."
+         end
+
+      end
+
+      # You are tipsy
+      class Tipsy < DrinkAction
+
+         def summary
+            "A little tipsy"
+         end
+
+      end
+
+      # You are DRUNK
+      class Drunk < DrinkAction
+
+         def summary
+            "Enough to get drunk."
+         end
+
+      end
+
+      # VERY DRUNK
+      class VeryDrunk < DrinkAction
+
+         def summary
+            "VERY DRUNK."
+         end
+
+      end
+
+      # Paralytic
+      class Paralytic < DrinkAction
+
+         def summary
+            "Paralytic."
+         end
+
+      end
+
+      # Rule which performs drinking
+      class Drink < CARPS::Rule
+
+         include Fools::Dice
+
+         # Add the actions
+         def initialize
+            super
+            add_action :>=, 0, ColdSober
+            add_action :==, -1, Happy
+            add_action (-3..-2), Tipsy
+            add_action (-5..-4), Drunk
+            add_action (-8..-6), VeryDrunk
+            add_action :<=, -9, Paralytic
+         end
+
+         protected
+
+         # Drinking dice
+         def dice sheet, quantity, target
+            vim = sheet["Vim & Vigour"] 
+            resistance = sheet["Tolerance for Alcohol"]
+            drink vim, resistance, quantity, target
+         end
+
+      end
+   end
+end

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

@@ -0,0 +1,62 @@
+# 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
+
+   module Dice
+
+      # Resist romance
+      #
+      # resistance is the Romantic Resistance of the 'victim'.
+      #
+      # crust is The Outer Crust of the possible object of love
+      #
+      # Positive on success, negative on failure.  Magnitude is
+      # meaningful.
+      def resist_romance resistance, crust
+         resisted = d 10
+         resisted + (resistance - crust)
+         resisted
+      end
+
+      # Talk sense
+      #
+      # Can you talk someone out of their love?
+      #
+      # resistance is the Romantic Resistance of the 'victim'.
+      #
+      # crust is The Outer Crust of the object of love
+      #
+      # matter is The Old Grey Matter of the lovestruck drone's sensible friend
+      #
+      # Positive on success, negative on failure.  Magnitude is
+      # meaningful.
+      def talk_sense resistance, crust, matter
+         convince = d 10
+         convince + matter
+         # Resist the advice...
+         resist = d 10
+         resist + (crust - resistance)
+         convince - resist
+         convince
+      end
+
+   end
+
+end

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

@@ -0,0 +1,143 @@
+# 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 Rules
+
+      # Resisted being attracted to a young lady
+      class ResistedRomance < CARPS::Action
+
+         def summary
+            "Kept cool."
+         end
+
+         protected
+
+         # Nothing actually happens.  They just roleplay this.
+         #
+         # TODO: extend character sheet?
+         def execute *params
+         end
+
+      end
+
+      # Besotted
+      class Smitten < CARPS::Action
+
+         def summary
+            "Became a poor, besotted drooling sort of fellow."
+         end
+
+         protected
+
+         # No change
+         def execute *forget
+         end
+
+      end
+
+      # Rule which performs romantic resistance
+      class Resist < CARPS::Rule
+
+         include Fools::Dice
+
+         # Add the actions
+         def initialize
+            super
+            add_action :>=, 0, ResistedRomance
+            add_action :<, 0, Smitten
+         end
+
+         protected
+
+         # Resistance dice
+         #
+         # The first is the sheet of the 'victim'
+         #
+         # The second of the young lady in question
+         def dice drone, lady
+            resist = drone["Romantic Resistance"]
+            crust = lady["The Outer Crust"]
+            resist_romance resist, crust
+         end
+
+      end
+
+      # Class for successfully talking a man out of a relationship
+      class SensePrevails < CARPS::Action
+
+         def summary
+            "Sense pravails.  The sap is de-sopped."
+         end
+
+         protected
+
+         # Nothing really happens.  Roleplayed.
+         def execute *forget
+         end
+
+      end
+
+      # Class for failing to talk a man out of a relationship
+      class SenseUseless < CARPS::Action
+
+         def summary
+            "Logic has no effect."
+         end
+
+         protected
+
+         # Nothing happens
+         def execute *forget
+         end
+
+      end
+
+      # A rule which handles talking sense into a soppy fool
+      class Sense < CARPS::Rule
+
+         include Fools::Dice
+
+         # Add the actions
+         def initialize
+            super
+            add_action :>=, 0, SensePrevails
+            add_action :<, 0, SenseUseless
+         end
+
+         protected
+
+         # Sense talking dice
+         #
+         # The first is the sheet of the 'victim'
+         #
+         # The second of the young lady in question
+         #
+         # The third of the first's sensible friend
+         def dice sap, lady, friend
+            resistance = sap["Romantic Resistance"]
+            crust = lady["The Outer Crust"]
+            matter = friend["The Old Grey Matter"]
+            talk_sense resistance, crust, matter
+         end
+
+      end
+
+   end
+
+end

data/lib/fools/rules.rb

@@ -0,0 +1,23 @@
+# 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/rules/drink/dice"
+require "fools/rules/drink/rule"
+require "fools/rules/combat/dice"
+require "fools/rules/combat/rule"
+require "fools/rules/romance/dice"
+require "fools/rules/romance/rule"

data/lib/fools/sheet/alter.rb

@@ -0,0 +1,35 @@
+# 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 Sheet
+
+      # Safely alter an attribute in a character sheet
+      #
+      # This is safe as long as the stat's minimum value is -10, and maximum is 10 (see Sheet::Semantics)
+      def Sheet::alter sheet, attr, by
+         curr = sheet[attr]
+         result = curr + by
+         if result >= -10 and result <= 10
+            sheet[attr] = result
+         end
+      end
+
+   end
+   
+end

data/lib/fools/sheet/schema.rb

@@ -0,0 +1,59 @@
+# 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 "yaml"
+
+module Fools
+
+   module Sheet
+
+      # Character sheet schema for The Fools
+      def Sheet::schema
+         CARPS::Sheet::Schema.new YAML.load <<-END
+Name: Text
+Biography: Optional Text
+Character Points: Integer
+The Readies: Integer
+The Old Grey Matter: Integer
+The Outer Crust: Integer
+Vim & Vigour: Integer
+Luck: Integer
+Chances: Integer
+Romantic Resistance: Integer
+Tolerance for Alcohol: Integer
+Conscience: Integer
+Etiquette: Integer
+Pounds: Integer
+Shillings: Integer
+Pence: Integer
+Intoxication: Integer
+Discomfiture: Integer
+Student of the Turf: Boolean
+Gentleman's Gentleman: Optional Choice Good Superior
+Sports Car: Optional Choice Basic Flashy
+Specialist Interest: Optional Text
+Connections: Optional Text
+Difficult Relation: Optional Text
+Good Sportsman: Optional Text
+END
+      end
+
+   end
+
+end

data/lib/fools/sheet/semantics.rb

@@ -0,0 +1,129 @@
+# 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/ui"
+
+require "carps/mod/sheet/verifier"
+
+module Fools
+
+   module Sheet
+
+      # Semantic verifier for Fools character sheets
+      class Semantics < CARPS::Sheet::UserVerifier
+
+         # Verify a sheet, produce errors if they occur 
+         def produce_errors sheet
+
+            errors = []
+            lims = field_limits
+            # Verify all values are within bounds
+            lims.each do |key, valid|
+               attr = sheet[key]
+               if attr
+                  if not valid.include? attr
+                     errors.push "Damnit man, #{key} must be between #{valid.min} and #{valid.max}!"
+                  end
+               end
+            end
+
+            # Verify that no more than the limited number of character points has been spent
+            total = 0
+            advts = [
+               "The Readies",
+               "The Old Grey Matter",
+               "The Outer Crust",
+               "Vim & Vigour",
+               "Tolerance for Alcohol",
+               "Luck",
+               "Conscience"
+            ]
+            advts.each do |key|
+               val = sheet[key]
+               if val
+                  gain = cost(val.abs)
+                  if val < 0
+                     gain = -gain
+                  end
+                  total += gain
+               end
+            end
+
+            car = sheet["Sports Car"]
+            if car == "Basic"
+               total += 1
+            elsif car == "Flashy"
+               total += 3
+            end
+
+            valet = sheet["Gentleman's Gentleman"]
+            if valet == "Good"
+               total += 1
+            elsif valet == "Superior"
+               total += 3
+            end
+
+            limit = sheet["Character Points"]
+            if total > limit
+               errors.push "Don't you know that you used #{total} character points, yet you only had #{limit}?"
+            elsif total < limit
+               CARPS::UI::highlight "Chin up old bean, you still have #{limit - total} points to spend."
+            end
+            if errors.empty?
+               nil
+            else
+               errors
+            end
+         end
+
+         private
+
+         # Points cost per level
+         #
+         # (Triangular number n)
+         def cost n
+            (n ** 2 + n) / 2
+         end
+
+         # Hard limits on each schema field
+         def field_limits
+            {
+            "The Readies" => -10..10,
+            "The Old Grey Matter" => -10..10,
+            "The Outer Crust" => -10..10,
+            "Vim & Vigour" => -10..10,
+            "Romantic Resistance" => -3..3,
+            "Tolerance for Alcohol" => -3..3,
+            "Luck" => -10..10,
+            "Chances" => -30..30,
+            "Etiquette" => -1..1,
+            "Conscience" => -1..1,
+            "Intoxication" => -9..0,
+            "Discomfiture" => -9..0,
+            # The upper limits here are somewhat arbitrary
+            "Pounds" => 0..1000000,
+            "Shillings" => 0..10000,
+            "Pence" => 0..10000
+
+            }
+         end
+
+      end
+
+   end
+
+end

data/lib/fools/sheet.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/sheet/schema"
+require "fools/sheet/semantics"
+require "fools/sheet/alter"

data/lib/fools/util/error.rb

@@ -0,0 +1,28 @@
+# 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/util/error"
+
+module Fools
+
+   def Fools::fatal msg
+      put_error "FATAL ERROR"
+      put_error msg
+      CARPS::enter_quit 1
+   end
+
+end

data/lib/fools/util.rb

@@ -0,0 +1,18 @@
+# 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/util/error"

data/lib/fools.rb

@@ -0,0 +1,33 @@
+# 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/>.
+
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require "carps"
+
+require "fools/interface"
+require "fools/mod"
+require "fools/util"
+require "fools/player"
+require "fools/dm"
+require "fools/rules"
+require "fools/sheet"
+
+module Fools
+  VERSION = '0.0.4'
+end