手で打ち込むのは厳しいので、Excel VBAで。
For～Nextとか、なつかしすぎる
Private Sub CommandButton1_Click() Dim sheet As Worksheet Dim inputFn As Long Dim buffer() As Byte Dim file As String Dim row As Long Dim column As Integer Dim value As String Dim count As Long Dim index As Long Set sheet = ThisWorkbook.Worksheets("Map") file = ThisWorkbook.Path & "\alpmap.bin" inputFn = FreeFile Open file For Binary As #inputFn ReDim buffer(LOF(inputFn)) Get #inputFn, , buffer Close #inputFn count = UBound(buffer) For row = 1 To (count / 12) + 2 For column = 1 To 12 index = count - (((row - 1) * 12) + column) If (index > 0) Then value = Right("0" & Hex(buffer(index)), 2) sheet.Cells(row, column).value = value file = ThisWorkbook.Path & "\" & value & ".png" sheet.Cells(row, column).Select If (Dir(file) <> "") Then sheet.Pictures.Insert (file) End If End If Next column Next row End Sub
alpmapをバイナリ化して、「alpmap.bin」としてExcelと同じフォルダに保存
各バイトデータに対応した画像データ（32x32pix）を、「00.png」のようにHex形式のファイル名で同じフォルダに用意しとく
Excelのセルフォーマットをちょっと変更して、上記VBAを実行するとマップが完成
ステージ1
ステージ2
ステージ3
ステージ4
ステージ5
ステージ6
ステージ7
ステージ8
ステージ8の白抜けのところがアルフォスね。
赤枠は、他の背景とバイトデータが違う所。なんだろ？ボム落としても何も出てこないし。。
