ドラクエ３,４およびゼビウスのMesen用スクリプトを最近書いたので残しておきます。Mesenはファミコンエミュレーターでとても機能が豊富なステキなエミュレーターです。

■ドラゴンクエスト３

ドラクエ３用のスクリプトはオートガードスクリプトです。ご存知の方も多いでしょうが、ファミコン版ドラクエ３は戦闘時にガードを選択するとガードフラグが立ちますが、コマンドをキャンセルしてもこのフラグは立ちっぱなしとなってしまいます。そのため、ガードしたまま攻撃や呪文といった、別の行動がとれます。しかし、先頭が勇者だとガードコマンドが呪文になってしまうため、呪文が使えないキャラを先頭にする必要があり、また４番目のキャラもこの技が使えません。このスクリプトでは戦闘になると自動的にガードフラグを立てるため、上記のような制限を受けません。つまりパーティは常にガードしながら戦闘してくれます。ドラクエ３には前期・後期ロムがあり、プログラムも若干異なります。そのためメモリの使い方も若干異なっている可能性があります。このスクリプトは前期ロム向けに書きましたが、後期ロムではチェックしていません。もし動作しなかったら各メモリのアドレスの挙動をチェックしてみてください。

function dq3_AutoGuard()
 
 game_state = emu.read( 0x06F0, emu.memType.cpu, false ) -- gameState
 
 if game_state == 0x21 or game_state == 0x25 then
   -- AutoGuard
   
   for i = 0, 4 do
     lv = emu.read( 0x0700+i, emu.memType.cpu, false ) -- isEnableChar?
     if lv > 0 then
       game_flag = emu.read( 0x07E1+i, emu.memType.cpu, false ) | 0x20
       emu.write( 0x07E1+i, game_flag, emu.memType.cpu )
     end
   end
   
   emu.drawString( 10, 10, "AutoGuard:ON", 0xFF0000, 0xFF000000, 1 )
 end
 
end

--Register some code (printInfo function) that will be run at the end of each frame
emu.addEventCallback(dq3_AutoGuard, emu.eventType.startFrame)

--Display a startup message
emu.displayMessage("Script", "DQ3 auto guard script loaded.")

■ドラゴンクエスト４

ドラクエ４では８回逃げると会心の一撃が毎回でるようになるバグがあります。バグの詳細は内藤寛さんのYouTube動画がとても楽しいのでそちらをご覧になってください。このスクリプトでは戦闘になると自動的に会心の一撃フラグを立て、７回逃げたことにしています。これにより、会心の一撃が毎回でるのはもちろんですが、ボス以外は確実に逃げられます。ドラクエ３同様、前期・後期ロムの違いについては検証してないので動作しなかったらごめんなさい。

function dq4_kaisin()
 
 game_state = emu.read( 0x7200, emu.memType.cpu, false )
 
 if game_state ~= 0 then
   game_flag = emu.read( 0x72E4, emu.memType.cpu, false ) | 0x0F
   emu.write( 0x72E4, game_flag, emu.memType.cpu )
   emu.drawString( 10, 10, "Critical:ON", 0xFF0000, 0xFF000000, 1 )
 end
 
end

--Register some code (printInfo function) that will be run at the end of each frame
emu.addEventCallback(dq4_kaisin, emu.eventType.startFrame)

--Display a startup message
emu.displayMessage("Script", "DQ4 kaisin script loaded.")

■ゼビウス

ハムスターさんのアーケードアーカイブスのように、SPフラグやソルの位置を画面に表示し、敵の強さ情報を表示するスクリプトです。

