2 files changed, 106 insertions, 0 deletions
diff --git a/README b/README
index f0edf4a..61d6826 100644
--- a/README
+++ b/README
@@ -43,3 +43,5 @@ tabelvortoj.rb:
   Tabelvortoj test
 todo.vim:
   Simple Vim Todo
+wildsea_roll:
+  Dice roller for Wildsea
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