rpg-prompt 1.1

data/lib/rpg-prompt/rules_default_hashes.rb

@@ -0,0 +1,68 @@
+require "rpg-prompt/message.rb"
+
+module RulesHashes
+  class ArmorHash < Hash
+    @@armors = nil
+
+    def initialize
+      self[:no_armor] = 0
+      self[:hardened_leather] = 3
+      self[:chainmail] = 5
+      self[:plate] = 8
+
+      @@armors = self.keys
+    end
+
+    def armors
+      @@armors
+    end
+  end
+
+  class WeaponHash < Hash
+    @@weapons = nil
+
+    def initialize
+      self[:broad_sword] = {:distance_mod => []}
+      self[:dagger] = {:distance_mod => []}
+      self[:scimitar] = {:distance_mod => []}
+      self[:hand_axe] = {:distance_mod => []}
+      self[:composite_bow] = {:distance_mod => [[0,0], [30,0], [60,-3], [90,-6]]}
+      self[:mace] = {:distance_mod => []}
+      self[:warhammer] = {:distance_mod => []}
+      self[:battle_axe] = {:distance_mod => []}
+      self[:claw_and_bite] = {:distance_mod => []}
+
+      @@weapons = self.keys
+    end
+
+    def weapons
+      @@weapons
+    end
+  end
+
+  class CreationArray < Hash
+    def initialize
+      self[:full_name] = [:question_full_name, :string, nil]
+      self[:nickname] = [:question_nickname, :string, nil]
+      self[:race] = [:question_race, :string, ""]
+      self[:hp] = [:question_hp, :integer, 10]
+      self[:weapon] = [:question_weapon, :weapon, :broad_sword]
+      self[:armor] = [:question_armor, :armor, :no_armor]
+      self[:move_capacity] = [:question_move_capacity, :integer, 10]
+    end
+  end
+
+  class SkillHash < Hash
+    def initialize
+      self[:sing] = [:artistic, :active]
+      self[:stalk] = [:subterfuge, :stealth]
+      self[:pick_locks] = [:subterfuge, :mechanics]
+    end
+  end
+  class ActionTable < Hash
+    def initialize
+      self[:failure] = [-1000, 3]
+      self[:success] = [4, 1000]
+    end
+  end
+end

data/lib/rpg-prompt/rules_sheet.rb

