aboutsummaryrefslogtreecommitdiff
path: root/wildsea_roll
diff options
context:
space:
mode:
Diffstat (limited to 'wildsea_roll')
-rwxr-xr-xwildsea_roll104
1 files changed, 104 insertions, 0 deletions
diff --git a/wildsea_roll b/wildsea_roll
new file mode 100755
index 0000000..9f6cac2
--- /dev/null
+++ b/wildsea_roll
@@ -0,0 +1,104 @@
+#!/usr/bin/env ruby
+
+class Roll
+ def initialize(res, cuts)
+ @res = res
+ @cuts = cuts
+ end
+
+ def twist?
+ @res.tally.values.max > 1
+ end
+
+ def read_cuts
+ Roll.read(@cuts)
+ end
+
+ def read
+ Roll.read(@res)
+ end
+
+ def interpret
+ outcome = case @res.max
+ when 1,2,3
+ "disaster"
+ when 4,5
+ "conflict"
+ when 6
+ "triumph"
+ end
+
+ "#{outcome}#{" with a twist" if twist?}"
+ end
+
+ def cut_twist
+ (1...@res.length).map do |i|
+ res = Roll.new(@res[0...-i], @res[-i..-1] + @cuts)
+ next if res.twist?
+ return [i, res]
+ end
+ end
+
+ def self.roll(number, cuts)
+ res = self.roll_dice(number)
+ new(*self.split(res, cuts))
+ end
+
+ def self.read(ary)
+ numword = {
+ 1 => "a",
+ 2 => "two",
+ 3 => "three",
+ 4 => "four",
+ 5 => "five",
+ 6 => "six"
+ }
+
+ readres = ""
+ ary.tally.each do |val, num|
+ readres += "#{numword[num]} #{val}#{?s if num > 1}, "
+ end
+ readres = readres[0...-2]
+ readres.sub!(/.*\K, /, " and ")
+
+ readres
+ end
+
+ def self.roll_dice(num)
+ Array.new(num) { rand(6) + 1 }.sort
+ end
+
+ def self.split(res, cutn)
+ cuts = cutn > 0 ? res[-cutn..-1] : []
+ res = res[0...-cutn] if cutn > 0
+ [res, cuts]
+ end
+end
+
+def prompt(msg)
+ print msg
+ print ?? unless msg[-1] == ??
+ print ?\s
+
+ gets.to_i
+end
+
+loop do
+ number = prompt "How many dice"
+ break if number == 0
+ cuts = prompt "How many cuts"
+ roll = Roll.roll(number, cuts)
+
+ if cuts > 0
+ print " After cutting #{roll.read_cuts}, y"
+ else
+ print " Y"
+ end
+ print "ou rolled #{roll.read}. "
+ puts "That's a #{roll.interpret}."
+
+ if roll.twist?
+ i, cutroll = roll.cut_twist
+ puts " If you chose to cut #{i}#{" more" if cuts > 0}, it would just be a #{cutroll.interpret}."
+ end
+end