naokiさんありがとうございます
できました

pbdpさん
私の考える理想はよく入れ子が多いんです・・・。
でもなんとか解決しました。


２人ともありがとうございました

when文、case文の入れ子は自分でもcheckしにくいので、
なるべく避けるのがベターじゃないでしょうか。（遅くなるし）。
入れ子無しで書きなおしたほうが結局は近道だと思います。

やってみます

endが足りないんじゃあないですか？

上なら22行目が、下なら24行目が間違っているって出るんです

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

でもダメでした

すぐに返事ください。
もうすぐで完成なのですが
どうもここだけ間違っていて･･。