speak("ブドウゼリー｢隠しの森へ行くには｢イカメーの大冒険｣をクリアしていないと入れません。｣")
case speakWithSelect(2,"はい","いいえ","クリアしていますか？")
when 0
case speakWithSelect(2,"はい","いいえ",
"クリアしているかどうかチェックします。\n本当にクリアしていますか？")
when 0
speak("ブドウゼリー｢ではクリアしているかどうかチェックします。｣")
if checkGameClear(7351)
speak("ブドウゼリー｢クリアしていることを確認できました。ではどうぞ。｣")
warp(10504, 31, 24)
else
speak("ブドウゼリー｢クリアしていないじゃないですか。腕試しです。勝てたら通しましょう。｣")
speak("ブドウゼリーたちが現れた")

if startTurnBattle(2620, 2617, 2623, 2613, 2615)

speak("ブドウゼリー｢すごいですね。では通しましょう｣")
warp(10504, 31, 24)
setFlag("敵を倒した",false)
else
speak("ブドウゼリー｢もう！ちゃんとクリアしてきてくださいよ！｣")
end

when 1
speak("ブドウゼリー｢そうでしたか、失礼いたしました｣")
end

when 1
speak("ブドウゼリー｢そうでしたか、失礼いたしました｣")
end

でもダメでした

speak("ブドウゼリー｢隠しの森へ行くには｢イカメーの大冒険｣をクリアしていないと入れません。｣")
case speakWithSelect(2,"はい","いいえ","クリアしていますか？")
when 0
case speakWithSelect(2,"はい","いいえ",
"クリアしているかどうかチェックします。\n本当にクリアしていますか？")
when 0
speak("ブドウゼリー｢ではクリアしているかどうかチェックします。｣")
if checkGameClear(7351)
speak("ブドウゼリー｢クリアしていることを確認できました。ではどうぞ。｣")
warp(10504, 31, 24)
else
speak("ブドウゼリー｢クリアしていないじゃないですか。腕試しです。勝てたら通しましょう。｣")
speak("ブドウゼリーたちが現れた")

if startTurnBattle(2620, 2617, 2623, 2613, 2615)

speak("ブドウゼリー｢すごいですね。では通しましょう｣")
warp(10504, 31, 24)
setFlag("敵を倒した",false)
else
speak("ブドウゼリー｢もう！ちゃんとクリアしてきてくださいよ！｣")
end

when 1
speak("ブドウゼリー｢そうでしたか、失礼いたしました｣")
end

when 1
speak("ブドウゼリー｢そうでしたか、失礼いたしました｣")
end

でもダメでした