009c.txt

*config ;背景は別画面で lsp 200,":c;sys\config.bmp",0,0 lsp 181,":c/2,0,3;sys\window.bmp",247,366 lsp 182,":c/2,0,3;sys\fullsc.bmp",479,366 isfull %temp_num if %temp_num == 1 cell 182,1 if %temp_num == 0 cell 181,1 lsp 185,":a/2,0,3;sys\ya_left.bmp",216,125 lsp 186,":a/2,0,3;sys\ya_right.bmp",715,125 lsp 187,":a/2,0,3;sys\ya_left.bmp",216,205 lsp 188,":a/2,0,3;sys\ya_right.bmp",715,205 lsp 189,":a/2,0,3;sys\ya_left.bmp",216,285 lsp 190,":a/2,0,3;sys\ya_right.bmp",715,285 lsp 191,":a/2,0,3;sys\ya_left.bmp",216,445 lsp 192,":a/2,0,3;sys\ya_right.bmp",715,445 lsp 193,":a/2,0,3;sys\modoru.bmp",644,549 ;バー gosub *config_barload print 3 *config_loop btndef clear gosub *config_exbtnmake exbtn_d $temp_str exbtn 181,1,"P181,1" exbtn 182,2,"P182,1" ;exbtn 183,3,"P183,1" ;exbtn 184,4,"P184,1" spbtn 185,5 spbtn 186,6 spbtn 187,7 spbtn 188,8 spbtn 189,9 spbtn 190,10 spbtn 191,11 spbtn 192,12 spbtn 193,13 btnwait %11 ;右クリック：戻る if %11 == -1 goto *end_config ;前の画面に戻る if %11 == 13 goto *end_config if %11 == 1 menu_window:goto *config_loop if %11 == 2 menu_full:goto *config_loop if %11 == 5 getvoicevol %sys_ya:sub %sys_ya,10:voicevol %sys_ya:gosub *config_barload:print 1:goto *config_loop if %11 == 6 getvoicevol %sys_ya:add %sys_ya,10:voicevol %sys_ya:gosub *config_barload:print 1:goto *config_loop if %11 == 7 getbgmvol %sys_ya:sub %sys_ya,10:bgmvol %sys_ya:gosub *config_barload:print 1:goto *config_loop if %11 == 8 getbgmvol %sys_ya:add %sys_ya,10:bgmvol %sys_ya:gosub *config_barload:print 1:goto *config_loop if %11 == 9 getsevol %sys_ya:sub %sys_ya,10:sevol %sys_ya:gosub *config_barload:print 1:goto *config_loop if %11 == 10 getsevol %sys_ya:add %sys_ya,10:sevol %sys_ya:gosub *config_barload:print 1:goto *config_loop if %11 == 11 sub %sys_auto_time,100:gosub *config_barload:print 1:goto *config_loop if %11 == 12 add %sys_auto_time,100:gosub *config_barload:print 1:goto *config_loop goto *config_loop *end_config csp 200 csp 181 csp 182 ;csp 183 ;csp 184 csp 185 csp 186 csp 187 csp 188 csp 189 csp 190 csp 191 csp 192 csp 193 barclear btndef "" textshow ;タイトル画面から来た if %102 == 1 mov %102,0:goto *title ;ゲーム中から来た return *config_exbtnmake mov $temp_str,"" isfull %temp_num if %temp_num == 1 add $temp_str,"P181,0P182,1" if %temp_num == 0 add $temp_str,"P181,1P182,0" return *config_barload getvoicevol %temp_num bar 1,%temp_num,248,126,452,10,100,#FFFFFF getbgmvol %temp_num bar 2,%temp_num,248,206,452,10,100,#FFFFFF getsevol %temp_num bar 3,%temp_num,248,286,452,10,100,#FFFFFF bar 4,%sys_auto_time,248,446,452,10,2000,#FFFFFF ;色候補：#99CCFB return
 * ――――――――――――――――――――環境設定ラベル