; 2006村尾版の改良 by sugiura ; 必要な画像 #pack "17b.jpg" #pack "murao2.jpg" ; 必要な音声 #pack "okonomiyaki.wav" #pack "murao.wav" mmload "okonomiyaki.wav", 0 ; 音声ファイルの読み込み, バッファ番号 mmload "murao.wav", 1 notesel kiroku ; 記録用ノートの準備 ;-------------------------表紙のタイトル------------ pos 200, 150 ; font "MSゴシック", 32, 1 mes "Photo Album" font "MS明朝", 20 mes "−食べ物と飲み物編−" pos 250, 300 button "はじめ", *tabemono ; stop ;-------------------------------一つ目----------- *tabemono cls pos 200, 10 ; picload "17b.jpg" , 1 ; 画像ファイルを読み込む ; p2 を 1 にすることで、ウインドウ内に配置 ; p2 を 0 にするとウインドウの大きさが ;     画像の大きさになってしまう。 objsize 140,30 ; ボタンの大きさを設定 pos 200, 250 button gosub "写真の説明を聞く", *okonomiyaki ; サブルーチンで音を鳴らす pos 50, 300 ; 入力欄を用意する mes "写真の感想を書いてください" tabe = "";変数に表示メッセージを代入する mesbox tabe, 500, 64, 1 ; メッセージボックスを設置(書き換え可能) ; メッセージ, 右位置, 下位置, オプション ; オプションは 1で書き換え可能 ;        0で書き換え不可能 objsize 60,24 pos 250, 400 button "つぎへ", *nomimono stop ;--------------------------------二つ目-------------------------- *nomimono ;if tabe == "" : mes "ちゃんとかいてね" : wait 200: goto *tabemono if tabe == "" : dialog "ちゃんとかいてね",0 : goto *tabemono noteadd "<お好み焼きの感想>" ; どこでノートに記録をとるかがポイント noteadd tabe ; メッセージボックスの内容をノートに記録 ;------------------------------------------------------------------ cls pos 250, 10 picload "murao2.jpg" , 1 objsize 140,30 pos 250, 250 button gosub "写真の説明を聞く", *murao pos 50, 300 mes "写真の感想を書いてください" nomi = "" mesbox nomi, 500, 64, 1 objsize 60,24 pos 250, 400: button "おわり", *owari stop *owari if nomi == "" : mes "一言はかいてね" : wait 200: goto *nomimono noteadd "<村尾の感想>" noteadd nomi ;---------------------------------------------------------------- notesave "murao.txt" end ;--------------------------sub----------- *okonomiyaki ;mmload "okonomiyaki.wav", 0 ; 音声ファイルの読み込み, バッファ番号 mmplay 0 ; 音声の再生(バッファ番号で指定) return *murao ;mmload "murao.wav", 1 mmplay 1 return