amar-rpg 2.0.1

data/includes/class_npc_new_skills.rb

@@ -0,0 +1,153 @@
+# Improved skill generation for experienced NPCs
+def add_experience_skills
+  # Add additional skills for experienced characters
+  experience_bonus = @level - 3  # 1 for level 4, 2 for level 5, etc.
+  
+  # Significantly expand skill generation based on level
+  skill_count = case @level
+                when 4 then rand(8..12)
+                when 5 then rand(12..18)
+                when 6 then rand(18..25)
+                else rand(20..30)
+                end
+  
+  skills_added = 0
+  
+  # Build skill pool based on actual tier system
+  skill_pool = []
+  
+  # BODY skills
+  skill_pool += [
+    ["BODY", "Athletics", "Hide", rand(2..3) + experience_bonus],
+    ["BODY", "Athletics", "Move Quietly", rand(2..3) + experience_bonus],
+    ["BODY", "Athletics", "Climb", rand(1..3) + experience_bonus],
+    ["BODY", "Athletics", "Swim", rand(1..3) + experience_bonus],
+    ["BODY", "Athletics", "Ride", rand(1..2) + experience_bonus],
+    ["BODY", "Athletics", "Jump", rand(1..2) + experience_bonus],
+    ["BODY", "Athletics", "Balance", rand(2..3) + experience_bonus],
+    ["BODY", "Endurance", "Running", rand(2..3) + experience_bonus],
+    ["BODY", "Endurance", "Combat Tenacity", rand(1..3) + experience_bonus],
+    ["BODY", "Sleight", "Pick pockets", rand(1..2) + experience_bonus],
+    ["BODY", "Sleight", "Disarm Traps", rand(1..2) + experience_bonus]
+  ]
+  
+  # MIND skills
+  skill_pool += [
+    ["MIND", "Awareness", "Tracking", rand(2..3) + experience_bonus],
+    ["MIND", "Awareness", "Detect Traps", rand(1..2) + experience_bonus],
+    ["MIND", "Awareness", "Sense Emotions", rand(1..2) + experience_bonus],
+    ["MIND", "Awareness", "Sense of Direction", rand(2..3) + experience_bonus],
+    ["MIND", "Awareness", "Listening", rand(2..3) + experience_bonus],
+    ["MIND", "Social Knowledge", "Social lore", rand(2..3) + experience_bonus],
+    ["MIND", "Social Knowledge", "Spoken Language", rand(1..3) + experience_bonus],
+    ["MIND", "Social Knowledge", "Literacy", rand(1..3) + experience_bonus],
+    ["MIND", "Nature Knowledge", "Medical lore", rand(1..2) + experience_bonus],
+    ["MIND", "Nature Knowledge", "Plant Lore", rand(1..2) + experience_bonus],
+    ["MIND", "Nature Knowledge", "Animal Lore", rand(1..2) + experience_bonus],
+    ["MIND", "Practical Knowledge", "Survival Lore", rand(2..3) + experience_bonus],
+    ["MIND", "Practical Knowledge", "Set traps", rand(1..2) + experience_bonus],
+    ["MIND", "Willpower", "Mental Fortitude", rand(2..3) + experience_bonus],
+    ["MIND", "Willpower", "Courage", rand(1..3) + experience_bonus]
+  ]
+  
+  # Type-specific skills
+  if has_magic?
+    skill_pool += [
+      ["MIND", "Awareness", "Sense Magick", rand(3..4) + experience_bonus],
+      ["MIND", "Nature Knowledge", "Magick Rituals", rand(3..5) + experience_bonus],
+      ["MIND", "Social Knowledge", "Mythology", rand(2..3) + experience_bonus],
+      ["MIND", "Social Knowledge", "Legend Lore", rand(2..3) + experience_bonus],
+      ["SPIRIT", "Casting", "Range", rand(2..4) + experience_bonus],
+      ["SPIRIT", "Casting", "Duration", rand(2..4) + experience_bonus],
+      ["SPIRIT", "Casting", "Area of Effect", rand(1..3) + experience_bonus]
+    ]
+  end
+  
+  # Physical combat types
+  if ["Warrior", "Guard", "Soldier", "Gladiator", "Body guard", "Ranger", "Hunter"].any? { |t| @type.include?(t) }
+    skill_pool += [
+      ["BODY", "Endurance", "Fortitude", rand(3..4) + experience_bonus],
+      ["BODY", "Endurance", "Combat Tenacity", rand(3..4) + experience_bonus],
+      ["MIND", "Practical Knowledge", "Ambush", rand(2..3) + experience_bonus],
+      ["MIND", "Awareness", "Sense Ambush", rand(2..3) + experience_bonus]
+    ]
+  end
+  
+  # Scholarly types
+  if ["Scholar", "Sage", "Scribe", "Wizard", "Mage"].any? { |t| @type.include?(t) }
+    skill_pool += [
+      ["MIND", "Intelligence", "Innovation", rand(3..4) + experience_bonus],
+      ["MIND", "Intelligence", "Problem Solving", rand(3..4) + experience_bonus],
+      ["MIND", "Social Knowledge", "Literacy", rand(4..5) + experience_bonus],
+      ["MIND", "Nature Knowledge", "Alchemy", rand(2..3) + experience_bonus]
+    ]
+  end
+  
+  # Rogueish types
+  if ["Thief", "Rogue", "Assassin", "Scout"].any? { |t| @type.include?(t) }
+    skill_pool += [
+      ["BODY", "Athletics", "Hide", rand(4..5) + experience_bonus],
+      ["BODY", "Athletics", "Move Quietly", rand(4..5) + experience_bonus],
+      ["BODY", "Sleight", "Pick pockets", rand(3..5) + experience_bonus],
+      ["BODY", "Sleight", "Disarm Traps", rand(3..4) + experience_bonus],
+      ["MIND", "Awareness", "Detect Traps", rand(3..4) + experience_bonus]
+    ]
+  end
+  
+  # Now randomly select and add skills
+  skill_pool.shuffle!
+  
+  skill_pool.each do |char_name, attr_name, skill_name, value|
+    break if skills_added >= skill_count
+    
+    # Ensure the tier structure exists
+    next unless @tiers[char_name] && @tiers[char_name][attr_name]
+    
+    # Initialize skills hash if needed
+    @tiers[char_name][attr_name]["skills"] ||= {}
+    
+    # Convert array to hash if needed
+    if @tiers[char_name][attr_name]["skills"].is_a?(Array)
+      skill_list = @tiers[char_name][attr_name]["skills"]
+      @tiers[char_name][attr_name]["skills"] = {}
+      skill_list.each { |s| @tiers[char_name][attr_name]["skills"][s] = 0 }
+    end
+    
+    # Add skill if it doesn't exist or is 0
+    if !@tiers[char_name][attr_name]["skills"][skill_name] || 
+       @tiers[char_name][attr_name]["skills"][skill_name] == 0
+      @tiers[char_name][attr_name]["skills"][skill_name] = value
+      skills_added += 1
+    end
+  end
+  
+  # Fill remaining with random skills from existing structure
+  while skills_added < skill_count
+    char_name = ["BODY", "MIND"].sample
+    if @tiers[char_name]
+      attr_name = @tiers[char_name].keys.sample
+      if @tiers[char_name][attr_name] && @tiers[char_name][attr_name]["skills"]
+        @tiers[char_name][attr_name]["skills"] ||= {}
+        
+        # Convert array to hash if needed
+        if @tiers[char_name][attr_name]["skills"].is_a?(Array)
+          skill_list = @tiers[char_name][attr_name]["skills"]
+          @tiers[char_name][attr_name]["skills"] = {}
+          skill_list.each { |s| @tiers[char_name][attr_name]["skills"][s] = 0 }
+        end
+        
+        # Pick a random skill
+        if @tiers[char_name][attr_name]["skills"].any?
+          skill_name = @tiers[char_name][attr_name]["skills"].keys.sample
+          if @tiers[char_name][attr_name]["skills"][skill_name] == 0
+            @tiers[char_name][attr_name]["skills"][skill_name] = rand(1..3) + experience_bonus
+            skills_added += 1
+          end
+        end
+      end
+    end
+    
+    # Prevent infinite loop
+    break if skills_added >= 50
+  end
+end

