86行目はwhen 2
です。
選択肢の動作の中に選択肢があるとエラーが起こりますので、


speak("アオミー｢パーティー変更屋です｣")
case speakWithSelect(3,"パーティーをはずす","パーティーに加える","やめる",
"アオミー｢今日はどんな御用でしょう｣")
when 0
#パーティーをはずすを選んだ
a = 0
when 1
#パーティーに加える
a = 1
when 2
#やめるを選んだ
a = 2
end



if a == 0

case speakWithSelect(12,"ムニエルくん","ゼリー","プリン","イチゴゼリー","メロンゼリー","ソーダゼリー","ラムネゼリー","パインゼリー","ブドウゼリー","ヨークゼリー","チャオクワイ","やめる",
"アオミー｢誰をはずしますか？(いなくても有効です)｣")
when 0
（以下省略）
end

elsif a == 1

case speakWithSelect(11,"ゼリー","プリン","イチゴゼリー","メロンゼリー","ソーダゼリー","パインゼリー","ラムネゼリー","ブドウゼリー","ヨークゼリー","チャオクワイ","もどる",
"アオミー｢誰を加えますか？(ムニエルくんは城下町でいつでも仲間に出来る為免除)｣")
when 0
（以下省略）
end

elsif a == 2
speak("アオミー｢またのご利用お待ちしております｣")
end

という書き方にしたがいいですよ。

86行目はwhen 2
です。
選択肢の動作の中に選択肢があるとエラーが起こりますので、


speak("アオミー｢パーティー変更屋です｣")
case speakWithSelect(3,"パーティーをはずす","パーティーに加える","やめる",
"アオミー｢今日はどんな御用でしょう｣")
when 0
#パーティーをはずすを選んだ
a = 0
when 1
#パーティーに加える
a = 1
when 2
#やめるを選んだ
a = 2
end



if a == 0

case speakWithSelect(12,"ムニエルくん","ゼリー","プリン","イチゴゼリー","メロンゼリー","ソーダゼリー","ラムネゼリー","パインゼリー","ブドウゼリー","ヨークゼリー","チャオクワイ","やめる",
"アオミー｢誰をはずしますか？(いなくても有効です)｣")
when 0
（以下省略）
end

elsif a == 1

case speakWithSelect(11,"ゼリー","プリン","イチゴゼリー","メロンゼリー","ソーダゼリー","パインゼリー","ラムネゼリー","ブドウゼリー","ヨークゼリー","チャオクワイ","もどる",
"アオミー｢誰を加えますか？(ムニエルくんは城下町でいつでも仲間に出来る為免除)｣")
when 0
（以下省略）
end

elsif a == 2
speak("アオミー｢またのご利用お待ちしております｣")
end

という書き方にしたがいいですよ。