kavlax 0.0.0

data/README.mkd

@@ -0,0 +1,74 @@
+kavlax
+======
+
+    507 ：名＠無＠し：2010/03/25(木) 16:54:03 ID:???
+    とある・・・ 
+
+    508 ：名＠無＠し：2010/03/25(木) 17:23:54 ID:???
+    目玉の・・・ 
+
+    509 ：名＠無＠し：2010/03/25(木) 17:25:51 ID:???
+    『オマラックス』 
+
+    511 ：名＠無＠し：2010/03/25(木) 19:09:56 ID:???
+    >>507-509
+    お前ら・・ 
+
+    512 ：名＠無＠し：2010/03/25(木) 19:12:06 ID:???
+    そこは多首のカブラックスだろ
+
+kavlax は、ローグライクゲーム変愚蛮怒のプレイ記録から
+持ち物などの情報を取り出し、一覧表示したりするツールです。
+
+インストール
+------------
+
+Ruby 1.9.xが必要です。(※1.8は非対応です。理由は作者の怠慢です)
+
+RubyGemsでインストールします。
+
+    $ sudo gem install kavlax
+
+するとkavlaxコマンドが使えるようになります(GUIは今のところありません)
+
+    $ kavlax
+    (ヘルプが表示される)
+
+できること
+---------
+
+耐性パズルの補助ツールとして使うことを考えています。
+
+### 持ち物一覧
+    $ kavlax list ~/.angband/Hengband/<プレイヤー名>.txt
+
+種類別に表示します。たぶん分類が間違ってるものがあるので見つけたら
+twitter(@yhara)とか任意の手段でお知らせください。
+
+### 耐性別持ち物一覧
+    $ kavlax resists ~/.angband/Hengband/<プレイヤー名>.txt
+
+耐性別に表示します(※未実装)
+
+### いらなさそうな装備の検出
+    $ kavlax shiwake ~/.angband/Hengband/<プレイヤー名>.txt
+
+耐性・攻撃力/防御力が上位互換なものがあればいらなさそうと判断します。
+
+※いまのところ仕分け人は/邪とか+腕とか+速とかは見てないので、信用しすぎないように
+
+ライブラリとして使う
+--------------------
+
+どういう用途か分かりませんが一応ライブラリとして使うこともできます。
+
+    $ sudo gem install kavlax
+
+    require 'hengband'
+    p Hengband::Item.parse_file(ARGV[0])
+
+その他
+-----
+MIT License
+
+  * [ソースコード(github)](http://github.com/yhara/kavlax)

data/Rakefile

@@ -0,0 +1,44 @@
+#
+# Rakefile to creating gems
+#
+# configurations:
+PROJECT_NAME = File.basename(File.dirname(__FILE__))
+
+begin
+  require 'jeweler'
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
+end
+
+Jeweler::Tasks.new do |gemspec|
+  gemspec.name = "#{PROJECT_NAME}"
+  gemspec.summary = "A tool for Hengband, a rogue-like game"
+  gemspec.email = "yutaka.hara/at/gmail.com"
+  gemspec.homepage = "http://github.com/yhara/#{PROJECT_NAME}"
+  gemspec.description = gemspec.summary
+  gemspec.authors = ["Yutaka HARA"]
+end
+
+desc "install current source as a gem"
+task :dogfood => [:gemspec, :build] do
+  sh "sudo gem install pkg/#{PROJECT_NAME}-#{File.read("VERSION").chomp}.gem"
+end
+
+desc "uninstall the installed gem"
+task :undogfood do
+  sh "sudo gem uninstall #{PROJECT_NAME}"
+end
+
+desc "uninstall, then install current source as gem"
+task :redogfood => [:undogfood, :dogfood]
+
+desc "uninstall temporary gem and install from github"
+task :nodogfood do
+  sh "sudo gem uninstall #{PROJECT_NAME}"
+  sh "sudo gem install yhara-#{PROJECT_NAME}"
+end
+
+desc "check for gem to be built"
+task :stalk do
+  sh "gemstalk yhara #{PROJECT_NAME}"
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.0

data/bin/kavlax

@@ -0,0 +1,136 @@
+#!/usr/bin/env ruby
+# coding: utf-8
+
+require_relative "../lib/hengband"
+
+class Kavlax
+  COMMANDS = {
+    list: "アイテム一覧",
+    resists: "耐性別アイテム一覧",
+    shiwake: "いらなそうなアイテム検出",
+    random: "ランダムに装備を選ぶ",
+    auto: "全自動耐性パズル",
+    help: "このメッセージを表示",
+  }
+
+  def initialize(argv=ARGV.dup)
+    @command, @recfile = *argv
+  end
+
+  def run
+    if COMMANDS.key?(@command.to_sym)
+      items = Hengband::Item.parse_file(@recfile)
+      __send__ @command, items
+    else
+      help
+    end
+  end
+
+  def help
+    puts "usage: #$0 <command> ~/.angband/Hengband/<player>.txt"
+    puts "commands:"
+    COMMANDS.each do |name, desc|
+      puts "  #{name}: #{desc}"
+    end
+  end
+
+  def list(items)
+    puts items.sort.map{|x|
+      [
+        x.type, " ",
+        (x.damage if x.type == :weapon),
+        (x.defence if x.defence?),
+        " ", x.line,
+      ].join
+    }
+  end
+
+  def resists(items)
+    {
+       res: ["r", "酸電火冷毒閃暗破盲乱轟獄因沌劣恐".chars],
+       imm: ["*", "酸電火冷".chars],
+       aura: ["[", "炎電冷魔瞬".chars],
+       misc: ["", "易減投反麻視経遅活浮明警倍射瞬怒祝忌".chars],
+       esp: ["~", "感邪善無個人竜オト巨デ死動".chars],
+    }.each do |kind, (prefix, flags)|
+      flags.each do |s|
+        puts "----- #{prefix}#{s}: "
+        items.find_all{|x|
+          x.flags[kind].include? s}.each do |x|
+          puts "  #{x.line}"
+        end
+        puts
+      end
+    end
+  end
+
+  def shiwake(items)
+    def find_upper_compat(x, xs)
+      xs.find{|u|
+        x.flags[:res].all?{|res| u.flags[:res].include?(res)} and
+        x.flags[:imm].all?{|imm| u.flags[:imm].include?(imm)} and
+        (if x.defence? then u.defence >= x.defence else true end) and
+        (if x.type == :weapon then u.damage >= x.damage else true end)
+      }
+    end
+
+    items.group_by(&:type).each do |type, xs|
+      puts
+      puts "-- #{type}"
+      xs.each do |x|
+        if u = find_upper_compat(x, xs - [x])
+          puts "* #{x.line} は、"
+          puts "  #{u.line} でいいんじゃない？"
+          puts
+        end
+      end
+    end
+  end
+
+  def random(items)
+    player = Hengband::Player.new(items)
+    player.wear_random
+    puts player.wearings
+    puts player.resists
+  end
+
+  def auto(items)
+    items = items.group_by(&:type)
+    def pick(items)
+      my = {
+        a: items[:weapon].sample,
+        b: items[:weapon].sample,
+        c: items[:bow].sample,
+        d: items[:ring].sample,
+        e: items[:ring].sample,
+        f: items[:neck].sample,
+        g: items[:light].sample,
+        h: items[:armor].sample,
+        i: items[:cloak].sample,
+        j: items[:head].sample,
+        k: items[:hands].sample,
+        l: items[:feet].sample,
+      }
+    end
+
+    def res(my)
+      my.values.map{|x| x.flags[:res]}.inject(:+).uniq
+    end
+
+    def try(items)
+      begin
+        my = pick(items)
+      end until res(my).size == 16
+      my.each do |k, v|
+        puts "#{k}) #{v}"
+      end
+      puts res(my).join
+    end
+
+    try(items)
+  end
+
+end
+
+
+Kavlax.new.run

data/lib/hengband.rb

@@ -0,0 +1,4 @@
+# coding: utf-8
+
+require_relative 'hengband/item.rb'
+require_relative 'hengband/player.rb'

data/lib/hengband/item.rb

@@ -0,0 +1,155 @@
+# coding: utf-8
+
+module Hengband
+  class Item
+    include Comparable
+
+    RE_HEADER = /\w\) /
+    RE_NUMBER = /\d+([本巻服冊着振足枚つ個]|切れ)の /
+    RE_NAME = /(?<name>.+?) ?/
+    RE_BOW = /\(x(?<bow_pow>\d+)\) ?/
+    RE_DICE = /\((?<dice_num>\d+)d(?<dice_val>\d+)\) ?/
+    RE_OFFENSE = /\((?<off_acc>[+-]\d+)(,(?<off_dam>[+-]\d+))?\) ?/
+    RE_DEFENSE = /\[((?<def_base>\d+),)?(?<def_plus>[+-]\d+)\] ?/
+    RE_PVAL = /\((?<pval>[+-]\d+).*?\) ?/
+    RE_FLAGS = /\{(?<flags>.*?)\}/
+
+    UNIDENTIFIED = /\{特別製|高級品|上質|並\}/
+    REXP_ITEM = /#{RE_HEADER}#{RE_NUMBER}?#{RE_NAME
+      }#{RE_BOW}?#{RE_DICE}?#{RE_OFFENSE}?#{RE_DEFENSE}?#{RE_PVAL}?#{RE_FLAGS}?$/
+
+    def self.parse_file(path)
+      in_list = false
+      File.open(path, "r:euc-jp:utf-8"){|f| f.read}.lines.map{|line|
+        case line
+        when /\[キャラクタの装備\]/
+          in_list = true
+          nil
+        when UNIDENTIFIED
+          nil
+        when REXP_ITEM
+          Item.new(line) if in_list
+        when /\[博物館のアイテム\]/
+          in_list = false
+          nil
+        else
+          #$stderr.puts line.encode("utf-8")
+        end
+      }.compact
+    end
+
+    def initialize(line)
+      @line = line.chomp
+      REXP_ITEM.match(@line) do |m|
+        @name = m[:name]
+        @bow_pow  = m[:bow_pow]  && m[:bow_pow].to_i
+        @dice_num = m[:dice_num] && m[:dice_num].to_i
+        @dice_val = m[:dice_val] && m[:dice_val].to_i
+        @off_acc  = m[:off_acc]  && m[:off_acc].to_i
+        @off_dam  = m[:off_dam]  && m[:off_dam].to_i
+        @def_base = m[:def_base] && m[:def_base].to_i
+        @def_plus = m[:def_plus] && m[:def_plus].to_i
+        @pval     = m[:pval]     && m[:pval].to_i
+        @flags = parse_flags(m[:flags])
+        @type = guess_type(@name)
+      end
+    end
+    attr_reader :line, :name, :type, :flags
+    attr_reader :bow_pow, :dice_num, :dice_val, :off_acc, :off_dam,
+      :def_base, :def_plus, :pval
+
+    TYPES = [:weapon, :shield, :bow, :ring, :neck, :light,
+      :armor, :cloak, :head, :hands, :feet, :other]
+
+    def defence
+      @def_plus and (@def_base + @def_plus)
+    end
+
+    def defence?
+      [:shield, :armor, :cloak, :head, :hands, :feet].include? @type
+    end
+
+    def damage
+      @dice_num and (@dice_num * (@dice_val/2.0) + @off_dam)
+    end
+
+    def to_s
+      [ @name, " ",
+         ("{r#{flags[:res].join}}" unless flags[:res].empty?),
+      ].join
+    end
+
+    def <=>(other)
+      if @type != other.type
+        TYPES.index(@type).to_i - TYPES.index(other.type).to_i
+      else
+        case 
+        when defence?
+          other.defence - self.defence
+        when @type == :weapon
+          other.damage - self.damage
+        else
+          0
+        end
+      end
+    end
+
+    private
+
+    RE_CURSED = /呪われている, /
+    RE_PLUS  = /\+([攻速腕知賢器耐魅道隠探赤掘]+)/
+    RE_IMM   = /\*([酸電火冷]+)/
+    RE_RES   = /r([酸電火冷毒閃暗破盲乱轟獄因沌劣恐]+)/
+    RE_MISC  = /;([易減投反麻視経遅活浮明警倍射瞬怒祝忌]+)/
+    RE_AURA  = /\[([炎電冷魔瞬]+)/
+    RE_BRAND = /\|([酸電焼凍毒沌吸震切理]+)/
+    RE_KILL  = /X([邪人龍オト巨デ死動]+)/
+    RE_SLAY  = /\/([邪人龍オト巨デ死動]+)/
+    RE_ESP   = /~([感邪善無個人竜オト巨デ死動]+)/
+    RE_SUST  = /\(([腕知賢器耐魅]+)/
+
+    def parse_flags(str)
+      Hash.new{ [] }.tap{|h|
+        h[:plus]  = $1.chars.to_a if RE_PLUS =~ str
+        h[:imm]   = $1.chars.to_a if RE_IMM =~ str
+        h[:res]   = $1.chars.to_a if RE_RES =~ str
+        h[:misc]  = $1.chars.to_a if RE_MISC =~ str
+        h[:aura]  = $1.chars.to_a if RE_AURA =~ str
+        h[:brand] = $1.chars.to_a if RE_BRAND =~ str
+        h[:kill]  = $1.chars.to_a if RE_KILL =~ str
+        h[:slay]  = $1.chars.to_a if RE_SLAY =~ str
+        h[:esp]   = $1.chars.to_a if RE_ESP =~ str
+        h[:sust]  = $1.chars.to_a if RE_SUST =~ str
+      }
+    end
+
+    def guess_type(name)
+      case name
+      when /パイク|グレイブ|ダガー|マン・ゴーシュ|サーベル|クレイモア|シミター|ブレード|ソード|カタナ|メイス|スピア|トライデント|クォータースタッフ|ウォー・ハンマー|アックス|ムチ|シャベル|つるはし|脇差し|大鎌|薙刀|鉄棒|忍者刀|青龍刀|六尺棒/
+        :weapon
+      when /シールド|盾|鏡/
+        :shield
+      when /スリング|・ボウ|クロスボウ|弓|進化する銃/
+        :bow
+      when /指輪/
+        :ring
+      when /アミュレット|ペンダント|首飾り|首輪/
+        :neck
+      when /のランプ|石|星|白熱灯|玻璃瓶|勾玉/
+        :light
+      when /ジャケット|メイル|アーマー|[^グ]ローブ|よろい|かたびら|胴丸/
+        :armor
+      when /クローク/
+        :cloak
+      when /ヘルメット|ヘルム|帽子|兜|笠|冠/
+        :head
+      when /ガントレット|グローブ|セスタス/
+        :hands
+      when /靴|ブーツ/
+        :feet
+      else
+        :other
+      end
+    end
+  end
+end

data/lib/hengband/player.rb

@@ -0,0 +1,41 @@
+# coding: utf-8
+
+module Hengband
+  class Player
+    EQUIP_PLACES = [:r_arm, :l_arm, :bow, :r_finger, :l_finger,
+      :neck, :light, :body, :outer, :head, :hands, :feet]
+    EQUIPPABLES = [[:weapon, :shield], [:weapon, :shield], [:bow],
+      [:ring], [:ring], [:neck], [:light], [:armor], [:cloak],
+      [:head], [:hands], [:feet]]
+
+    def initialize(inventory = [])
+      @inventory = inventory
+      @equips = {}.tap{|h|
+        EQUIP_PLACES.each{|name| h[name] = nil}
+      }
+    end
+    attr_reader :equips
+
+    def wear_random
+      EQUIP_PLACES.zip(EQUIPPABLES).each do |name, types|
+        item = @inventory.find_all{|x| types.include? x.type}.sample
+        @equips[name] = item
+      end
+      self
+    end
+
+    def wearings
+      i = "`"
+      EQUIP_PLACES.map{|name|
+        i.succ!
+        "#{i}) #{@equips[name]}"
+      }.join("\n")
+    end
+
+    def resists
+      @equips.map{|name, x| x.flags[:res] + x.flags[:imm]}.inject(:+).uniq.join
+    end
+
+  end
+end
+

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification 
+name: kavlax
+version: !ruby/object:Gem::Version 
+  hash: 31
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 0
+  version: 0.0.0
+platform: ruby
+authors: 
+- Yutaka HARA
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-06-04 00:00:00 +09:00
+default_executable: kavlax
+dependencies: []
+
+description: A tool for Hengband, a rogue-like game
+email: yutaka.hara/at/gmail.com
+executables: 
+- kavlax
+extensions: []
+
+extra_rdoc_files: 
+- README.mkd
+files: 
+- README.mkd
+- Rakefile
+- VERSION
+- bin/kavlax
+- lib/hengband.rb
+- lib/hengband/item.rb
+- lib/hengband/player.rb
+has_rdoc: true
+homepage: http://github.com/yhara/kavlax
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: A tool for Hengband, a rogue-like game
+test_files: []
+