amar-rpg 2.0.1

data/cli_town_output.rb

@@ -0,0 +1,39 @@
+# The CLI town output module for Amar Tools
+
+def town_output(aTOWN, cli)
+
+	@town = aTOWN.town
+
+	# Start creating the output text
+	@tn= ""
+	f  = ""
+	# Remove the hash lines and URL note for cleaner output
+
+	case aTOWN.town_size
+	when 1..4
+		@tn += "Castle"
+	when 5..25
+		@tn += "Village"
+	when 26..99
+		@tn += "Town"
+	else
+		@tn += "City"
+	end
+	@tn += " Of #{aTOWN.town_name}"
+	town_name = @tn.delete(' ')
+	@tn += " - Houses: #{aTOWN.town_size} - Residents: #{aTOWN.town_residents}\n\n"
+	f   += @tn
+
+	@town.length.times do |house|
+		f += "##{house}: #{@town[house][0]}\n"
+		@town[house][1..-1].each do |r|
+			f += "   #{r}\n"
+		end
+		f += "\n"
+	end
+
+	# from functions.rb - save to temp file and named file
+	save_temp_file(f, "town", cli)
+	save_named_file(f, town_name, cli)
+
+end

data/cli_weather_output.rb

@@ -0,0 +1,36 @@
+# The CLI weather output module for Amar Tools
+
+def weather_output(aWEATHER)
+
+	w = aWEATHER
+
+	# Start creating output text
+	f = "################################<By Amar Tools>################################\n\n"
+
+	f += "Month: #{$Month[w.month_n]}\n"
+	
+	f += "-------------------------------------------------------------------------------\n"
+	w.day.each_with_index do |d,i|
+		g  = "#{(i+1).to_s.rjust(2)}: #{$Weather[d.weather]}. #{$Wind_str[d.wind_str]}"
+		g += " (#{$Wind_dir[d.wind_dir]})" unless d.wind_str == 0
+		l1 = g.length
+		g += "[#{d.special}]".rjust(60-l1) unless d.special == ""
+		l2 = g.length
+		f += g
+		if w.month_n != 0
+			f += "[New moon]".rjust(79-l2) if i == 0
+			f += "[½ moon, vaxing]".rjust(79-l2) if i == 7
+			f += "[Full moon]".rjust(79-l2) if i == 14
+			f += "[½ moon, waning]".rjust(79-l2) if i == 21
+		end
+		f += "\n"
+		f += "-------------------------------------------------------------------------------\n" if ((i+1)%7) == 0 
+	end
+
+	f += "\n###############################################################################\n\n"
+
+	# Save weather file
+	save_temp_file(f, "weather", "cli")
+	system("#{$editor} saved/weather.npc")
+
+end

data/includes/class_enc.rb