data/includes/class_town.rb

@@ -0,0 +1,237 @@
+# The Amar Tool class for generating random castles/villages/towns/cities.
+#
+# When the class is initialized, a random settlement (village/town/city) is generated.
+#
+# A pretty straight forward class, not in need of much comments
+
+class Town
+
+	attr_reader :town, :town_name, :town_size, :town_residents
+
+	# Although there is a generic name function, the town creator needs to
+	# modify it to cater for a high chance of a household having the same surname
+	def name(race)
+		new_name = naming(race, @r_sex)
+		name_split = new_name.split
+		$Last_name = name_split[1].to_s if $Last_name == "" or /Soldier/ =~ @town[@h_index][0] or /residents/ =~ @town[@h_index][0]
+		name_split[1] = $Last_name if rand(1..4) > 1
+		new_name = name_split.join(" ").strip
+		return new_name
+	end
+
+	# Using the generic randomizer function to get random races based on weighted input
+	def race(var)
+		case var
+			when 0
+				@race = randomizer(
+					"Human"					=> 10,
+					"Other"					=> 1)
+			when 1
+				@race = randomizer(
+					"Human"					=> 10,
+					"Dwarf"					=> 4,
+					"Half-elf"			=> 2,
+					"Lizardfolk"		=> 1,
+					"Other"					=> 1)
+			when 2
+				@race = randomizer(
+					"Human"					=> 10,
+					"Dwarf"					=> 5,
+					"Half-elf"			=> 3,
+					"Lizardfolk"		=> 2,
+					"Lesser troll"  => 2,
+					"Half-giant"		=> 1,
+					"Other"					=> 2)
+			when 3
+				@race = randomizer(
+					"Human"					=> 10,
+					"Dwarf"					=> 7,
+					"Half-elf"			=> 5,
+					"Lizardfolk"		=> 3,
+					"Lesser troll"  => 3,
+					"Half-giant"		=> 2,
+					"Elf"						=> 1,
+					"Troll"					=> 1,
+					"Arax"					=> 1,
+					"Other"					=> 2)
+			when 4
+				@race = randomizer(
+					"Dwarf"					=> 15,
+					"Other"					=> 1)
+			when 5
+				@race = randomizer(
+					"Elf"						=> 12,
+					"Half-elf"			=> 3,
+					"Other"					=> 1)
+			when 6
+				@race = randomizer(
+					"Lizardfolk"		=> 15,
+					"Other"					=> 1)
+			end
+		return @race
+	end
+
+	# The function to add residents to houses
+	def add_resident(age)
+		@town_residents += 1
+		# Get race
+		if $Race == ""
+			@r_race = race(@town_var)
+			$Race = @r_race unless /residents/ =~ @town[@h_index][0]
+		elsif rand(5).to_i == 0
+			@r_race = race(@town_var)
+		else
+			@r_race = $Race
+		end
+		# Get sex
+		if $Sex == ""
+			@r_sex = randomizer( "M" => 1, "F" => 1 )
+		elsif $Sex == "M"
+			@r_sex = randomizer( "M" => 1, "F" => 3 )
+		elsif $Sex == "F"
+			@r_sex = randomizer( "M" => 3, "F" => 1 )
+		end
+		$Sex = @r_sex
+		# Get age
+		case age
+			when 0
+				@r_age = rand(70).to_i + 15
+			when 1
+				@r_age = rand(35).to_i + 50
+			when 2
+				@r_age = rand(30).to_i + 20
+			when 3
+				@r_age = rand(20).to_i
+		end
+		@r_age = @r_age*2 if $Race == "Dwarf"
+		@r_age = @r_age*1.5 if $Race == "Half-elf"
+		@r_age = @r_age*3 if $Race == "Elf"
+		@r_age = @r_age*0.8 if $Race == "Lizardfolk"
+		@r_age = @r_age*1.5 if $Race == "Lesser troll"
+		@r_age = @r_age*2 if $Race == "Troll"
+		@r_age = @r_age*0.5 if $Race == "Arax"
+		@r_age = @r_age.to_i
+		# Get name
+		@r_name = name(@r_race)
+		# Get personality
+		@r_pers = randomizer($Personality)
+		# Get skill
+		@r_skill = (rand(6) + rand(6) + @r_age/20).to_i
+		@r_skill += (@r_age/15).to_i if /Stronghold/ =~ @town[@h_index][0]
+		@r_skill += (@r_age/20).to_i if /Noble/ =~ @town[@h_index][0]
+		@town[@h_index][@r] = "#{@r_name} (#{@r_sex} #{@r_age}) #{@r_race} [#{@r_skill}] #{@r_pers}"
+		@r += 1
+	end
+
+	# The initializing method - generates houses
+	def initialize(town_name, town_size, town_var)
+
+		@town_size = town_size.to_i
+		@town_var  = town_var.to_i
+		@town_name = town_name.to_s
+		if @town_name == ""
+			case @town_size
+			when 1..5
+				@town_name = naming("castle")
+			when 6..25
+				@town_name = naming("village")
+			when 26..99
+				@town_name = naming("town")
+			else
+				@town_name = naming("city")
+			end
+		end
+		@town_residents = 0
+
+		# Temple types (Amar Gods) used for randomizing temples
+		$Temple_types = {
+			"Walmaer"							=> 4,
+			"Alesia"							=> 4,
+			"Ikalio"							=> 3,
+			"Shalissa"						=> 3,
+			"Ielina"							=> 2,
+			"Cal Amae"						=> 2,
+			"Anashina"						=> 3,
+			"Gwendyll/MacGillan"  => 4,
+			"Juba"								=> 1,
+			"Taroc"								=> 5,
+			"Recolar"							=> 1,
+			"Maleko"							=> 1,
+			"Fal Munir"						=> 2,
+			"Moltan"							=> 4,
+			"Kraagh"							=> 4,
+			"Lesser God"					=> 1}
+		#Initiate the Temple hash to be used if/when temples are picked
+		t = $Temple_types.dup
+
+		@town = []
+		@h_index = 0
+
+		# Load town table if not loaded
+		unless defined?($Town)
+			load File.join($pgmdir, "includes/tables/town.rb")
+		end
+
+		$Town[1..-1].each do | h_type |
+			#Iterate over the whole $Town array picking houses as we go and populating @town
+			h_number = ((rand(h_type[2]) + rand(h_type[2]) + rand()) * town_size / 100).to_i
+			h_number = h_type[3] if h_number < h_type[3]
+			h_number = h_number.to_i
+			# create that house types h_number of times
+			next if h_number == 0
+			h_number.times do
+				@town[@h_index] = []
+				@town[@h_index][0] = h_type[0]
+				#Pick opening hours if shop
+				if /Inn/ =~ h_type[0]
+					@town[@h_index][0] += ": Open 7/7, 06-00"
+				end
+				if h_type[1] == 1
+					@town[@h_index][0] += ": Open "
+					@town[@h_index][0] += randomizer(
+						"5/7, "  => 1,
+						"6/7, "  => 2,
+						"7/7, "  => 1)
+					@town[@h_index][0] += randomizer(
+						"07-" => 1,
+						"08-" => 2,
+						"09-" => 1)
+					@town[@h_index][0] += randomizer(
+						"16"    => 1,
+						"17"    => 2,
+						"18"    => 1)
+				end
+				if @town[@h_index][0] == "Temple"
+					t_type =  randomizer(t)
+					@town[@h_index][0] += ": " + t_type unless t.empty?
+					t.delete(t_type)
+				end
+				r = 1 #residents counter
+				# Make the next into a function with age of no 1 as "0", then 1, 2, 3
+				$Race = ""
+				$Sex = ""
+				$Last_name = ""
+				@r = 1
+				add_resident(0)
+				(rand(h_type[4]) + rand(h_type[4])).to_i.times {add_resident(1)}
+				(rand(h_type[5]) + rand(h_type[5])).to_i.times {add_resident(2)}
+				((town_size / 40) + 1).to_i.times {add_resident(2)} if /Stronghold/ =~ @town[@h_index][0] 
+				(rand(h_type[6]) + rand(h_type[6])).to_i.times {add_resident(3)}
+				@h_index += 1
+				# Output progress for CLI
+				$stdout.puts "House #{@h_index}" if defined?($stdout) && $stdout.respond_to?(:puts)
+				# Send progress through pipe if available
+				if defined?($progress_pipe) && $progress_pipe
+					begin
+						$progress_pipe.puts @h_index
+						$progress_pipe.flush
+					rescue
+						# Pipe may be closed, ignore
+					end
+				end
+				break if @h_index > town_size
+			end
+			break if @h_index > town_size
+		end
+	end
+end