function xevious()
 -- 36 Sol invisible
 -- 3c Sol visible
 -- 35 SPflag visible
 -- 36 SPflag invisible
 for i = 0, 16-1 do
     ofs = i * 8
     type = emu.read( 0x300 + ofs + 0 , emu.memType.cpu, false )
     sp_x = emu.read( 0x300 + ofs + 3 , emu.memType.cpu, false )
     sp_y = emu.read( 0x300 + ofs + 2 , emu.memType.cpu, false )
     -- draw sp flag
     if type == 0x38 then
       emu.drawRectangle( sp_x, sp_y, 16, 16, 0x80FF0000, true, 1 )
     end
     -- draw sol
     if type == 0x36 then
       emu.drawRectangle( sp_x, sp_y, 16, 16, 0x8000FF00, true, 1 )
     end
 end
   
 -- enemy level bar
 ene_lv = emu.read( 0x8F , emu.memType.cpu, false )
 bar_color = 0x8000FFFF
 if ene_lv > 256/3*2 then
   bar_color = 0x80FF0000
 elseif ene_lv > 256/3*1 then
   bar_color = 0x80FFFF00
 end
 emu.drawRectangle( 0, 224-ene_lv, 2, ene_lv, bar_color, true, 1 )
end

--Register some code (printInfo function) that will be run at the end of each frame
emu.addEventCallback(xevious, emu.eventType.endFrame)

--Display a startup message
emu.displayMessage("Script", "xevious script loaded.")

そもそもファミコン版はアーケード版に比べると難度が低めですので、このスクリプトを使うとさらに難度が下がってしまいます。そこで高難度モード的なスクリプトを書いてみました。

function xevious()
 -- 36 Sol invisible
 -- 3c Sol visible
 -- 35 SPflag visible
 -- 36 SPflag invisible
 for i = 0, 16-1 do
     ofs = i * 8
     type = emu.read( 0x300 + ofs + 0 , emu.memType.cpu, false )
     sp_x = emu.read( 0x300 + ofs + 3 , emu.memType.cpu, false )
     sp_y = emu.read( 0x300 + ofs + 2 , emu.memType.cpu, false )
     -- draw sp flag
     if type == 0x38 then
       emu.drawRectangle( sp_x, sp_y, 16, 16, 0x80FF0000, true, 1 )
     end
     -- draw sol
     if type == 0x36 then
       emu.drawRectangle( sp_x, sp_y, 16, 16, 0x8000FF00, true, 1 )
     end
     -- change to mortar
     if type == 0x08 then
       emu.write( 0x300 + ofs, 0x02, emu.memType.cpu )
     end
     if type == 0x06 then
       emu.write( 0x300 + ofs, 0x04, emu.memType.cpu )
     end
     if type == 0x0A then
       emu.write( 0x300 + ofs, 0x0C, emu.memType.cpu )
     end
     if type == 0x28 then
       emu.write( 0x300 + ofs, 0x04, emu.memType.cpu )
       emu.write( 0x300 + ofs + 7, 0x15, emu.memType.cpu )
     end
 end
   
 -- enemy level bar
 ene_lv = emu.read( 0x8F , emu.memType.cpu, false )
 bar_color = 0x8000FFFF
 if ene_lv > 256/3*2 then
   bar_color = 0x80FF0000
 elseif ene_lv > 256/3*1 then
   bar_color = 0x80FFFF00
 end
 emu.drawRectangle( 0, 224-ene_lv, 2, ene_lv, bar_color, true, 1 )
end

--Register some code (printInfo function) that will be run at the end of each frame
emu.addEventCallback(xevious, emu.eventType.endFrame)

--Display a startup message
emu.displayMessage("Script", "xevious script loaded.")

このスクリプトでは、普段弾を撃ってこない地上物も攻撃してくるようになる(バーラ(ピラミッド)→デロータ、ゾルバク(レーダー)→ログラム)うえ、ガル～系(デカイ奴)は２回ブラスターを撃たないと破壊できません(デカいピラミッドはガルデロータと同じ性能になっています)。またレーダーでもあるゾルバクを破壊しても敵の強さが低下しないため、空中物も強めです。ファミコンゼビウスなんて簡単と舐めてかかると苦戦することになりますよ！

スクリプトの使い方については、こちらの記事を参照ください。