@@ -0,0 +1,326 @@
+require "rpg-prompt/rules_default_hashes.rb"
+require "rpg-prompt/message.rb"
+require "rpg-prompt/texts_default.rb"
+require "rpg-prompt/keypress.rb"
+
+module Rules
+  class Sheet < Hash
+    def initialize(short_name)
+      self[:short_name] = short_name
+      super(false)
+    end
+
+    def load_attribute(attribute, value)
+      self[attribute] = value
+    end
+
+    def read_attribute(attribute)
+      self[attribute]
+    end
+
+    def set_attribute(attribute, value)
+      c_a = self.creation_array
+      if c_a.key?(attribute)
+        type = c_a[attribute][1]
+        el = case type
+        when :integer
+          Integer(value)
+        when :float
+          Float(value)
+        when :bool
+          case value
+          when "true"
+            true
+          when "false"
+            false
+          else
+            puts 747390
+            false
+          end
+        when :weapon
+          value = value.gsub("_", " ")
+          if Message.weapon_symbol(value)
+            Message.weapon_symbol(value)
+          else
+            return_symbol = :set_fail
+            self[attribute]
+          end
+        else
+          value
+        end
+        self[attribute] = el.clone
+      end
+      unless (return_symbol == :set_fail)
+        return_symbol = :set_attribute
+      end
+      return_symbol
+    end
+
+    def clone_sheet(sheet)
+      sheet.each { |key, val|
+        self[key] = val
+      }
+    end
+
+    def remove_extra_separators(line)
+      ret_line = String.new(line)
+      ret_line = ret_line.gsub(/\s+/, " ")
+      ret_line = ret_line.gsub(/^\s*/, "")
+      ret_line = ret_line.gsub(/\s*$/, "")
+      ret_line = ret_line.gsub(/,/, "")
+    end
+
+    def create_new_w_questions
+      creation_array = self.creation_array
+      creation_array.each do |key, question|
+        unless question[0] == :no_question
+          Message.question(question[0])
+
+          if question[1] == :string
+            val = $stdin.gets.chomp
+            val = remove_extra_separators(val)
+            if val.length == 0
+              val = question[2]
+            end
+
+          elsif question[1] == :integer
+            i = $stdin.gets.chomp
+            if i.length == 0
+              val = question[2]
+            else
+              begin
+                val = Integer(i)
+              rescue ArgumentError
+                redo
+              end
+            end
+
+          elsif question[1] == :float
+            i = $stdin.gets.chomp
+            if i.length == 0
+              val = question[2]
+            else
+              begin
+                val = Float(i)
+              rescue ArgumentError
+                redo
+              end
+            end
+
+          elsif question[1] == :bool
+            b = $stdin.gets.chomp
+            b = remove_extra_separators(b)
+            if b.length == 0
+              val = question[2]
+            elsif (b == "s") || (b == "si")
+              val = true
+            elsif (b == "n") || (b == "no")
+              val = false
+            else
+              redo
+            end
+
+          elsif question[1] == :multiple
+            val = Array.new
+            loop do
+              name = $stdin.gets.chomp
+              name = remove_extra_separators(name)
+              if name == "q"
+                break
+              else
+                val.push(name)
+              end
+            end
+
+          elsif question[1] == :weapon
+            weapon_hash = RulesHashes::WeaponHash.new
+            available = weapon_hash.weapons
+            translated = Array.new
+            available.each do |e|
+              translated.push(Message.weapon_word(e))
+            end
+            Message.puts_weapons_list(available)
+            s = $stdin.gets.chomp
+            s = remove_extra_separators(s)
+            unless translated.include?(s)
+              redo
+            end
+            val = Message.weapon_symbol(s)
+
+          elsif question[1] == :armor
+            armor_hash = RulesHashes::ArmorHash.new
+            available = armor_hash.armors
+            translated = Array.new
+            available.each do |e|
+              translated.push(Message.armor_word(e))
+            end
+            Message.puts_armors_list(available)
+            s = $stdin.gets.chomp
+            s = remove_extra_separators(s)
+            unless translated.include?(s)
+              redo
+            end
+            val = Message.armor_symbol(s)
+
+          else
+            puts 367223
+          end
+          load_attribute(key, val)
+        else
+          load_attribute(key, question[2])
+        end
+      end
+    end
+
+    def full_name
+      String.new(self[:full_name] + " " + self[:nickname])
+    end
+
+    def add_ability(ability)
+      case ability
+      when :sing
+        @abilities[:sing] = true
+      when :dance
+        @abilities[:dance] = true
+      end
+    end
+
+    def remove_ability(ability)
+      @abilities[ability] = false
+    end
+
+    def []=(key, el)
+      if (key == :hp) || (key == :dead_in)
+        if el <= 0
+          super(key, el)
+          if key == :hp
+            Message.message(:mortal_wound_hp)
+          elsif key == :dead_in
+            Message.message(:mortal_wound_dead_in)
+          end
+        end
+      end
+      super(key, el)
+    end
+
+    def dead?
+      if self[:dead_in] != false
+        (self[:hp] <= 0) || (self[:dead_in] <= 0)
+      else
+        (self[:hp] <= 0)
+      end
+    end
+
+    def health?
+      self[:hp]
+    end
+
+    def spawned?
+      self[:spawned]
+    end
+
+    def reduce_health(damage)
+      self[:hp] -= damage
+    end
+
+    def move_capacity?
+      @move_capacity
+    end
+
+    def pass_round
+      self.each do |key, el|
+        case key
+        when :dead_in
+          self[key] -= 1
+        end
+      end
+    end
+  end
+
+  class Character < Sheet
+    def initialize(short_name)
+      super(short_name)
+      @creation_array = RulesHashes::CreationArray.new()
+    end
+    def creation_array
+      @creation_array
+    end
+    def unique?
+      true
+    end
+    def good?
+      true
+    end
+  end
+
+  class Foe < Sheet
+    def initialize(short_name)
+      super(short_name)
+      @creation_array = RulesHashes::CreationArray.new()
+    end
+    def creation_array
+      @creation_array
+    end
+    def unique?
+      true
+    end
+    def good?
+      false
+    end
+  end
+
+  class Spawn < Foe
+    def initialize(short_name)
+      super(short_name)
+      @creation_array = RulesHashes::CreationArray.new()
+      @creation_array[:full_name] = [:question_full_name, :multiple, nil]
+      @creation_array[:nickname] = [:question_nickname, :multiple, nil]
+    end
+    def creation_array
+      @creation_array
+    end
+    def unique?
+      false
+    end
+    def good?
+      false
+    end
+
+    def create_new_w_questions
+      super
+      @short_name = read_attribute(:short_name)
+      @hp = read_attribute(:hp)
+      @full_name = read_attribute(:full_name)
+      @nickname = read_attribute(:nickname)
+    end
+
+    def get_random_full_name(short_name, name_list)
+      get_random(short_name, name_list, :full_name)
+    end
+
+    def get_random_nickname(short_name, name_list)
+      get_random(short_name, name_list, :nickname)
+    end
+
+    def full_name
+      String.new("enemy of kind " + self[:short_name])
+    end
+
+    def get_random(name_list)
+      r = rand(name_list.length)
+      name_list[r]
+    end
+
+    def clone_sheet(sheet, short_name)
+      sheet.each do |key, val|
+        if key == :short_name
+          self.load_attribute(:short_name, short_name)
+        elsif (key == :full_name) || (key == :nickname)
+          self.load_attribute(key, get_random(sheet[key]))
+        else
+          self.load_attribute(key, val)
+        end
+      end
+    end
+  end
+end

