■ ストーリーメーカーのスクリプト

# -*- coding: utf-8 -*-
def ue_shita
  rand >= 0.5 ? "上" : "下"
end

cards = %w(知恵 生命 信頼 勇気 慈愛 秩序 至誠 創造 厳格 治癒 理性 節度 調和
結合 庇護 清楚 善良 開放 変化 幸運 意思 誓約 寛容 公式)

meanings = %w(主人公の現在 主人公の近い未来 主人公の過去 援助者 敵対者 結末)

cards = cards.sort_by{rand}
meanings.each_with_index do |i, idx|
  str = "#{idx + 1}. #{i}――#{cards.shift}"
  str += "[B]" if ue_shita == "下"
  puts str
end

ストーリーメーカー 創作のための物語論 (アスキー新書 84)
大塚 英志
アスキー・メディアワークス
￥ 790