data/includes/d6s.rb

@@ -0,0 +1,40 @@
+# Dice-rolling for NPCg
+
+# Simple multisided dice
+def dX (x)
+	return rand(1..x)
+end
+
+# The normal d6
+def d6
+	return rand(1..6)
+end
+
+# The open-ended d6
+def oD6
+  result = d6
+  return result if result === (2..5)
+    if result == 1
+      down = d6
+      while down <= 3
+        down = d6
+        result -= 1
+      end
+    elsif result == 6
+      up = d6
+      while up >= 4
+        up = d6
+        result += 1
+      end
+    end
+  return result
+end
+
+# An average of two d6's
+def aD6
+  result = ( d6 + oD6 ) / 2
+  result = result.to_i
+  return result
+end
+
+

data/includes/equipment_tables.rb

@@ -0,0 +1,120 @@
+# Equipment tables based on d6gaming.org/index.php/Equipment
+
+$EquipmentTables = {
+  # Basic adventuring gear (with costs in copper pieces)
+  "basic" => [
+    { name: "Backpack", cost: 30, weight: 1.0 },
+    { name: "Waterskin", cost: 20, weight: 0.5 },
+    { name: "Flint & steel", cost: 10, weight: 0.1 },
+    { name: "Blanket", cost: 120, weight: 2.0 }, # 6sp = 120cp
+    { name: "Torch", cost: 3, weight: 0.5 },
+    { name: "Oil lamp", cost: 100, weight: 0.5 }, # 5sp
+    { name: "Rope (10m)", cost: 60, weight: 5.0 }, # 3sp
+    { name: "Grappling hook", cost: 100, weight: 2.0 }, # 5sp
+    { name: "Canvas tent", cost: 200, weight: 8.0 }, # 10sp
+    { name: "Belt pouch", cost: 10, weight: 0.1 },
+    { name: "Whetstone", cost: 5, weight: 0.2 },
+    { name: "Fishing gear", cost: 40, weight: 1.0 }, # 2sp
+    { name: "Cooking pot", cost: 30, weight: 1.5 },
+    { name: "Rations (3 days)", cost: 30, weight: 1.5 }
+  ],
+  
+  "warrior" => [
+    { name: "Shield strap", cost: 10, weight: 0.1 },
+    { name: "Weapon oil", cost: 5, weight: 0.1 },
+    { name: "Spare bowstring", cost: 5, weight: 0.05 },
+    { name: "Quiver", cost: 20, weight: 0.3 },
+    { name: "Armor repair kit", cost: 50, weight: 1.0 }
+  ],
+  
+  "thief" => [
+    { name: "Lockpicks", cost: 100, weight: 0.1 }, # 5sp
+    { name: "Dark cloak", cost: 60, weight: 1.0 }, # 3sp
+    { name: "Caltrops", cost: 20, weight: 0.5 },
+    { name: "Smoke powder", cost: 40, weight: 0.2 },
+    { name: "Glass cutter", cost: 100, weight: 0.1 } # 5sp
+  ],
+  
+  "mage" => [
+    { name: "Spell components", cost: 100, weight: 0.5 }, # 5sp
+    { name: "Scroll case", cost: 20, weight: 0.3 },
+    { name: "Ink & quill", cost: 20, weight: 0.1 },
+    { name: "Parchment (10)", cost: 40, weight: 0.2 }, # 2sp
+    { name: "Spellbook", cost: 300, weight: 2.0 }, # 15sp
+    { name: "Crystal focus", cost: 200, weight: 0.2 } # 10sp
+  ],
+  
+  "ranger" => [
+    { name: "Tracking kit", cost: 60, weight: 0.5 }, # 3sp
+    { name: "Snares (5)", cost: 20, weight: 0.5 },
+    { name: "Camouflage net", cost: 40, weight: 1.0 }, # 2sp
+    { name: "Field guide", cost: 100, weight: 0.5 }, # 5sp
+    { name: "Hunting knife", cost: 40, weight: 0.3 } # 2sp
+  ],
+  
+  "merchant" => [
+    { name: "Scales", cost: 100, weight: 2.0 }, # 5sp
+    { name: "Ledger", cost: 60, weight: 0.5 }, # 3sp
+    { name: "Money pouch", cost: 10, weight: 0.1 },
+    { name: "Merchant license", cost: 200, weight: 0.05 }, # 10sp
+    { name: "Sample case", cost: 100, weight: 1.0 } # 5sp
+  ],
+  
+  "noble" => [
+    { name: "Signet ring", cost: 500, weight: 0.05 }, # 25sp
+    { name: "Fine clothes", cost: 400, weight: 2.0 }, # 20sp
+    { name: "Perfume", cost: 100, weight: 0.1 }, # 5sp
+    { name: "Silver flask", cost: 200, weight: 0.3 }, # 10sp
+    { name: "Writing kit", cost: 60, weight: 0.5 } # 3sp
+  ],
+  
+  "priest" => [
+    { name: "Holy symbol", cost: 100, weight: 0.2 }, # 5sp
+    { name: "Prayer beads", cost: 20, weight: 0.1 },
+    { name: "Incense", cost: 40, weight: 0.2 }, # 2sp
+    { name: "Holy water", cost: 50, weight: 0.5 },
+    { name: "Religious texts", cost: 200, weight: 1.0 } # 10sp
+  ]
+}
+
+# Generate equipment based on character type and level
+def generate_npc_equipment(type, level)
+  equipment = []
+  
+  # Determine character archetype
+  type_str = type.to_s.downcase
+  archetype = case 
+    when type_str.include?("warrior") || type_str.include?("guard") || type_str.include?("soldier")
+      "warrior"
+    when type_str.include?("thief") || type_str.include?("bandit") || type_str.include?("assassin")
+      "thief"
+    when type_str.include?("mage") || type_str.include?("wizard") || type_str.include?("sorcerer")
+      "mage"
+    when type_str.include?("ranger") || type_str.include?("hunter") || type_str.include?("scout")
+      "ranger"
+    when type_str.include?("merchant") || type_str.include?("trader")
+      "merchant"
+    when type_str.include?("noble") || type_str.include?("lord") || type_str.include?("lady")
+      "noble"
+    when type_str.include?("priest") || type_str.include?("cleric") || type_str.include?("monk")
+      "priest"
+    else
+      "basic"
+    end
+  
+  # Add basic items (1-3 based on level)
+  basic_items = $EquipmentTables["basic"].sample([1 + level/3, 4].min)
+  equipment += basic_items.map { |item| item[:name] }
+  
+  # Add archetype-specific items if applicable
+  if archetype != "basic" && $EquipmentTables[archetype]
+    specific_items = $EquipmentTables[archetype].sample([1 + level/4, 3].min)
+    equipment += specific_items.map { |item| item[:name] }
+  end
+  
+  # Always have at least backpack and waterskin
+  equipment << "Backpack" unless equipment.any? { |e| e.include?("Backpack") }
+  equipment << "Waterskin" unless equipment.any? { |e| e.include?("Waterskin") }
+  
+  equipment.uniq
+end