data/lib/rpg-prompt/save.rb

@@ -0,0 +1,141 @@
+module Save
+  def self.file_name_format(short_name)
+    "sw." + short_name + ".marshal"
+  end
+
+  def self.file_scene_format(short_name)
+    "ss." + short_name + ".marshal"
+  end
+
+  def self.save_exist?(short_name)
+    File.exist?(Save.file_name_format(short_name))
+  end
+
+  def self.save_sheet(short_name, sheet)
+    file_name = Save.file_name_format(short_name)
+    file_handler = File.open(file_name, "w") {|to_file| Marshal.dump(sheet, to_file)}
+    file_handler.close
+    if File.exist?(file_name)
+      return 0
+    else
+      return -1
+    end
+  end  
+
+  def self.load_sheet(short_name)
+    file_name = Save.file_name_format(short_name)
+    Save.load(file_name)
+  end
+
+  def self.delete_sheet(short_name)
+    file_name = Save.file_name_format(short_name)
+    Save.delete(file_name)
+  end
+
+  def self.list_warriors
+    ls = Dir.entries(".")
+    ls.each do |f|
+      m = f.match(/^sw\.(?<name>\w+)\.marshal$/)
+      if m
+        puts m[:name]
+      end
+    end
+  end
+
+  @pool_file_name = "pool.marshal"
+
+  def self.save_pool(pool)
+    file_handler = File.open(@pool_file_name, "w") {|to_file| Marshal.dump(pool, to_file)}
+    file_handler.close
+    if File.exist?(@pool_file_name)
+      return 0
+    else
+      return -1
+    end
+  end
+
+  def self.load_pool
+    if File.exist?(@pool_file_name)
+      Save.load(@pool_file_name)
+    end
+  end
+
+  def self.delete_pool
+    if File.exist?(@pool_file_name)
+      File.delete(@pool_file_name)
+    end
+  end
+
+  @backup_file_name = ".backup.marshal"
+
+  def self.save_backup(pool)
+    file_handler = File.open(@backup_file_name, "w") {|to_file| Marshal.dump(pool, to_file)}
+    file_handler.close
+    if File.exist?(@backup_file_name)
+      return 0
+    else
+      return -1
+    end
+  end
+
+  def self.load_backup
+    Save.load(@backup_file_name)
+  end
+
+  def self.delete_scene(short_name)
+    file_name = Save.file_scene_format(short_name)
+    Save.delete(file_name)
+  end
+
+  def self.delete_backup
+    File.delete(@backup_file_name)
+  end
+
+  def self.save_scene(pool, name)
+    file_name = file_scene_format(name)
+    file_handler = File.open(file_name, "w") {|to_file| Marshal.dump(pool, to_file)}
+    file_handler.close
+    if File.exist?(file_name)
+      return 0
+    else
+      return -1
+    end
+  end
+
+  def self.load_scene(name)
+    Save.load(file_scene_format(name))
+  end
+
+  def self.list_scenes
+    ls = Dir.entries(".")
+    ls.each do |f|
+      m = f.match(/^ss\.(?<name>\w+)\.marshal$/)
+      if m
+        puts m[:name]
+      end
+    end
+  end
+
+  def self.load(file_name)
+    if File.exist?(file_name)
+      begin
+        file_handler = File.open(file_name, "r")
+        sheet = Marshal.load(file_handler)
+        file_handler.close
+      rescue
+        sheet = false
+      end
+    else
+      sheet = nil
+    end
+    sheet
+  end
+
+  def self.delete(file_name)
+    if File.exist?(file_name)
+      File.delete(file_name)
+    else
+      -1
+    end
+  end
+end