アットウィキロゴ
セプテントリオン/SOS攻略wiki
ページ一覧
アットウィキロゴ
セプテントリオン/SOS攻略wiki
ページ一覧
セプテントリオン/SOS攻略wiki
掲示板 掲示板 ページ検索 ページ検索 メニュー メニュー
管理メニュー

セプテントリオン/SOS攻略wiki

Luaスクリプト

最終更新：

angel_p57

- view
メンバー限定 登録/ログイン

Luaスクリプト

ツールによっては、Luaスクリプトにより、内部情報を表示させたり自動操作させたりといったカスタマイズができるようになっているものがあります。
そちらで使えるスクリプトを参考として挙げておきます。

体力表示

ゲーム内時間、救助者(最大7人、ロスト状態含む)および主人公の体力をゲーム画面内に表示させるスクリプトです。
※次図は動作時のサンプル 

  1. --機能: セプテントリオン同行者体力表示
  2. --対象メモリ:
  3. --  時刻: 経過分・秒・フレーム 0x7e03e2, 0x7e03e0, 0x7e03de
  4. --  体力: 0x7e15?d, 0x7e15?c ?=0-6 ( 先頭が0 )
  5. vit = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
  6. while true do
  7.   time_m = memory.readbyte(0x7e03e2)
  8.   time_s = memory.readbyte(0x7e03e0)
  9.   time_f = memory.readbyte(0x7e03de)
  10.   for i=1,8 do
  11.     vu=memory.readbyte(0x7e14ed+i*16)
  12.     vl=memory.readbyte(0x7e14ec+i*16)
  13.     if vu==0 and vl==0 then
  14.       vit[i*2-1] = 0
  15.       vit[i*2  ] = 0
  16.     else
  17.       if i==1 then
  18.         vit[i*2-1]=(vu+8)%256
  19.       else
  20.         vit[i*2-1]=(vu+64)%256
  22.       vit[i*2  ]= (vl*1000+128)/256
  25.   gui.text(
  26.     180,184,
  27.     string.format(
  28.       "%3dm %02ds %02dbf\n1:%3d.%03d 5:%3d.%03d\n2:%3d.%03d 6:%3d.%03d\n3:%3d.%03d 7:%3d.%03d\n4:%3d.%03d H:%3d.%03d",
  29.       time_m, time_s, time_f,
  30.       vit[ 3], vit[ 4], vit[11], vit[12],
  31.       vit[ 5], vit[ 6], vit[13], vit[14],
  32.       vit[ 7], vit[ 8], vit[15], vit[16],
  33.       vit[ 9], vit[10], vit[ 1], vit[ 2]
  34.     ),
  35.     0xffff00ff
  36.   )
  37.   snes9x.frameadvance()
  39.  

位置・イベント情報表示

位置情報(x,y座標を1/16してピクセル単位にしたもの)、部屋ID(表エリア以外)あるいはブロックID(表エリア)、イベントID(プロローグ時は主人公共通イベントかどうか)とイベント参加キャラ(イベント有効時)一覧を表示するスクリプトです。
イベントの調査のために実装したものです。
※次図は動作時のサンプル 

  1. --機能: セプテントリオン現在地・イベント情報表示
  2. --対象メモリ:
  3. --  部屋ID: 0x7e0230
  4. --  主人公X,Y座標: 0x7e04e2,6
  5. --  イベントID: 0x7e040c
  6. --  プロローグ共通フラグ: 0x7e02ec
  7. --  イベント参加キャラID: 0x7e0658 + 0x20*0～3
  8. while true do
  9.   x = bit.rshift(memory.readword(0x7e04e2),4)
  10.   y = bit.rshift(memory.readword(0x7e04e6),4)
  11.   roomid = memory.readword(0x7e0230)
  12.   blkid = bit.band(bit.rshift(x,9),7)
  13.   if y >= 0x600 then
  14.     blkid = -1
  15.   else
  16.     roomid = -1
  17.     if y >= 0x400 then
  18.       -- 底層
  19.       blkid = blkid+16
  20.     elseif y >= 0x200 then
  21.       -- 中層
  22.       blkid = blkid+8
  25.   eid = memory.readbyte(0x7e040c)
  26.   if eid==255 then
  27.     gui.text(
  28.       180,188,
  29.       string.format(
  30.         "x: %04d, y: %04d\nblk: %2d, room: %3d\nevid: -1\nchars:",
  31.         x, y, blkid, roomid
  32.       ),
  33.       0xffff00ff
  34.     )
  35.   else
  36.     if memory.readword(0x7e02ec)==0 then
  37.       pc = "-"
  38.     else
  39.       pc = "p"
  41.     ids = { -1, -1, -1, -1 }
  42.     for i=1,4 do
  43.       cid = memory.readbyte(0x7e0638+0x20*i)
  44.       if cid==255 then
  45.         break
  47.       ids[i] = cid
  49.     gui.text(
  50.       180,188,
  51.       string.format(
  52.         "x: %04d, y: %04d\nblk: %2d, room: %3d\nevid: %3d (%s)\nchars: %s",
  53.         x, y, blkid, roomid, eid, pc, table.concat(ids,",")
  54.       ),
  55.       0xffff00ff
  56.     )
  58.   snes9x.frameadvance()
  60.  

