; Post Office sound ; copyleft 2017-06-23 sugiura@nagoya-u.jp ; 2018-06-22 注釈つき ; 2019-06-21 mmplayのオプション修正 #pack "po.png" #pack "po.mp3" ; 音声ファイル mmload "po.mp3", 0 ; 音声ファイルの読み込み *settei screen 0, 640, 680 notesel log *main pos 50, 180 picload "po.png", 1 color 255,255,204 boxf 0, 0, 640, 80 pos 150, 10 font "ゴシック", 18, 1 color 0,0,0 mes "Now, you are at the red star." mes "A woman is asking you a question." mes "---------------------------------" font "ゴシック", 18, 1 mes "Woman: \"Excuse me.\"" mes "You: " pos 230, 80 button gosub "Yes?", *po ; ボタンを押して音声を出す color 255,255,204 boxf 0, 560, 640, 680 pos 100, 560 color 0,0,0 mes "Write the instruction to the post office." ans = "" ; 解答欄の提示 mesbox ans, 500, 80, 1, 0 button goto "Finish", *owari stop ; end *owari noteadd ans notesave "sound-ans.txt" cls pos 300, 400 font "ゴシック", 18, 1 mes "Bye!" wait 200 end ; -----------------------sub------------- サブルーチンで音を鳴らす ; 「mmload命令で読み込みモード2を指定している場合は、 ;  サウンドの再生が終了するまで次の命令へは進まなくなります。」 *po mmplay 0 return