case speakWithSelect(2,"調べる","見回る", "どうする？") 
when 0 #調べる 
 case speakWithSelect(2,"謎のメモ","鍵形の厚紙", "何処を調べる？") 
 when 0 #調べる～謎のメモ 
  if getFlag("ライター") 
speak("お前をここに閉じ込めた訳、分かるか？俺らはな、麻薬の密輸をしてたんだよお前に見られて警察に言われちゃたまらんと思ってお前をバットで殴り、失神させた。そしてここに閉じ込めたって訳だ。そうそう、お前がこのメモを見たときにはもう手遅れだろうがこの屋敷にはな、爆弾が仕掛けてあるんだ、とめないのか？とめたいよな、だが、もう遅い、この屋敷ごと消し飛べい！")
shakeScreen(1000)
speak("爆弾が爆発した。")
goBadEnding()
   shakeScreen(1000) 
speak("暗い。何も見えない")  
  else 
   speak("暗い。何も見えない") 
  #ifを閉じていない 
 when 1 #調べる～鍵形の厚紙 
  if getFlag("ライター") 
speak("何か数字が書いてある")
speak("パス。見せれないと書いてあった")
  else 
   speak("暗い。何も見えない") 
  end 
 #caseを閉じていない 
 
when 1 #見回る 
 changeChapter("chapter3") 
 
end #caseどうする？終 
 
#不要なもの end end 
 
changeChapter("chapter1")

case speakWithSelect(2,"調べる","見回る", "どうする？") 
when 0 #調べる 
 case speakWithSelect(2,"謎のメモ","鍵形の厚紙", "何処を調べる？") 
 when 0 #調べる～謎のメモ 
  if getFlag("ライター") 
speak("お前をここに閉じ込めた訳、分かるか？俺らはな、麻薬の密輸をしてたんだよお前に見られて警察に言われちゃたまらんと思ってお前をバットで殴り、失神させた。そしてここに閉じ込めたって訳だ。そうそう、お前がこのメモを見たときにはもう手遅れだろうがこの屋敷にはな、爆弾が仕掛けてあるんだ、とめないのか？とめたいよな、だが、もう遅い、この屋敷ごと消し飛べい！")
shakeScreen(1000)
speak("爆弾が爆発した。")
goBadEnding()
   shakeScreen(1000) 
speak("暗い。何も見えない")  
  else 
   speak("暗い。何も見えない") 
  #ifを閉じていない 
 when 1 #調べる～鍵形の厚紙 
  if getFlag("ライター") 
speak("何か数字が書いてある")
speak("パス。見せれないと書いてあった")
  else 
   speak("暗い。何も見えない") 
  end 
 #caseを閉じていない 
 
when 1 #見回る 
 changeChapter("chapter3") 
 
end #caseどうする？終 
 
#不要なもの end end 
 
changeChapter("chapter1")