Luaのメモ、Snes9x rerecording 1.51 v7のLuaでRewind再現

2015年5月1日追記

gogowaten.hatenablog.com

frameadvanceが動かなくてもregisterbeforeでよかった ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ

http://blogs.yahoo.co.jp/gogowaten/12995663.html

↑の記事でここの記事は殆ど無意味になりました

追記ここまで

久しぶりにLuaを使おうと思ったらほとんど忘れていたのでメモ

Luaといってもゲームのエミュレータ用のLuaで

スーパーファミコンのエミュレータのSnes9x rerecording 1.51 v7で動作確認

書いたのはRewind(巻き戻し、早戻し)の再現

新しい方の1.53なら最初からRewindがあるからこっちを使いたいんだけど

1.53のLuaだとframeadvanceが動いてくれないので

Rewindの機能がないけどframeadvanceが動く1.51のLuaを使って再現してみた(力技)

動作はステートセーブを一定間隔で通し番号を付けてどんどん溜めていくので

キーボードのRで前のロード、Tキーで次のロード

できは良くなくてセーブするたびに一瞬止まるからアクションゲームには向かない

1.53でframeadvanceが動けばこんなことしなくてもいいのに！

--[[フレームカウント一定間隔ごとにステートセーブ
Rキーで前のロード、Tキーで次のロード
EVERY_COUNT =  このフレームごとにステートセーブを記録する、60で約1秒
COUNT_DOWN =   待ち時間、60で約1秒、ステートロードを連続でする間隔、
               短いとキーをちょっと押しただけで2,3個戻ってしまうのを防ぐため
MAX_STATE_COUNT = ステートセーブの最大個数、これを超えると古いものから消えていく]]

local saveTable = {} --luaには配列はない替わりにテーブルを使う、添字は1から始まる
local saveObj-- = savestate.create()--セーブオブジェクト
local savecount = 0      --セーブオブジェクトの通し番号
local myCount = 0        --フレームのカウント用
local EVERY_COUNT = 600  --このフレームごとにステートセーブを記録する、60で約1秒
local mykey               --入力されたーキーボードのキー
local COUNT_DOWN = 20    --[[待ち時間、60で約1秒、ステートロードを連続でする間隔
                       、短いとキーをちょっと押しただけで2,3個戻ってしまうのを防ぐため]]
local mycountdown = 0    --待ち時間カウントダウン用
local MAX_STATE_COUNT = 5--ステートセーブの最大個数、これを超えると古いものから消えていく
myCount = EVERY_COUNT

function myframecount()
    if myCount == EVERY_COUNT then
        saveObj = savestate.create()--ここで毎回クリエイトしないと同じセーブファイルになる
        savestate.save(saveObj)     --オブジェクトにセーブ
        if savecount == MAX_STATE_COUNT then--セーブ個数が最大値を超えていたら
            table.remove(saveTable,1)       --一番目(古いもの)をテーブルから削除
        else                              --セーブ個数が最大値を超えていなければ通し番号を+1
            savecount = savecount +1
        end
        saveTable[savecount] = saveObj--ステートセーブをテーブルに追加
        print(emu.framecount().."_saveNumber "..savecount.." AddSave")
        myCount = 0--カウントを元に戻す
--     table.sort(saveTable)--エラーになる、ステートセーブには使えない？
    end
    myCount = myCount +1--カウントアップ
end

function myload()--現在より古いステートセーブをロード
    if savecount > 1 then
        savestate.load(saveTable[savecount-1])
        savecount = savecount -1
        print(savecount.."_Loaded")
        myCount = 0
    end
end
function mynextload()--次のステートロード
    if savecount < table.maxn(saveTable) then
        savestate.load(saveTable[savecount +1])
        savecount = savecount + 1
        print(savecount.."_Loaded")
        myCount = 0
    end
end

while true do
    myframecount()
    
    if mycountdown > 0 then
        mycountdown = mycountdown -1--カウントダウン
    else
        mykey = input.get()
        if mykey.R then --Rキーを押したら
            myload()    --古い方のステートをロード
            mycountdown = COUNT_DOWN
        elseif mykey.T then --Tキーを押したら
            mynextload()    --現在より新しいステートをロード
            mycountdown = COUNT_DOWN
        end
    end
    emu.frameadvance()
end