@@ -0,0 +1,341 @@
+# The Amar Tool class for generating random encounters
+#
+# When the class is initialized, a random encounter is generated
+# using data from the imported tables (hashes and arrays)
+#
+# This class is pretty straight forward and shouldn't need much comments
+
+class Enc
+
+	attr_reader :encounter, :enc_attitude, :enc_number
+
+	Inf = 1.0/0
+
+	def initialize(enc_spec, enc_number)
+
+		$Terraintype = 8 if $Terraintype == nil
+		$Level = 0 if $Level == nil
+
+		@enc_spec = enc_spec.to_s
+		@enc_number = enc_number.to_i
+
+		@enc_spec == "" ? @enc = false : @enc = true 
+		@enc_type = ""
+		if @enc == false
+			@enc_terrain = {}
+			$Enc_type.each do |key,value|
+				@enc_terrain[key] = value[$Terraintype]
+			end
+			@enc_type = randomizer(@enc_terrain)
+		end
+
+		@encounter = []
+		
+		if @enc_type =~ /NO ENCOUNTER/
+			@encounter[0] = {}
+			@encounter[0]["string"] = "NO ENCOUNTER"
+			return
+		end
+
+		@enc_attitude = ""
+		case d6
+			when 1
+				@enc_attitude = "HOSTILE"
+			when 2
+				@enc_attitude = "ANTAGONISTIC"
+			when 3..4
+				@enc_attitude = "NEUTRAL"
+			when 5
+				@enc_attitude = "POSITIVE"
+			when 6
+				@enc_attitude = "FRIENDLY"
+		end
+
+		if @enc == false
+			@enc_terrain2 = {}
+			$Enc_specific[@enc_type].each do |key,value|
+				@enc_terrain2[key] = value[$Terraintype]
+			end
+		end
+
+		if @enc_number == 0
+			case oD6
+				when -Inf..3
+					@enc_number = 1
+				when 4
+					@enc_number = dX (3)
+				when 5
+					@enc_number = d6
+				when 6..7
+					@enc_number = 2*d6
+				else
+					@enc_number = 3*d6
+			end
+			@enc_number = 5 if @enc_number > 5 and @enc_type =~ /onster/
+		end
+		
+		@enc_number.times do |i|
+			@encounter[i] = {}
+			@enc == true ? @encounter[i]["string"] = @enc_spec : @encounter[i]["string"] = randomizer(@enc_terrain2)
+			if @encounter[i]["string"] =~ /Event:/
+				break
+			else
+			begin
+				@stats = $Encounters[@encounter[i]["string"]].dup
+				
+				@encounter[i]["level"] = dX(@stats[0]) + $Level
+				@encounter[i]["level"] += 2 if @encounter[i]["string"] =~ /Elf/
+				@encounter[i]["level"] += 1 if @encounter[i]["string"] =~ /Dwarf/
+				@level = @encounter[i]["level"]
+				
+				case rand(2).to_i
+					when 0
+						@encounter[i]["sex"] = "F"
+					else
+						@encounter[i]["sex"] = "M"
+				end
+				@encounter[i]["sex"] = "M" if @encounter[i]["string"] =~ /officer/ and rand(6) != 0
+				@encounter[i]["sex"] = "F" if @encounter[i]["string"] =~ /Prostitute/ and rand(10) != 0
+				@encounter[i]["sex"] = "F" if @encounter[i]["string"] =~ /Nanny/ and rand(10) != 0
+				@encounter[i]["sex"] = "F" if @encounter[i]["string"] =~ /wife/
+
+				@encounter[i]["race"] = ""
+				case @encounter[i]["string"]
+				when /Human/
+					@encounter[i]["race"] = "Human"
+				when /Dwarf/
+					@encounter[i]["race"] = "Dwarf"
+				when /Elf/, /Faerie/
+					@encounter[i]["race"] = "Elf"
+				when /Troll/
+					@encounter[i]["race"] = "Troll"
+				when /Arax/
+					@encounter[i]["race"] = "Arax"
+				when /Lizardman/
+					@encounter[i]["race"] = "Lizardfolk"
+				else
+					@encounter[i]["race"] = "Other"
+				end
+
+				@encounter[i]["name"] = naming(@encounter[i]["race"], @encounter[i]["sex"])
+
+				@encounter[i]["size"] = @stats[1] + (rand(10 * @stats[1]+1) + rand(10 * @stats[1]+1) - 10 * @stats[1])/20
+				@encounter[i]["size"] = 1 if @encounter[i]["size"] < 1
+
+				@encounter[i]["strength"] = ((@stats[2] * @level + 1) / 3 - 2 + aD6)
+				@encounter[i]["strength"] = 1 if @encounter[i]["strength"] < 1
+
+				@db = (@encounter[i]["strength"] + @encounter[i]["size"]) / 3
+
+				@wpnmax = 0
+				case @encounter[i]["strength"]
+					when 1
+						@wpnmax = 2
+					when 2
+						@wpnmax = 4
+					when 3
+						@wpnmax = 11
+					when 4
+						@wpnmax = 18
+					when 5
+						@wpnmax = 22
+					when 7..8
+						@wpnmax = 28
+					else
+						@wpnmax = 30
+				end
+
+				@mslmax = 0
+				case @encounter[i]["strength"]
+					when 1
+						@mslmax = 2
+					when 2
+						@mslmax = 5
+					when 3
+						@mslmax = 7
+					when 4..5
+						@mslmax = 9
+					when 6..7
+						@mslmax = 10
+					when 8..9
+						@mslmax = 11
+					else
+						@mslmax = 12
+				end
+
+				@encounter[i]["endurance"] = ((@stats[3] * @level + 1) / 3 - 2 + aD6)
+				@encounter[i]["endurance"] = 1 if @encounter[i]["endurance"] < 1
+
+				@encounter[i]["bp"] = 2 * @encounter[i]["size"] + (@encounter[i]["endurance"] / 3)
+
+				@encounter[i]["awareness"] = ((@stats[4] * @level + 1) / 3 - 2 + aD6)
+				@encounter[i]["awareness"] = 1 if @encounter[i]["awareness"] < 1
+
+				@encounter[i]["dodge"] = ((@stats[5] * @level + 1) / 3 - 2 + aD6)
+				@encounter[i]["dodge"] = 0 if @encounter[i]["dodge"] < 0
+
+				@stats[9] > 0 ? @encounter[i]["mag"] = ((@stats[9] * @level + 1) / 3 - 2 + aD6) : @encounter[i]["mag"] = 0
+				@encounter[i]["mag"] = 0 if @encounter[i]["mag"] < 0
+
+        @arax = 0
+        if @encounter[i]["race"] == "Arax"
+          case rand(24).to_i
+            when 0
+              @encounter[i]["size"] += d6 - 1
+            when 1
+              @encounter[i]["strength"] += oD6 + 3
+              @encounter[i]["strength"] = 3 if @encounter[i]["strength"] < 3
+            when 2
+              @encounter[i]["endurance"] += oD6 + 3
+              @encounter[i]["endurance"] = 2 if @encounter[i]["endurance"] < 2
+            when 3
+              @encounter[i]["awareness"] += oD6 + 3
+              @encounter[i]["awareness"] = 0 if @encounter[i]["awareness"] < 0
+            when 4
+              @encounter[i]["mag"] += oD6
+              @encounter[i]["mag"] = 1 if @encounter[i]["mag"] < 1
+            when 5
+              @encounter[i]["dodge"] += oD6
+              @encounter[i]["dodge"] = 5 if @encounter[i]["dodge"] < 5
+            when 6
+					    @encounter[i]["mag_lore"] = ((@stats[10] * @level + 1) / 3 - 2 + aD6)
+					    @encounter[i]["spells"] = 1
+							@encounter[i]["mag_type"] = randomizer(
+								"Black"			=> 3,
+								"Earth"			=> 3,
+								"Prot."			=> 2,
+                "Perc."			=> 2)
+            when 7..12
+              @arax = 1
+          end
+        end
+
+				if @stats[10] > 0
+					@encounter[i]["mag_lore"] = ((@stats[10] * @level + 1) / 3 - 2 + aD6)
+					@encounter[i]["mag_lore"] = 1 if @encounter[i]["mag_lore"] < 1
+					@encounter[i]["spells"] = ((@encounter[i]["mag_lore"] * @level + 1) / 5 - 2 + aD6)
+					@encounter[i]["spells"] = 0 if @encounter[i]["spells"] < 0
+					@encounter[i]["mag_type"] = ""
+					case @encounter[i]["string"]
+						when /black/
+							@encounter[i]["mag_type"] = "Black"
+						when /white/
+							@encounter[i]["mag_type"] = "White"
+						when /air/
+							@encounter[i]["mag_type"] = "Air"
+						when /earth/
+							@encounter[i]["mag_type"] = "Earth"
+						when /fire/
+							@encounter[i]["mag_type"] = "Fire"
+						when /water/
+							@encounter[i]["mag_type"] = "Water"
+						when /prot/
+							@encounter[i]["mag_type"] = "Prot."
+						when /Summoner/
+							@encounter[i]["mag_type"] = "Summ."
+						else
+							@encounter[i]["mag_type"] = randomizer(
+								"Black"			=> 3,
+								"White"			=> 8,
+								"Air"				=> 5,
+								"Earth"			=> 5,
+								"Fire"			=> 5,
+								"Water"			=> 5,
+								"Prot."			=> 5,
+								"Summ."			=> 4,
+								"Magic"			=> 3)
+					end
+				end
+
+				@wpn = $Melee[rand(@wpnmax) + 1].dup
+				@wpn = $Melee[1].dup if @stats[6] < 0
+				@encounter[i]["wpn_name"] = @wpn[0]
+				@encounter[i]["wpn_skill"] = ((@stats[6].abs * @level + 1) / 3 - 2 + aD6)
+				@encounter[i]["wpn_skill"] = 1 if @encounter[i]["wpn_skill"] < 1
+        # Reaction speed is calculated as weighted average between Awareness and Melee skill
+        if @encounter[i]["wpn_skill"] < @encounter[i]["awareness"]
+          @encounter[i]["reaction"] = (@encounter[i]["wpn_skill"] * 2 + @encounter[i]["awareness"]) / 3 + d6 - 3
+        else
+          @encounter[i]["reaction"] = (@encounter[i]["awareness"] * 2 + @encounter[i]["wpn_skill"]) / 3 + d6 - 3
+        end
+        @encounter[i]["reaction"] = @encounter[i]["awareness"] / 3 if @encounter[i]["reaction"] < @encounter[i]["awareness"] / 3
+				@encounter[i]["wpn_ini"] = @wpn[4] + @encounter[i]["reaction"]
+				@encounter[i]["wpn_off"] = @encounter[i]["wpn_skill"] + @wpn[5]
+				@encounter[i]["wpn_def"] = @encounter[i]["wpn_skill"] + @wpn[6] + @encounter[i]["dodge"] / 5
+				@encounter[i]["wpn_dam"] = @db + @wpn[3]
+					 
+				if @stats[8] < 0
+					@encounter[i]["ap"] = @stats[8].abs
+				elsif @stats[8] > 0
+					@encounter[i]["ap"] = rand(@stats[8])
+				else
+					@encounter[i]["ap"] = 0
+				end
+
+				@encumberance = 3 + @encounter[i]["ap"] * 7
+				if @encounter[i]["strength"] * 2 > @encumberance
+					@encounter[i]["status"] = 0
+				elsif @encounter[i]["strength"] * 5 > @encumberance
+					@encounter[i]["status"] = -1
+				elsif @encounter[i]["strength"] * 10 > @encumberance
+					@encounter[i]["status"] = -3
+				else 
+					@encounter[i]["status"] = -5
+				end
+
+				if @stats[7] != 0
+					@msl = $Missile[rand(@mslmax) + 1].dup
+					@encounter[i]["msl_name"] = @msl[0]
+					@encounter[i]["msl_skill"] = ((@stats[7] * @level + 1) / 3 - 2 + aD6)
+					@encounter[i]["msl_skill"] = 1 if @encounter[i]["msl_skill"] < 1
+					@encounter[i]["msl_ini"] = @msl[7] + @encounter[i]["reaction"]
+					@encounter[i]["msl_off"] = @encounter[i]["msl_skill"] + @msl[4]
+					@encounter[i]["msl_dam"] = @msl[3]
+					@encounter[i]["msl_rng"] = @msl[5]
+					if @msl[1] !~ /bow/
+						@encounter[i]["msl_dam"] += @encounter[i]["strength"] / 5
+					end
+				end
+
+        if @arax == 1
+          case rand(11).to_i
+            when 0
+              @encounter[i]["ap"] += d6
+            when 1..3
+              @tmp = oD6 + 3
+              @encounter[i]["wpn_skill"] += @tmp
+              @encounter[i]["wpn_off"]   += @tmp
+              @encounter[i]["wpn_def"]   += @tmp
+            when 4..5
+              @tmp = oD6 + 3
+              @encounter[i]["msl_skill"] += @tmp
+              @encounter[i]["msl_off"]   += @tmp 
+            when 6
+              @encounter[i]["msl_name"] = "Poison spit"
+              @encounter[i]["msl_skill"] = ((@stats[7] * @level + 1) / 3 - 2 + aD6)
+              @encounter[i]["msl_skill"] = 1 if @encounter[i]["msl_skill"] < 1
+              @encounter[i]["msl_off"] = @encounter[i]["msl_skill"]
+              @encounter[i]["msl_dam"] = 2
+              @encounter[i]["msl_rng"] = 10
+            when 7
+              @encounter[i]["msl_name"] = "Poison breath"
+              @encounter[i]["msl_skill"] = ((@stats[7] * @level + 1) / 3 + aD6)
+              @encounter[i]["msl_skill"] = 1 if @encounter[i]["msl_skill"] < 1
+              @encounter[i]["msl_off"] = @encounter[i]["msl_skill"]
+              @encounter[i]["msl_dam"] = 0
+              @encounter[i]["msl_rng"] = 3
+            else
+              @encounter[i]["string"] += " [Chaos feature, GM's discr.]"
+          end
+        end
+
+				rescue # Result for corner cases
+					@encounter[0] = {}
+					@encounter[0]["string"] = "NO ENCOUNTER"
+					return
+				end
+			end
+			@enc_terrain2[@encounter[i]["string"]] += 20 if @encounter[i]["string"] =~ /Human/ and @enc == false
+		end
+	end
+end