rubyスクリプト

もともとエミュレータ用のLuaスクリプトだけ出すつもりでしたが、解析のために使ったちょっとしたスクリプトもこちらに載せることにします。使い方は細かく書きませんので感じてください。

イベントデータ伸長

圧縮形式のイベントデータ(16進ダンプ、非英数文字はスキップ)を標準入力(あるいはARGVに指定したファイル)から読み取り、伸長して16進ダンプするスクリプトです。
途中の処理状況が分かるように色々標準エラーに出力してます。
※途中で伸長に失敗しても、できたところまで出力します。 
  1. uncompress=->bytes,verbose=false{
  2.   #p bytes
  3.   rbytes=[]
  4.   i=j=0
  5.   getb=->{
  6.     b=bytes[i] or raise "#{i},#{j}"
  7.     i+=1
  8.     b
  9.   }
  10.   setb=->b{
  11.     rbytes[j]=b
  12.     j+=1
  13.   }
  14.   copy=->a,off{
  15.     (a+1).times{
  16.       rbytes[j]=rbytes[j-off]
  17.       j+=1
  18.     }
  19.   }
  20.   buf=0
  21.   sbits=0
  22.   fill=->{
  23.     ibak=i
  24.     bl=getb[]
  25.     bh=getb[]
  26.     w=(bh<<8)|bl
  27.     buf|=w<<(16-sbits)
  28.     sbits+=16
  29.     warn "fill @#{ibak}" if verbose
  30.   }
  31.   getbw=->{
  32.     buf>>16
  33.   }
  34.   discard=->d{
  35.     return if d==0
  36.     buf=(buf<<d)&0xffffffff
  37.     sbits-=d
  38.     if sbits<16
  39.       fill[]
  40.     end
  41.   }
  42.   judge1=->{
  43.     w=getbw[]
  44.     #p "j1: %04x" % w
  45.     case w
  46.     when 0...0x200
  47.       [(w>>2)|0x80, 13]
  48.     when 0x200...0x400
  49.       [w>>3, 12]
  50.     when 0x400...0x800
  51.       [w>>5, 10]
  52.     when 0x800...0x1000
  53.       [w>>7, 8]
  54.     when 0x1000...0x2000
  55.       [w>>9, 6]
  56.     when 0x2000...0x4000
  57.       [w>>11, 4]
  58.     when 0x4000...0x8000
  59.       [w>>13, 2]
  60.     else
  61.       [1, 0]
  62.     end
  63.   }
  64.   judge2=->{
  65.     w=getbw[] & 0x7fff
  66.     #p "j2: %04x" % w
  67.     w &= 0x7fff
  68.     case w
  69.     when 0...0x800
  70.       [w>>9, 7]
  71.     when 0x800...0xc00
  72.       [(w>>8)-4, 8]
  73.     when 0xc00...0x1800
  74.       [(w>>7)-0x10, 9]
  75.     when 0x1800...0x3000
  76.       [(w>>6)-0x40, 10]
  77.     else
  78.       sw=8-(w>>12)
  79.       [(w&0xfff|0x1000)>>sw, 16-sw]
  80.     end
  81.   }
  82.   fill[]
  83.   begin
  84.     loop{
  85.       warn "getf @#{i}" if verbose
  86.       cb=getb[]
  87.       warn "flag byte: #{'%08b'%cb}" if verbose
  88.       7.downto(0){|k|
  89.         if cb[k]>0
  90.           warn "copyraw @#{i} -> @#{j}" if verbose
  91.           setb[getb[]]
  92.         else
  93.           p1,d1=judge1[]
  94.           if p1==0xff
  95.             warn "detect end mark (p1=0xff)"
  96.             break
  97.           end          discard[d1]
  98.           p2,d2=judge2[]
  99.           discard[d2]
  100.           if verbose
  101.             warn "repeat @#{j} from -#{p2} by #{p1+1}, consume #{d1+d2}"
  102.             bufs=("%032b"%buf)[0...sbits]
  103.             warn "pooled #{bufs} ( #{sbits} bits )"
  104.           end
  105.           copy[p1,p2+1]
  106.         end
  107.       } or break
  108.     }
  109.   rescue => e
  110.     warn "   * error #{e} in uncompression *"
  111.   end
  112.   rbytes
  113. }
  114. cbytes = $<.flat_map{|line| line.scan(/\w\w/).map{|t| t.to_i(16) } }
  115. rbytes=uncompress[cbytes,true]
  116.  
  117. 0.step{|off|
  118.   bytes=[]
  119.   dobreak=false
  120.   16.times{|i|
  121.     b=rbytes[off*16+i] or break
  122.     bytes[i]=b
  123.   } or dobreak=true
  124.   break if bytes.size==0
  125.   bstrs=["  "]*16
  126.   bytes.each_with_index{|b,i| bstrs[i]="%02x" % b}
  127.   puts ("    %02x0: %s" % [off, bstrs.each_slice(2).map{|(s1,s2)| s1+s2 }*" "])
  128.   break if dobreak
  129. }
  130.  

