*define
; 定義部分------------------------------------------
        nsa
        caption "2ch ２次元板でエロゲーを作ろう！ デバック仕様版"
        transmode alpha
        filelog
        labellog
        defaultspeed 40,20,0
        effectcut
        effect 2,10,500
        effect 3,10,250
        effect 4,2,500
        effect 5,10,1000
;２番、３番、５番クロスフェード（長、短、最長）
;４番、カーテンフェード
        windoweffect 10,250
;ウィンドウ消去時のエフェクト、クロスフェード
        clickstr "」。？！",1
;自動クリック待ち指定となる文字
        rmenu "ウインドウを消す",windowerase,"少し戻る",lookback,"セーブ",save,"ロード",load,"タイトルに戻る",reset
        killmenu 4 : killmenu 6
        clickvoice "","page.wav"
        versionstr "デバック仕様版β","2ch ２次元板でエロゲーを作ろう！"
        mode_saya
        game
; 実行部分------------------------------------------
*start
;注意の表示です。
        bg "caution.jpg",2
        delay 3000
        bg black,2

*pre_main
        mov %1,0
        play "main.mid"
        wait 1300

*main_menu
        textoff
        textclear
        bg "title01.jpg",5
        setwindow 8,16,20,23,26,26,0,2,20,1,1,#999999,0,0,639,479
        btndef clear
        lsp 1,"bar.jpg",15,440
        lsp 2,":a/2,0,3;start.jpg",29,440
        lsp 3,":a/2,0,3;load.jpg",119,440
        lsp 4,":a/2,0,3;cgview.jpg",209,440
        lsp 5,":a/2,0,3;end.jpg",298,440
        print 1
        exbtn_d "P2,0P3,0P4,0P5,0"
        exbtn 2,1,"P2,1P3,0P4,0P5,0"
        exbtn 3,2,"P2,0P3,1P4,0P5,0"
        exbtn 4,3,"P2,0P3,0P4,1P5,0"
        exbtn 5,4,"P2,0P3,0P4,0P5,1"
        btnwait %1
        if %1<=0 goto *main_menu
        if %1==1 wave "click.wav" :csp -1 :print 2 :goto *chara_select
        if %1==2 wave "click.wav" :csp -1 :print 2 :goto *cont
        if %1==3 wave "click.wav" :csp -1 :print 2 :goto *cgview
        if %1==4 wave "click.wav" :csp -1 :print 2 :goto *end

*chara_select
        csp -1
        bg "title03.jpg",5
        mov %1,0
        mov %2,0
        btndef clear
        lsph 1,":a/6,0,3;5mask.jpg",26,95
        lsp 2,":a/2,2,3;s_btn.jpg",35,380
        lsp 3,":a/2,2,3;g_btn.jpg",139,380
        lsp 4,":a/2,2,3;y_btn.jpg",237,380
        lsp 5,":a/2,2,3;h_btn.jpg",324,380
        lsp 6,":a/2,2,3;a_btn.jpg",437,380
        lsp 7,":a/2,2,3;hoka_btn.jpg",520,380
        lsph 8,":c;bis_top.jpg",470,301
        print 1
        exbtn_d "C1P2,0P3,0P4,0P5,0P6,0P7,0C8"
        exbtn 2,1,"P1,1P2,1P3,0P4,0P5,0P6,0P7,0C8"
        exbtn 3,2,"P1,2P2,0P3,1P4,0P5,0P6,0P7,0C8"
        exbtn 4,3,"P1,3P2,0P3,0P4,1P5,0P6,0P7,0C8"
        exbtn 5,4,"P1,4P2,0P3,0P4,0P5,1P6,0P7,0C8"
        exbtn 6,5,"P1,5P2,0P3,0P4,0P5,0P6,1P7,0C8"
        exbtn 7,6,"P1,0P2,0P3,0P4,0P5,0P6,0P7,1P8"
        btnwait %1
        if %1<=-1 csp -1 :goto *main_menu
        if %1==0 goto *chara_select
        if %1==6 wave "click.wav" :cell 1,0 :vsp 1,1 :csp 2 :csp 3 :csp 4 :csp 5 :csp 6 :csp 7 :print 1 :mul %1,10 :mov %2,%1 :goto *loot_select
        if %1>=0 wave "click.wav" :cell 1,%1 :vsp 1,1 :csp 2 :csp 3 :csp 4 :csp 5 :csp 6 :csp 7 :print 1 :mul %1,10 :mov %2,%1 :goto *loot_select
*loot_select
        btndef clear
        if %2==60 goto *sonota
        csp 8
        lsp 2,":s#bbbbbb#ffffff浩介ルート",245,360
        lsp 3,":s#bbbbbb#ffffff浩　ルート",245,390
        cell 2,0 :cell 3,0
        print 1
        spbtn 2,1
        spbtn 3,2
        btnwait %1
        if %1<=-1 goto *chara_select
        if %1==0 goto *loot_select
        if %1==1 wave "click.wav" :goto *bunki
        if %1==2 wave "click.wav" :add %2,5 :goto *bunki
*sonota
        btndef clear
        lsp 2,":s#bbbbbb#ffffff浩介ルートＥＤ",220,360
        lsp 3,":s#bbbbbb#ffffff浩　ルートＥＤ",220,390
        lsp 4,":s#bbbbbb#ffffffビスケ　ルート",220,420
        lsp 5,":s#bbbbbb#ffffffＯＰ　ルート",220,450
        cell 2,0 :cell 3,0 :cell 4,0 :cell 5,0
        print 1
        spbtn 2,1
        spbtn 3,2
        spbtn 4,3
        spbtn 5,4
        btnwait %1
        if %1<=-1 goto *chara_select
        if %1==0 goto *sonota
        if %1==1 wave "click.wav" :goto *bunki
        if %1==2 wave "click.wav" :add %2,5 :goto *bunki
        if %1==3 wave "click.wav" :mov %2,26 :goto *bunki
        if %1==4 wave "click.wav" :mov %2,1 :goto *bunki
*bunki
        csp -1
        if %2==1 goto *scen_op
        if %2==10 goto *scen_sachiko_kousuke
        if %2==15 goto *scen_sachiko_kou
        if %2==20 goto *scen_giko_kousuke
        if %2==25 goto *scen_giko_kou
        if %2==26 goto *scen_bisuke_kou
        if %2==30 goto *scen_yu_ka_kousuke
        if %2==35 goto *scen_yu_ka_kou
        if %2==40 goto *scen_haruka_kousuke
        if %2==45 goto *scen_haruka_kou
        if %2==50 goto *scen_ayane_kousuke
        if %2==55 goto *scen_ayane_kou
        if %2==60 goto *scen_ed_kousuke
        if %2==65 goto *scen_ed_kou
        goto *scen_exit