;終了処理等 *scen_exit cl c,0 csp -1 textoff print 3 bg black,4 stop goto *pre_main *cont ;ロード bg "title02.jpg",3 systemcall load goto *main_menu *cgview ;ＣＧ鑑賞モード bg white,2 play "olg.mid" wait 2500 bg "title02.jpg",2 *cgview2 btndef "" bg "title02.jpg",2 lsp 32,":a/1,0,3;cgmode.jpg",224,12 lsp 33,":a/2,2,3;s_btn.jpg",35,68 lsp 34,":a/2,2,3;g_btn.jpg",139,68 lsp 35,":a/2,2,3;y_btn.jpg",237,68 lsp 36,":a/2,2,3;h_btn.jpg",324,68 lsp 37,":a/2,2,3;a_btn.jpg",437,68 lsp 38,":a/2,2,3;hoka_btn.jpg",520,68 lsp 41,":a/19,500,2;ii.jpg",524,396 ;幸子 lsp 11,("sachi_h01.jpg")":c/1,0,3;s1s.jpg"":c/1,0,3;null.jpg",24,114 lsp 12,("sachi_h02.jpg")":c/1,0,3;s2s.jpg"":c/1,0,3;null.jpg",24,208 lsp 13,("sachi_h03.jpg")":c/1,0,3;s3s.jpg"":c/1,0,3;null.jpg",24,302 lsp 14,("sachi_h04a.jpg")":c/1,0,3;s4s.jpg"":c/1,0,3;null.jpg",24,396 ;ギコ lsp 15,("giko_h01.jpg")":c/1,0,3;g1s.jpg"":c/1,0,3;null.jpg",124,114 lsp 16,("giko_h02.jpg")":c/1,0,3;g2s.jpg"":c/1,0,3;null.jpg",124,208 lsp 17,("giko_h03.jpg")":c/1,0,3;g3s.jpg"":c/1,0,3;null.jpg",124,302 lsp 18,("giko_h04.jpg")":c/1,0,3;g4s.jpg"":c/1,0,3;null.jpg",124,396 ;優花 lsp 19,("yu-ka_h01.jpg")":c/1,0,3;y1s.jpg"":c/1,0,3;null.jpg",224,114 lsp 20,("yu-ka_h02.jpg")":c/1,0,3;y2s.jpg"":c/1,0,3;null.jpg",224,208 lsp 21,("yu-ka_h03.jpg")":c/1,0,3;y3s.jpg"":c/1,0,3;null.jpg",224,302 lsp 22,("yu-ka_h04.jpg")":c/1,0,3;y4s.jpg"":c/1,0,3;null.jpg",224,396 ;はるか lsp 23,("haruka_h01.jpg")":c/1,0,3;h1s.jpg"":c/1,0,3;null.jpg",324,114 lsp 24,("haruka_h02.jpg")":c/1,0,3;h2s.jpg"":c/1,0,3;null.jpg",324,208 lsp 25,("haruka_h03.jpg")":c/1,0,3;h3s.jpg"":c/1,0,3;null.jpg",324,302 lsp 26,("haruka_h04.jpg")":c/1,0,3;h4s.jpg"":c/1,0,3;null.jpg",324,396 ;綾音 lsp 27,("ayane_h01.jpg")":c/1,0,3;a1s.jpg"":c/1,0,3;null.jpg",424,114 lsp 28,("ayane_h02.jpg")":c/1,0,3;a2s.jpg"":c/1,0,3;null.jpg",424,208 lsp 29,("ayane_h03.jpg")":c/1,0,3;a3s.jpg"":c/1,0,3;null.jpg",424,302 lsp 30,("ayane_h04.jpg")":c/1,0,3;a4s.jpg"":c/1,0,3;null.jpg",424,396 ;ビスケ、その他 lsp 31,("bisuke_h01.jpg")":c/1,0,3;b1s.jpg"":c/1,0,3;null.jpg",524,114 lsp 39,("ed_kousuke.jpg")":c/1,0,3;e1s.jpg"":c/1,0,3;null.jpg",524,208 lsp 40,("ed_kou.jpg")":c/1,0,3;e2s.jpg"":c/1,0,3;null.jpg",524,302 ;終了 print 3 ;まず、特殊文字列構文を用いて、既に見たＣＧにはサムネイルを、 ;まだ見てないＣＧには非表示の画像を割り振って表示します。 ;幸子 if fchk "sachi_h01.jpg" spbtn 11,1 if fchk "sachi_h02.jpg" spbtn 12,2 if fchk "sachi_h03.jpg" spbtn 13,3 if fchk "sachi_h04a.jpg" spbtn 14,4 ;ギコ if fchk "giko_h01.jpg" spbtn 15,5 if fchk "giko_h02.jpg" spbtn 16,6 if fchk "giko_h03.jpg" spbtn 17,7 if fchk "giko_h04.jpg" spbtn 18,8 ;優花 if fchk "yu-ka_h01.jpg" spbtn 19,9 if fchk "yu-ka_h02.jpg" spbtn 20,10 if fchk "yu-ka_h03.jpg" spbtn 21,11 if fchk "yu-ka_h04.jpg" spbtn 22,12 ;はるか if fchk "haruka_h01.jpg" spbtn 23,13 if fchk "haruka_h02.jpg" spbtn 24,14 if fchk "haruka_h03.jpg" spbtn 25,15 if fchk "haruka_h04.jpg" spbtn 26,16 ;綾音 if fchk "ayane_h01.jpg" spbtn 27,17 if fchk "ayane_h02.jpg" spbtn 28,18 if fchk "ayane_h03.jpg" spbtn 29,19 if fchk "ayane_h04.jpg" spbtn 30,20 ;ビスケ if fchk "bisuke_h01.jpg" spbtn 31,21 if fchk "ed_kousuke.jpg" spbtn 39,22 if fchk "ed_kou.jpg" spbtn 40,23 ;　そして、スプライトのボタン化。 ;　fchkで比較して、見たことのある画像のみ、ボタン化します。 btnwait %10 if %10==-1 csp -1 :bg black,2 :btndef "" :goto *pre_main if %10==0 goto *cgview2 ;幸子 if %10==1 wave "click.wav" :csp -1 :bg "sachi_h01.jpg",2 :click :goto *cgview2 if %10==2 wave "click.wav" :csp -1 :bg "sachi_h02.jpg",2 :click :goto *cgview2 if %10==3 wave "click.wav" :csp -1 :bg "sachi_h03.jpg",2 :click :goto *cgview2 if %10==4 wave "click.wav" :csp -1 :bg "sachi_h04a.jpg",2 :click if %10==4 && fchk "sachi_h04b.jpg" wave "click.wav" :bg "sachi_h04b.jpg",2 :click if %10==4 && fchk "sachi_h04c.jpg" wave "click.wav" :bg "sachi_h04c.jpg",2 :click if %10==4 goto *cgview2 ;ギコ if %10==5 wave "click.wav" :csp -1 :bg "giko_h01.jpg",2 :click :goto *cgview2 if %10==6 wave "click.wav" :csp -1 :bg "giko_h02.jpg",2 :click :goto *cgview2 if %10==7 wave "click.wav" :csp -1 :bg "giko_h03.jpg",2 :click :goto *cgview2 if %10==8 wave "click.wav" :csp -1 :bg "giko_h04.jpg",2 :click :goto *cgview2 ;優花 if %10==9 wave "click.wav" :csp -1 :bg "yu-ka_h01.jpg",2 :click :goto *cgview2 if %10==10 wave "click.wav" :csp -1 :bg "yu-ka_h02.jpg",2 :click :goto *cgview2 if %10==11 wave "click.wav" :csp -1 :bg "yu-ka_h03.jpg",2 :click :goto *cgview2 if %10==12 wave "click.wav" :csp -1 :bg "yu-ka_h04.jpg",2 :click :goto *cgview2 ;はるか if %10==13 wave "click.wav" :csp -1 :bg "haruka_h01.jpg",2 :click :goto *cgview2 if %10==14 wave "click.wav" :csp -1 :bg "haruka_h02.jpg",2 :click :goto *cgview2 if %10==15 wave "click.wav" :csp -1 :bg "haruka_h03.jpg",2 :click :goto *cgview2 if %10==16 wave "click.wav" :csp -1 :bg "haruka_h04.jpg",2 :click :goto *cgview2 ;綾音 if %10==17 wave "click.wav" :csp -1 :bg "ayane_h01.jpg",2 :click :goto *cgview2 if %10==18 wave "click.wav" :csp -1 :bg "ayane_h02.jpg",2 :click :goto *cgview2 if %10==19 wave "click.wav" :csp -1 :bg "ayane_h03.jpg",2 :click :goto *cgview2 if %10==20 wave "click.wav" :csp -1 :bg "ayane_h04.jpg",2 :click :goto *cgview2 ;ビスケ、その他 if %10==21 wave "click.wav" :csp -1 :bg "bisuke_h01.jpg",2 :click :goto *cgview2 if %10==22 wave "click.wav" :csp -1 :bg "ed_kousuke.jpg",2 :click :goto *cgview2 if %10==23 wave "click.wav" :csp -1 :bg "ed_kou.jpg",2 :click :goto *cgview2 ;　それぞれのボタンのリアクション。 *end btndef "" bg black,2 end *windowset1 ;ウインドゥ無し（全画面テキスト） textoff textclear setwindow 20,20,26,20,22,22,0,2,20,0,1,#777788,0,0,639,479 erasetextwindow 1 setcursor 0,":l/3,160,2;cursor8.bmp",2,2 setcursor 1,":l/4,160,0;cursor2.bmp",2,2 return *windowset2 ;ウインドゥ　中央（長い）９行 textoff textclear setwindow 54,140,26,9,20,20,0,2,20,1,1,#8877bb,40,120,600,360 erasetextwindow 0 setcursor 0,":l/3,160,2;cursor8.bmp",2,2 setcursor 1,":l/4,160,0;cursor2.bmp",2,2 return *windowset3 ;ウインドゥ　５行 textoff textclear setwindow 24,358,29,5,20,20,0,2,20,1,1,#8877bb,10,348,629,474 erasetextwindow 0 setcursor 0,":l/3,160,2;cursor8.bmp",2,2 setcursor 1,":l/4,160,0;cursor2.bmp",2,2 return