data/includes/functions.rb

@@ -0,0 +1,67 @@
+# Get names from name generator
+def naming(intype, sex="")
+	sex = sex.to_s.upcase
+	type = intype.sub(/(:| ).*/, '').to_s.downcase
+
+	# Get for race/sex filename for first name and last name (if any)
+	file1 = ""
+	file2 = ""
+	$Names.each do |m| 
+		if m[4].include?(type) and m[3].include?(sex)
+			file1 = m[1]
+			file2 = m[2]
+			break
+		end
+	end
+
+	p = File.expand_path(File.dirname(__FILE__))
+	n = "/../name_generator/name_generator_main.rb -d"
+	
+	result  = ""
+	result += intype + " of " if ["Castle", "Village", "Town", "City"].include?(intype)
+	result += `#{p}#{n} #{file1}`.chomp
+	result += " " + `#{p}#{n} #{file2}`.chomp if file2 != ""
+	result  = "" if result == "No such data file"
+	return result.strip
+end
+
+# Save temporary files
+def save_temp_file(content, file_base, cli)
+	cli == "cli" ? file_ext = ".npc" : file_ext = ".txt"
+
+	tfile = "saved/" + file_base + file_ext
+	File.delete(tfile) if File.exist?(tfile)
+	begin
+		# Strip ANSI codes when saving to file for clean editing
+		clean_content = content.respond_to?(:pure) ? content.pure : content.gsub(/\e\[\d+(?:;\d+)*m/, '')
+		File.write(tfile, clean_content, perm: 0644)
+	rescue
+  	if cli == "cli"
+			# Silent error - no puts in TUI mode
+			# gets removed for TUI compatibility
+		end
+	end
+end
+
+# Save named (specific) files
+def save_named_file(content, file_base, cli)
+	cli == "cli" ? file_ext = ".npc" : file_ext = ".txt"
+
+	$nfile = "saved/" + file_base + file_ext
+  c = 1
+  while File.exist?($nfile)
+    $nfile = "saved/" + file_base + c.to_s + file_ext 
+    c += 1
+	end
+  begin
+  	File.write($nfile, content, perm: 0644)
+  rescue
+  	if cli == "cli"
+			# Silent error - no puts in TUI mode
+			# gets removed for TUI compatibility
+		end
+  end
+
+	system("#{$editor} #{$nfile}") if cli == "cli"
+end
+

data/includes/includes.rb

@@ -0,0 +1,30 @@
+# Including all needed modules/functions from this one file
+
+require_relative "d6s.rb"
+require_relative "functions.rb"
+require_relative "randomizer.rb"
+
+require_relative "class_enc.rb"
+require_relative "class_npc.rb"
+require_relative "class_town.rb"
+require_relative "class_npc_new.rb"
+require_relative "class_enc_new.rb"
+require_relative "class_monster_new.rb"
+require_relative "town_relations.rb"
+require_relative "weather.rb"
+require_relative "weather2latex.rb"
+
+require_relative "tables/armour.rb"
+require_relative "tables/chartype.rb"
+require_relative "tables/chartype_new.rb"
+require_relative "tables/enc_specific.rb"
+require_relative "tables/enc_type.rb"
+require_relative "tables/encounters.rb"
+require_relative "tables/magick.rb"
+require_relative "tables/melee.rb"
+require_relative "tables/missile.rb"
+require_relative "tables/month.rb"
+require_relative "tables/names.rb"
+require_relative "tables/personality.rb"
+require_relative "tables/town.rb"
+require_relative "tables/weather.rb"

data/includes/randomizer.rb

@@ -0,0 +1,15 @@
+# Randomize a value from a hash with weighted variables
+
+def randomizer(params)
+	par = {}
+	par.merge!(params)
+	i = 1
+	par.each_key do |key|
+    par[key] += i
+    i = par[key]
+  end
+  result = rand(i).to_i
+  par.each_value do |value|
+    return par.key(value) if value > result
+  end
+end