perappu.rb

# HGSSのセーブデータにおいてペラップのおしゃべり音声にサインカーブを書きこむ

fname = ARGV[0]
bin = File.binread(fname).bytes.to_a

2.times do |j|
  off = 0x40000 * j + 0x4e78 # hgss 
  off = 0x40000 * j + 0x64f0 # pt
    1000.times do |i|
      bin[off + i] = 0
    end
    2000.times do |i|
      t = 4 * i
      h = ((Math.sin(t) * 8 + 8) % 16).to_i
      bin[off + i / 2] += h << 4 * (i % 2)
    end
end

File.binwrite(fname, bin.map(&:chr).join(""))