実行例については、https://ideone.com/MlLkkk をご覧ください。

イベントデータ圧縮

上記イベントデータ伸長の逆の効果を持ちます。
なお、圧縮形式の性質上、一意に圧縮結果は定まりません。このスクリプトでは次のポリシーで圧縮処理を行います。
  • 既出パターンの検索
    その時点で最長マッチとなる既出パターンを優先します。
    ※一旦既出パターンを短く見積もって、後で長めの既出パターンを切り出せる可能性があったとしても考慮しません。
  • 余りのプール
    プールに残るビット列は伸長結果に影響がないため、その分圧縮結果の最後の2バイトで、値を選択できる余地があります。
    そのビット数はmargin bitとして、圧縮処理の最後に標準エラーに出力します。
    本スクリプトではビットパターン0をプールするものとします。
  • 最後のフラグバイト
    フラグバイトを設ける関係上、元のデータを8か所ずつに区切って処理するわけですが、区切った箇所が8の倍数になるとは限りません。
    そのため、最後のフラグバイトの末尾の数ビットは任意の値を採ることができます。
    本スクリプトではビット0を設定するものとします。
  1. compress=->bytes,verbose=false{
  2.   wmax=4095
  3.   dmax=255
  4.   search=->pos{
  5.     bestl,bestp=1,0
  6.     (0..[wmax,pos-1].min).each{|i|
  7.       matched = 0.step{|j|
  8.         break j if j>=dmax || pos+j>=bytes.size || bytes[pos+j]!=bytes[pos+j-i-1]
  9.       }
  10.       next if matched<bestl||matched<2
  11.       bestl=matched
  12.       bestp=i
  13.     }
  14.     [bestl-1,bestp]
  15.   }
  16.   pools=[]
  17.   pool=0
  18.   pooledbit=0
  19.   addpool=->len,pos{
  20.     raise 'unexpected' unless len<=dmax && pos<=wmax
  21.     addlen=[14,len.bit_length*2-1].min
  22.     pool=(pool<<addlen)|(len&0x7f)
  23.     pooledbit+=addlen
  24.     ret=addlen
  25.     addlen,bias=case pos
  26.     when 0..3; [6,0]
  27.     when 4..7; [7,4]
  28.     when 8..31; [8,16]
  29.     when 32..127; [9,64]
  30.     else
  31.       blen=pos.bit_length
  32.       [blen+2, (blen-6) << blen]
  33.     end
  34.     pool=(pool<<addlen)|(pos+bias)
  35.     pooledbit+=addlen
  36.     ret+=addlen
  37.     while pooledbit>=16
  38.       sword=pool>>(pooledbit-16)
  39.       pools.push(sword&0x7f,sword>>8)
  40.       pooledbit-=16
  41.       pool&=(1<<pooledbit)-1
  42.     end
  43.     ret
  44.   }
  45.   i=0
  46.   elems=[]
  47.   while i<bytes.size
  48.     len,pos=search[i]
  49.     warn "search @#{i} -> len,pos=#{len},#{pos}" if verbose
  50.     if len==0
  51.       elems.push([1,bytes[i]])
  52.       i+=1
  53.     else
  54.       pbit=addpool[len,pos]
  55.       elems.push([0,pbit])
  56.       i+=len+1
  57.     end
  58.   end
  59.   addpool[255,0]
  60.   elems.push([0,14])
  61.   ((-elems.size)%8).times{
  62.     elems.push([0,0])
  63.   }
  64.   margin=0
  65.   if pooledbit>0
  66.     raise 'unexpected' unless pooledbit<16
  67.     margin=16-pooledbit
  68.     pool<<=margin
  69.     pools.push(pool&0xff,pool>>8)
  70.   end
  71.   cbytes=[]
  72.   pooledbit=0
  73.   consume=->bit{
  74.     pooledbit -= bit
  75.     while pooledbit<16
  76.       cbytes.push(*pools.shift(2))
  77.       pooledbit+=16
  78.     end
  79.   }
  80.   consume[0]
  81.   elems.each_slice(8){|chunk|
  82.     cbytes.push((chunk.map{|e| e[0] }*'').to_i(2))
  83.     chunk.each{|(dtype,val)|
  84.       if dtype==1
  85.         cbytes.push(val)
  86.       else
  87.         consume[val]
  88.       end
  89.     }
  90.   }
  91.   warn "margin bit: #{margin}" if verbose
  92.   cbytes
  93. }
  94.  
  95. rbytes = $<.flat_map{|line| line.scan(/\w\w/).map{|t| t.to_i(16) } }
  96. cbytes=compress[rbytes,true]
  97.  
  98. 0.step{|off|
  99.   bytes=[]
  100.   dobreak=false
  101.   16.times{|i|
  102.     b=cbytes[off*16+i] or break
  103.     bytes[i]=b
  104.   } or dobreak=true
  105.   break if bytes.size==0
  106.   bstrs=["  "]*16
  107.   bytes.each_with_index{|b,i| bstrs[i]="%02x" % b}
  108.   puts ("    %02x0: %s" % [off, bstrs.each_slice(2).map{|(s1,s2)| s1+s2 }*" "])
  109.   break if dobreak
  110. }
  111.  

実行例については、https://ideone.com/u9yczd をご覧ください。
「Luaスクリプト」をウィキ内検索
セプテントリオン/SOS攻略wiki
人気記事ランキング
  1. 基本方針
  2. 船内マップ
  3. 要救助者一覧
  4. 基本操作
  5. 描画処理
もっと見る
最近更新されたページ
もっと見る
最近更新されたスレッド
    +新規スレッドを作成する
    人気記事ランキング
    1. 基本方針
    2. 船内マップ
    3. 要救助者一覧
    4. 基本操作
    5. 描画処理
    もっと見る
    最近更新されたページ
    もっと見る
    ウィキ募集バナー