game



*start

	if %gamefirst=0 mov %textspeed,15		;????????????
	if %gamefirst=0 mov %autotime,1000		;???????????
	if %gamefirst=0 mov %bgmvol,50			;BGM?????????
	if %gamefirst=0 mov %sevol,80			;SE?????????

	mov %gamefirst,1				;???????

	if %gamefirst=1 textspeed %textspeed		;??????????
	if %gamefirst=1 bgmvol %bgmvol			;BGM???????
	if %gamefirst=1 sevol %sevol			;SE???????

	erasetextwindow 0				;?????????????????

	lookbackflush					;???????

;goto *game_start

;===============================================================
;??????
;===============================================================

;??????--------------------------------------------------------

*title
	
	saveoff
	lsp 107,":a;2Q\system\logo.bmp",79,100
	lsp 700,":c;bg\bg164.bmp",0,0
	lsp 701,":c;2Q\bg\error.bmp",20,100
	;bg "bg\bg164.bmp",10,1500

	;mov %ng_clear,2
	bgm"2Q\bgm\gn_night.ogg"
	
	wait 1000

;????????--------------------------------------------------------

*title_logo

	lsp 102,":c/2,0,3;system\title_start.jpg",340,380	;???????????
	print 10,400						;??????
	lsp 103,":c/2,0,3;system\title_load.jpg",340,410	;????????????
	print 10,400						;???????
	lsp 104,":c/2,0,3;system\title_config.jpg",340,440	;??????????????
	print 10,400						;?????????
	lsp 105,":c/2,0,3;system\title_extra.jpg",340,470	;??????????????
	print 10,400						;?????????
	lsp 106,":c/2,0,3;system\title_exit.jpg",340,500	;???????????
	print 10,400						;??????

;?????????????????????????????????


;?????--------------------------------------------------------

*title_menu

	btndef clear

	lsp 107,":a;2Q\system\logo.bmp",79,100
	bg "bg\bg164.bmp",1					;????????


	lsp 102,":c/2,0,3;system\title_start.jpg",340,380	;??????
	lsp 103,":c/2,0,3;system\title_load.jpg",340,410	;???????
	lsp 104,":c/2,0,3;system\title_config.jpg",340,440	;?????????
	lsp 105,":c/2,0,3;system\title_extra.jpg",340,470	;???????
	lsp 106,":c/2,0,3;system\title_exit.jpg",340,500	;??????
	print 1							;????

	spbtn 102,102
	spbtn 103,103
	spbtn 104,104
	spbtn 105,105
	spbtn 106,106

	btnwait %bwait

	if %bwait==102 csp -1 : bgmstop : bg black,10,2000 : waittimer 2000 : saveon : goto *game_start	;???
	if %bwait==103 csp -1 : mov %saveorload,1 : mov %skipthisshit,1 : gosub *saveload				;????
	if %bwait==104 csp -1 : gosub *config 						;??????
	if %bwait==105 csp -1 : bgm"2Q\bgm\zukan.ogg":gosub *extra				;??????
	if %bwait==106 csp -1 : gosub *game_end						;?????

goto *title_menu

;???????????????*title_menu?????????????

;===============================================================
;???????
;===============================================================

*setwindow_01;??

name ""
mov %txtwindow,1
setwindow3  50,440,39,5,18,18,0,10,10,1,1,#ffffff,50,440,799,599 : textspeed %textspeed
 if %window_type=0 lsp 611,":a;system\window1.bmp",25,400
 if %window_type=1 lsp 611,":a;system\window1a.bmp",25,400
 if %window_type=2 lsp 611,":a;system\window1c.bmp",25,400
 if %window_type=3 lsp 611,":a;system\window1c.bmp",25,400
 if %window_type=4 lsp 611,":a;system\window1d.bmp",25,400
 if %window_type=5 lsp 611,":a;system\window1e.bmp",25,400
 print 10,1
 mov %con_hbgm,0
 return

*setwindow_01p;??

name ""
mov %txtwindow,1
setwindow3  50,440,39,5,18,18,0,10,10,1,1,#ffffff,50,440,799,599 : textspeed %textspeed
 if %window_type=0 lsp 611,":a;system\window1.bmp",25,400
 if %window_type=1 lsp 611,":a;system\window1a.bmp",25,400
 if %window_type=2 lsp 611,":a;system\window1c.bmp",25,400
 if %window_type=3 lsp 611,":a;system\window1.bmp",25,400
 if %window_type=4 lsp 611,":a;system\window1a.bmp",25,400
 if %window_type=5 lsp 611,":a;system\window1c.bmp",25,400
print 10,1
mov %con_hbgm,0
return

*setwindow_02;??

name ""
csp 4
csp 5
csp 6
mov %txtwindow,2
setwindow3  50,435,39,3,18,18,0,10,10,1,1,#ffffff,50,435,799,599 : textspeed %textspeed
if %window_type=0 && %player=0 lsp 611,":a;system\window2.bmp",25,400
if %window_type=1 && %player=0 lsp 611,":a;system\window2a.bmp",25,400
if %window_type=2 && %player=0 lsp 611,":a;system\window2c.bmp",25,400
if %window_type=3 && %player=0 lsp 611,":a;system\window2c.bmp",25,400
if %window_type=4 && %player=0 lsp 611,":a;system\window2d.bmp",25,400
if %window_type=5 && %player=0 lsp 611,":a;system\window2e.bmp",25,400
if %window_type=0 && %player=1 lsp 611,":a;system\window2_al.bmp",25,400
if %window_type=1 && %player=1 lsp 611,":a;system\window2a_al.bmp",25,400
if %window_type=2 && %player=1 lsp 611,":a;system\window2c_al.bmp",25,400
if %window_type=3 && %player=1 lsp 611,":a;system\window2c_al.bmp",25,400
if %window_type=4 && %player=1 lsp 611,":a;system\window2d_al.bmp",25,400
if %window_type=5 && %player=1 lsp 611,":a;system\window2e_al.bmp",25,400
if %window_type=0 && %player=99 lsp 611,":a;system\window2_x.bmp",25,400
if %window_type=1 && %player=99 lsp 611,":a;system\window2a_x.bmp",25,400
if %window_type=2 && %player=99 lsp 611,":a;system\window2c_x.bmp",25,400
if %window_type=3 && %player=99 lsp 611,":a;system\window2c_x.bmp",25,400
if %window_type=4 && %player=99 lsp 611,":a;system\window2d_x.bmp",25,400
if %window_type=5 && %player=99 lsp 611,":a;system\window2e_x.bmp",25,400
 print 10,1
return



*setwindow_02p;??

name ""
csp 5
csp 6
mov %txtwindow,2
setwindow3  50,435,39,3,18,18,0,10,10,1,1,#ffffff,50,435,799,599 : textspeed %textspeed
if %window_type=0 && %player=0 lsp 611,":a;system\window2.bmp",25,400
if %window_type=1 && %player=0 lsp 611,":a;system\window2a.bmp",25,400
if %window_type=2 && %player=0 lsp 611,":a;system\window2c.bmp",25,400
if %window_type=3 && %player=0 lsp 611,":a;system\window2c.bmp",25,400
if %window_type=4 && %player=0 lsp 611,":a;system\window2d.bmp",25,400
if %window_type=5 && %player=0 lsp 611,":a;system\window2e.bmp",25,400
if %window_type=0 && %player=1 lsp 611,":a;system\window2_al.bmp",25,400
if %window_type=1 && %player=1 lsp 611,":a;system\window2a_al.bmp",25,400
if %window_type=2 && %player=1 lsp 611,":a;system\window2c_al.bmp",25,400
if %window_type=3 && %player=1 lsp 611,":a;system\window2c_al.bmp",25,400
if %window_type=4 && %player=1 lsp 611,":a;system\window2d_al.bmp",25,400
if %window_type=5 && %player=1 lsp 611,":a;system\window2e_al.bmp",25,400
if %window_type=0 && %player=2 lsp 611,":a;2Q\window2_gr.bmp",25,400
if %window_type=1 && %player=2 lsp 611,":a;2Q\window2a_gr.bmp",25,400
if %window_type=2 && %player=2 lsp 611,":a;2Q\window2c_gr.bmp",25,400
if %window_type=3 && %player=2 lsp 611,":a;2Q\window2c_gr.bmp",25,400
if %window_type=4 && %player=2 lsp 611,":a;2Q\window2d_gr.bmp",25,400
if %window_type=5 && %player=2 lsp 611,":a;2Q\window2e_gr.bmp",25,400
if %window_type=0 && %player=99 lsp 611,":a;system\window2_x.bmp",25,400
if %window_type=1 && %player=99 lsp 611,":a;system\window2a_x.bmp",25,400
if %window_type=2 && %player=99 lsp 611,":a;system\window2c_x.bmp",25,400
if %window_type=3 && %player=99 lsp 611,":a;system\window2c_x.bmp",25,400
if %window_type=4 && %player=99 lsp 611,":a;system\window2d_x.bmp",25,400
if %window_type=5 && %player=99 lsp 611,":a;system\window2e_x.bmp",25,400
print 1
return



*setwindow_03;???????

name ""
setwindow3 210,175,31,8,18,18,0,10,10,1,1,#999999,190,165,780,435 : textspeed %textspeed
return



*setwindow_04;????

name ""
csp 5
csp 6
if %window_type=0 lsp 7,":c/2,0,3;system\mini_menu_screen.jpg",634,387
if %window_type=1 lsp 7,":c/2,0,3;system\mini_menu_screen.jpg",634,387
if %window_type=2 lsp 7,":c/2,0,3;system\mini_menub_screen.jpg",634,387
if %window_type=3 lsp 7,":c/2,0,3;system\mini_menuc_screen.jpg",634,387
if %window_type=4 lsp 7,":c/2,0,3;system\mini_menud_screen.jpg",634,387
if %window_type=5 lsp 7,":c/2,0,3;system\mini_menue_screen.jpg",634,387
spbtn 7,7
if %saveloadoff=0 && %saveoff=0 && %window_type=0 lsp 3,":c/2,0,3;system\mini_menu_save.jpg",679,387
if %saveloadoff=0 && %saveoff=0 && %window_type=1 lsp 3,":c/2,0,3;system\mini_menu_save.jpg",679,387
if %saveloadoff=0 && %saveoff=0 && %window_type=2 lsp 3,":c/2,0,3;system\mini_menub_save.jpg",679,387
if %saveloadoff=0 && %saveoff=0 && %window_type=3 lsp 3,":c/2,0,3;system\mini_menuc_save.jpg",679,387
if %saveloadoff=0 && %saveoff=0 && %window_type=4 lsp 3,":c/2,0,3;system\mini_menud_save.jpg",679,387
if %saveloadoff=0 && %saveoff=0 && %window_type=5 lsp 3,":c/2,0,3;system\mini_menue_save.jpg",679,387
if %saveloadoff=0 && %saveoff=0 spbtn 3,3
if %saveloadoff=0 && %window_type=0 lsp 4,":c/2,0,3;system\mini_menu_load.jpg",724,387
if %saveloadoff=0 && %window_type=1 lsp 4,":c/2,0,3;system\mini_menu_load.jpg",724,387
if %saveloadoff=0 && %window_type=2 lsp 4,":c/2,0,3;system\mini_menub_load.jpg",724,387
if %saveloadoff=0 && %window_type=3 lsp 4,":c/2,0,3;system\mini_menuc_load.jpg",724,387
if %saveloadoff=0 && %window_type=4 lsp 4,":c/2,0,3;system\mini_menud_load.jpg",724,387
if %saveloadoff=0 && %window_type=5 lsp 4,":c/2,0,3;system\mini_menue_load.jpg",724,387
if %saveloadoff=0 spbtn 4,4
if %zukanon>0 && %window_type=0 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,387
if %zukanon>0 && %window_type=1 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,387
if %zukanon>0 && %window_type=2 lsp 4,":c/2,0,3;system\mini_menub_return.jpg",724,387
if %zukanon>0 && %window_type=3 lsp 4,":c/2,0,3;system\mini_menuc_return.jpg",724,387
if %zukanon>0 && %window_type=4 lsp 4,":c/2,0,3;system\mini_menud_return.jpg",724,387
if %zukanon>0 && %window_type=5 lsp 4,":c/2,0,3;system\mini_menue_return.jpg",724,387
if %zukanon>0 spbtn 4,4

if %window_type=0 && %player=0 lsp 611,":a;system\window3.bmp",25,370
if %window_type=1 && %player=0 lsp 611,":a;system\window3a.bmp",25,370
if %window_type=2 && %player=0 lsp 611,":a;system\window3c.bmp",25,370
if %window_type=3 && %player=0 lsp 611,":a;system\window3c.bmp",25,370
if %window_type=4 && %player=0 lsp 611,":a;system\window3d.bmp",25,370
if %window_type=5 && %player=0 lsp 611,":a;system\window3e.bmp",25,370
if %window_type=0 && %player=1 lsp 611,":a;system\window3_al.bmp",25,370
if %window_type=1 && %player=1 lsp 611,":a;system\window3a_al.bmp",25,370
if %window_type=2 && %player=1 lsp 611,":a;system\window3b_al.bmp",25,370
if %window_type=3 && %player=1 lsp 611,":a;system\window3c_al.bmp",25,370
if %window_type=4 && %player=1 lsp 611,":a;system\window3d_al.bmp",25,370
if %window_type=5 && %player=1 lsp 611,":a;system\window3e_al.bmp",25,370
if %window_type=0 && %player=2 lsp 611,":a;2Q\window3_gr.bmp",25,370
if %window_type=1 && %player=2 lsp 611,":a;2Q\window3a_gr.bmp",25,370
if %window_type=2 && %player=2 lsp 611,":a;2Q\window3b_gr.bmp",25,370
if %window_type=3 && %player=2 lsp 611,":a;2Q\window3c_gr.bmp",25,370
if %window_type=4 && %player=2 lsp 611,":a;2Q\window3d_gr.bmp",25,370
if %window_type=5 && %player=2 lsp 611,":a;2Q\window3e_gr.bmp",25,370
if %window_type=0 && %player=99 lsp 611,":a;system\window3_x.bmp",25,370
if %window_type=1 && %player=99 lsp 611,":a;system\window3a_x.bmp",25,370
if %window_type=2 && %player=99 lsp 611,":a;system\window3b_x.bmp",25,370
if %window_type=3 && %player=99 lsp 611,":a;system\window3c_x.bmp",25,370
if %window_type=4 && %player=99 lsp 611,":a;system\window3d_x.bmp",25,370
if %window_type=5 && %player=99 lsp 611,":a;system\window3e_x.bmp",25,370
csp 3:print 10,1
return

*setwindow_05;???????

if %window_type=0 lsp 550,":a;system\window4.bmp",25,50
if %window_type=1 lsp 550,":a;system\window4a.bmp",25,50
if %window_type=2 lsp 550,":a;system\window4c.bmp",25,50
if %window_type=3 lsp 550,":a;system\window4c.bmp",25,50
if %window_type=4 lsp 550,":a;system\window4d.bmp",25,50
if %window_type=5 lsp 550,":a;system\window4e.bmp",25,50
return



;===============================================================
;?????
;===============================================================


*customsel

gosub *vanish_sprite

	btndef clear

	saveoff
	textoff
	mov %sinkoumode,0 : skipoff : autoclick 0	;????&????????

	getcselnum %selectnum		;????????
	getcselstr $select00,0		;???1???????
	getcselstr $select01,1		;???2???????
	getcselstr $select02,2		;???3???????
	getcselstr $select03,3		;???4???????

	exbtn_d "P553,0P555,0P557,0P551,0"

	if %selectnum>=1 lsp 553,":s/24,24,1;#FFFFFF#FF4444"+$select00,172,203	;???1
	if %selectnum>=1 lsp 554,":a/2,0,3;system\select_window2.jpg",150,190	;???1???
	exbtn 554,554,"P553,1"							;???????

	if %selectnum>=2 lsp 555,":s/24,24,1;#FFFFFF#FF4444"+$select01,172,263	;???2
	if %selectnum>=2 lsp 556,":a/2,0,3;system\select_window2.jpg",150,250	;???2???
	exbtn 556,556,"P555,1"							;???????

	if %selectnum>=3 lsp 557,":s/24,24,1;#FFFFFF#FF4444"+$select02,172,323	;???3
	if %selectnum>=3 lsp 558,":a/2,0,3;system\select_window2.jpg",150,310	;???3???
	exbtn 558,558,"P557,1"							;???????


	if %selectnum>=4 lsp 551,":s/24,24,1;#FFFFFF#FF4444"+$select03,172,383	;???4
	if %selectnum>=4 lsp 552,":a/2,0,3;system\select_window2.jpg",150,370	;???4???
	exbtn 552,552,"P551,1"							;???????

	print 10,100

	btnwait %bwait
	if %bwait=554 btndef clear : barclear : cspl 551,558 :print 1:texton :gosub *appear_sprite :print 1:mov %sentaku,1 : cselgoto 0	;?????=???1
	if %bwait=556 btndef clear : barclear : cspl 551,558 :print 1:texton :gosub *appear_sprite :print 1:mov %sentaku,2 : cselgoto 1	;?????=???2
	if %bwait=558 btndef clear : barclear : cspl 551,558 :print 1:texton :gosub *appear_sprite :print 1:mov %sentaku,3 : cselgoto 2	;?????=???3
	if %bwait=552 btndef clear : barclear : cspl 551,558 :print 1:texton :gosub *appear_sprite :print 1:mov %sentaku,4 : cselgoto 3

	;??????
	if %bwait= -1 && %manuoff=0 gosub *menu			;?????
	if %bwait=-10 && %manuoff=0 gosub *menu			;ESC??
	if %bwait=-11 && %manuoff=0 gosub *menu			;????

	;?????
	if %bwait= -2 gosub *backlog 			;?????
	if %bwait=-12 gosub *backlog 			;PageUp??
	if %bwait=-40 gosub *backlog			;?????

	goto *customsel



;======================================================================
;????????
;======================================================================

*pretext_save
	saveon
	saveoff
	return


*text_btn

isskip %sinkouonoff
if %sinkouonoff=1 skip 2
if %battle=1 && %battle_auto=1 automode_time %autotime : systemcall automode
btndef clear

texton									;??????
saveon

if %nobtn=1 vspl 3,7,0

if %nobtn=0 && %window_type=0 lsp 7,":c/2,0,3;system\mini_menu_screen.jpg",544,419
if %nobtn=0 && %window_type=1 lsp 7,":c/2,0,3;system\mini_menu_screen.jpg",544,419
if %nobtn=0 && %window_type=2 lsp 7,":c/2,0,3;system\mini_menub_screen.jpg",544,419
if %nobtn=0 && %window_type=3 lsp 7,":c/2,0,3;system\mini_menuc_screen.jpg",544,419
if %nobtn=0 && %window_type=4 lsp 7,":c/2,0,3;system\mini_menud_screen.jpg",544,419
if %nobtn=0 && %window_type=5 lsp 7,":c/2,0,3;system\mini_menue_screen.jpg",544,419
if %nobtn=0 spbtn 7,2	;?????????

if %nobtn=0 && %saveloadoff=0 && %saveoff=0 && %window_type=0 lsp 3,":c/2,0,3;system\mini_menu_save.jpg",679,419
if %nobtn=0 && %saveloadoff=0 && %saveoff=0 && %window_type=1 lsp 3,":c/2,0,3;system\mini_menu_save.jpg",679,419
if %nobtn=0 && %saveloadoff=0 && %saveoff=0 && %window_type=2 lsp 3,":c/2,0,3;system\mini_menub_save.jpg",679,419
if %nobtn=0 && %saveloadoff=0 && %saveoff=0 && %window_type=3 lsp 3,":c/2,0,3;system\mini_menuc_save.jpg",679,419
if %nobtn=0 && %saveloadoff=0 && %saveoff=0 && %window_type=4 lsp 3,":c/2,0,3;system\mini_menud_save.jpg",679,419
if %nobtn=0 && %saveloadoff=0 && %saveoff=0 && %window_type=5 lsp 3,":c/2,0,3;system\mini_menue_save.jpg",679,419
if %nobtn=0 && %saveloadoff=0 && %saveoff=0 spbtn 3,3	;??????????

if %nobtn=0 && %saveloadoff=0 && %window_type=0 lsp 4,":c/2,0,3;system\mini_menu_load.jpg",724,419
if %nobtn=0 && %saveloadoff=0 && %window_type=1 lsp 4,":c/2,0,3;system\mini_menu_load.jpg",724,419
if %nobtn=0 && %saveloadoff=0 && %window_type=2 lsp 4,":c/2,0,3;system\mini_menub_load.jpg",724,419
if %nobtn=0 && %saveloadoff=0 && %window_type=3 lsp 4,":c/2,0,3;system\mini_menuc_load.jpg",724,419
if %nobtn=0 && %saveloadoff=0 && %window_type=4 lsp 4,":c/2,0,3;system\mini_menud_load.jpg",724,419
if %nobtn=0 && %saveloadoff=0 && %window_type=5 lsp 4,":c/2,0,3;system\mini_menue_load.jpg",724,419
if %nobtn=0 && %saveloadoff=0 spbtn 4,4	;??????????

if %nobtn=0 && %zukanon=2 && %window_type=0 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,419
if %nobtn=0 && %zukanon=2 && %window_type=1 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,419
if %nobtn=0 && %zukanon=2 && %window_type=2 lsp 4,":c/2,0,3;system\mini_menub_return.jpg",724,419
if %nobtn=0 && %zukanon=2 && %window_type=3 lsp 4,":c/2,0,3;system\mini_menuc_return.jpg",724,419
if %nobtn=0 && %zukanon=2 && %window_type=4 lsp 4,":c/2,0,3;system\mini_menud_return.jpg",724,419
if %nobtn=0 && %zukanon=2 && %window_type=5 lsp 4,":c/2,0,3;system\mini_menue_return.jpg",724,419
if %nobtn=0 && %zukanon=2 spbtn 4,4

;============================================================???:?????? 2011/11/24 ?START?
;??	????? return???
;==========================================================================================================
	if %nobtn=0 && %mon_labo_on=1 && %window_type=0 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,419
	if %nobtn=0 && %mon_labo_on=1 && %window_type=1 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,419
	if %nobtn=0 && %mon_labo_on=1 && %window_type=2 lsp 4,":c/2,0,3;system\mini_menub_return.jpg",724,419
	if %nobtn=0 && %mon_labo_on=1 && %window_type=3 lsp 4,":c/2,0,3;system\mini_menuc_return.jpg",724,419
	if %nobtn=0 && %mon_labo_on=1 && %window_type=4 lsp 4,":c/2,0,3;system\mini_menud_return.jpg",724,419
	if %nobtn=0 && %mon_labo_on=1 && %window_type=5 lsp 4,":c/2,0,3;system\mini_menue_return.jpg",724,419
	if %nobtn=0 && %mon_labo_on=1 spbtn 4,4
;================================================================???:?????? 2011/11/24 ?END?

if %nobtn=0 && %zukanon=1 && %zukanreturnoff=0 && %hsean=1 && %window_type=0 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,419
if %nobtn=0 && %zukanon=1 && %zukanreturnoff=0 && %hsean=1 && %window_type=1 lsp 4,":c/2,0,3;system\mini_menu_return.jpg",724,419
if %nobtn=0 && %zukanon=1 && %zukanreturnoff=0 && %hsean=1 && %window_type=2 lsp 4,":c/2,0,3;system\mini_menub_return.jpg",724,419
if %nobtn=0 && %zukanon=1 && %zukanreturnoff=0 && %hsean=1 && %window_type=3 lsp 4,":c/2,0,3;system\mini_menuc_return.jpg",724,419
if %nobtn=0 && %zukanon=1 && %zukanreturnoff=0 && %hsean=1 && %window_type=4 lsp 4,":c/2,0,3;system\mini_menud_return.jpg",724,419
if %nobtn=0 && %zukanon=1 && %zukanreturnoff=0 && %hsean=1 && %window_type=5 lsp 4,":c/2,0,3;system\mini_menue_return.jpg",724,419
if %nobtn=0 && %zukanon=1 && %zukanreturnoff=0 && %hsean=1 spbtn 4,4

if %nobtn=0 && %sinkouonoff=1 && %window_type=0 lsp 5,":c;system\mini_menu_skip_on.jpg",589,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=1 lsp 5,":c;system\mini_menu_skip_on.jpg",589,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=2 lsp 5,":c;system\mini_menub_skip_on.jpg",589,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=3 lsp 5,":c;system\mini_menuc_skip_on.jpg",589,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=4 lsp 5,":c;system\mini_menud_skip_on.jpg",589,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=5 lsp 5,":c;system\mini_menue_skip_on.jpg",589,419	;?????????????

if %nobtn=0 && %sinkouonoff=0 && %window_type=0 lsp 5,":c/2,0,3;system\mini_menu_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=1 lsp 5,":c/2,0,3;system\mini_menu_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=2 lsp 5,":c/2,0,3;system\mini_menub_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=3 lsp 5,":c/2,0,3;system\mini_menuc_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=4 lsp 5,":c/2,0,3;system\mini_menud_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=5 lsp 5,":c/2,0,3;system\mini_menue_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 spbtn 5,5	;???????????

if %nobtn=0 && %sinkouonoff=0 && %window_type=0 lsp 5,":c/2,0,3;system\mini_menu_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=1 lsp 5,":c/2,0,3;system\mini_menu_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=2 lsp 5,":c/2,0,3;system\mini_menub_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=3 lsp 5,":c/2,0,3;system\mini_menuc_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=4 lsp 5,":c/2,0,3;system\mini_menud_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=5 lsp 5,":c/2,0,3;system\mini_menue_skip.jpg",589,419
if %nobtn=0 && %sinkouonoff=2 spbtn 5,5	;???????????

if %nobtn=0 && %sinkouonoff=2 && %window_type=0 lsp 6,":c;system\mini_menu_auto_on.jpg",634,419
if %nobtn=0 && %sinkouonoff=2 && %window_type=1 lsp 6,":c;system\mini_menu_auto_on.jpg",634,419
if %nobtn=0 && %sinkouonoff=2 && %window_type=2 lsp 6,":c;system\mini_menub_auto_on.jpg",634,419
if %nobtn=0 && %sinkouonoff=2 && %window_type=3 lsp 6,":c;system\mini_menuc_auto_on.jpg",634,419
if %nobtn=0 && %sinkouonoff=2 && %window_type=4 lsp 6,":c;system\mini_menud_auto_on.jpg",634,419
if %nobtn=0 && %sinkouonoff=2 && %window_type=5 lsp 6,":c;system\mini_menue_auto_on.jpg",634,419	;????????????

if %nobtn=0 && %sinkouonoff=0 && %window_type=0 lsp 6,":c/2,0,3;system\mini_menu_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=1 lsp 6,":c/2,0,3;system\mini_menu_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=2 lsp 6,":c/2,0,3;system\mini_menub_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=3 lsp 6,":c/2,0,3;system\mini_menuc_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=4 lsp 6,":c/2,0,3;system\mini_menud_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=0 && %window_type=5 lsp 6,":c/2,0,3;system\mini_menue_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=0 spbtn 6,6	;??????????

if %nobtn=0 && %sinkouonoff=1 && %window_type=0 lsp 6,":c/2,0,3;system\mini_menu_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=1 lsp 6,":c/2,0,3;system\mini_menu_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=2 lsp 6,":c/2,0,3;system\mini_menub_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=3 lsp 6,":c/2,0,3;system\mini_menuc_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=4 lsp 6,":c/2,0,3;system\mini_menud_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=1 && %window_type=5 lsp 6,":c/2,0,3;system\mini_menue_auto.jpg",634,419
if %nobtn=0 && %sinkouonoff=1 spbtn 6,6	;??????????

gettext $savetextget						;??????
getscreenshot 120,90							;???????????

ispage %textkai								;???????????????
getcursorpos %textlastx,%textlasty					;?????????????

lsph 0,":l/2,160,0;system\cursor0.bmp",0,0				;????????
lsph 1,":l/2,160,0;system\cursor1.bmp",0,0				;??????????

if %textkai=0 amsp 0,%textlastx,%textlasty+7:vsp 0,1:vsp 1,0		;??????????
if %textkai=1 amsp 1,%textlastx,%textlasty+7:vsp 1,1:vsp 0,0		;????????????

print 1

getenter
getcursor
getpage
getskipoff

textbtnwait %bwait

;??????
if %bwait=  0 texec : vsp 0,0 : vsp 1,0 : print 1 : return			;?????
if %bwait= -3 texec : vsp 0,0 : vsp 1,0 : print 1 : return			;?????
if %bwait=-13 texec : vsp 0,0 : vsp 1,0 : print 1 : return			;PageDown
if %bwait=-19 texec : vsp 0,0 : vsp 1,0 : print 1 : return			;Enter??
if %bwait=-42 texec : vsp 0,0 : vsp 1,0 : print 1 : return			;?????

;??????
if %bwait= -1 && %manuoff=0 textoff : vsp 0,0 : vsp 1,0 : print 1 : gosub *menu		;?????
if %bwait=-10 && %manuoff=0 textoff : vsp 0,0 : vsp 1,0 : print 1 : gosub *menu		;ESC??
if %bwait=-11 && %manuoff=0 textoff : vsp 0,0 : vsp 1,0 : print 1 : gosub *menu		;????

if %bwait= -2 textoff : vsp 0,0 : vsp 1,0 : print 1 : gosub *backlog 		;?????...?????


;???????

if %bwait=2 textoff : gosub *window_delete					;???????

;================================================================???:?????? 2011/11/24 ?END?
;??	????? return???
;==========================================================================================================

	if %bwait=4 && %mon_labo_on=1 textoff: screen_clear: return *monster_labo

;================================================================???:?????? 2011/11/24 ?END?

if %zukanon=2 && %bwait=4 mov %zukanon,1:textoff:mov %hseanwave,0:hseanwave:return *zukan_commonkaisou0
if %zukanon=1 && %hsean=1 && %bwait=4 textoff:mov %hseanwave,0:hseanwave:return *zukan_commonkaisou0

if %bwait=3 textoff : mov %saveorload,0 :screen_vanish: gosub *saveload	:screen_appear:print 1		;?????????????
if %bwait=4 textoff : mov %saveorload,1 :screen_vanish: gosub *saveload	:screen_appear:print 1		;?????????????

if %bwait=5 screen_clear : systemcall skip	;???????
if %bwait=6 screen_clear : automode_time %autotime : systemcall automode	;??????

if %bwait=7 textoff : gosub *backlog						;??????
if %bwait=8 textoff : gosub *config						;??????

goto *text_btn




;======================================================================
;???????
;======================================================================

*window_delete

	textoff
	btndef clear
	barclear
		for %sub1=0 to 670 step 1
		vsp %sub1,0
		next
	print 1

	btnwait %bwait
		for %sub1=0 to 670 step 1
		vsp %sub1,1
		next
	print 1
return


*window_delete2

	textoff
	btndef clear
	barclear
		for %sub1=2 to 670 step 1
		vsp %sub1,0
		next
	print 1

	btnwait %bwait
		for %sub1=2 to 670 step 1
		vsp %sub1,1
		next
	print 1
return


;======================================================================
;????
;======================================================================

*reset

	yesnobox %sub1,"Return to Title?","Confirmation "		;???????
	if %sub1==0 return						;?????

	if %sub1==1 lsp 0,":c;system\ef_black.jpg",0,0			;???????????????
	print 10,1000							;?????????

	reset								;??????

;===============================================================
;?????
;===============================================================

*game_end

	yesnobox %sub1,"Quit Game?","Quit "			;???????
	if %sub1==0 return						;?????

	if %sub1==1 lsp 0,":c;system\ef_black.jpg",0,0			;???????????????
	print 10,1000							;?????????
	end



;======================================================================
;?????????
;======================================================================

*extra

	mov %battle,0
	btndef clear : barclear :cspl 0,611: print 1	;???????

	bg black,1

*extra_btn

	mov %saveloadoff,1
	btndef clear

	lsp 101,":s/15,15,0;#FFFFFF#FF4444Monsterpedia",330,170:spbtn 101,101
	lsp 102,":s/15,15,0;#FFFFFF#FF4444Record",330,190:spbtn 102,102
	;if %game_clear=0 && %ng_Clear=0 lsp 103,":s/15,15,0;#bbbbbbMusic "    ,330,210
	;if %game_clear>0 | %ng_clear>0 lsp 103,":s/15,15,0;#FFFFFF#FF4444Music "    ,330,210:spbtn 103,103
	lsp 104,":s/15,15,0;#FFFFFF#FF4444Special Config",330,230:spbtn 104,104
	lsp 100,":s/15,15,0;#FFFFFF#FF4444Spin-Off Stories",330,250:spbtn 100,100
	lsp 105,":s/15,15,0;#FFFFFF#FF4444Autosave Data",330,270:spbtn 105,105
	if %gloval2_story_sinkou=1 lsp 106,":s/15,15,0;#FFFFFF#FF4444Part 1 Save Import",330,290:spbtn 106,106
	notif %gloval2_story_sinkou=1 lsp 106,":s/15,15,0;#bbbbbbPart 1 Save Import",330,290
	if %tougou=0 lsp 108,":s/15,15,0;#FFFFFF#FF4444Part 1 Conversion",330,310:spbtn 108,108
	if %tougou=1 lsp 108,":s/15,15,0;#bbbbbbPart 1 Conversion",330,310

	lsp 120,":c/2,0,3;system\menu_title.jpg" ,330,410:spbtn 120,120	;????

	lsp 121,":c;system\menu.jpg",310,150

	print 1

	btnwait %bwait

	if %bwait=101 mov %saveloadoff,1:gosub *menu_zukan:mov %saveloadoff,0:mov %zukanon,0:goto *extra		;?????
	if %bwait=102 gosub *menu_kiroku: goto *extra		;??????
	if %bwait=103 gosub *bgm_mode : goto *extra		;BGM????
	if %bwait=104 mov %saveloadoff,1:mov %manuoff,1:gosub *extra_cinfig : goto *extra		;????????
	if %bwait=100 mov %saveloadoff,1:gosub *monster_labo:mov %saveloadoff,0:goto *extra
	if %bwait=105 mov %saveloadoff,1:mov %manuoff,1:goto *autoload
	if %bwait=106 mov %saveloadoff,1:mov %manuoff,1:goto *hikitugiload
	if %bwait=108 mov %saveloadoff,1:mov %manuoff,1:goto *tougou

;================================================================???:??????
;return ? reset ???
;================================================================
	if %bwait=120 mov %bgmplaynow,0:bgm"2Q\bgm\gn_night.ogg":mov %saveloadoff,0:screen_clear : reset	;?????=????
	if %bwait= -1 mov %bgmplaynow,0:bgm"2Q\bgm\gn_night.ogg":mov %saveloadoff,0:screen_clear : reset	;?????
	if %bwait=-10 mov %bgmplaynow,0:bgm"2Q\bgm\gn_night.ogg":mov %saveloadoff,0:screen_clear : reset	;ESC??
	if %bwait=-11 mov %bgmplaynow,0:bgm"2Q\bgm\gn_night.ogg":mov %saveloadoff,0:screen_clear : reset	;??????
	;?BGM???????????

	goto *extra_btn





;===================================================================================
;BGM???
;===================================================================================

*bgm_mode

	mov %bgmpage,1						;???????????
	if %game_clear=1 mov %bgmtotal,47					;?????????
	if %game_clear=2 mov %bgmtotal,67					;?????????
	if %game_clear=3 mov %bgmtotal,90					;?????????
	if %ng_clear=1 mov %bgmtotal,98
	mov %bgmtotal,%bgmtotal+2				;??????????????2???????

	btndef clear : barclear : for %sub1=2 to 500 step 1 : csp %sub1 : next : print 1	;???????

	gosub *bgm_data						;???CG????????????

;===================================================================================
;????????????
;===================================================================================

*bgm_btn

	btndef clear			;??????

	gosub *bgm_index		;???????
					;??????????btndef clear???????????????????????
					;??????????????????????????????

	gosub *bgm_bar			;?????????

	lsp 201,":c;system\m_title_bgm_mode.jpg",20,20			;????????
	lsp 202,":c/2,0,3;system\return.bmp",20,560			;??????
	spbtn 202,202
	lsp 203,":a/2,0,3;system\system_cursor_up.jpg",760,0		;??????
	spbtn 203,203
	lsp 204,":a/2,0,3;system\system_cursor_down.jpg",760,550	;??????
	spbtn 204,204
	lsp 205,":c;system\system_bar.jpg",760,0			;????????
	lsp 206,":c;system\system_barx_u.jpg",0,0			;??????
	lsp 207,":c;system\system_barx_d.jpg",0,560			;??????


;?????-------------------------------------------------------------

	btndown 1						;??????????
	getpage 						;pageup&pagedown????
	btnwait %bwait						;??????bwait???

	if %bwait>400 gosub *bgm_click : wait 100 : goto *bgm_btn				;?????=????

	if %bwait>0            && %bwait<=%bgmtotal-11 mov %bgmpage,%bwait       : goto *bgm_btn	;?????=??
	if %bwait>%bgmtotal-11 && %bwait<=%bgmtotal    mov %bgmpage,%bgmtotal-11 : goto *bgm_btn	;?????=??

	if %bwait=202 wait 100 : screen_clear : return							;?????=??
	if %bwait= -1 wait 100 : screen_clear : return							;?????
	if %bwait=-10 wait 100 : screen_clear : return							;ESC??
	if %bwait=-11 wait 100 : screen_clear : return							;??????

	if %bwait=203 && %bgmpage>1 mov %bgmpage,%bgmpage-1 : wait 100			;?????=???????
	if %bwait= -2 && %bgmpage>1 mov %bgmpage,%bgmpage-1 :				;?????
	if %bwait=-12 && %bgmpage>1 mov %bgmpage,%bgmpage-1				;PageDown??

	if %bwait=204 && %bgmpage<%bgmtotal-11 mov %bgmpage,%bgmpage+1 : wait 100	;?????=???????
	if %bwait= -3 && %bgmpage<%bgmtotal-11 mov %bgmpage,%bgmpage+1 :		;?????
	if %bwait=-13 && %bgmpage<%bgmtotal-11 mov %bgmpage,%bgmpage+1			;PageUp??

	goto *bgm_btn

;===================================================================================
;????????
;===================================================================================

*bgm_data

	mov $bgmname001,"Main Theme"
	mov $bgmdata001,"bgm\title.ogg"

	mov $bgmname002,"Ilias"
	mov $bgmdata002,"bgm\irias.ogg"

	mov $bgmname003,"Ilias Village"
	mov $bgmdata003,"bgm\mura1.ogg"

	mov $bgmname004,"Crisis 1"
	mov $bgmdata004,"bgm\kiki1.ogg"

	mov $bgmname005,"Normal Battle"
	mov $bgmdata005,"bgm\battle.ogg"

	mov $bgmname006,"H-Scene"
	mov $bgmdata006,"bgm\ero1.ogg"

	mov $bgmname007,"Monster Monsterpedia"
	mov $bgmdata007,"bgm\zukan.ogg"

	mov $bgmname008,"Peace 1"
	mov $bgmdata008,"bgm\hutuu1.ogg"

	mov $bgmname009,"Crisis 2"
	mov $bgmdata009,"bgm\kiki2.ogg"

	mov $bgmname010,"Alice 1"
	mov $bgmdata010,"bgm\sinpi1.ogg"

	mov $bgmname011,"Alice 2"
	mov $bgmdata011,"bgm\alice1.ogg"

	mov $bgmname012,"Monster Lord Battle"
	mov $bgmdata012,"bgm\maou.ogg"

	mov $bgmname013,"Comical"
	mov $bgmdata013,"bgm\comi1.ogg"

	mov $bgmname014,"Field 1"
	mov $bgmdata014,"bgm\field1.ogg"

	mov $bgmname015,"Camp"
	mov $bgmdata015,"bgm\yaei.ogg"

	mov $bgmname016,"Boss Buildup"
	mov $bgmdata016,"bgm\boss0.ogg"

	mov $bgmname017,"Four Heavenly Knight Battle"
	mov $bgmdata017,"bgm\sitenno.ogg"

	mov $bgmname018,"Town"
	mov $bgmdata018,"bgm\city1.ogg"

	mov $bgmname019,"Amira"
	mov $bgmdata019,"bgm\amira.ogg"

	mov $bgmname020,"Dungeon 1"
	mov $bgmdata020,"bgm\dungeon1.ogg"

	mov $bgmname021,"Village"
	mov $bgmdata021,"bgm\mura2.ogg"

	mov $bgmname022,"Boss 1"
	mov $bgmdata022,"bgm\boss1.ogg"

	mov $bgmname023,"Dance 1"
	mov $bgmdata023,"bgm\dance.ogg"

	mov $bgmname024,"Epilogue"
	mov $bgmdata024,"bgm\epilogue.ogg"

	mov $bgmname025,"Enrika"
	mov $bgmdata025,"bgm\enrika.ogg"

	mov $bgmname026,"Tamamo"
	mov $bgmdata026,"bgm\tamamo.ogg"

	mov $bgmname027,"Peace 2"
	mov $bgmdata027,"bgm\hutuu2.ogg"

	mov $bgmname028,"Sea"
	mov $bgmdata028,"bgm\umi.ogg"

	mov $bgmname029,"Field 2"
	mov $bgmdata029,"bgm\field3.ogg"

	mov $bgmname030,"San Ilia Castle"
	mov $bgmdata030,"bgm\castle1.ogg"

	mov $bgmname031,"Library"
	mov $bgmdata031,"bgm\dungeon2.ogg"

	mov $bgmname032,"Under the Sea"
	mov $bgmdata032,"bgm\umi2.ogg"

	mov $bgmname033,"Haunted Mansion"
	mov $bgmdata033,"bgm\obakeyasiki.ogg"

	mov $bgmname034,"Forest of Spirits"
	mov $bgmdata034,"bgm\seireinomori.ogg"

	mov $bgmname035,"Four Spirits"
	mov $bgmdata035,"bgm\yonseirei2.ogg"

	mov $bgmname036,"Four Spirit Battle"
	mov $bgmdata036,"bgm\yonseirei.ogg"

	mov $bgmname037,"Boss 2"
	mov $bgmdata037,"bgm\boss2.ogg"

	mov $bgmname038,"Desert"
	mov $bgmdata038,"bgm\sabaku.ogg"

	mov $bgmname039,"Sabasa Castle Town"
	mov $bgmdata039,"bgm\sabasa.ogg"

	mov $bgmname040,"Sabasa Castle"
	mov $bgmdata040,"bgm\castle2.ogg"

	mov $bgmname041,"Pyramid"
	mov $bgmdata041,"bgm\dungeon3.ogg"

	mov $bgmname042,"Dance 2"
	mov $bgmdata042,"bgm\dance2.ogg"

	mov $bgmname043,"Peace 3"
	mov $bgmdata043,"bgm\hutuu3.ogg"

	mov $bgmname044,"Witch Hunt Village"
	mov $bgmdata044,"bgm\mura3.ogg"

	mov $bgmname045,"Lily's Mansion"
	mov $bgmdata045,"bgm\madou1.ogg"

	mov $bgmname046,"Sadness"
	mov $bgmdata046,"bgm\hutuu4.ogg"

	mov $bgmname047,"Safaru Ruins"
	mov $bgmdata047,"bgm\safar.ogg"

	mov $bgmname048,"Staff Roll"
	mov $bgmdata048,"bgm\ending.ogg"

	mov $bgmname049,"Colosseum"
	mov $bgmdata049,"bgm\colosseum.ogg"

	mov $bgmname050,"Grand Noah Castle"
	mov $bgmdata050,"bgm\castle3.ogg"

	mov $bgmname051,"Blizzard"
	mov $bgmdata051,"bgm\hubuki.ogg"

	mov $bgmname052,"Yamatai Village"
	mov $bgmdata052,"bgm\yamatai.ogg"

	mov $bgmname053,"Plansect Village"
	mov $bgmdata053,"bgm\plansect.ogg"

	mov $bgmname054,"Luka (Angry)"
	mov $bgmdata054,"bgm\ruka.ogg"

	mov $bgmname055,"Undine's Spring"
	mov $bgmdata055,"bgm\izumi.ogg"

	mov $bgmname056,"Grangold Castle"
	mov $bgmdata056,"bgm\castle4.ogg"

	mov $bgmname057,"Gold Volcano"
	mov $bgmdata057,"bgm\kazan.ogg"

	mov $bgmname058,"Gold Port"
	mov $bgmdata058,"bgm\gordport.ogg"

	mov $bgmname059,"Black Alice"
	mov $bgmdata059,"bgm\maou2.ogg"

	mov $bgmname060,"Serene Mind"
	mov $bgmdata060,"bgm\aqua.ogg"

	mov $bgmname061,"Alice 3"
	mov $bgmdata061,"bgm\alice2.ogg"

	mov $bgmname062,"Galda"
	mov $bgmdata062,"bgm\galda.ogg"

	mov $bgmname063,"Hellgondo"
	mov $bgmdata063,"bgm\manotairiku.ogg"

	mov $bgmname064,"Remina"
	mov $bgmdata064,"bgm\remina.ogg"

	mov $bgmname065,"Monster Lord's Castle"
	mov $bgmdata065,"bgm\maouzyou.ogg"

	mov $bgmname066,"Boss 3"
	mov $bgmdata066,"bgm\boss3.ogg"

	mov $bgmname067,"Angel Battle"
	mov $bgmdata067,"bgm\boss4.ogg"
	
	mov $bgmname068,"Promestein 1 "
	mov $bgmdata068,"bgm\stein.ogg"

	mov $bgmname069,"Promestein's Lab "
	mov $bgmdata069,"bgm\labo1.ogg"

	mov $bgmname070,"Sorrow 2 "
	mov $bgmdata070,"bgm\kanasimi1.ogg"

	mov $bgmname071,"Sorrow 3 "
	mov $bgmdata071,"bgm\kanasimi2.ogg"

	mov $bgmname072,"Charge "
	mov $bgmdata072,"bgm\kiki3.ogg"

	mov $bgmname073,"Field 3 "
	mov $bgmdata073,"bgm\field4.ogg"

	mov $bgmname074,"Deliverance "
	mov $bgmdata074,"bgm\epilogue2.ogg"

	mov $bgmname075,"Counterattack "
	mov $bgmdata075,"bgm\battle2.ogg"

	mov $bgmname076,"Monster Lord's Castle 2 "
	mov $bgmdata076,"bgm\maouzyou2.ogg"

	mov $bgmname077,"Sabasa Suppression "
	mov $bgmdata077,"bgm\sabasa2.ogg"

	mov $bgmname078,"Drain Lab "
	mov $bgmdata078,"bgm\labo2.ogg"

	mov $bgmname079,"Biolabs "
	mov $bgmdata079,"bgm\labo3.ogg"

	mov $bgmname080,"World's Navel "
	mov $bgmdata080,"bgm\heso.ogg"

	mov $bgmname081,"Barrier Tower "
	mov $bgmdata081,"bgm\tower.ogg"

	mov $bgmname082,"Heaven "
	mov $bgmdata082,"bgm\tenkai.ogg"

	mov $bgmname083,"Eden "
	mov $bgmdata083,"bgm\eden.ogg"

	mov $bgmname084,"Promestein?@2 "
	mov $bgmdata084,"bgm\stein2.ogg"

	mov $bgmname085,"Black Alice 2 "
	mov $bgmdata085,"bgm\maou3.ogg"

	mov $bgmname086,"Black Alice 3 "
	mov $bgmdata086,"bgm\maou4.ogg"

	mov $bgmname087,"Ilias "
	mov $bgmdata087,"bgm\irias2.ogg"

	mov $bgmname088,"Final Ilias "
	mov $bgmdata088,"bgm\irias3.ogg"

	mov $bgmname089,"The End? "
	mov $bgmdata089,"bgm\epilogue3.ogg"

	mov $bgmname090,"Credit Roll "
	mov $bgmdata090,"bgm\ending2.ogg"
	
	mov $bgmname091,"NG+ Title"
	mov $bgmdata091,"2Q\bgm\gn_night.ogg"
	
	mov $bgmname114,"Monsterpedia"
	mov $bgmdata114, "2Q\bgm\zukan.ogg"

	if %ng_clear<1 return

	mov $bgmname092,"Field 5"
	mov $bgmdata092,"2Q\bgm\field5.ogg"

	mov $bgmname093,"Field 6"
	mov $bgmdata093,"2Q\bgm\field6.ogg"

	mov $bgmname094,"Boss 4"
	mov $bgmdata094,"2Q\bgm\boss.ogg"

	mov $bgmname108,"Boss 5"
	mov $bgmdata108,"2Q\bgm\boss4.ogg"
	
	mov $bgmname095,"Granberia Battle"
	mov $bgmdata095,"2Q\bgm\granberia.ogg"

	mov $bgmname096,"Granberia Battle 2"
	mov $bgmdata096,"2Q\bgm\granberia2.ogg"

	mov $bgmname097,"Tamamo Battle"
	mov $bgmdata097, "2Q\bgm\tamamo.ogg"

	mov $bgmname098,"Comical 2"
	mov $bgmdata098,"2Q\bgm\comi2.ogg"

	if %ng_clear<2 return
	
	mov $bgmname099,"Alma Elma Battle"
	mov $bgmdata099, "2Q\bgm\alma.ogg"

	mov $bgmname100,"Natalia Region"
	mov $bgmdata100, "2Q\bgm\field6.ogg"

	mov $bgmname101,"Safina Region"
	mov $bgmdata101, "2Q\bgm\field8.ogg"

	mov $bgmname102,"Noah Region"
	mov $bgmdata102, "2Q\bgm\field9.ogg"

	mov $bgmname103,"Gold Region"
	mov $bgmdata103, "2Q\bgm\field10.ogg"

	mov $bgmname104,"Noah Lake"
	mov $bgmdata104, "2Q\bgm\lake.ogg"

	mov $bgmname105,"Four Spirit Battle 2"
	mov $bgmdata105, "2Q\bgm\spirits.ogg"

	mov $bgmname106,"Erubetie Battle"
	mov $bgmdata106, "2Q\bgm\erubetie.ogg"

	mov $bgmname107,"Luka 2"
	mov $bgmdata107, "2Q\bgm\ruka2.ogg"

	mov $bgmname109,"Dangerous Boss"
	mov $bgmdata109, "2Q\bgm\boss2.ogg"

	mov $bgmname110,"Luka 2"
	mov $bgmdata110, "2Q\bgm\ruka2.ogg"
	
	mov $bgmname111,"Port Town"
	mov $bgmdata111, "2Q\bgm\porttown.ogg"
	
	mov $bgmname112,"Grand Noah"
	mov $bgmdata112, "2Q\bgm\grandnoah.ogg"
	
	mov $bgmname113,"Angel Battle"
	mov $bgmdata113, "2Q\bgm\boss3.ogg"




	return

;===================================================================================
;BGM?????
;===================================================================================

*bgm_index

;????
	if %bgmtotal>=1  lsp 301,":s/20,20,1;#FFFFFF#FF4444Config "  ,210,70+(40*1)-(40*%bgmpage)
	if %bgmtotal>=2  lsp 302,":s/20,20,1;#FFFFFF#FF4444Stop "    ,210,70+(40*2)-(40*%bgmpage)
	if %bgmtotal>=3  lsp 303,":s/20,20,1;#FFFFFF#FF4444"+$bgmname001,210,70+(40*3)-(40*%bgmpage)
	if %bgmtotal>=4  lsp 304,":s/20,20,1;#FFFFFF#FF4444"+$bgmname002,210,70+(40*4)-(40*%bgmpage)
	if %bgmtotal>=5  lsp 305,":s/20,20,1;#FFFFFF#FF4444"+$bgmname003,210,70+(40*5)-(40*%bgmpage)
	if %bgmtotal>=6  lsp 306,":s/20,20,1;#FFFFFF#FF4444"+$bgmname004,210,70+(40*6)-(40*%bgmpage)
	if %bgmtotal>=7  lsp 307,":s/20,20,1;#FFFFFF#FF4444"+$bgmname005,210,70+(40*7)-(40*%bgmpage)
	if %bgmtotal>=8  lsp 308,":s/20,20,1;#FFFFFF#FF4444"+$bgmname006,210,70+(40*8)-(40*%bgmpage)
	if %bgmtotal>=9  lsp 309,":s/20,20,1;#FFFFFF#FF4444"+$bgmname007,210,70+(40*9)-(40*%bgmpage)
	if %bgmtotal>=10 lsp 310,":s/20,20,1;#FFFFFF#FF4444"+$bgmname008,210,70+(40*10)-(40*%bgmpage)
	if %bgmtotal>=11 lsp 311,":s/20,20,1;#FFFFFF#FF4444"+$bgmname009,210,70+(40*11)-(40*%bgmpage)
	if %bgmtotal>=12 lsp 312,":s/20,20,1;#FFFFFF#FF4444"+$bgmname010,210,70+(40*12)-(40*%bgmpage)
	if %bgmtotal>=13 lsp 313,":s/20,20,1;#FFFFFF#FF4444"+$bgmname011,210,70+(40*13)-(40*%bgmpage)
	if %bgmtotal>=14 lsp 314,":s/20,20,1;#FFFFFF#FF4444"+$bgmname012,210,70+(40*14)-(40*%bgmpage)
	if %bgmtotal>=15 lsp 315,":s/20,20,1;#FFFFFF#FF4444"+$bgmname013,210,70+(40*15)-(40*%bgmpage)
	if %bgmtotal>=16 lsp 316,":s/20,20,1;#FFFFFF#FF4444"+$bgmname014,210,70+(40*16)-(40*%bgmpage)
	if %bgmtotal>=17 lsp 317,":s/20,20,1;#FFFFFF#FF4444"+$bgmname015,210,70+(40*17)-(40*%bgmpage)
	if %bgmtotal>=18 lsp 318,":s/20,20,1;#FFFFFF#FF4444"+$bgmname016,210,70+(40*18)-(40*%bgmpage)
	if %bgmtotal>=19 lsp 319,":s/20,20,1;#FFFFFF#FF4444"+$bgmname017,210,70+(40*19)-(40*%bgmpage)
	if %bgmtotal>=20 lsp 320,":s/20,20,1;#FFFFFF#FF4444"+$bgmname018,210,70+(40*20)-(40*%bgmpage)
	if %bgmtotal>=21 lsp 321,":s/20,20,1;#FFFFFF#FF4444"+$bgmname019,210,70+(40*21)-(40*%bgmpage)
	if %bgmtotal>=22 lsp 322,":s/20,20,1;#FFFFFF#FF4444"+$bgmname020,210,70+(40*22)-(40*%bgmpage)
	if %bgmtotal>=23 lsp 323,":s/20,20,1;#FFFFFF#FF4444"+$bgmname021,210,70+(40*23)-(40*%bgmpage)
	if %bgmtotal>=24 lsp 324,":s/20,20,1;#FFFFFF#FF4444"+$bgmname022,210,70+(40*24)-(40*%bgmpage)
	if %bgmtotal>=25 lsp 325,":s/20,20,1;#FFFFFF#FF4444"+$bgmname023,210,70+(40*25)-(40*%bgmpage)
	if %bgmtotal>=26 lsp 326,":s/20,20,1;#FFFFFF#FF4444"+$bgmname024,210,70+(40*26)-(40*%bgmpage)
	if %bgmtotal>=27 lsp 327,":s/20,20,1;#FFFFFF#FF4444"+$bgmname025,210,70+(40*27)-(40*%bgmpage)
	if %bgmtotal>=28 lsp 328,":s/20,20,1;#FFFFFF#FF4444"+$bgmname026,210,70+(40*28)-(40*%bgmpage)
	if %bgmtotal>=29 lsp 329,":s/20,20,1;#FFFFFF#FF4444"+$bgmname027,210,70+(40*29)-(40*%bgmpage)
	if %bgmtotal>=30 lsp 330,":s/20,20,1;#FFFFFF#FF4444"+$bgmname028,210,70+(40*30)-(40*%bgmpage)
	if %bgmtotal>=31 lsp 331,":s/20,20,1;#FFFFFF#FF4444"+$bgmname029,210,70+(40*31)-(40*%bgmpage)
	if %bgmtotal>=32 lsp 332,":s/20,20,1;#FFFFFF#FF4444"+$bgmname030,210,70+(40*32)-(40*%bgmpage)
	if %bgmtotal>=33 lsp 333,":s/20,20,1;#FFFFFF#FF4444"+$bgmname031,210,70+(40*33)-(40*%bgmpage)
	if %bgmtotal>=34 lsp 334,":s/20,20,1;#FFFFFF#FF4444"+$bgmname032,210,70+(40*34)-(40*%bgmpage)
	if %bgmtotal>=35 lsp 335,":s/20,20,1;#FFFFFF#FF4444"+$bgmname033,210,70+(40*35)-(40*%bgmpage)
	if %bgmtotal>=36 lsp 336,":s/20,20,1;#FFFFFF#FF4444"+$bgmname034,210,70+(40*36)-(40*%bgmpage)
	if %bgmtotal>=37 lsp 337,":s/20,20,1;#FFFFFF#FF4444"+$bgmname035,210,70+(40*37)-(40*%bgmpage)
	if %bgmtotal>=38 lsp 338,":s/20,20,1;#FFFFFF#FF4444"+$bgmname036,210,70+(40*38)-(40*%bgmpage)
	if %bgmtotal>=39 lsp 339,":s/20,20,1;#FFFFFF#FF4444"+$bgmname037,210,70+(40*39)-(40*%bgmpage)
	if %bgmtotal>=40 lsp 340,":s/20,20,1;#FFFFFF#FF4444"+$bgmname038,210,70+(40*40)-(40*%bgmpage)
	if %bgmtotal>=41 lsp 341,":s/20,20,1;#FFFFFF#FF4444"+$bgmname039,210,70+(40*41)-(40*%bgmpage)
	if %bgmtotal>=42 lsp 342,":s/20,20,1;#FFFFFF#FF4444"+$bgmname040,210,70+(40*42)-(40*%bgmpage)
	if %bgmtotal>=43 lsp 343,":s/20,20,1;#FFFFFF#FF4444"+$bgmname041,210,70+(40*43)-(40*%bgmpage)
	if %bgmtotal>=44 lsp 344,":s/20,20,1;#FFFFFF#FF4444"+$bgmname042,210,70+(40*44)-(40*%bgmpage)
	if %bgmtotal>=45 lsp 345,":s/20,20,1;#FFFFFF#FF4444"+$bgmname043,210,70+(40*45)-(40*%bgmpage)
	if %bgmtotal>=46 lsp 346,":s/20,20,1;#FFFFFF#FF4444"+$bgmname044,210,70+(40*46)-(40*%bgmpage)
	if %bgmtotal>=47 lsp 347,":s/20,20,1;#FFFFFF#FF4444"+$bgmname045,210,70+(40*47)-(40*%bgmpage)
	if %bgmtotal>=48 lsp 348,":s/20,20,1;#FFFFFF#FF4444"+$bgmname046,210,70+(40*48)-(40*%bgmpage)
	if %bgmtotal>=49 lsp 349,":s/20,20,1;#FFFFFF#FF4444"+$bgmname047,210,70+(40*49)-(40*%bgmpage)
	if %bgmtotal>=50 lsp 350,":s/20,20,1;#FFFFFF#FF4444"+$bgmname048,210,70+(40*50)-(40*%bgmpage)
	if %bgmtotal>=51 lsp 351,":s/20,20,1;#FFFFFF#FF4444"+$bgmname049,210,70+(40*51)-(40*%bgmpage)
	if %bgmtotal>=52 lsp 352,":s/20,20,1;#FFFFFF#FF4444"+$bgmname050,210,70+(40*52)-(40*%bgmpage)
	if %bgmtotal>=53 lsp 353,":s/20,20,1;#FFFFFF#FF4444"+$bgmname051,210,70+(40*53)-(40*%bgmpage)
	if %bgmtotal>=54 lsp 354,":s/20,20,1;#FFFFFF#FF4444"+$bgmname052,210,70+(40*54)-(40*%bgmpage)
	if %bgmtotal>=55 lsp 355,":s/20,20,1;#FFFFFF#FF4444"+$bgmname053,210,70+(40*55)-(40*%bgmpage)
	if %bgmtotal>=56 lsp 356,":s/20,20,1;#FFFFFF#FF4444"+$bgmname054,210,70+(40*56)-(40*%bgmpage)
	if %bgmtotal>=57 lsp 357,":s/20,20,1;#FFFFFF#FF4444"+$bgmname055,210,70+(40*57)-(40*%bgmpage)
	if %bgmtotal>=58 lsp 358,":s/20,20,1;#FFFFFF#FF4444"+$bgmname056,210,70+(40*58)-(40*%bgmpage)
	if %bgmtotal>=59 lsp 359,":s/20,20,1;#FFFFFF#FF4444"+$bgmname057,210,70+(40*59)-(40*%bgmpage)
	if %bgmtotal>=60 lsp 360,":s/20,20,1;#FFFFFF#FF4444"+$bgmname058,210,70+(40*60)-(40*%bgmpage)
	if %bgmtotal>=61 lsp 361,":s/20,20,1;#FFFFFF#FF4444"+$bgmname059,210,70+(40*61)-(40*%bgmpage)
	if %bgmtotal>=62 lsp 362,":s/20,20,1;#FFFFFF#FF4444"+$bgmname060,210,70+(40*62)-(40*%bgmpage)
	if %bgmtotal>=63 lsp 363,":s/20,20,1;#FFFFFF#FF4444"+$bgmname061,210,70+(40*63)-(40*%bgmpage)
	if %bgmtotal>=64 lsp 364,":s/20,20,1;#FFFFFF#FF4444"+$bgmname062,210,70+(40*64)-(40*%bgmpage)
	if %bgmtotal>=65 lsp 365,":s/20,20,1;#FFFFFF#FF4444"+$bgmname063,210,70+(40*65)-(40*%bgmpage)
	if %bgmtotal>=66 lsp 366,":s/20,20,1;#FFFFFF#FF4444"+$bgmname064,210,70+(40*66)-(40*%bgmpage)
	if %bgmtotal>=67 lsp 367,":s/20,20,1;#FFFFFF#FF4444"+$bgmname065,210,70+(40*67)-(40*%bgmpage)
	if %bgmtotal>=68 lsp 368,":s/20,20,1;#FFFFFF#FF4444"+$bgmname066,210,70+(40*68)-(40*%bgmpage)
	if %bgmtotal>=69 lsp 369,":s/20,20,1;#FFFFFF#FF4444"+$bgmname067,210,70+(40*69)-(40*%bgmpage)
	if %bgmtotal>=70 lsp 370,":s/20,20,1;#FFFFFF#FF4444"+$bgmname068,210,70+(40*70)-(40*%bgmpage)
	if %bgmtotal>=71 lsp 371,":s/20,20,1;#FFFFFF#FF4444"+$bgmname069,210,70+(40*71)-(40*%bgmpage)
	if %bgmtotal>=72 lsp 372,":s/20,20,1;#FFFFFF#FF4444"+$bgmname070,210,70+(40*72)-(40*%bgmpage)
	if %bgmtotal>=73 lsp 373,":s/20,20,1;#FFFFFF#FF4444"+$bgmname071,210,70+(40*73)-(40*%bgmpage)
	if %bgmtotal>=74 lsp 374,":s/20,20,1;#FFFFFF#FF4444"+$bgmname072,210,70+(40*74)-(40*%bgmpage)
	if %bgmtotal>=75 lsp 375,":s/20,20,1;#FFFFFF#FF4444"+$bgmname073,210,70+(40*75)-(40*%bgmpage)
	if %bgmtotal>=76 lsp 376,":s/20,20,1;#FFFFFF#FF4444"+$bgmname074,210,70+(40*76)-(40*%bgmpage)
	if %bgmtotal>=77 lsp 377,":s/20,20,1;#FFFFFF#FF4444"+$bgmname075,210,70+(40*77)-(40*%bgmpage)
	if %bgmtotal>=78 lsp 378,":s/20,20,1;#FFFFFF#FF4444"+$bgmname076,210,70+(40*78)-(40*%bgmpage)
	if %bgmtotal>=79 lsp 379,":s/20,20,1;#FFFFFF#FF4444"+$bgmname077,210,70+(40*79)-(40*%bgmpage)
	if %bgmtotal>=80 lsp 380,":s/20,20,1;#FFFFFF#FF4444"+$bgmname078,210,70+(40*80)-(40*%bgmpage)
	if %bgmtotal>=81 lsp 381,":s/20,20,1;#FFFFFF#FF4444"+$bgmname079,210,70+(40*81)-(40*%bgmpage)
	if %bgmtotal>=82 lsp 382,":s/20,20,1;#FFFFFF#FF4444"+$bgmname080,210,70+(40*82)-(40*%bgmpage)
	if %bgmtotal>=83 lsp 383,":s/20,20,1;#FFFFFF#FF4444"+$bgmname081,210,70+(40*83)-(40*%bgmpage)
	if %bgmtotal>=84 lsp 384,":s/20,20,1;#FFFFFF#FF4444"+$bgmname082,210,70+(40*84)-(40*%bgmpage)
	if %bgmtotal>=85 lsp 385,":s/20,20,1;#FFFFFF#FF4444"+$bgmname083,210,70+(40*85)-(40*%bgmpage)
	if %bgmtotal>=86 lsp 386,":s/20,20,1;#FFFFFF#FF4444"+$bgmname084,210,70+(40*86)-(40*%bgmpage)
	if %bgmtotal>=87 lsp 387,":s/20,20,1;#FFFFFF#FF4444"+$bgmname085,210,70+(40*87)-(40*%bgmpage)
	if %bgmtotal>=88 lsp 388,":s/20,20,1;#FFFFFF#FF4444"+$bgmname086,210,70+(40*88)-(40*%bgmpage)
	if %bgmtotal>=89 lsp 389,":s/20,20,1;#FFFFFF#FF4444"+$bgmname087,210,70+(40*89)-(40*%bgmpage)
	if %bgmtotal>=90 lsp 390,":s/20,20,1;#FFFFFF#FF4444"+$bgmname088,210,70+(40*90)-(40*%bgmpage)
	if %bgmtotal>=91 lsp 391,":s/20,20,1;#FFFFFF#FF4444"+$bgmname089,210,70+(40*91)-(40*%bgmpage)
	if %bgmtotal>=92 lsp 392,":s/20,20,1;#FFFFFF#FF4444"+$bgmname090,210,70+(40*92)-(40*%bgmpage)
	if %bgmtotal>=93 lsp 393,":s/20,20,1;#FFFFFF#FF4444"+$bgmname091,210,70+(40*93)-(40*%bgmpage)
	if %bgmtotal>=94 lsp 394,":s/20,20,1;#FFFFFF#FF4444"+$bgmname092,210,70+(40*94)-(40*%bgmpage)
	if %bgmtotal>=95 lsp 395,":s/20,20,1;#FFFFFF#FF4444"+$bgmname093,210,70+(40*95)-(40*%bgmpage)
	if %bgmtotal>=96 lsp 396,":s/20,20,1;#FFFFFF#FF4444"+$bgmname094,210,70+(40*96)-(40*%bgmpage)
	if %bgmtotal>=97 lsp 397,":s/20,20,1;#FFFFFF#FF4444"+$bgmname095,210,70+(40*97)-(40*%bgmpage)
	if %bgmtotal>=98 lsp 398,":s/20,20,1;#FFFFFF#FF4444"+$bgmname096,210,70+(40*98)-(40*%bgmpage)
	if %bgmtotal>=99 lsp 399,":s/20,20,1;#FFFFFF#FF4444"+$bgmname097,210,70+(40*99)-(40*%bgmpage)
	if %bgmtotal>=100 lsp 400,":s/20,20,1;#FFFFFF#FF4444"+$bgmname098,210,70+(40*100)-(40*%bgmpage)

;??????
	if %bgmtotal>=1  lsp 401,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*1)-(40*%bgmpage)
	if %bgmtotal>=2  lsp 402,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*2)-(40*%bgmpage)
	if %bgmtotal>=3  lsp 403,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*3)-(40*%bgmpage)
	if %bgmtotal>=4  lsp 404,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*4)-(40*%bgmpage)
	if %bgmtotal>=5  lsp 405,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*5)-(40*%bgmpage)
	if %bgmtotal>=6  lsp 406,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*6)-(40*%bgmpage)
	if %bgmtotal>=7  lsp 407,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*7)-(40*%bgmpage)
	if %bgmtotal>=8  lsp 408,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*8)-(40*%bgmpage)
	if %bgmtotal>=9  lsp 409,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*9)-(40*%bgmpage)
	if %bgmtotal>=10 lsp 410,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*10)-(40*%bgmpage)
	if %bgmtotal>=11 lsp 411,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*11)-(40*%bgmpage)
	if %bgmtotal>=12 lsp 412,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*12)-(40*%bgmpage)
	if %bgmtotal>=13 lsp 413,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*13)-(40*%bgmpage)
	if %bgmtotal>=14 lsp 414,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*14)-(40*%bgmpage)
	if %bgmtotal>=15 lsp 415,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*15)-(40*%bgmpage)
	if %bgmtotal>=16 lsp 416,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*16)-(40*%bgmpage)
	if %bgmtotal>=17 lsp 417,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*17)-(40*%bgmpage)
	if %bgmtotal>=18 lsp 418,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*18)-(40*%bgmpage)
	if %bgmtotal>=19 lsp 419,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*19)-(40*%bgmpage)
	if %bgmtotal>=20 lsp 420,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*20)-(40*%bgmpage)
	if %bgmtotal>=21 lsp 421,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*21)-(40*%bgmpage)
	if %bgmtotal>=22 lsp 422,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*22)-(40*%bgmpage)
	if %bgmtotal>=23 lsp 423,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*23)-(40*%bgmpage)
	if %bgmtotal>=24 lsp 424,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*24)-(40*%bgmpage)
	if %bgmtotal>=25 lsp 425,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*25)-(40*%bgmpage)
	if %bgmtotal>=26 lsp 426,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*26)-(40*%bgmpage)
	if %bgmtotal>=27 lsp 427,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*27)-(40*%bgmpage)
	if %bgmtotal>=28 lsp 428,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*28)-(40*%bgmpage)
	if %bgmtotal>=29 lsp 429,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*29)-(40*%bgmpage)
	if %bgmtotal>=30 lsp 430,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*30)-(40*%bgmpage)
	if %bgmtotal>=31 lsp 431,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*31)-(40*%bgmpage)
	if %bgmtotal>=32 lsp 432,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*32)-(40*%bgmpage)
	if %bgmtotal>=33 lsp 433,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*33)-(40*%bgmpage)
	if %bgmtotal>=34 lsp 434,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*34)-(40*%bgmpage)
	if %bgmtotal>=35 lsp 435,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*35)-(40*%bgmpage)
	if %bgmtotal>=36 lsp 436,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*36)-(40*%bgmpage)
	if %bgmtotal>=37 lsp 437,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*37)-(40*%bgmpage)
	if %bgmtotal>=38 lsp 438,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*38)-(40*%bgmpage)
	if %bgmtotal>=39 lsp 439,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*39)-(40*%bgmpage)
	if %bgmtotal>=40 lsp 440,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*40)-(40*%bgmpage)
	if %bgmtotal>=41 lsp 441,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*41)-(40*%bgmpage)
	if %bgmtotal>=42 lsp 442,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*42)-(40*%bgmpage)
	if %bgmtotal>=43 lsp 443,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*43)-(40*%bgmpage)
	if %bgmtotal>=44 lsp 444,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*44)-(40*%bgmpage)
	if %bgmtotal>=45 lsp 445,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*45)-(40*%bgmpage)
	if %bgmtotal>=46 lsp 446,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*46)-(40*%bgmpage)
	if %bgmtotal>=47 lsp 447,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*47)-(40*%bgmpage)
	if %bgmtotal>=48 lsp 448,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*48)-(40*%bgmpage)
	if %bgmtotal>=49 lsp 449,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*49)-(40*%bgmpage)
	if %game_clear<2 skip 21
	if %bgmtotal>=50 lsp 450,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*50)-(40*%bgmpage)
	if %bgmtotal>=51 lsp 451,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*51)-(40*%bgmpage)
	if %bgmtotal>=52 lsp 452,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*52)-(40*%bgmpage)
	if %bgmtotal>=53 lsp 453,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*53)-(40*%bgmpage)
	if %bgmtotal>=54 lsp 454,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*54)-(40*%bgmpage)
	if %bgmtotal>=55 lsp 455,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*55)-(40*%bgmpage)
	if %bgmtotal>=56 lsp 456,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*56)-(40*%bgmpage)
	if %bgmtotal>=57 lsp 457,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*57)-(40*%bgmpage)
	if %bgmtotal>=58 lsp 458,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*58)-(40*%bgmpage)
	if %bgmtotal>=59 lsp 459,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*59)-(40*%bgmpage)
	if %bgmtotal>=60 lsp 460,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*60)-(40*%bgmpage)
	if %bgmtotal>=61 lsp 461,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*61)-(40*%bgmpage)
	if %bgmtotal>=62 lsp 462,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*62)-(40*%bgmpage)
	if %bgmtotal>=63 lsp 463,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*63)-(40*%bgmpage)
	if %bgmtotal>=64 lsp 464,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*64)-(40*%bgmpage)
	if %bgmtotal>=65 lsp 465,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*65)-(40*%bgmpage)
	if %bgmtotal>=66 lsp 466,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*66)-(40*%bgmpage)
	if %bgmtotal>=67 lsp 467,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*67)-(40*%bgmpage)
	if %bgmtotal>=68 lsp 468,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*68)-(40*%bgmpage)
	if %bgmtotal>=69 lsp 469,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*69)-(40*%bgmpage)
	if %game_clear<3 skip 24
	if %bgmtotal>=70 lsp 470,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*70)-(40*%bgmpage)
	if %bgmtotal>=71 lsp 471,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*71)-(40*%bgmpage)
	if %bgmtotal>=72 lsp 472,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*72)-(40*%bgmpage)
	if %bgmtotal>=73 lsp 473,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*73)-(40*%bgmpage)
	if %bgmtotal>=74 lsp 474,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*74)-(40*%bgmpage)
	if %bgmtotal>=75 lsp 475,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*75)-(40*%bgmpage)
	if %bgmtotal>=76 lsp 476,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*76)-(40*%bgmpage)
	if %bgmtotal>=77 lsp 477,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*77)-(40*%bgmpage)
	if %bgmtotal>=78 lsp 478,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*78)-(40*%bgmpage)
	if %bgmtotal>=79 lsp 479,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*79)-(40*%bgmpage)
	if %bgmtotal>=80 lsp 480,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*80)-(40*%bgmpage)
	if %bgmtotal>=81 lsp 481,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*81)-(40*%bgmpage)
	if %bgmtotal>=82 lsp 482,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*82)-(40*%bgmpage)
	if %bgmtotal>=83 lsp 483,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*83)-(40*%bgmpage)
	if %bgmtotal>=84 lsp 484,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*84)-(40*%bgmpage)
	if %bgmtotal>=85 lsp 485,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*85)-(40*%bgmpage)
	if %bgmtotal>=86 lsp 486,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*86)-(40*%bgmpage)
	if %bgmtotal>=87 lsp 487,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*87)-(40*%bgmpage)
	if %bgmtotal>=88 lsp 488,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*88)-(40*%bgmpage)
	if %bgmtotal>=89 lsp 489,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*89)-(40*%bgmpage)
	if %bgmtotal>=90 lsp 490,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*90)-(40*%bgmpage)
	if %bgmtotal>=91 lsp 491,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*91)-(40*%bgmpage)
	if %bgmtotal>=92 lsp 492,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*92)-(40*%bgmpage)
	if %bgmtotal>=93 lsp 493,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*93)-(40*%bgmpage)
	if %bgmtotal>=94 lsp 494,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*94)-(40*%bgmpage)
	if %bgmtotal>=95 lsp 495,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*95)-(40*%bgmpage)
	if %bgmtotal>=96 lsp 496,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*96)-(40*%bgmpage)
	if %bgmtotal>=97 lsp 497,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*97)-(40*%bgmpage)
	if %bgmtotal>=98 lsp 498,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*98)-(40*%bgmpage)
	if %bgmtotal>=99 lsp 499,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*99)-(40*%bgmpage)
	if %bgmtotal>=100 lsp 500,":a/2,0,3;system\bgm_bookmark.jpg",190,65+(40*100)-(40*%bgmpage)


;??????
	if %game_clear=1 exbtn_d "P301,0P302,0P303,0P304,0P305,0P306,0P307,0P308,0P309,0P310,0P311,0P312,0P313,0P314,0P315,0P316,0P317,0P318,0P319,0P320,P321,0P322,0P323,0P324,0P325,0P326,0P327,0P328,0P329,0P330,0P331,0P332,0P333,0P334,0P335,0P336,0P337,0P338,0P339,0P340,0P341,0P342,0P343,0P344,0P345,0P346,0P347,0P348,0P349,0"
	if %game_clear=2 exbtn_d "P301,0P302,0P303,0P304,0P305,0P306,0P307,0P308,0P309,0P310,0P311,0P312,0P313,0P314,0P315,0P316,0P317,0P318,0P319,0P320,P321,0P322,0P323,0P324,0P325,0P326,0P327,0P328,0P329,0P330,0P331,0P332,0P333,0P334,0P335,0P336,0P337,0P338,0P339,0P340,0P341,0P342,0P343,0P344,0P345,0P346,0P347,0P348,0P349,0P350,0P351,0P352,0P353,0P354,0P355,0P356,0P357,0P358,0P359,0P360,0P361,0P362,0P363,0P364,0P365,0P366,0P367,0P368,0P369,0"
	if %game_clear=3 exbtn_d "P301,0P302,0P303,0P304,0P305,0P306,0P307,0P308,0P309,0P310,0P311,0P312,0P313,0P314,0P315,0P316,0P317,0P318,0P319,0P320,P321,0P322,0P323,0P324,0P325,0P326,0P327,0P328,0P329,0P330,0P331,0P332,0P333,0P334,0P335,0P336,0P337,0P338,0P339,0P340,0P341,0P342,0P343,0P344,0P345,0P346,0P347,0P348,0P349,0P350,0P351,0P352,0P353,0P354,0P355,0P356,0P357,0P358,0P359,0P360,0P361,0P362,0P363,0P364,0P365,0P366,0P367,0P368,0P369,0P370,0P371,0P372,0P373,0P374,0P375,0P376,0P377,0P378,0P379,0P380,0P381,0P382,0P383,0P384,0P385,0P386,0P387,0P388,0P389,0P390,0P391,0P392,0"

	exbtn 401,401,"P301,1"
	exbtn 402,402,"P302,1"
	exbtn 403,403,"P303,1"
	exbtn 404,404,"P304,1"
	exbtn 405,405,"P305,1"
	exbtn 406,406,"P306,1"
	exbtn 407,407,"P307,1"
	exbtn 408,408,"P308,1"
	exbtn 409,409,"P309,1"
	exbtn 410,410,"P310,1"
	exbtn 411,411,"P311,1"
	exbtn 412,412,"P312,1"
	exbtn 413,413,"P313,1"
	exbtn 414,414,"P314,1"
	exbtn 415,415,"P315,1"
	exbtn 416,416,"P316,1"
	exbtn 417,417,"P317,1"
	exbtn 418,418,"P318,1"
	exbtn 419,419,"P319,1"
	exbtn 420,420,"P320,1"
	exbtn 421,421,"P321,1"
	exbtn 422,422,"P322,1"
	exbtn 423,423,"P323,1"
	exbtn 424,424,"P324,1"
	exbtn 425,425,"P325,1"
	exbtn 426,426,"P326,1"
	exbtn 427,427,"P327,1"
	exbtn 428,428,"P328,1"
	exbtn 429,429,"P329,1"
	exbtn 430,430,"P330,1"
	exbtn 431,431,"P331,1"
	exbtn 432,432,"P332,1"
	exbtn 433,433,"P333,1"
	exbtn 434,434,"P334,1"
	exbtn 435,435,"P335,1"
	exbtn 436,436,"P336,1"
	exbtn 437,437,"P337,1"
	exbtn 438,438,"P338,1"
	exbtn 439,439,"P339,1"
	exbtn 440,440,"P340,1"
	exbtn 441,441,"P341,1"
	exbtn 442,442,"P342,1"
	exbtn 443,443,"P343,1"
	exbtn 444,444,"P344,1"
	exbtn 445,445,"P345,1"
	exbtn 446,446,"P346,1"
	exbtn 447,447,"P347,1"
	exbtn 448,448,"P348,1"
	exbtn 449,449,"P349,1"
	if %game_clear<2 skip 21
	exbtn 450,450,"P350,1"
	exbtn 451,451,"P351,1"
	exbtn 452,452,"P352,1"
	exbtn 453,453,"P353,1"
	exbtn 454,454,"P354,1"
	exbtn 455,455,"P355,1"
	exbtn 456,456,"P356,1"
	exbtn 457,457,"P357,1"
	exbtn 458,458,"P358,1"
	exbtn 459,459,"P359,1"
	exbtn 460,460,"P360,1"
	exbtn 461,461,"P361,1"
	exbtn 462,462,"P362,1"
	exbtn 463,463,"P363,1"
	exbtn 464,464,"P364,1"
	exbtn 465,465,"P365,1"
	exbtn 466,466,"P366,1"
	exbtn 467,467,"P367,1"
	exbtn 468,468,"P368,1"
	exbtn 469,469,"P369,1"
	if %game_clear<3 skip 24
	exbtn 470,470,"P370,1"
	exbtn 471,471,"P371,1"
	exbtn 472,472,"P372,1"
	exbtn 473,473,"P373,1"
	exbtn 474,474,"P374,1"
	exbtn 475,475,"P375,1"
	exbtn 476,476,"P376,1"
	exbtn 477,477,"P377,1"
	exbtn 478,478,"P378,1"
	exbtn 479,479,"P379,1"
	exbtn 480,480,"P380,1"
	exbtn 481,481,"P381,1"
	exbtn 482,482,"P382,1"
	exbtn 483,483,"P383,1"
	exbtn 484,484,"P384,1"
	exbtn 485,485,"P385,1"
	exbtn 486,486,"P386,1"
	exbtn 487,487,"P387,1"
	exbtn 488,488,"P388,1"
	exbtn 489,489,"P389,1"
	exbtn 490,490,"P390,1"
	exbtn 491,491,"P391,1"
	exbtn 492,492,"P392,1"
	exbtn 493,493,"P393,1"
	exbtn 494,494,"P394,1"
	exbtn 495,495,"P395,1"
	exbtn 496,496,"P396,1"
	exbtn 497,497,"P397,1"
	exbtn 498,498,"P398,1"
	exbtn 499,499,"P399,1"
	exbtn 500,500,"P400,1"


;????????--------------------------------------------------------

	if %bgmplaynow>=3 lsp 208,":a;system\bgm_on.jpg",610,65+(%bgmplaynow*40)-(%bgmpage*40)	;???????
	if %bgmplaynow==2 csp 208								;?????????????

	return


;===================================================================================
;BGM???????
;===================================================================================

*bgm_click

	if %bwait==401 : gosub *config : gosub *bgm_index	;???????????????
								;??????on?????????off???
	if %bwait==402 bgmstop

	if %bwait==403 bgm $bgmdata001
	if %bwait==404 bgm $bgmdata002
	if %bwait==405 bgm $bgmdata003
	if %bwait==406 bgm $bgmdata004
	if %bwait==407 bgm $bgmdata005
	if %bwait==408 bgm $bgmdata006
	if %bwait==409 bgm $bgmdata007
	if %bwait==410 bgm $bgmdata008
	if %bwait==411 bgm $bgmdata009
	if %bwait==412 bgm $bgmdata010
	if %bwait==413 bgm $bgmdata011
	if %bwait==414 bgm $bgmdata012
	if %bwait==415 bgm $bgmdata013
	if %bwait==416 bgm $bgmdata014
	if %bwait==417 bgm $bgmdata015
	if %bwait==418 bgm $bgmdata016
	if %bwait==419 bgm $bgmdata017
	if %bwait==420 bgm $bgmdata018
	if %bwait==421 bgm $bgmdata019
	if %bwait==422 bgm $bgmdata020
	if %bwait==423 bgm $bgmdata021
	if %bwait==424 bgm $bgmdata022
	if %bwait==425 bgm $bgmdata023
	if %bwait==426 bgm $bgmdata024
	if %bwait==427 bgm $bgmdata025
	if %bwait==428 bgm $bgmdata026
	if %bwait==429 bgm $bgmdata027
	if %bwait==430 bgm $bgmdata028
	if %bwait==431 bgm $bgmdata029
	if %bwait==432 bgm $bgmdata030
	if %bwait==433 bgm $bgmdata031
	if %bwait==434 bgm $bgmdata032
	if %bwait==435 bgm $bgmdata033
	if %bwait==436 bgm $bgmdata034
	if %bwait==437 bgm $bgmdata035
	if %bwait==438 bgm $bgmdata036
	if %bwait==439 bgm $bgmdata037
	if %bwait==440 bgm $bgmdata038
	if %bwait==441 bgm $bgmdata039
	if %bwait==442 bgm $bgmdata040
	if %bwait==443 bgm $bgmdata041
	if %bwait==444 bgm $bgmdata042
	if %bwait==445 bgm $bgmdata043
	if %bwait==446 bgm $bgmdata044
	if %bwait==447 bgm $bgmdata045
	if %bwait==448 bgm $bgmdata046
	if %bwait==449 bgm $bgmdata047
	if %game_clear<2 skip 21
	if %bwait==450 bgm $bgmdata048
	if %bwait==451 bgm $bgmdata049
	if %bwait==452 bgm $bgmdata050
	if %bwait==453 bgm $bgmdata051
	if %bwait==454 bgm $bgmdata052
	if %bwait==455 bgm $bgmdata053
	if %bwait==456 bgm $bgmdata054
	if %bwait==457 bgm $bgmdata055
	if %bwait==458 bgm $bgmdata056
	if %bwait==459 bgm $bgmdata057
	if %bwait==460 bgm $bgmdata058
	if %bwait==461 bgm $bgmdata059
	if %bwait==462 bgm $bgmdata060
	if %bwait==463 bgm $bgmdata061
	if %bwait==464 bgm $bgmdata062
	if %bwait==465 bgm $bgmdata063
	if %bwait==466 bgm $bgmdata064
	if %bwait==467 bgm $bgmdata065
	if %bwait==468 bgm $bgmdata066
	if %bwait==469 bgm $bgmdata067
	if %game_clear<3 skip 23
	if %bwait==470 bgm $bgmdata068
	if %bwait==471 bgm $bgmdata069
	if %bwait==472 bgm $bgmdata070
	if %bwait==473 bgm $bgmdata071
	if %bwait==474 bgm $bgmdata072
	if %bwait==475 bgm $bgmdata073
	if %bwait==476 bgm $bgmdata074
	if %bwait==477 bgm $bgmdata075
	if %bwait==478 bgm $bgmdata076
	if %bwait==479 bgm $bgmdata077
	if %bwait==480 bgm $bgmdata078
	if %bwait==481 bgm $bgmdata079
	if %bwait==482 bgm $bgmdata080
	if %bwait==483 bgm $bgmdata081
	if %bwait==484 bgm $bgmdata082
	if %bwait==485 bgm $bgmdata083
	if %bwait==486 bgm $bgmdata084
	if %bwait==487 bgm $bgmdata085
	if %bwait==488 bgm $bgmdata086
	if %bwait==489 bgm $bgmdata087
	if %bwait==490 bgm $bgmdata088
	if %bwait==491 bgm $bgmdata089
	if %bwait==492 bgm $bgmdata090
	if %bwait==493 bgm $bgmdata091
	if %bwait==494 bgm $bgmdata092
	if %bwait==495 bgm $bgmdata093
	if %bwait==496 bgm $bgmdata094
	if %bwait==497 bgm $bgmdata095
	if %bwait==498 bgm $bgmdata096
	if %bwait==499 bgm $bgmdata097
	if %bwait==500 bgm $bgmdata098



	if %bwait>=402 mov %bgmplaynow,%bwait-400			;??????????

	return


;===================================================================================
;??????
;===================================================================================

*bgm_bar

	mov %bgmbarone,48000/%bgmtotal					;????????
	if %bgmtotal=  1 mov %bgmbarone2,%bgmbarone*1			;????????
	if %bgmtotal=  2 mov %bgmbarone2,%bgmbarone*2			;????????
	if %bgmtotal=  3 mov %bgmbarone2,%bgmbarone*3			;????????
	if %bgmtotal=  4 mov %bgmbarone2,%bgmbarone*4			;????????
	if %bgmtotal=  5 mov %bgmbarone2,%bgmbarone*5			;????????
	if %bgmtotal=  6 mov %bgmbarone2,%bgmbarone*6			;????????
	if %bgmtotal=  7 mov %bgmbarone2,%bgmbarone*7			;????????
	if %bgmtotal=  8 mov %bgmbarone2,%bgmbarone*8			;????????
	if %bgmtotal=  9 mov %bgmbarone2,%bgmbarone*9			;????????
	if %bgmtotal= 10 mov %bgmbarone2,%bgmbarone*10			;????????
	if %bgmtotal= 11 mov %bgmbarone2,%bgmbarone*11			;????????
	if %bgmtotal>=12 mov %bgmbarone2,%bgmbarone*12			;????????

	mov %bgmbary,48000-%bgmbarone*(%bgmtotal-%bgmpage+1)		;????Y????

	mov %bgmbary,%bgmbary+6000					;???????????

	bar 0,1,767,%bgmbary/100,16,%bgmbarone2/100,1,#DDDDDD		;????

	for %sub1=1 to %bgmtotal step 1					;?????????????
	btn %sub1,740,(%bgmbarone*(%sub1-1)+6000)/100,60,%bgmbarone,0,0	;?????
	next

return



*extra_cinfig

screen_clear
screen_clear2
bg black,1
bgm"bgm\irias.ogg"
gosub *setwindow_01
lsp 700,":a;chara\iriasu_st01.bmp",0,0
bg "BG\bg001.bmp",10,1500
name "Ilias"
>You can change the following settings.\
name ""
saveoff
textoff
mov %sinkoumode,0 : skipoff : autoclick 0


*extra_cinfig_cmd

cspl 3,7
csp 611
btndef clear
gosub *setwindow_05
lsp 501,":s/20,20,0;#FFFFFF#FF4444Battle Message Speed",50,80
if %battle_auto=0 lsp 502,":s/20,20,0;#FFFFFFNormal",330,80
if %battle_auto=1 lsp 502,":s/20,20,0;#bbbbbb#FF4444Normal",330,80:spbtn 502,12
if %battle_auto=1 lsp 503,":s/20,20,0;#FFFFFFAuto",410,80
if %battle_auto=0 lsp 503,":s/20,20,0;#bbbbbb#FF4444Auto",410,80:spbtn 503,13
lsp 504,":s/20,20,0;#FFFFFF#FF4444Skip seen H-Scenes",50,120
if %hsean_cut=0 lsp 505,":s/20,20,0;#FFFFFFOff",310,120
notif %hsean_cut=0 lsp 505,":s/20,20,0;#bbbbbb#FF4444Off",310,120:spbtn 505,14
if %hsean_cut=1 lsp 506,":s/20,20,0;#FFFFFFOn",390,120
notif %hsean_cut=1 lsp 506,":s/20,20,0;#bbbbbb#FF4444On",390,120:spbtn 506,15
if %hsean_cut=2 lsp 507,":s/20,20,0;#FFFFFFPrompt",470,120
notif %hsean_cut=2 lsp 507,":s/20,20,0;#bbbbbb#FF4444Prompt",470,120:spbtn 507,16
lsp 508,":s/20,20,0;#FFFFFFVore Scenes",50,160
if %hosyoku_cut=0 lsp 509,":s/20,20,0;#FFFFFFOn",250,160
if %hosyoku_cut=1 lsp 509,":s/20,20,0;#bbbbbb#FF4444On",250,160:spbtn 509,17
if %hosyoku_cut=1 lsp 510,":s/20,20,0;#FFFFFFOff",330,160
if %hosyoku_cut=0 lsp 510,":s/20,20,0;#bbbbbb#FF4444Off",330,160:spbtn 510,18
lsp 514,":s/20,20,0;#FFFFFFWindow Type",50,200
if %window_type=0 lsp 515,":s/20,20,0;#FFFFFF1",250,200
notif %window_type=0 lsp 515,":s/20,20,0;#bbbbbb#FF44441",250,200:spbtn 515,21
if %window_type=1 lsp 516,":s/20,20,0;#FFFFFF2",310,200
notif %window_type=1 lsp 516,":s/20,20,0;#bbbbbb#FF44442",310,200:spbtn 516,22
if %window_type=2 lsp 523,":s/20,20,0;#FFFFFF3",370,200
notif %window_type=2 lsp 523,":s/20,20,0;#bbbbbb#FF44443",370,200:spbtn 523,27
if %window_type=3 lsp 524,":s/20,20,0;#FFFFFF4",430,200
notif %window_type=3 lsp 524,":s/20,20,0;#bbbbbb#FF44444",430,200:spbtn 524,28
if %window_type=4 lsp 525,":s/20,20,0;#FFFFFF5",490,200
notif %window_type=4 lsp 525,":s/20,20,0;#bbbbbb#FF44445",490,200:spbtn 525,29
if %window_type=5 lsp 526,":s/20,20,0;#FFFFFF6",550,200
notif %window_type=5 lsp 526,":s/20,20,0;#bbbbbb#FF44446",550,200:spbtn 526,30
lsp 517,":s/20,20,0;#FFFFFFH-Scene BGM",50,240
if %con_hbgm=0 lsp 518,":s/20,20,0;#FFFFFFOn",250,240
if %con_hbgm=1 lsp 518,":s/20,20,0;#bbbbbb#FF4444On",250,240:spbtn 518,23
if %con_hbgm=1 lsp 519,":s/20,20,0;#FFFFFFOff",330,240
if %con_hbgm=0 lsp 519,":s/20,20,0;#bbbbbb#FF4444Off",330,240:spbtn 519,24
lsp 520,":s/20,20,0;#FFFFFFH-Scene SE",50,280
if %con_hse=0 lsp 521,":s/20,20,0;#FFFFFFOn",250,280
if %con_hse=1 lsp 521,":s/20,20,0;#bbbbbb#FF4444On",250,280:spbtn 521,25
if %con_hse=1 lsp 522,":s/20,20,0;#FFFFFFOff",330,280
if %con_hse=0 lsp 522,":s/20,20,0;#bbbbbb#FF4444Off",330,280:spbtn 522,26
lsp 527,":s/20,20,0;#FFFFFFH-Scene Voice",50,320
if %con_hvoice=0 lsp 528,":s/20,20,0;#FFFFFFOn",250,320
if %con_hvoice=1 lsp 528,":s/20,20,0;#bbbbbb#FF4444On",250,320:spbtn 528,31
if %con_hvoice=1 lsp 529,":s/20,20,0;#FFFFFFOff",330,320
if %con_hvoice=0 lsp 529,":s/20,20,0;#bbbbbb#FF4444Off",330,320:spbtn 529,32

lsp 512,":s/20,20,0;#FFFFFF#FF4444Explanation",50,440:spbtn 512,19
lsp 513,":s/20,20,0;#FFFFFF#FF4444Apply",50,470:spbtn 513,20
lsp 514,":s/20,20,0;#FFFFFF#FF4444NG+ Options",50,500:spbtn 514,33
goto *extra_cinfig_cmd2

*extra_config_cmd_ng

cspl 3,7
csp 611
btndef clear
gosub *setwindow_05
lsp 501,":s/20,20,0;#FFFFFF#FF4444Music",50,80
if %ng_bgm>0 lsp 502,":s/20,20,0;#FFFFFFOld Music",200,80
if %ng_bgm<1 lsp 502,":s/20,20,0;#bbbbbb#FF4444Old Music",200,80:spbtn 502,36
if %ng_bgm<1 lsp 503,":s/20,20,0;#FFFFFFNG+ Music",410,80
if %ng_bgm>0 lsp 503,":s/20,20,0;#bbbbbb#FF4444NG+ Music",410,80:spbtn 503,37
lsp 504,":s/20,20,0;#FFFFFF#FF4444",50,120
if %ng_clear<5 lsp 505,":s/20,20,0;#bbbbbbChange Title Screen",50,120
if %ng_clear>4 lsp 505,":s/20,20,0;#bbbbbb#FF4444Change Title Screen",310,120:spbtn 505,14
 lsp 506,":s/20,20,0;#FFFFFF",390,120
not lsp 506,":s/20,20,0;#bbbbbb#FF4444",390,120
 lsp 507,":s/20,20,0;#FFFFFF",470,120
not lsp 507,":s/20,20,0;#bbbbbb#FF4444",470,120
lsp 508,":s/20,20,0;#FFFFFF",50,160
if %hosyoku_cut=0 lsp 509,":s/20,20,0;#FFFFFF",250,160
if %hosyoku_cut=1 lsp 509,":s/20,20,0;#bbbbbb#FF4444",250,160
if %hosyoku_cut=1 lsp 510,":s/20,20,0;#FFFFFF",330,160
if %hosyoku_cut=0 lsp 510,":s/20,20,0;#bbbbbb#FF4444",330,160
lsp 514,":s/20,20,0;#FFFFFF",50,200
if %window_type=0 lsp 515,":s/20,20,0;#FFFFFF",250,200
notif %window_type=0 lsp 515,":s/20,20,0;#bbbbbb#FF4444",250,200:spbtn 515,21
if %window_type=1 lsp 516,":s/20,20,0;#FFFFFF",310,200
notif %window_type=1 lsp 516,":s/20,20,0;#bbbbbb#FF4444",310,200:spbtn 516,22
if %window_type=2 lsp 523,":s/20,20,0;#FFFFFF",370,200
notif %window_type=2 lsp 523,":s/20,20,0;#bbbbbb#FF4444",370,200:spbtn 523,27
if %window_type=3 lsp 524,":s/20,20,0;#FFFFFF",430,200
notif %window_type=3 lsp 524,":s/20,20,0;#bbbbbb#FF4444",430,200:spbtn 524,28
if %window_type=4 lsp 525,":s/20,20,0;#FFFFFF",490,200
notif %window_type=4 lsp 525,":s/20,20,0;#bbbbbb#FF4444",490,200:spbtn 525,29
if %window_type=5 lsp 526,":s/20,20,0;#FFFFFF",550,200
notif %window_type=5 lsp 526,":s/20,20,0;#bbbbbb#FF4444",550,200:spbtn 526,30
lsp 517,":s/20,20,0;#FFFFFF",50,240
if %con_hbgm=0 lsp 518,":s/20,20,0;#FFFFFF",250,240
if %con_hbgm=1 lsp 518,":s/20,20,0;#bbbbbb#FF4444",250,240:spbtn 518,23
if %con_hbgm=1 lsp 519,":s/20,20,0;#FFFFFF",330,240
if %con_hbgm=0 lsp 519,":s/20,20,0;#bbbbbb#FF4444",330,240:spbtn 519,24
lsp 520,":s/20,20,0;#FFFFFF",50,280
if %con_hse=0 lsp 521,":s/20,20,0;#FFFFFF",250,280
if %con_hse=1 lsp 521,":s/20,20,0;#bbbbbb#FF4444",250,280:spbtn 521,25
if %con_hse=1 lsp 522,":s/20,20,0;#FFFFFF",330,280
if %con_hse=0 lsp 522,":s/20,20,0;#bbbbbb#FF4444",330,280:spbtn 522,26
lsp 527,":s/20,20,0;#FFFFFF",50,320
if %con_hvoice=0 lsp 528,":s/20,20,0;#FFFFFF",250,320
if %con_hvoice=1 lsp 528,":s/20,20,0;#bbbbbb#FF4444",250,320:spbtn 528,31
if %con_hvoice=1 lsp 529,":s/20,20,0;#FFFFFF",330,320
if %con_hvoice=0 lsp 529,":s/20,20,0;#bbbbbb#FF4444",330,320:spbtn 529,32

lsp 512,":s/20,20,0;#FFFFFF#FF4444Explanation",50,440:spbtn 512,34
lsp 513,":s/20,20,0;#FFFFFF#FF4444Apply",50,470:spbtn 513,20
lsp 514,":s/20,20,0;#FFFFFF#FF4444Main Game Options",50,500:spbtn 514,35



*extra_cinfig_cmd2

btnwait2 %cmd1
if %cmd1=12 mov %battle_auto,0:goto *extra_cinfig_cmd
if %cmd1=13 mov %battle_auto,1:goto *extra_cinfig_cmd
if %cmd1=14 mov %hsean_cut,0:goto *extra_cinfig_cmd
if %cmd1=15 mov %hsean_cut,1:goto *extra_cinfig_cmd
if %cmd1=16 mov %hsean_cut,2:goto *extra_cinfig_cmd
if %cmd1=17 mov %hosyoku_cut,0:goto *extra_cinfig_cmd
if %cmd1=18 mov %hosyoku_cut,1:goto *extra_cinfig_cmd
if %cmd1=21 mov %window_type,0:goto *extra_cinfig_cmd
if %cmd1=22 mov %window_type,1:goto *extra_cinfig_cmd
if %cmd1=27 mov %window_type,2:goto *extra_cinfig_cmd
if %cmd1=28 mov %window_type,3:goto *extra_cinfig_cmd
if %cmd1=29 mov %window_type,4:goto *extra_cinfig_cmd
if %cmd1=30 mov %window_type,5:goto *extra_cinfig_cmd
if %cmd1=23 mov %con_hbgm,0:goto *extra_cinfig_cmd
if %cmd1=24 mov %con_hbgm,1:goto *extra_cinfig_cmd
if %cmd1=25 mov %con_hse,0:goto *extra_cinfig_cmd
if %cmd1=26 mov %con_hse,1:goto *extra_cinfig_cmd
if %cmd1=31 mov %con_hvoice,0:goto *extra_cinfig_cmd
if %cmd1=32 mov %con_hvoice,1:goto *extra_cinfig_cmd
if %cmd1=33 goto *extra_config_cmd_ng
if %cmd1=34 goto *extra_config_explanation
if %cmd1=35 goto *extra_cinfig_cmd
if %cmd1=36 mov %ng_bgm,1:goto *extra_config_cmd_ng
if %cmd1=37 mov %ng_bgm,0:goto *extra_config_cmd_ng
if %cmd1=19 goto *extra_cinfig_kaisetu
if %cmd1=20 goto *extra_cinfig_end
if %cmd1=-1 goto *extra_cinfig_end	;?????
if %cmd1=10 goto *extra_cinfig_end	;ESC??
if %cmd1=11 goto *extra_cinfig_end	;??????
goto *extra_cinfig_cmd2

*extra_config_explanation

cspl 501,600
gosub *setwindow_01
texton
btndef clear
name "Ilias"
``[Music] lets you choose between the new BGM and old BGM.@
``[NG+ Music] will use the new BGM in places.@
``[Old Music] will retain the music from the main game.\
``[Change Title Screen] will only become available after you beat the game.@
>It will allow you to change the title screen background, and you'll unlock    more as you get different endings.\
>These are all of the available options so far.\
name ""
goto *extra_config_cmd_ng

*extra_cinfig_kaisetu

cspl 501,600
gosub *setwindow_01
texton
btndef clear
name "Ilias"
``[Battle Message Speed] Adjusts the text in battle.\
``[Normal] Sets it to act like it does during the story.@
``[Auto] Automatically continues with the text, like a normal RPG.\
``[Skip Seen H-Scene] Will skip scenes you've seen before if set to on, and will prompt you each time if set to prompt.\
>Finally [Vore Scenes].@
>During the game, there are some monsters who want to eat Luka.\
>Though they aren't particularly gory or violent, some may still wish to avoid these scenes altogether.\
>If you set it to [On], the vore scenes will be displayed.@
>If set to off, it will automatically skip them.\
>If you skip the scene, it will still be displayed in the Encylopedia as if    you watched it, so don't worry.\
>That's the end of my explanation.\
name ""
goto *extra_cinfig_cmd



*extra_cinfig_end

cspl 501,600
gosub *setwindow_01
texton
btndef clear
name "Ilias"
>Remember Luka, I will always be watching over you. Even in the configuration  screen.\
name ""
screen_clear
screen_clear2
bg black,10,1000
mov %saveloadoff,0
mov %manuoff,0
bgm"2Q\bgm\zukan.ogg"
return



*autoload

screen_clear
screen_clear2
bg black,1
bgm"bgm\irias.ogg"
gosub *setwindow_01
lsp 700,":a;chara\iriasu_st01.bmp",0,0
bg "BG\bg001.bmp",10,1500
name "Ilias"
>This is where you can load data from the autosave location.\
>The current location is...@
if %gloval1_story_sinkou=0 goto *autoload3
if %gloval1_story_sinkou=1 mov $sel1,"Iliasburg"
if %gloval1_story_sinkou=2 mov $sel1,"Port Natalia"
if %gloval1_story_sinkou=3 mov $sel1,"San Ilia Castle"
if %gloval1_story_sinkou=4 mov $sel1,"Forest of Spirits"
if %gloval1_story_sinkou=5 mov $sel1,"Sabasa Castle"
if %gloval1_story_sinkou=7 mov $sel1,"Undine's Spring"
if %gloval1_story_sinkou=8 mov $sel1,"Grangold Castle"
if %gloval1_story_sinkou=9 mov $sel1,"Gold Port"
if %gloval1_story_sinkou=10 mov $sel1,"Hellgondo"
itoa $sel2,%gloval1_mylv
mov $sel6,$sel1+"at level "+$sel2+"."
``$sel6\
>Do you wish to load from this location?\
name ""
csel "No",*autoload2,"Yes",*autoload1



*autoload2

name "Ilias"
>Understood.@
>Then, back to the title screen...\
name ""
screen_clear
screen_clear2
bg black,10,1000
mov %saveloadoff,0
mov %manuoff,0
bgm"2Q\bgm\gn_night.ogg"
return



*autoload3

>...It seems as though it doesn't exist yet.\
>Until you advance the story, there won't be any autosave data.@
>Then, back to the title screen...\
name ""
screen_clear
screen_clear2
bg black,10,1000
mov %saveloadoff,0
mov %manuoff,0
bgm"2Q\bgm\gn_night.ogg"
return



*autoload1

name "Ilias"
>Understood.@
>Then, to the auto-save location...\
name ""
bgmstop
screen_clear
screen_clear2
bg black,10,1000
mov %mylv,%gloval1_mylv
mov %exp,%gloval1_exp
mov %ivent01,%gloval1_ivent01
mov %ivent02,%gloval1_ivent02
mov %ivent03,%gloval1_ivent03
mov %ivent04,%gloval1_ivent04
mov %chromemansion,%gloval1_ivent05
mov %ivent06,%gloval1_ivent06
mov %ivent07,%gloval1_ivent07
mov %ivent08,%gloval1_ivent08
mov %ivent09,%gloval1_ivent09
mov %ivent10,%gloval1_ivent10
mov %ivent11,%gloval1_ivent11
mov %ivent12,%gloval1_ivent12
mov %ivent13,%gloval1_ivent13
mov %ivent14,%gloval1_ivent14
mov %ivent15,%gloval1_ivent15
mov %ivent16,%gloval1_ivent16
mov %ivent17,%gloval1_ivent17
mov %ivent18,%gloval1_ivent18
mov %ivent19,%gloval1_ivent19
mov %ivent20,%gloval1_ivent20
mov %check01,%gloval1_check01
mov %check02,%gloval1_check02
mov %check03,%gloval1_check03
mov %check04,%gloval1_check04
mov %check05,%gloval1_check05
mov %check06,%gloval1_check06
mov %check07,%gloval1_check07
mov %check08,%gloval1_check08
mov %check09,%gloval1_check09
mov %check10,%gloval1_check10
mov %check11,%gloval1_check11
mov %check12,%gloval1_check12
mov %check13,%gloval1_check13
mov %check14,%gloval1_check14
mov %check15,%gloval1_check15
mov %check16,%gloval1_check16
mov %check17,%gloval1_check17
mov %check18,%gloval1_check18
mov %check19,%gloval1_check19
mov %check20,%gloval1_check20
mov %skill01,%gloval1_skill01
mov %skill02,%gloval1_skill02
mov %skill03,%gloval1_skill03
mov %skill04,%gloval1_skill04
mov %skill05,%gloval1_skill05
mov %skill06,%gloval1_skill06
mov %skill07,%gloval1_skill07
mov %skill08,%gloval1_skill08
mov %skill09,%gloval1_skill09
mov %skill10,%gloval1_skill10
mov %item01,%gloval1_item01
mov %item02,%gloval1_item02
mov %item03,%gloval1_item03
mov %item04,%gloval1_item04
mov %item05,%gloval1_item05
mov %item06,%gloval1_item06
mov %item07,%gloval1_item07
mov %item08,%gloval1_item08
mov %item09,%gloval1_item09
mov %item10,%gloval1_item10
mov %item11,%gloval1_item11
mov %item12,%gloval1_item12
mov %item13,%gloval1_item13
mov %item14,%gloval1_item14
mov %item15,%gloval1_item15
mov %item16,%gloval1_item16
mov %item17,%gloval1_item17
mov %item18,%gloval1_item18
mov %item19,%gloval1_item19
mov %item20,%gloval1_item20
mov %item21,%gloval1_item21
mov %item22,%gloval1_item22
mov %item23,%gloval1_item23
mov %item24,%gloval1_item24
mov %item25,%gloval1_item25
mov %item26,%gloval1_item26
mov %item27,%gloval1_item27
mov %item28,%gloval1_item28
mov %item29,%gloval1_item29
mov %item30,%gloval1_item30
mov %nanido,%gloval1_nanido
mov %saveloadoff,0
mov %manuoff,0
mov %storyon,1
if %gloval1_story_sinkou=1 mov %ruka_tati,0:mov %genzaiti,1:bgm"2Q\bgm\field5.ogg":return *map1
if %gloval1_story_sinkou=2 mov %ruka_tati,0:return *sean0090a
if %gloval1_story_sinkou=3 mov %ruka_tati,0:mov %genzaiti,5:bgm"bgm\field3.ogg":return *map2
if %gloval1_story_sinkou=4 mov %ruka_tati,0:bgm"bgm\field3.ogg":return *sean0130
if %gloval1_story_sinkou=5 mov %ruka_tati,0:mov %genzaiti,7:bgm"bgm\sabaku.ogg":return *map3
if %gloval1_story_sinkou=6 mov %ruka_tati,1:mov %genzaiti,9:bgm"bgm\field3.ogg":return *map4
if %gloval1_story_sinkou=7 mov %ruka_tati,1:bgm"bgm\field3.ogg":return *sean0199
if %gloval1_story_sinkou=8 mov %ruka_tati,1:mov %genzaiti,12:bgm"bgm\field3.ogg":return *map5
if %gloval1_story_sinkou=9 mov %ruka_tati,1:mov %genzaiti,19:bgm"bgm\field3.ogg":return *map6
if %gloval1_story_sinkou=10 mov %ruka_tati,1:mov %genzaiti,16:bgm"bgm\manotairiku.ogg":return *map7




*hikitugiload

screen_clear
screen_clear2
bg black,1
gosub *setwindow_01
lsp 700,":a;chara\iriasu_st01.bmp",0,0
bg "BG\bg001.bmp",10,1500
name "Ilias"
>This will load the cleared data from the first part.@
>Do you wish to load it?\
name ""
csel "Don't Load",*hikitugiload2,"Load",*hikitugiload1



*hikitugiload2

name "Ilias"
>Very well.@
>Back to the title screen...\
name ""
screen_clear
screen_clear2
bg black,10,1000
mov %saveloadoff,0
mov %manuoff,0
bgm"2Q\bgm\gn_night.ogg"
return



*hikitugiload1

name "Ilias"
>Very well.@
>Now, to continue your brave quest...\
name ""
bgmstop
screen_clear
screen_clear2
bg black,10,1000
mov %mylv,%gloval2_mylv
mov %exp,%gloval2_exp
mov %ivent01,%gloval2_ivent01
mov %ivent02,%gloval2_ivent02
mov %ivent03,%gloval2_ivent03
mov %ivent04,%gloval2_ivent04
mov %chromemansion,%gloval2_ivent05
mov %ivent06,%gloval2_ivent06
mov %ivent07,%gloval2_ivent07
mov %ivent08,%gloval2_ivent08
mov %ivent09,%gloval2_ivent09
mov %ivent10,%gloval2_ivent10
mov %ivent11,%gloval2_ivent11
mov %ivent12,%gloval2_ivent12
mov %ivent13,%gloval2_ivent13
mov %ivent14,%gloval2_ivent14
mov %ivent15,%gloval2_ivent15
mov %ivent16,%gloval2_ivent16
mov %ivent17,%gloval2_ivent17
mov %ivent18,%gloval2_ivent18
mov %ivent19,%gloval2_ivent19
mov %ivent20,%gloval2_ivent20
mov %check01,%gloval2_check01
mov %check02,%gloval2_check02
mov %check03,%gloval2_check03
mov %check04,%gloval2_check04
mov %check05,%gloval2_check05
mov %check06,%gloval2_check06
mov %check07,%gloval2_check07
mov %check08,%gloval2_check08
mov %check09,%gloval2_check09
mov %check10,%gloval2_check10
mov %check11,%gloval2_check11
mov %check12,%gloval2_check12
mov %check13,%gloval2_check13
mov %check14,%gloval2_check14
mov %check15,%gloval2_check15
mov %check16,%gloval2_check16
mov %check17,%gloval2_check17
mov %check18,%gloval2_check18
mov %check19,%gloval2_check19
mov %check20,%gloval2_check20
mov %skill01,%gloval2_skill01
mov %skill02,%gloval2_skill02
mov %skill03,%gloval2_skill03
mov %skill04,%gloval2_skill04
mov %skill05,%gloval2_skill05
mov %skill06,%gloval2_skill06
mov %skill07,%gloval2_skill07
mov %skill08,%gloval2_skill08
mov %skill09,%gloval2_skill09
mov %skill10,%gloval2_skill10
mov %item01,%gloval2_item01
mov %item02,%gloval2_item02
mov %item03,%gloval2_item03
mov %item04,%gloval2_item04
mov %item05,%gloval2_item05
mov %item06,%gloval2_item06
mov %item07,%gloval2_item07
mov %item08,%gloval2_item08
mov %item09,%gloval2_item09
mov %item10,%gloval2_item10
mov %item11,%gloval2_item11
mov %item12,%gloval2_item12
mov %item13,%gloval2_item13
mov %item14,%gloval2_item14
mov %item15,%gloval2_item15
mov %item16,%gloval2_item16
mov %item17,%gloval2_item17
mov %item18,%gloval2_item18
mov %item19,%gloval2_item19
mov %item20,%gloval2_item20
mov %item21,%gloval2_item21
mov %item22,%gloval2_item22
mov %item23,%gloval2_item23
mov %item24,%gloval2_item24
mov %item25,%gloval2_item25
mov %item26,%gloval2_item26
mov %item27,%gloval2_item27
mov %item28,%gloval2_item28
mov %item29,%gloval2_item29
mov %item30,%gloval2_item30
mov %nanido,%gloval2_nanido
mov %saveloadoff,0
mov %manuoff,0
mov %storyon,1
return *sean_restart2



*tougou

screen_clear
screen_clear2
bg black,1
gosub *setwindow_01
lsp 700,":a;chara\iriasu_st01.bmp",0,0
bg "BG\bg001.bmp",10,1500
name "Ilias"
>This will integrate the first chapter into this one, to combine them together into one.\
>You MUST have copied the previous games " arc.nsa " file into this parts      folder, overwriting the current arc.nsa.@
>If you have not done this, attempting this process will crash the game.\
>Now then, are you ready to combine the parts together?\
name ""
csel "Yes",*tougou1,"No",*hikitugiload2



*tougou1

name "Ilias"
>Now, to integrate them together.@
>If you have not copied the arc.nsa as mentioned, the game will crash          momentarily.\
lsp 701,":a;chara\slime_st01.bmp",0,0
wait 1000
csp 701
mov %tougou,1
>Congratulations, both parts have been combined together!@
>Now, back to the title screen...\
name ""
screen_clear
screen_clear2
bg black,10,1000
mov %saveloadoff,0
mov %manuoff,0
bgm"2Q\bgm\gn_night.ogg"
return



;===================================================================================
;?????
;===================================================================================

*backlog

	checkpage %sub1,1					;?????1?????????
	if %sub1=0  screen_clear : return			;?????????

	btndef clear : barclear : for %sub1=0 to 500 step 1 : csp %sub1 : next : print 1	;???????

	lsp 501,":a;system\system_bg.jpg",0,0 : print 1		;????

	mov %backlogtotal,0					;???????????
	mov %backlognow,0					;??????????????

	gosub *backlog_page					;???????????


;===================================================================================
;??????????????
;===================================================================================

*backlog_btn

	btndef clear

	gosub *backlog_scroll						;?????????????

	gosub *backlog_bar						;??????????????????

	lsp 201,":c;system\m_title_backlog.jpg",20,20			;?????????
	lsp 202,":c/2,0,3;system\return.bmp",20,560			;??????
	spbtn 202,202
	lsp 203,":a/2,0,3;system\system_cursor_up.jpg",760,0		;??????????
	spbtn 203,203
	lsp 204,":a/2,0,3;system\system_cursor_down.jpg",760,550	;??????????
	spbtn 204,204
	lsp 205,":c;system\system_bar.jpg",760,0			;????
	lsp 206,":c;system\system_barx_u.jpg",0,0			;??????
	lsp 207,":c;system\system_barx_d.jpg",0,560			;??????

	print 1

;?????-------------------------------------------------------------

	btndown 1							;??????????
	getpage								;pageup&pagedown????
	btnwait %bwait							;???????

	if %bwait> 0 && %bwait<4 && %backlogtotal<=4 : goto *backlog_btn				;?????=??(???????4?????)
	if %bwait> 0 && %bwait<4 && %bwait<=%backlogtotal mov %backlognow,%backlogtotal-4      : goto *backlog_btn	;?????=??(?????)
	if %bwait>=4 && %bwait<=%backlogtotal             mov %backlognow,%backlogtotal-%bwait : goto *backlog_btn	;?????=??

	if %bwait=202 wait 100 : screen_clear : print 1 : return						;?????=??
	if %bwait= -1 wait 100 : screen_clear : print 1 : return						;?????
	if %bwait=-10 wait 100 : screen_clear : print 1 : return						;ESC??
	if %bwait=-11 wait 100 : screen_clear : print 1 : return						;??????

	if %bwait=203 && %backlogtotal-4>%backlognow mov %backlognow,%backlognow+1 : wait 100	;?????=???????????
	if %bwait= -2 && %backlogtotal-4>%backlognow mov %backlognow,%backlognow+1		;?????
	if %bwait=-12 && %backlogtotal-4>%backlognow mov %backlognow,%backlognow+1		;PageUp??

	if %bwait=204 && 0<%backlognow mov %backlognow,%backlognow-1 : wait 100			;?????=???????????
	if %bwait= -3 && 0<%backlognow mov %backlognow,%backlognow-1				;?????
	if %bwait=-13 && 0<%backlognow mov %backlognow,%backlognow-1				;PageDown??

goto *backlog_btn


;===================================================================================
;??????????
;===================================================================================

;???????????--------------------------------------------------------

*backlog_page

	mov %backlogtotal,%backlogtotal+1				;backlogtotal????????
	checkpage %sub1,%backlogtotal					;??????????????
	if %sub1=1 goto *backlog_page					;??????????????

	return

;===================================================================================
;???????????
;===================================================================================

*backlog_scroll

;???????????--------------------------------------------------------

	getlog $backloglook,%backlognow						;??????????
	           strsp 301,$backloglook,50,430,39,5,18,18,0,5,1,1,#FFFFFF	;??????

	checkpage %sub1,%backlognow+1						;?1???????????
	if %sub1=1 getlog $backloglook,%backlognow+1				;?1?????????
	if %sub1=1 strsp 302,$backloglook,50,310,39,5,18,18,0,5,1,1,#FFFFFF	;?1?????

	checkpage %sub1,%backlognow+2						;?2???????????
	if %sub1=1 getlog $backloglook,%backlognow+2				;?2?????????
	if %sub1=1 strsp 303,$backloglook,50,180,39,5,18,18,0,5,1,1,#FFFFFF	;?2?????

	checkpage %sub1,%backlognow+3						;?3???????????
	if %sub1=1 getlog $backloglook,%backlognow+3				;?3?????????
	if %sub1=1 strsp 304,$backloglook,50, 50,39,5,18,18,0,5,1,1,#FFFFFF	;?3?????

	return


;===================================================================================
;???????
;===================================================================================

*backlog_bar

	mov %backlogbarone,48000/(%backlogtotal)				;????????
	if %backlogtotal= 1 mov %backlogbarone2,%backlogbarone*1		;????????
	if %backlogtotal= 2 mov %backlogbarone2,%backlogbarone*2		;????????
	if %backlogtotal= 3 mov %backlogbarone2,%backlogbarone*3		;????????
	if %backlogtotal>=4 mov %backlogbarone2,%backlogbarone*4		;????????

	mov %backlogbary,48000-%backlogbarone*%backlognow-%backlogbarone2 	;????Y????

	mov %backlogbary,%backlogbary+6000					;?????????

	bar 0,1,767,%backlogbary/100,16,%backlogbarone2/100,1,#DDDDDD		;????

	for %sub1=0 to %backlogtotal step 1					;?????????????
	btn %sub1,740,(%backlogbarone*(%sub1-1)+6000)/100,60,%backlogbarone,0,0	;?????
	next

	return


;===================================================================================
;???&???
;===================================================================================


*saveload

	mov %savetotal,100					;??????????...??(100??)

	btndef clear : barclear : for %sub1=0 to 500 step 1 : csp %sub1 : next : print 1	;???????

	lsp 501,":a;system\system_bg.jpg",0,0 : print 1		;????

;===================================================================================
;??????????????
;===================================================================================

*save_btn


	btndef clear							;?????

	csp 208								;?NEW!?????

	gosub *saveload_screen						;???????????????

	gosub *saveload_bar						;??????????????????

	if %saveorload=0 lsp 201,":c;system\m_title_save.jpg",20,20	;??????????????
	if %saveorload=1 lsp 201,":c;system\m_title_load.jpg",20,20	;??????????????

	lsp 202,":c/2,0,3;system\return.bmp",20,560			;?????????
	spbtn 202,202
	lsp 203,":a/2,0,3;system\system_cursor_up.jpg",760,0		;??????????
	spbtn 203,203
	lsp 204,":a/2,0,3;system\system_cursor_down.jpg",760,550	;??????????
	spbtn 204,204
	lsp 205,":c;system\system_bar.jpg",760,0			;????
	lsp 206,":c;system\system_barx_u.jpg",0,0			;??????
	lsp 207,":c;system\system_barx_d.jpg",0,560			;??????

;?????-------------------------------------------------------------

	btndown 1						;??????????
	getpage 						;pageup&pagedown????
	btnwait %bwait						;??????bwait???

	if %bwait>0            && %bwait<=%savetotal-5 mov %savepagenow,%bwait-1     : goto *save_btn	;?????=??
	if %bwait>%savetotal-5 && %bwait<=%savetotal   mov %savepagenow,%savetotal-5 : goto *save_btn	;?????=??(?????)

	if %saveorload=0 && %bwait>=301 && %bwait<=400 gosub *save_yesno : wait 100 : goto *saveload	;?????=??????
	if %saveorload=1 && %bwait>=301 && %bwait<=400 gosub *load_yesno : wait 100 : goto *save_btn	;?????=??????

	if %bwait=202 wait 100 : screen_clear : return							;?????=??
	if %bwait= -1 wait 100 : screen_clear : return							;?????
	if %bwait=-10 wait 100 : screen_clear : return							;ESC??
	if %bwait=-11 wait 100 : screen_clear : return							;??????

	if %bwait=203 && %savepagenow>0 mov %savepagenow,%savepagenow-1 : wait 100			;?????=???????
	if %bwait= -2 && %savepagenow>0 mov %savepagenow,%savepagenow-1					;?????
	if %bwait=-12 && %savepagenow>0 mov %savepagenow,%savepagenow-1					;PageDown??

	if %bwait=204 && %savepagenow<%savetotal-5 mov %savepagenow,%savepagenow+1 : wait 100		;?????=???????
	if %bwait= -3 && %savepagenow<%savetotal-5 mov %savepagenow,%savepagenow+1			;?????
	if %bwait=-13 && %savepagenow<%savetotal-5 mov %savepagenow,%savepagenow+1			;PageUp??

	goto *save_btn


;===================================================================================
;????????
;===================================================================================

;?????????-------------------------------------------------------------

*saveload_screen

	for %sub10=1 to 5 step 1					;?????5?????????
		mov %savedatanow,%savepagenow+%sub10
		savefileexist %save0or1,%savedatanow			;?????????????save0or1???
		if %sub10=1 mov %savepicx,80 : mov %savepicy,56		;??????X80...Y55???
		if %save0or1=0 gosub *data_none				;?????????????????
		if %save0or1=1 gosub *data_make				;???????????????????
		mov %savepicy,%savepicy+100				;Y???100????????
	next

	return


;????????----------------------------------------------------------

*data_none

	mov $sub2,""								;sub2??????
	mov $savenum,":s/20,20,0,0,0;#FF0000"					;???????
	itoa2 $sub1,%savedatanow						;????????????
	len %sub1,$sub1								;??????
	if %sub1<=4 mov $sub2,"0"						;0???
	if %sub1==2 add $sub2,"0"						;0???
	add $savenum,$sub2 :add $savenum,$sub1					;????????

	lsp   %sub10+10+300,":s/20,20,1;#FFFFFF",%savepicx,%savepicy			;?????????????
	lsp   %sub10+20+300,$savenum,%savepicx+180,%savepicy+5				;???????
	lsp   %sub10+30+300,":s/20,20,1;#FFFFFF",%savepicx+260,%savepicy+5		;?????????????
	lsp   %sub10+40+300,":s/20,20,1;#FFFFFF",%savepicx+180,%savepicy+25		;?????????????
	lsp   %sub10+50+300,":a/2,0,3;system\saveload_dummy.jpg",%savepicx,%savepicy	;???????
	spbtn %sub10+50+300,%sub10+50+300						;?????????
;????????????????????????????????????
;?csp?lsp???????????????????

	return


;????????----------------------------------------------------------

*data_make

	mov $savescreen,":c;save\save"						;savescreen????????????
	itoa $sub1,%savedatanow							;savedatanow?????????????
	add $savescreen,$sub1							;savescreen?????????
	add $savescreen,".bmp"							;savescreen???????

	mov $sub2,""								;sub2??????
	mov $savenum,":s/20,20,0,0,0;#FF0000"					;???????
	itoa2 $sub1,%savedatanow						;????????????
	len %sub1,$sub1								;??????
	if %sub1<=4 mov $sub2,"0"						;0???
	if %sub1==2 add $sub2,"0"						;0???
	add $savenum,$sub2 :add $savenum,$sub1					;????????

	mov %sub1,%savedatanow+7250					;???????????2000??
	split $%sub1,",",$savemonth,$saveday,$savehour,$saveminute,$savetext	;???????????????
	mov $savetime,":s/20,20,0,0,0;#FF0000"					;savetime????????????
	add $savetime,$savemonth  : add $savetime,"?"				;savetime?????
	add $savetime,$saveday    : add $savetime,"?"				;savetime?????
	add $savetime,$savehour   : add $savetime,"?"				;savetime?????
	add $savetime,$saveminute : add $savetime,"?"				;savetime?????

	lsp   %sub10+10+300,$savescreen,%savepicx,%savepicy					;???????
	lsp   %sub10+20+300,$savenum,%savepicx+180,%savepicy+5					;???????
	lsp   %sub10+30+300,$savetime,%savepicx+260,%savepicy+5					;???????
	strsp %sub10+40+300,$savetext,%savepicx+180,%savepicy+25,22,2,20,20,0,10,1,1,#FFFFFF	;?????????
	lsp   %sub10+50+300,":a/2,0,3;system\saveload_bookmark.jpg",%savepicx,%savepicy		;??????????
	spbtn %sub10+50+300,%sub10+50+300							;????????????


	if %savedatanow=%savenew lsp 208,":a;system\save_new.jpg",%savepicx+540,%savepicy+5	;??????????NEW!???

	return


;===================================================================================
;???????
;===================================================================================

*saveload_bar

	mov %savebarone,48000/%savetotal					;????????
	if %savetotal= 1 mov %savebarone2,%savebarone*1				;????????
	if %savetotal= 2 mov %savebarone2,%savebarone*2				;????????
	if %savetotal= 3 mov %savebarone2,%savebarone*3				;????????
	if %savetotal= 4 mov %savebarone2,%savebarone*4				;????????
	if %savetotal>=5 mov %savebarone2,%savebarone*5				;????????

	mov %savebary,48000-%savebarone*(%savetotal-%savepagenow)		;????Y????

	mov %savebary,%savebary+6000						;?????????

	bar 0,1,767,%savebary/100,16,%savebarone2/100,1,#DDDDDD			;????

	for %sub1=0 to %savetotal step 1					;???????????????
	btn %sub1,740,(%savebarone*(%sub1-1)+6000)/100,60,%savebarone,0,0	;?????
	next

	return

;===================================================================================
;?????
;===================================================================================

*save_yesno

	mov %savedatanow,%bwait-50-300+%savepagenow		;????????

	yesnobox %sub1,"Save Game?","Save Confirmation "		;???????
	if %sub1==0 return					;?????

	mid $savetextget,$savetextget,0,88							;?e?L?X?g?`?ga?S?S?????d?O?e?o??E

	mov $sub1,""						;???r?????p?I??h??n?u?n?a
	mov $sub2,""
	mov $sub3,""
	mov $sub4,""
	mov $sub5,""
	mov $sub6,""
	mov $sub7,""
	mov $sub8,""
	mov $sub9,""
	mov $sub10,""

	split $savetextget,"(",$sub1,$sub2,$sub4,$sub6,$sub8	;???r????????
	split $sub2,"/",$sub2,$sub3
	split $sub3,")",$sub3,$sub3
	split $sub4,"/",$sub4,$sub5
	split $sub5,")",$sub5,$sub5
	split $sub6,"/",$sub6,$sub7
	split $sub7,")",$sub7,$sub7
	split $sub8,"/",$sub8,$sub9
	split $sub9,")",$sub9,$sub9

	mov $savetextget,$sub1+$sub2+$sub3+$sub4+$sub5+$sub6+$sub7+$sub8+$sub9	;???r?????a?A????o

	input $savetextget,"Don't change the text (if you see a letter, don't worry).",$savetextget,88,1,300,85,200,20	;?Z?[?u?R????g?g?gu?I

	mov $savescreen,"save\save"						;savescreen?E?t?H???_?I?????n?d?gu?I
	itoa $sub1,%savedatanow							;savedatanow?I?Z?[?u?hO??o?d?????n?E?I?...
	add $savescreen,$sub1							;savescreen?A?Z?[?u?hO??o?d????o
	add $savescreen,".bmp"							;savescreen?E?g?f??q?d????o

	savescreenshot2 $savescreen						;?Z?[?u?na?E?U...?

	savegame %savedatanow							;??a?Y?I?f?[?^?d?Z?[?u
	savetime %savedatanow,%savemonth,%saveday,%savehour,%saveminute		;?Z?[?u?gu???d?O?e?o??E

	itoa2 $savemonth,%savemonth   :len %sub1,$savemonth  :if %sub1==2 mov $sub1,"?O" :add $sub1,$savemonth  :mov $savemonth,$sub1
	itoa2 $saveday,%saveday       :len %sub1,$saveday    :if %sub1==2 mov $sub1,"?O" :add $sub1,$saveday    :mov $saveday,$sub1
	itoa2 $savehour,%savehour     :len %sub1,$savehour   :if %sub1==2 mov $sub1,"?O" :add $sub1,$savehour   :mov $savehour,$sub1
	itoa2 $saveminute,%saveminute :len %sub1,$saveminute :if %sub1==2 mov $sub1,"?O" :add $sub1,$saveminute :mov $saveminute,$sub1

	mid $savetext,$savetextget,0,88			;?Z?[?u?e?L?X?g?d?a?g?
	mov $savedata,$savemonth  :add $savedata,","	;???d????o
	add $savedata,$saveday    :add $savedata,","	;?gu?d????o
	add $savedata,$savehour   :add $savedata,","	;???d????o
	add $savedata,$saveminute :add $savedata,","	;?a?d????o
	add $savedata,$savetext				;?e?L?X?g?d????o

	mov %savedata,%savedatanow+7250			;?O???[?o???I??h?I?hO??o?d?w?fe
	mov $%savedata,$savedata			;?O???[?o???I??h?E????o??E???f?[?^?d?U...?

	mov %savenew,%savedatanow			;?Z?[?u?hO??o?d?O???[?o???I??h?I?A?V?Z?[?u?hO??o?E?gu?I

	return

;===================================================================================
;?????
;===================================================================================

*load_yesno

	mov %savedatanow,%bwait-50-300+%savepagenow			;????????

	savefileexist %sub1,%savedatanow				;????????????
	if %sub1==0 return						;??????????
	yesnobox %sub1,"Load Game?","Load Confirmation "			;???????
	if %sub1==0 return						;???????????

	barclear

	if %sub1==1 lsp 2,":c;system\ef_black.jpg",0,0			;???????????????
	print 10,1000							;?????????
	loadgame %savedatanow						;?????


*load_config

if %gamefirst=1 textspeed %textspeed		;??????????
if %gamefirst=1 bgmvol %bgmvol			;BGM???????
if %gamefirst=1 sevol %sevol			;SE???????
if %gamefirst=1 && %windowsize=0 menu_window 	;??????????
if %gamefirst=1 && %windowsize=1 menu_full 	;??????????
if %hseanwave>0 hseanwave
if %hseanvoice>0 hseanvoice

if %txtwindow=1 gosub *setwindow_01
if %txtwindow=2 gosub *setwindow_02p
return

;======================================================================
;?????
;======================================================================
;000-100 ???????
;201-208 ??????
;301-400 ??????



;===================================================================================
;?????
;===================================================================================

*config

	btndef clear : barclear : for %sub1=0 to 500 step 1 : csp %sub1 : next : print 1	;???????

	lsp 501,":a;system\system_bg.jpg",0,0 : print 1		;????

;===================================================================================
;???????????
;===================================================================================

*config_btn

	btndef clear

	lsp 201,":c;system\m_title_config.jpg",20,20			;?????????
	lsp 202,":c/2,0,3;system\return.bmp",20,560			;??????
	spbtn 202,202


	lsp 203,":c;system\configback.jpg",0,0 				;????????????

;????????-------------------------------------------------------------

	if %textspeed=30 lsp 101,":a;system\config_cursor1.jpg",45,100			;??????
	if %textspeed=27 lsp 101,":a;system\config_cursor1.jpg",75,100
	if %textspeed=24 lsp 101,":a;system\config_cursor1.jpg",105,100
	if %textspeed=21 lsp 101,":a;system\config_cursor1.jpg",135,100
	if %textspeed=18 lsp 101,":a;system\config_cursor1.jpg",165,100
	if %textspeed=15 lsp 101,":a;system\config_cursor1.jpg",195,100
	if %textspeed=12 lsp 101,":a;system\config_cursor1.jpg",225,100
	if %textspeed=9  lsp 101,":a;system\config_cursor1.jpg",255,100
	if %textspeed=6  lsp 101,":a;system\config_cursor1.jpg",285,100
	if %textspeed=3  lsp 101,":a;system\config_cursor1.jpg",315,100
	if %textspeed=0  lsp 101,":a;system\config_cursor1.jpg",345,100

	btn 101,35,80,30,60,0,0								;???
	btn 102,65,80,30,60,0,0
	btn 103,95,80,30,60,0,0
	btn 104,125,80,30,60,0,0
	btn 105,155,80,30,60,0,0
	btn 106,185,80,30,60,0,0
	btn 107,215,80,30,60,0,0
	btn 108,245,80,30,60,0,0
	btn 109,275,80,30,60,0,0
	btn 110,305,80,30,60,0,0
	btn 111,335,80,30,60,0,0


;??????????-------------------------------------------------------------

	if %autotime=2000 lsp 102,":a;system\config_cursor1.jpg",45,200			;??????
	if %autotime=1800 lsp 102,":a;system\config_cursor1.jpg",75,200
	if %autotime=1600 lsp 102,":a;system\config_cursor1.jpg",105,200
	if %autotime=1400 lsp 102,":a;system\config_cursor1.jpg",135,200
	if %autotime=1200 lsp 102,":a;system\config_cursor1.jpg",165,200
	if %autotime=1000 lsp 102,":a;system\config_cursor1.jpg",195,200
	if %autotime=800  lsp 102,":a;system\config_cursor1.jpg",225,200
	if %autotime=600  lsp 102,":a;system\config_cursor1.jpg",255,200
	if %autotime=400  lsp 102,":a;system\config_cursor1.jpg",285,200
	if %autotime=200  lsp 102,":a;system\config_cursor1.jpg",315,200
	if %autotime=1    lsp 102,":a;system\config_cursor1.jpg",345,200

	btn 121,35,180,30,60,0,0							;???
	btn 122,65,180,30,60,0,0
	btn 123,95,180,30,60,0,0
	btn 124,125,180,30,60,0,0
	btn 125,155,180,30,60,0,0
	btn 126,185,180,30,60,0,0
	btn 127,215,180,30,60,0,0
	btn 128,245,180,30,60,0,0
	btn 129,275,180,30,60,0,0
	btn 130,305,180,30,60,0,0
	btn 131,335,180,30,60,0,0


;BGM?????-------------------------------------------------------------

	if %bgmvol=0   lsp 103,":a;system\config_cursor1.jpg",45,300			;??????
	if %bgmvol=10  lsp 103,":a;system\config_cursor1.jpg",75,300
	if %bgmvol=20  lsp 103,":a;system\config_cursor1.jpg",105,300
	if %bgmvol=30  lsp 103,":a;system\config_cursor1.jpg",135,300
	if %bgmvol=40  lsp 103,":a;system\config_cursor1.jpg",165,300
	if %bgmvol=50  lsp 103,":a;system\config_cursor1.jpg",195,300
	if %bgmvol=60  lsp 103,":a;system\config_cursor1.jpg",225,300
	if %bgmvol=70  lsp 103,":a;system\config_cursor1.jpg",255,300
	if %bgmvol=80  lsp 103,":a;system\config_cursor1.jpg",285,300
	if %bgmvol=90  lsp 103,":a;system\config_cursor1.jpg",315,300
	if %bgmvol=100 lsp 103,":a;system\config_cursor1.jpg",345,300

	btn 141,35,280,30,60,0,0							;???
	btn 142,65,280,30,60,0,0
	btn 143,95,280,30,60,0,0
	btn 144,125,280,30,60,0,0
	btn 145,155,280,30,60,0,0
	btn 146,185,280,30,60,0,0
	btn 147,215,280,30,60,0,0
	btn 148,245,280,30,60,0,0
	btn 149,275,280,30,60,0,0
	btn 150,305,280,30,60,0,0
	btn 151,335,280,30,60,0,0

;SE?????-------------------------------------------------------------

	if %sevol=0   lsp 104,":a;system\config_cursor1.jpg",45,400			;??????
	if %sevol=10  lsp 104,":a;system\config_cursor1.jpg",75,400
	if %sevol=20  lsp 104,":a;system\config_cursor1.jpg",105,400
	if %sevol=30  lsp 104,":a;system\config_cursor1.jpg",135,400
	if %sevol=40  lsp 104,":a;system\config_cursor1.jpg",165,400
	if %sevol=50  lsp 104,":a;system\config_cursor1.jpg",195,400
	if %sevol=60  lsp 104,":a;system\config_cursor1.jpg",225,400
	if %sevol=70  lsp 104,":a;system\config_cursor1.jpg",255,400
	if %sevol=80  lsp 104,":a;system\config_cursor1.jpg",285,400
	if %sevol=90  lsp 104,":a;system\config_cursor1.jpg",315,400
	if %sevol=100 lsp 104,":a;system\config_cursor1.jpg",345,400

	btn 161,35,380,30,60,0,0							;???
	btn 162,65,380,30,60,0,0
	btn 163,95,380,30,60,0,0
	btn 164,125,380,30,60,0,0
	btn 165,155,380,30,60,0,0
	btn 166,185,380,30,60,0,0
	btn 167,215,380,30,60,0,0
	btn 168,245,380,30,60,0,0
	btn 169,275,380,30,60,0,0
	btn 170,305,380,30,60,0,0
	btn 171,335,380,30,60,0,0

;??????-------------------------------------------------------------

	if %click=0 : lsp 111,":a;system\config_cursor2.jpg",420,110
	if %click=1 : lsp 111,":a;system\config_cursor2.jpg",610,110

	btn 181,420,100,170,40,0,0							;?????
	btn 182,610,100,170,40,0,0

;????-------------------------------------------------------------

	if %skip=0 : lsp 112,":a;system\config_cursor2.jpg",420,210
	if %skip=1 : lsp 112,":a;system\config_cursor2.jpg",610,210

	btn 183,420,200,170,40,0,0							;?????
	btn 184,610,200,170,40,0,0

;????-------------------------------------------------------------

	if %effectspeed=0 : lsp 113,":a;system\config_cursor3.jpg",420,310
	if %effectspeed=1 : lsp 113,":a;system\config_cursor3.jpg",540,310
	if %effectspeed=2 : lsp 113,":a;system\config_cursor3.jpg",660,310

	btn 185,420,300,120,40,0,0							;?????
	btn 186,540,300,120,40,0,0
	btn 187,660,300,120,40,0,0

;????????-------------------------------------------------------------

	if %windowsize=0 : lsp 114,":a;system\config_cursor2.jpg",420,410
	if %windowsize=1 : lsp 114,":a;system\config_cursor2.jpg",610,410

	btn 188,420,400,170,40,0,0							;?????
	btn 189,610,400,170,40,0,0


	print 1

;?????-------------------------------------------------------------

	btnwait %bwait									;???????

	if %bwait=101 textspeed 30 : mov %textspeed,30 : goto *config_btn
	if %bwait=102 textspeed 27 : mov %textspeed,27 : goto *config_btn
	if %bwait=103 textspeed 24 : mov %textspeed,24 : goto *config_btn
	if %bwait=104 textspeed 21 : mov %textspeed,21 : goto *config_btn
	if %bwait=105 textspeed 18 : mov %textspeed,18 : goto *config_btn
	if %bwait=106 textspeed 15 : mov %textspeed,15 : goto *config_btn
	if %bwait=107 textspeed 12 : mov %textspeed,12 : goto *config_btn
	if %bwait=108 textspeed 9  : mov %textspeed,9  : goto *config_btn
	if %bwait=109 textspeed 6  : mov %textspeed,6  : goto *config_btn
	if %bwait=110 textspeed 3  : mov %textspeed,3  : goto *config_btn
	if %bwait=111 textspeed 0  : mov %textspeed,0  : goto *config_btn

	if %bwait=121 mov %autotime,2000 : goto *config_btn
	if %bwait=122 mov %autotime,1800 : goto *config_btn
	if %bwait=123 mov %autotime,1600 : goto *config_btn
	if %bwait=124 mov %autotime,1400 : goto *config_btn
	if %bwait=125 mov %autotime,1200 : goto *config_btn
	if %bwait=126 mov %autotime,1000 : goto *config_btn
	if %bwait=127 mov %autotime,800  : goto *config_btn
	if %bwait=128 mov %autotime,600  : goto *config_btn
	if %bwait=129 mov %autotime,400  : goto *config_btn
	if %bwait=130 mov %autotime,200  : goto *config_btn
	if %bwait=131 mov %autotime,1    : goto *config_btn

	if %bwait=141 bgmvol 0   : mov %bgmvol,0  : goto *config_btn
	if %bwait=142 bgmvol 10  : mov %bgmvol,10 : goto *config_btn
	if %bwait=143 bgmvol 20  : mov %bgmvol,20 : goto *config_btn
	if %bwait=144 bgmvol 30  : mov %bgmvol,30 : goto *config_btn
	if %bwait=145 bgmvol 40  : mov %bgmvol,40 : goto *config_btn
	if %bwait=146 bgmvol 50  : mov %bgmvol,50 : goto *config_btn
	if %bwait=147 bgmvol 60  : mov %bgmvol,60 : goto *config_btn
	if %bwait=148 bgmvol 70  : mov %bgmvol,70 : goto *config_btn
	if %bwait=149 bgmvol 80  : mov %bgmvol,80 : goto *config_btn
	if %bwait=150 bgmvol 90  : mov %bgmvol,90 : goto *config_btn
	if %bwait=151 bgmvol 100 : mov %bgmvol,100 : goto *config_btn

	if %bwait=161 sevol 0   : mov %sevol,0   : goto *config_btn
	if %bwait=162 sevol 10  : mov %sevol,10  : goto *config_btn
	if %bwait=163 sevol 20  : mov %sevol,20  : goto *config_btn
	if %bwait=164 sevol 30  : mov %sevol,30  : goto *config_btn
	if %bwait=165 sevol 40  : mov %sevol,40  : goto *config_btn
	if %bwait=166 sevol 50  : mov %sevol,50  : goto *config_btn
	if %bwait=167 sevol 60  : mov %sevol,60  : goto *config_btn
	if %bwait=168 sevol 70  : mov %sevol,70  : goto *config_btn
	if %bwait=169 sevol 80  : mov %sevol,80  : goto *config_btn
	if %bwait=170 sevol 90  : mov %sevol,90  : goto *config_btn
	if %bwait=171 sevol 100 : mov %sevol,100 : goto *config_btn

	if %bwait=181 menu_click_def  : mov %click,0 : goto *config_btn
	if %bwait=182 menu_click_page : mov %click,1 : goto *config_btn

	if %bwait=183 kodoumode 1 : mov %skip,0 : goto *config_btn
	if %bwait=184 kodoumode 0 : mov %skip,1 : goto *config_btn

	if %bwait=185 seteffectspeed 0 : mov %effectspeed,0 : goto *config_btn
	if %bwait=186 seteffectspeed 1 : mov %effectspeed,1 : goto *config_btn
	if %bwait=187 seteffectspeed 2 : mov %effectspeed,2 : goto *config_btn

	if %bwait=188 menu_window : mov %windowsize,0 : goto *config_btn
	if %bwait=189 menu_full   : mov %windowsize,1 : goto *config_btn

	if %bwait=202 wait 100 : screen_clear : return		;?????=??
	if %bwait= -1 wait 100 : screen_clear : return		;?????
	if %bwait=-10 wait 100 : screen_clear : return		;ESC??
	if %bwait=-11 wait 100 : screen_clear : return		;??????

goto *config_btn

;======================================================================
;?????
;======================================================================
;101-115 ???????
;201-205 ??????
s


;===============================================================
;????
;===============================================================


*menu_item

saveoff
screen_clear
mov %page,1
lsp 502,":a;system\system_bg.jpg",0,0			;????
lsp 501,":a;system\window5.bmp",25,50			;????
lsp 141,":c;system\m_title_item.jpg",20,20
lsp 142,":c;system\system_barx_u.jpg",0,0			;??????
lsp 143,":c;system\system_barx_d.jpg",0,560			;??????



*menu_item2

cspl 201,217
if %page=0 mov %page,3
if %page=4 mov %page,1
itoa2 $page_h,%page
if %page=1 goto *menu_item_page1
if %page=2 goto *menu_item_page2
if %page=3 goto *menu_item_page3
print 1



*menu_item_page1

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,400:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,400:spbtn 113,113
lsp 144,":s/20,20,0;#FFFFFFBattle",370,400

if %player=2 skip 9
if %ng>0 lsp 201,":s/20,20,0;#FFFFFF#FF4444Iron Sword",50,80:spbtn 201,201
if %ng>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Angel Halo",400,110:spbtn 204,204
if %item01<5 && %ng<1 lsp 201,":s/20,20,0;#FFFFFF#FF4444Iron Sword",50,80:spbtn 201,201
if %item01>4 && %ng<1 lsp 201,":s/20,20,0;#FFFFFF#FF4444Angel Halo",50,80:spbtn 201,201
if %item01<4 lsp 202,":s/20,20,0;#FFFFFF#FF4444Cloth Shirt",400,80:spbtn 202,202
if %item01>3 lsp 202,":s/20,20,0;#FFFFFF#FF4444Enrikan Shirt",400,80:spbtn 202,202
if %item01>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Keepsake Ring",50,110:spbtn 203,203
if %player!=2 skip 4
if lsp 201,":s/20,20,0;#FFFFFF#FF4444Salamander's Blade",50,80:spbtn 201,201
if lsp 202,":s/20,20,0;#FFFFFF#FF4444Bronze Breastplate",400,80:spbtn 202,202
if lsp 203,":s/20,20,0;#FFFFFF#FF4444Cool Mantle",50,110:spbtn 203,203
;if %item01>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444",400,110:spbtn 204,204
if %item01>0 lsp 205,":s/20,20,0;#FFFFFF#FF4444",50,140:spbtn 205,205
if %item01>0 lsp 206,":s/20,20,0;#FFFFFF#FF4444",50,170:spbtn 206,206
if %item01>0 lsp 207,":s/20,20,0;#FFFFFF#FF4444",400,200:spbtn 207,207
if %item01>0 lsp 208,":s/20,20,0;#FFFFFF#FF4444",50,230:spbtn 208,208
if %item01>0 lsp 209,":s/20,20,0;#FFFFFF#FF4444",400,260:spbtn 209,209
if %item01>0 lsp 210,":s/20,20,0;#FFFFFF#FF4444",50,290:spbtn 210,210
if %item01>0 lsp 211,":s/20,20,0;#FFFFFF#FF4444",50,230:spbtn 211,211
if %item01>0 lsp 212,":s/20,20,0;#FFFFFF#FF4444",400,230:spbtn 212,212
if %item01>0 lsp 213,":s/20,20,0;#FFFFFF#FF4444",50,260:spbtn 210,210
if %item01>0 lsp 214,":s/20,20,0;#FFFFFF#FF4444",400,260:spbtn 211,211
if %item01>0 lsp 215,":s/20,20,0;#FFFFFF#FF4444",50,290:spbtn 212,212

btnwait %bwait

if %bwait=201 gosub *item001
if %bwait=202 gosub *item002
if %bwait=203 gosub *item003
if %bwait=204 gosub *item001b
if %bwait=205 gosub *item005
if %bwait=206 gosub *item006
if %bwait=207 gosub *item007
if %bwait=208 gosub *item008
if %bwait=209 gosub *item009
if %bwait=210 gosub *item010
if %bwait=211 gosub *item011
if %bwait=212 gosub *item012

if %bwait=112 mov %page,%page-1:cspl 301,303:goto *menu_item2
if %bwait=113 mov %page,%page+1:cspl 301,303:goto *menu_item2
if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????

goto *menu_item_page1



*menu_item_page2

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,400:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,400:spbtn 113,113
lsp 144,":s/20,20,0;#FFFFFFValuables",350,400

if %red_orb>0 lsp 201,":s/20,20,0;#FFFFFF#FF4444Red Orb",50,80:spbtn 201,201
if %yellow_orb>0 lsp 202,":s/20,20,0;#FFFFFF#FF4444Yellow Orb",400,80:spbtn 202,202
if %green_orb>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Green Orb",50,110:spbtn 203,203
if %blue_orb>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Blue Orb",400,110:spbtn 204,204
if %silver_orb>0 lsp 205,":s/20,20,0;#FFFFFF#FF4444Silver Orb",50,140:spbtn 205,205
if %purple_orb>0 lsp 206,":s/20,20,0;#FFFFFF#FF4444Purple Orb",400,140:spbtn 206,206
if %item01>5 lsp 207,":s/20,20,0;#FFFFFF#FF4444Poseidon's Bell",50,170:spbtn 207,207
if %item04>0 lsp 208,":s/20,20,0;#FFFFFF#FF4444Ball of Guidance",400,170:spbtn 208,208
if %item04=1 lsp 209,":s/20,20,0;#FFFFFF#FF4444Written Pledge",50,200:spbtn 209,209
if %item04=2 lsp 209,":s/20,20,0;#FFFFFF#FF4444Ring of Promise",50,200:spbtn 209,209
if %item01>0 lsp 210,":s/20,20,0;#FFFFFF#FF4444",400,200:spbtn 210,210
if %item01>0 lsp 211,":s/20,20,0;#FFFFFF#FF4444",50,230:spbtn 211,211
if %item01>0 lsp 212,":s/20,20,0;#FFFFFF#FF4444",400,230:spbtn 212,212
if %item01>0 lsp 213,":s/20,20,0;#FFFFFF#FF4444",50,260:spbtn 210,210
if %item01>0 lsp 214,":s/20,20,0;#FFFFFF#FF4444",400,260:spbtn 211,211
if %item01>0 lsp 215,":s/20,20,0;#FFFFFF#FF4444",50,290:spbtn 212,212

btnwait %bwait

if %bwait=201 gosub *item006
if %bwait=202 gosub *item011
if %bwait=203 gosub *item012
if %bwait=204 gosub *item013
if %bwait=205 gosub *item014
if %bwait=206 gosub *item015
if %bwait=207 gosub *item008
if %bwait=208 gosub *item009
if %bwait=209 gosub *item010
if %bwait=210 gosub *item022
if %bwait=211 gosub *item023
if %bwait=212 gosub *item024

if %bwait=112 mov %page,%page-1:cspl 301,303:goto *menu_item2
if %bwait=113 mov %page,%page+1:cspl 301,303:goto *menu_item2
if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????

goto *menu_item_page2



*menu_item_page3

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,400:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,400:spbtn 113,113
lsp 144,":s/20,20,0;#FFFFFFOther",370,400

if %item01>1 lsp 201,":s/20,20,0;#FFFFFF#FF4444World Traveler",50,80:spbtn 201,201
if %item01>2 lsp 202,":s/20,20,0;#FFFFFF#FF4444Ama-Ama Dango",400,80:spbtn 202,202
if %item03>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Happiness Honey",50,110:spbtn 203,203
if %item01>6 lsp 204,":s/20,20,0;#FFFFFF#FF4444Grilled Starfish",400,110:spbtn 204,204
;if %item01>7 lsp 205,":s/20,20,0;#FFFFFF#FF4444Four Animists and their Sources",50,140:spbtn 205,205
if %item10=1 lsp 206,":s/20,20,0;#FFFFFF#FF4444Sacred Anti-Ghost Water",400,140:spbtn 206,206
if %item11=1 lsp 207,":s/20,20,0;#FFFFFF#FF4444Grilled Sea Anemone",50,170:spbtn 207,207
if %item12=1 lsp 208,":s/20,20,0;#FFFFFF#FF4444Fairy Acorn",400,170:spbtn 208,208
if %item12=2 lsp 208,":s/20,20,0;#FFFFFF#FF4444Jewel of Friendship",400,170:spbtn 208,208
if %item01>8 lsp 209,":s/20,20,0;#FFFFFF#FF4444Basket of Scorpions",50,200:spbtn 209,209
if %item13=1 lsp 210,":s/20,20,0;#FFFFFF#FF4444Genie's Lamp",400,200:spbtn 210,210
if %item13=2 lsp 210,":s/20,20,0;#FFFFFF#FF4444Lottery Ticket",400,200:spbtn 210,210
if %item13=3 lsp 210,":s/20,20,0;#FFFFFF#FF4444Jewel of Fortune",400,200:spbtn 210,210
if %item14=1 lsp 211,":s/20,20,0;#FFFFFF#FF4444Alraune Flower",50,230:spbtn 211,211
if %item15=1 lsp 212,":s/20,20,0;#FFFFFF#FF4444Nekomata's Bell",400,230:spbtn 212,212
if %item16=1 lsp 213,":s/20,20,0;#FFFFFF#FF4444Tamamo Ball",50,260:spbtn 213,213
if %item17=1 lsp 214,":s/20,20,0;#FFFFFF#FF4444Hero's Proof",400,260:spbtn 214,214
if %item18=1 lsp 215,":s/20,20,0;#FFFFFF#FF4444Jewel of Victory",50,290:spbtn 215,215
if %item19=1 lsp 216,":s/20,20,0;#FFFFFF#FF4444Sand Ruby",400,290:spbtn 216,216
if %item20=1 lsp 217,":s/20,20,0;#FFFFFF#FF4444Butterscotch Candy",50,320:spbtn 217,217

btnwait %bwait

if %bwait=201 gosub *item004
if %bwait=202 gosub *item005
if %bwait=203 gosub *item007
if %bwait=204 gosub *item016
if %bwait=205 gosub *item017
if %bwait=206 gosub *item018
if %bwait=207 gosub *item019
if %bwait=208 gosub *item020
if %bwait=209 gosub *item021
if %bwait=210 gosub *item022
if %bwait=211 gosub *item023
if %bwait=212 gosub *item024
if %bwait=213 gosub *item025
if %bwait=214 gosub *item026
if %bwait=215 gosub *item027
if %bwait=216 gosub *item028
if %bwait=217 gosub *item029

if %bwait=112 mov %page,%page-1:cspl 301,303:goto *menu_item2
if %bwait=113 mov %page,%page+1:cspl 301,303:goto *menu_item2
if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????

goto *menu_item_page3



*item001

if %ng<1 skip 5
lsp 301,":s/20,20,0;#FFFFFFAn Iron Sword custom made for me.",50,450
lsp 302,":s/20,20,0;#FFFFFFI don't want to fight anyone with it, but...",50,480
lsp 303,":s/20,20,0;#FFFFFFI keep it by my side just in case I need it.",50,510
return
if %item01<5 lsp 301,":s/20,20,0;#FFFFFFA sword received from the village blacksmith.",50,450
if %item01<5 lsp 302,":s/20,20,0;#FFFFFFCustom made to fit Luka's small stature.",50,480
if %item01<5 lsp 303,":s/20,20,0;#FFFFFF",50,510
if %item01>4 lsp 301,":s/20,20,0;#FFFFFFA creepy sword received from Alice.",50,450
if %item01>4 lsp 302,":s/20,20,0;#FFFFFFMade from 666 melted angels, it can seal monsters.",50,480
if %item01>4 lsp 303,":s/20,20,0;#FFFFFF",50,510
if %player=2 lsp 301,":s/20,20,0;#FFFFFFMy sword, and my most important possession.",50,450
if %player=2 lsp 302,":s/20,20,0;#FFFFFFI never go anywhere without it.",50,480
if %player=2 lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*item001b

lsp 301,":s/20,20,0;#FFFFFFA legendary and grotesque sword that can seal any opponent.",50,450
lsp 302,":s/20,20,0;#FFFFFFIt lets me fight without killing.",50,480
lsp 303,":s/20,20,0;#FFFFFFI somehow kept it with me after being sent back in time.",50,510
return

*item002

if %item01<4 lsp 301,":s/20,20,0;#FFFFFFClothes made by Betty.",50,450
if %item01<4 lsp 302,":s/20,20,0;#FFFFFFWell made, but not designed for combat.",50,480
if %item01<4 lsp 303,":s/20,20,0;#FFFFFF",50,510
if %item01>3 lsp 301,":s/20,20,0;#FFFFFFProtective clothing from Enrika.",50,450
if %item01>3 lsp 302,":s/20,20,0;#FFFFFFThough it's very light, it's very durable.",50,480
if %item01>3 lsp 303,":s/20,20,0;#FFFFFF",50,510
if %player=2 lsp 301,":s/20,20,0;#FFFFFFMy armor.",50,450
if %player=2 lsp 302,":s/20,20,0;#FFFFFFIt leaves my arms and legs free, so that",50,480
if %player=2 lsp 303,":s/20,20,0;#FFFFFFI can move quicker and easier.",50,510
return



*item003

lsp 301,":s/20,20,0;#FFFFFFA keepsake of my mother.",50,450
lsp 302,":s/20,20,0;#FFFFFFThis time, I'll be sure to take good care of it.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %player=2 lsp 301,":s/20,20,0;#FFFFFFThere's nothing special about this.",50,450
if %player=2 lsp 302,":s/20,20,0;#FFFFFFI just like how it looks.",50,480
if %player=2 lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item004

lsp 301,":s/20,20,0;#FFFFFFThe ultimate guide for any adventurer or gourmet.",50,450
lsp 302,":s/20,20,0;#FFFFFFBut it's 500 years old, so the information is outdated.",50,480
lsp 303,":s/20,20,0;#FFFFFF...Why is Alice making me hold it?",50,510
return



*item005

lsp 301,":s/20,20,0;#FFFFFFThe ultimate luxury product of the [Sutherland Inn].",50,450
lsp 302,":s/20,20,0;#FFFFFFMade with Happiness Honey, it's very sweet.",50,480
lsp 303,":s/20,20,0;#FFFFFFI'm surprised Alice hasn't eaten it out of my hand.",50,510
return



*item006

lsp 301,":s/20,20,0;#FFFFFFA Red Orb to revive the Holy Wings.",50,450
lsp 302,":s/20,20,0;#FFFFFFI need to collect all six Orbs to awaken the Garuda Girl.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item007

lsp 301,":s/20,20,0;#FFFFFFSweet honey from the Happiness Village.",50,450
lsp 302,":s/20,20,0;#FFFFFFIt's good on bread, and to eat from the jar.",50,480
lsp 303,":s/20,20,0;#FFFFFFAs expected, Alice makes me carry this too.",50,510
return



*item008

lsp 301,":s/20,20,0;#FFFFFFA treasure of Captain Selene.",50,450
lsp 302,":s/20,20,0;#FFFFFFAs long as it's on the bow of a ship, any storm can be weathered.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item009

lsp 301,":s/20,20,0;#FFFFFFA gem received from Meia.",50,450
lsp 302,":s/20,20,0;#FFFFFFWith this, I can get to the sea temple.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item010

if %item04=1 lsp 301,":s/20,20,0;#FFFFFFA pledge from Meia and her husband.",50,450
if %item04=1 lsp 302,":s/20,20,0;#FFFFFFWhat kind of ceremony is this, anyway...?",50,480
if %item04=2 lsp 301,":s/20,20,0;#FFFFFFMatching rings given by Kraken.",50,450
if %item04=2 lsp 302,":s/20,20,0;#FFFFFFI need to give these to Meia and her husband.",50,480
if %item04=2 lsp 303,":s/20,20,0;#FFFFFFThis is their proof of marriage.",50,510
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item011

lsp 301,":s/20,20,0;#FFFFFFA Yellow Orb to revive the Holy Wings.",50,450
lsp 302,":s/20,20,0;#FFFFFFI need to collect all six Orbs to awaken the Garuda Girl.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item012

lsp 301,":s/20,20,0;#FFFFFFA Green Orb to revive the Holy Wings.",50,450
lsp 302,":s/20,20,0;#FFFFFFI need to collect all six Orbs to awaken the Garuda Girl.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item013

lsp 301,":s/20,20,0;#FFFFFFA Blue Orb to revive the Holy Wings.",50,450
lsp 302,":s/20,20,0;#FFFFFFI need to collect all six Orbs to awaken the Garuda Girl.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item014

lsp 301,":s/20,20,0;#FFFFFFA Silver Orb to revive the Holy Wings.",50,450
lsp 302,":s/20,20,0;#FFFFFFI need to collect all six Orbs to awaken the Garuda Girl.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item015

lsp 301,":s/20,20,0;#FFFFFFA Purple Orb to revive the Holy Wings.",50,450
lsp 302,":s/20,20,0;#FFFFFFI need to collect all six Orbs to awaken the Garuda Girl.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item016

lsp 301,":s/20,20,0;#FFFFFFAn inedible food I was forced to buy in Port Natalia.",50,450
lsp 302,":s/20,20,0;#FFFFFFEven Alice doesn't want it...",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item017

lsp 301,":s/20,20,0;#FFFFFFA book [borrowed] from San Ilia castle.",50,450
lsp 302,":s/20,20,0;#FFFFFFI can't return it, so I may have it checked out a while.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item018

lsp 301,":s/20,20,0;#FFFFFFAnti-ghost water bought in San Ilia.",50,450
lsp 302,":s/20,20,0;#FFFFFFI think it's normal water.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item019

lsp 301,":s/20,20,0;#FFFFFFAn inedible food I was forced to buy in Port Natalia.",50,450
lsp 302,":s/20,20,0;#FFFFFFIt seems worse than the starfish.",50,480
lsp 303,":s/20,20,0;#FFFFFFAlice is horrified at it.",50,510
return



*item020

if %item12=1 lsp 301,":s/20,20,0;#FFFFFFA sign of friendship from a cute fairy.",50,450
if %item12=1 lsp 302,":s/20,20,0;#FFFFFFPower flowed through me when I got it.",50,480
if %item12=1 lsp 303,":s/20,20,0;#FFFFFFIt's an important treasure of mine.",50,510
if %item12=2 lsp 301,":s/20,20,0;#FFFFFFCreated by combining the Fairy Acorn and Nekomata's Bell",50,450
if %item12=2 lsp 302,":s/20,20,0;#FFFFFFHolding the power of friendship, I can see the Fairies and Nekomata",50,480
if %item12=2 lsp 303,":s/20,20,0;#FFFFFFIt's an important treasure to me.",50,510
return



*item021

lsp 301,":s/20,20,0;#FFFFFFAlice caught a bunch of scorpions again.",50,450
lsp 302,":s/20,20,0;#FFFFFF...Why am I still holding this...?",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item022

if %item13=1 lsp 301,":s/20,20,0;#FFFFFFA lamp containing a Genie Girl.",50,450
if %item13=1 lsp 302,":s/20,20,0;#FFFFFFIt was dangerous to leave her there, so I kept it.",50,480
if %item13=1 lsp 303,":s/20,20,0;#FFFFFFI can't destroy it or dispose of it... How annoying.",50,510
if %item13=2 lsp 301,":s/20,20,0;#FFFFFFA lottery ticket given with gold for the lamp.",50,450
if %item13=2 lsp 302,":s/20,20,0;#FFFFFFLooks like I can use it in Gold Port.",50,480
if %item13=2 lsp 303,":s/20,20,0;#FFFFFF",50,510
if %item13=3 lsp 301,":s/20,20,0;#FFFFFFThe first prize from the lottery.",50,450
if %item13=3 lsp 302,":s/20,20,0;#FFFFFFIt used to have the power of luck, but it's mostly gone now.",50,480
if %item13=3 lsp 303,":s/20,20,0;#FFFFFFSeems worthless.",50,510
return



*item023

if %item14=1 lsp 301,":s/20,20,0;#FFFFFFA strange flower bought from an Alraune florist.",50,450
if %item14=1 lsp 302,":s/20,20,0;#FFFFFFPart of it is wilting...",50,480
if %item14=1 lsp 303,":s/20,20,0;#FFFFFFDue to the large bite mark from Alice on it...",50,510
return



*item024

lsp 301,":s/20,20,0;#FFFFFFA bell from a Nekomata.",50,450
lsp 302,":s/20,20,0;#FFFFFFThere was some power in it at first, but not any longer.",50,480
lsp 303,":s/20,20,0;#FFFFFFI had to give food to get it. Alice might get angry if she finds out.",50,510
return



*item025

lsp 301,":s/20,20,0;#FFFFFFIt's fluffy...",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item026

lsp 301,":s/20,20,0;#FFFFFFA beautiful medal that only a true Hero can hold.",50,450
lsp 302,":s/20,20,0;#FFFFFFUseless medal. I can only look at it and smirk.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*item027

if %item18=1 lsp 301,":s/20,20,0;#FFFFFFA jewel obtained from Amira.",50,450
if %item18=1 lsp 302,":s/20,20,0;#FFFFFFIt held the power of victory, but it's mostly gone now.",50,480
if %item18=1 lsp 303,":s/20,20,0;#FFFFFFSeems to be useless.",50,510
return

*item028

lsp 301,":s/20,20,0;#FFFFFFA beautiful red gem received from Gnome.",50,450
lsp 302,":s/20,20,0;#FFFFFFNo matter the light, it softly shines.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*item029

lsp 301,":s/20,20,0;#FFFFFFA small piece of butterscotch candy received from Gnome.",50,450
lsp 302,":s/20,20,0;#FFFFFFI'm tempted to eat it, but I like keeping it as a keepsake.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

;===============================================================
;?
;===============================================================


*menu_skill

saveoff
screen_clear
lsp 502,":a;system\system_bg.jpg",0,0			;????
lsp 501,":a;system\window5.bmp",25,50			;????
lsp 141,":c;system\m_title_skill.jpg",20,20
lsp 142,":c;system\system_barx_u.jpg",0,0			;??????
lsp 143,":c;system\system_barx_d.jpg",0,560			;??????


*menu_skill2

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
if %player!=2 skip 9
lsp 201,":s/20,20,0;#FFFFFF#FF4444Dragon Butcher Attack (SP:3)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Cursed Sword * Decapitation (SP:2)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust * Gale (SP:2)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Beheading * Purgatory (SP:3)",400,120:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star (SP:4)",50,160:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Vaporizing Rebellion Sword (SP:8)",400,160:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Serene Mind (SP:8)",50,200:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Blaze (SP:8)",400,200:spbtn 208,208
if %player!=0 skip 46
if %skill01>0 lsp 201,":s/20,20,0;#FFFFFF#FF4444Demon Decapitation (SP:2)",50,80:spbtn 201,201
if %skill01>12 lsp 201,":s/20,20,0;#FFFFFF#FF4444Serene Demon Sword (SP:2)",50,80:spbtn 201,201
if %skill01>16 lsp 201,":s/20,20,0;#FFFFFF#FF4444Demon Decapitation (SP:2)",50,80:spbtn 201,201
if %skill01>18 lsp 201,":s/20,20,0;#FFFFFF#FF4444Flash Kill (SP:2)",50,80:spbtn 201,201
if %skill01>2 && %skill01<11 lsp 202,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust (SP:2)",400,80:spbtn 202,202
if %skill01>10 lsp 202,":s/20,20,0;#FFFFFF#FF4444Lightning Sword Flash (SP:2)",400,80:spbtn 202,202
if %skill01>16 lsp 202,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust (SP:2)",400,80:spbtn 202,202
if %skill01>18 lsp 202,":s/20,20,0;#FFFFFF#FF4444Ninefold Rakshasa (SP:6)",400,80:spbtn 202,202
if %skill01>4 lsp 203,":s/20,20,0;#FFFFFF#FF4444Demon Skull Beheading (SP:3)",50,120:spbtn 203,203
if %skill01>11 lsp 203,":s/20,20,0;#FFFFFF#FF4444Earth Rumbling Decap. (SP:3)",50,120:spbtn 203,203
if %skill01>16 lsp 203,":s/20,20,0;#FFFFFF#FF4444Demon Skull Beheading (SP:3)",50,120:spbtn 203,203
if %skill01>18 lsp 203,":s/20,20,0;#FFFFFF#FF4444Heavenly Demon Revival (SP:4)",50,120:spbtn 203,203
if %skill01>1 && %skill01<6 lsp 204,":s/20,20,0;#FFFFFF#FF4444Flail Wildly (SP:2)",400,120:spbtn 204,204
if %skill01>5 lsp 204,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star (SP:4)",400,120:spbtn 204,204
if %skill01>15 lsp 204,":s/20,20,0;#FFFFFF#FF4444Vaporizing Rebel Sword (SP:4)",400,120:spbtn 204,204
if %skill01>16 lsp 204,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star (SP:4)",400,120:spbtn 204,204
if %skill01>18 lsp 204,":s/20,20,0;#FFFFFF#FF4444Daystar (SP:8)",400,120:spbtn 204,204
if %skill01>3 lsp 205,":s/20,20,0;#FFFFFF#FF4444Meditation (SP:3)",50,160:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Edging (SP:0)",400,160:spbtn 206,206
if %skill01>17 && %skill04=0 lsp 207,":s/20,20,0;#FFFFFF#FF4444Serene Mind (SP:2)",50,200:spbtn 207,213
if %skill01>19 lsp 207,":s/20,20,0;#FFFFFF#FF4444Element Spica (SP:9)",50,200:spbtn 207,215
if %skill01>14 && %skill01<17 lsp 208,":s/20,20,0;#FFFFFF#FF4444Quadruple Giga (SP:1)",400,200:spbtn 208,208
if %skill01>20 lsp 208,":s/20,20,0;#FFFFFF#FF4444Quadruple Giga (SP:1)",400,200:spbtn 208,208
if %skill01>6 && %skill01<17 && %skill02=0 lsp 209,":s/20,20,0;#FFFFFF#FF4444Sylph (Lvl:1) SP:2",50,240:spbtn 209,209
if %skill01>6 && %skill02=2 lsp 209,":s/20,20,0;#FFFFFF#FF4444Sylph (Lvl:2) (SP:2)",50,240:spbtn 209,209
if %skill01>6 && %skill02=3 lsp 209,":s/20,20,0;#FFFFFF#FF4444Sylph (Lvl:3) (SP:1)",50,240:spbtn 209,209
if %skill01>6 && %skill02=4 lsp 209,":s/20,20,0;#FFFFFF#FF4444Sylph (Lvl:2) (SP:2)",50,240:spbtn 209,209
if %skill01>6 && %skill02=5 lsp 209,":s/20,20,0;#FFFFFF#FF4444Sylph (Lvl:3) (SP:1)",50,240:spbtn 209,209
if %skill01>7 && %skill01<17 && %skill03=0 lsp 210,":s/20,20,0;#FFFFFF#FF4444Gnome (Lvl:1) (SP:2)",400,240:spbtn 210,210
if %skill01>7 && %skill03=2 lsp 210,":s/20,20,0;#FFFFFF#FF4444Gnome (Lvl:2) (SP:2)",400,240:spbtn 210,210
if %skill01>7 && %skill03=3 lsp 210,":s/20,20,0;#FFFFFF#FF4444Gnome (Lvl:3) (SP:1)",400,240:spbtn 210,210
if %skill01>7 && %skill03=4 lsp 210,":s/20,20,0;#FFFFFF#FF4444Gnome (Lvl:2) (SP:2)",400,240:spbtn 210,210
if %skill01>7 && %skill03=5 lsp 210,":s/20,20,0;#FFFFFF#FF4444Gnome (Lvl:3) (SP:1)",400,240:spbtn 210,210
if %skill01>9 && %skill01<17 && %skill04=0 lsp 211,":s/20,20,0;#FFFFFF#FF4444Undine (Lvl:1) (SP:2)",50,280:spbtn 211,211
if %skill01>9 && %skill04=2 lsp 211,":s/20,20,0;#FFFFFF#FF4444Undine (Lvl:2) (SP:ALL)",50,280:spbtn 211,211
if %skill01>9 && %skill04=3 lsp 211,":s/20,20,0;#FFFFFF#FF4444Undine (Lvl:3) (SP:4)",50,280:spbtn 211,211
if %skill01>9 && %skill04=4 lsp 211,":s/20,20,0;#FFFFFF#FF4444Undine (Lvl:2) (SP:2)",50,280:spbtn 211,211
if %skill01>9 && %skill04=5 lsp 211,":s/20,20,0;#FFFFFF#FF4444Undine (Lvl:3) (SP:2)",50,280:spbtn 211,211
if %skill01>13 && %skill01<17 && %skill05=0 lsp 212,":s/20,20,0;#FFFFFF#FF4444Salamander (Lvl:1) (SP:2)",400,280:spbtn 212,212
if %skill01>13 && %skill05=2 lsp 212,":s/20,20,0;#FFFFFF#FF4444Salamander (Lvl:2) (SP:2)",400,280:spbtn 212,212
if %skill01>13 && %skill05=3 lsp 212,":s/20,20,0;#FFFFFF#FF4444Salamander (Lvl:3) (SP:4)",400,280:spbtn 212,212
if %skill01>13 && %skill05=4 lsp 212,":s/20,20,0;#FFFFFF#FF4444Salamander (Lvl:2) (SP:4)",400,280:spbtn 212,212
if %skill01>13 && %skill05=5 lsp 212,":s/20,20,0;#FFFFFF#FF4444Salamander (Lvl:3) (SP:4)",400,280:spbtn 212,212
if %skill01>18 && %skill02=0 lsp 213,":s/20,20,0;#FFFFFF#FF4444Fallen Angel Dance (SP:2)",50,320:spbtn 213,214
if %skill01>21 lsp 213,":s/20,20,0;#FFFFFF#FF4444Quad Spirit Summon (SP:10)",50,320:spbtn 213,216

btnwait %bwait

if %bwait=201 gosub *menu_skill01
if %bwait=202 gosub *menu_skill03
if %bwait=203 gosub *menu_skill05
if %bwait=204 gosub *menu_skill02
if %bwait=205 gosub *menu_skill04
if %bwait=206 gosub *menu_skill06
if %bwait=207 gosub *menu_skill07
if %bwait=208 gosub *menu_skill17
if %bwait=209 gosub *menu_skill13
if %bwait=210 gosub *menu_skill14
if %bwait=211 gosub *menu_skill15
if %bwait=212 gosub *menu_skill16
if %bwait=213 gosub *menu_skill18
if %bwait=214 gosub *menu_skill19
if %bwait=215 gosub *menu_skill20
if %bwait=216 gosub *menu_skill21
if %bwait=111 screen_clear : return				;{^
if %bwait= -1 screen_clear : return				;ENbN
if %bwait=-10 screen_clear : return				;ESCL[
if %bwait=-11 screen_clear : return				;Xy[XL[

goto *menu_skill2


*menu_skill01

if %skill01<1 return
if %player=2 skip 17
if %skill01>12 skip 4
lsp 301,":s/20,20,0;#FFFFFFJump at the enemy, and slash at their neck.",50,450
lsp 302,":s/20,20,0;#FFFFFFAn easy technique that complements Luka's small stature.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill01>16 skip 4
lsp 301,":s/20,20,0;#FFFFFFAn Iai skill used with a serene mind.",50,450
lsp 302,":s/20,20,0;#FFFFFFDeals extreme damage when Undine is summoned.",50,480
lsp 303,":s/20,20,0;#FFFFFFIn addition, it can forcibly end the Undine summon.",50,510
if %skill01>18 skip 4
lsp 301,":s/20,20,0;#FFFFFFJump at the enemy, and slash at their neck. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAn easy technique that complements Luka's small stature. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
lsp 301,":s/20,20,0;#FFFFFFA secret fallen angel skill to cut through space and time. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIt has very high damage for low SP use. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIt seems to be compatible with the power of wind... ",50,510
return
lsp 301,":s/20,20,0;#FFFFFFAttack that crushes an enemy's skull.",50,450
lsp 302,":s/20,20,0;#FFFFFFCuts through enemy's defense.",50,480
lsp 303,":s/20,20,0;#FFFFFFWorks best on high defense enemies.",50,510
return



*menu_skill02

if %skill01<2 return
if %player=2 skip 21
if %skill01>5 skip 4
lsp 301,":s/20,20,0;#FFFFFFA horrible technique that involves swinging at random. ",50,450
lsp 302,":s/20,20,0;#FFFFFFA waste of SP, it shouldn't be used. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill01>15 skip 4
lsp 301,":s/20,20,0;#FFFFFFA deadly sword attack that slashes the enemy multiple times. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThough the power is high, so is the SP consumption. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill01>16 skip 4
lsp 301,":s/20,20,0;#FFFFFFInnumerable slashes infused with the flames of purgatory. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAn incredibly powerful skill created by Granberia. ",50,480
lsp 303,":s/20,20,0;#FFFFFFPower is increased when Salamander is summoned at the same time. ",50,510
if %skill01>18 skip 4
lsp 301,":s/20,20,0;#FFFFFFA deadly sword attack that slashes the enemy multiple times. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThough the power is high, so is the SP consumption. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
lsp 301,":s/20,20,0;#FFFFFFThe ultimate skill of one of the original fallen angels. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIt counters the enemy, and annihilates them. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIt seems to be compatible with the power of water... ",50,510
return
lsp 301,":s/20,20,0;#FFFFFFJumps in the air and cuts down on an enemy.",50,450
lsp 302,":s/20,20,0;#FFFFFFA very strong attack that deals high damage.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*menu_skill03

if %skill01<3 return
if %player=2 skip 17
if %skill01>10 skip 4
lsp 301,":s/20,20,0;#FFFFFFA high-speed attack that involves lunging at the enemy. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIf used on the first turn, it will deal bonus damage. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill01>16 skip 4
lsp 301,":s/20,20,0;#FFFFFFArt that uses the wind's movement boost to strike like lightning. ",50,450
lsp 302,":s/20,20,0;#FFFFFFDeals bonus damage when used on the first turn. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIn addition, power is increased if Sylph is summoned. ",50,510
if %skill01>18 skip 4
lsp 301,":s/20,20,0;#FFFFFFA high-speed attack that involves lunging at the enemy. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIf used on the first turn, it will deal bonus damage. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
lsp 301,":s/20,20,0;#FFFFFFA flurry of swords that is executed in a dance of death. ",50,450
lsp 302,":s/20,20,0;#FFFFFFA legendary skill that only the most powerful of angels could use. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIt seems to be compatible with the power of fire... ",50,510
return
lsp 301,":s/20,20,0;#FFFFFFSlashes at the enemy's neck.",50,450
lsp 302,":s/20,20,0;#FFFFFFIt's not the strongest attack, but it's a decent attack",50,480
lsp 303,":s/20,20,0;#FFFFFFthat lets you save SP.",50,510
return



*menu_skill04

if %player=2 skip 5
lsp 301,":s/20,20,0;#FFFFFFConcentrating the spirit, HP is restored.",50,450
lsp 302,":s/20,20,0;#FFFFFFHalf of Luka's maximum HP is recovered.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return
lsp 301,":s/20,20,0;#FFFFFFSword flashes like a shooting star and hits enemy five times.",50,450
lsp 302,":s/20,20,0;#FFFFFFMost useful on low defense enemies.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return



*menu_skill05

if %skill01<5 return
if %player=2 skip 17
if %skill01>11 skip 4
lsp 301,":s/20,20,0;#FFFFFFA deadly attack that involves jumping off somewhere high. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIncredibly strong, but not usable everywhere. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill01>16 skip 4
lsp 301,":s/20,20,0;#FFFFFFBring in the earth's power for a deadly blow from above. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIncredibly powerful, it's usable without jumping off something. ",50,480
lsp 303,":s/20,20,0;#FFFFFFMoreover, power is increased if Gnome is summoned. ",50,510
if %skill01>18 skip 4
lsp 301,":s/20,20,0;#FFFFFFA deadly attack that involves jumping off somewhere high. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIncredibly strong, but not usable everywhere. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
lsp 301,":s/20,20,0;#FFFFFFA mysterious technique that concentrates magic to destroy enemies. ",50,450
lsp 302,":s/20,20,0;#FFFFFFNone who have witnessed this skill has lived to describe it. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIt seems to be compatible with the power of earth... ",50,510
return
lsp 301,":s/20,20,0;#FFFFFFGranberia slices at the enemy with incredible speed.",50,450
lsp 302,":s/20,20,0;#FFFFFFUse this on the first turn, and it will do more damage.",50,480
lsp 303,":s/20,20,0;#FFFFFFWill not miss.",50,510
return

*menu_skill06

if %player=2 skip 5
lsp 301,":s/20,20,0;#FFFFFFA daring move that sharply decreases Luka's HP.",50,450
lsp 302,":s/20,20,0;#FFFFFFThe slightest touch might set Luka off when he's on the edge.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return
lsp 301,":s/20,20,0;#FFFFFFGranberia's strongest attack.",50,450
lsp 302,":s/20,20,0;#FFFFFFWhen Blaze is activated, SP cost lowers to 6, and",50,480
lsp 303,":s/20,20,0;#FFFFFFthe power of the attack greatly increases.",50,510
return

*menu_skill07

lsp 301,":s/20,20,0;#FFFFFFClears Granberia's mind.",50,450
lsp 302,":s/20,20,0;#FFFFFFHer attacks become undodgeable, attack power increases slightly,",50,480
lsp 303,":s/20,20,0;#FFFFFFallows Granberia to dodge some attacks.",50,510
return

*menu_skill13

if %skill02!=0 skip 4
lsp 301,":s/20,20,0;#FFFFFFBorrows Sylph's power to create a strong wind. ",50,450
lsp 302,":s/20,20,0;#FFFFFFA small chance to nullify attacks. It lasts up to eight turns. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill02!=2 skip 4
lsp 301,":s/20,20,0;#FFFFFFManipulate the power of the wind, and move like a gale. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIn addition to avoiding enemy attacks, no attack will miss. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill02!=3 skip 4
lsp 301,":s/20,20,0;#FFFFFFInfuse self with a devastating gale to increase movement speed. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAble to avoid many attacks and attack twice. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
if %skill02!=4 skip 4
lsp 301,":s/20,20,0;#FFFFFFFallen Angel Dance is strengthened by the wind's power. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIn addition to avoiding attacks, yours also no longer miss. ",50,480
lsp 303,":s/20,20,0;#FFFFFFShows a large effect when facing angels. ",50,510
if %skill02!=5 skip 4
lsp 301,":s/20,20,0;#FFFFFFInfuse self with Sylph's power to strengthen Fallen Angel Dance to max. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAble to avoid many attacks and attack twice. ",50,480
lsp 303,":s/20,20,0;#FFFFFFEffect is most visible against angels. ",50,510
return



*menu_skill14

if %skill03!=0 skip 4
lsp 301,":s/20,20,0;#FFFFFFBorrows Gnome's power of the Earth. ",50,450
lsp 302,":s/20,20,0;#FFFFFFWith incredible strength, no bind is too strong. ",50,480
lsp 303,":s/20,20,0;#FFFFFFBut it's too difficult to control for attacking for now. ",50,510
if %skill03!=2 skip 4
lsp 301,":s/20,20,0;#FFFFFFThe ability to take the breath of the earth itself into the body. ",50,450
lsp 302,":s/20,20,0;#FFFFFFDefense sharply rises, as does the chance for a critical hit. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIn addition, binds are more easily broken. ",50,510
if %skill03!=3 skip 4
lsp 301,":s/20,20,0;#FFFFFFThe ability to fill your own body with the power of the Earth. ",50,450
lsp 302,":s/20,20,0;#FFFFFFNearly immune to physical damage, and pleasure damage is reduced. ",50,480
lsp 303,":s/20,20,0;#FFFFFFAll attacks are critical hits, and binds can be broken easier. ",50,510
if %skill03!=4 skip 4
lsp 301,":s/20,20,0;#FFFFFFDue to being weakened, Gnome can't wield her previous powers. ",50,450
lsp 302,":s/20,20,0;#FFFFFFDefense improves, and so do the odds of delivering a critical strike. ",50,480
lsp 303,":s/20,20,0;#FFFFFFOf course, binds are more easily broken out of as well. ",50,510
if %skill03!=5 skip 4
lsp 301,":s/20,20,0;#FFFFFFThe ability to fill your own body with the power of the Earth. ",50,450
lsp 302,":s/20,20,0;#FFFFFFNearly immune to physical damage, and pleasure damage is reduced. ",50,480
lsp 303,":s/20,20,0;#FFFFFFAll attacks are critical hits, and binds can be broken easier. ",50,510
return



*menu_skill15

if %skill04!=0 skip 4
lsp 301,":s/20,20,0;#FFFFFFBorrows Undine's power to create a barrier of water. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThe damage reduction is not nearly as powerful as the Earth's. ",50,480
lsp 303,":s/20,20,0;#FFFFFFThis isn't the true power of water. Luka just can't use it right. ",50,510
if %skill04!=2 skip 4
lsp 301,":s/20,20,0;#FFFFFFEntrust yourself to the flow, and attain a serene mind. ",50,450
lsp 302,":s/20,20,0;#FFFFFFOffense increased, and almost every attack is evaded. ",50,480
lsp 303,":s/20,20,0;#FFFFFFSP decreases by one every turn, until reaching zero. ",50,510
if %skill04!=3 skip 4
lsp 301,":s/20,20,0;#FFFFFFEntrust yourself to the flow, and attain a completely serene mind. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAttack power increased, and almost every attack is avoided. ",50,480
lsp 303,":s/20,20,0;#FFFFFFThere is no SP reduction, but it fades eventually. ",50,510
if %skill04!=4 skip 4
lsp 301,":s/20,20,0;#FFFFFFDue to being weakened, Undine can't wield her previous powers. ",50,450
lsp 302,":s/20,20,0;#FFFFFFNormal attack power rises, and attacks can be evaded. ",50,480
lsp 303,":s/20,20,0;#FFFFFFVery effective against monsters. ",50,510
if %skill04!=5 skip 4
lsp 301,":s/20,20,0;#FFFFFFEntrust yourself to the flow, and attain a completely serene mind. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAttack power increased, and almost every attack is avoided. ",50,480
lsp 303,":s/20,20,0;#FFFFFFEffect is most visible against monsters. ",50,510
return



*menu_skill16

if %skill05!=0 skip 4
lsp 301,":s/20,20,0;#FFFFFFBorrow Salamander's power to ignite your fighting spirit. ",50,450
lsp 302,":s/20,20,0;#FFFFFFPower is slightly increased, but you can't meditate. ",50,480
lsp 303,":s/20,20,0;#FFFFFFNot very useful, but isn't indicative of the true power of fire. ",50,510
if %skill05!=2 skip 4
lsp 301,":s/20,20,0;#FFFFFFA skill to ignite your fighting spirit to its max. ",50,450
lsp 302,":s/20,20,0;#FFFFFFSP is maxed out, and attack power is increased. ",50,480
lsp 303,":s/20,20,0;#FFFFFFWhen the effect fades, SP goes to zero. ",50,510
if %skill05!=3 skip 4
lsp 301,":s/20,20,0;#FFFFFFInfuse self with the purifying flames of purgatory. ",50,450
lsp 302,":s/20,20,0;#FFFFFFSP completely recovers, and attack power increases. ",50,480
lsp 303,":s/20,20,0;#FFFFFFMeditation is usable, and SP isn't drained after it fades. ",50,510
if %skill05!=4 skip 4
lsp 301,":s/20,20,0;#FFFFFFDue to being weakened, Salamander can't wield her previous powers. ",50,450
lsp 302,":s/20,20,0;#FFFFFFSP is maxed out, and attack power is increased. ",50,480
lsp 303,":s/20,20,0;#FFFFFFWhen the effect fades, SP goes to zero. ",50,510
if %skill05!=5 skip 4
lsp 301,":s/20,20,0;#FFFFFFInfuse self with the purifying flames of purgatory. ",50,450
lsp 302,":s/20,20,0;#FFFFFFSP completely recovers, and attack power increases. ",50,480
lsp 303,":s/20,20,0;#FFFFFFMeditation is usable, and SP isn't drained after it fades. ",50,510
return



*menu_skill17

if %player=2 skip 5
lsp 301,":s/20,20,0;#FFFFFFAn ultimate skill, using all four spirits to destroy an enemy.",50,450
lsp 302,":s/20,20,0;#FFFFFFIf an attack is taken during the four turns of charging, it fails.",50,480
lsp 303,":s/20,20,0;#FFFFFFIn addition, all summoned spirits vanish when the skill is started.",50,510
return
lsp 301,":s/20,20,0;#FFFFFFCan only be used at 40% health or less. Heals Granberia slightly,",50,450
lsp 302,":s/20,20,0;#FFFFFFincreases attack power, fully restores SP,",50,480
lsp 303,":s/20,20,0;#FFFFFFlowers cost on Vaporizing Rebellion sword from 8 to 6.",50,510
return

*menu_skill18

lsp 301,":s/20,20,0;#FFFFFFEven without Undine, a Serene State can be obtained. ",50,450
lsp 302,":s/20,20,0;#FFFFFFNormal attack power rises, and avoidance increases. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIt seems particularly effective against monsters. ",50,510
return

*menu_skill19

lsp 301,":s/20,20,0;#FFFFFFA secret skill to unify with a holy wave and avoid attacks. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIt seems particularly effective against angels. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skill20

lsp 301,":s/20,20,0;#FFFFFFConcentrate the power of the Four Spirits into your right arm. ",50,450
lsp 302,":s/20,20,0;#FFFFFFA devastating technique taught by Heinrich. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skill21

lsp 301,":s/20,20,0;#FFFFFFConsumes a lot of SP, but able to summon all four spirits at once. ",50,450
lsp 302,":s/20,20,0;#FFFFFFCosts more SP, but much faster. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillngparty

saveoff
screen_clear
lsp 502,":a;system\system_bg.jpg",0,0			;????
lsp 501,":a;system\window5.bmp",25,50			;????
lsp 141,":c;system\m_title_skill.jpg",20,20
lsp 142,":c;system\system_barx_u.jpg",0,0			;??????
lsp 143,":c;system\system_barx_d.jpg",0,560			;??????
mov $p1name,$party1:mov $p2name,$party2
if $party1="Harpy" && %peinibi>0 mov $p1name,"Ipeia"
if $party1="Kitsune" && %peinibi>0 mov $p1name,"Nibi"
if $party2="Harpy" && %peinibi>0 mov $p2name,"Ipeia"
if $party2="Kitsune" && %peinibi>0 mov $p2name,"Nibi"

*menu_skillngparty2

btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 201,":s/20,20,0;#FFFFFF#FF4444Luka",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Alice",50,120:spbtn 202,202
if $knight!="" lsp 203,":s/20,20,0;#FFFFFF#FF4444"+$knight+"",50,160:spbtn 203,203
if $party1!="" && $party1!="Kitsune" && $party1!="Sara" lsp 204,":s/20,20,0;#FFFFFF#FF4444"+$p1name+"",50,200:spbtn 204,204
if $party1="Kitsune" lsp 204,":s/20,20,0;#bbbbbb"+$p1name+"",50,200
if $party1="Sara" && %sara_train>1 lsp 204,":s/20,20,0;#FFFFFF#FF4444Sara",50,200:spbtn 204,204
if $party1="Sara" && %sara_train<2 lsp 204,":s/20,20,0;#bbbbbbSara",50,200
if $party1="Sara" && %sara_train>1 itoa $saralv,%saralv:lsp 208,":s/20,20,0;#FFFFFF#FF4444Level: "+$saralv,250,200
if $party2!="" && $party2!="Kitsune" && $party2!="Sara" lsp 205,":s/20,20,0;#FFFFFF#FF4444"+$p2name+"",50,240:spbtn 205,205
if $party2="Kitsune" lsp 205,":s/20,20,0;#bbbbbb"+$p2name+"",50,240
if $party2="Sara" && %sara_train>1 lsp 205,":s/20,20,0;#FFFFFF#FF4444Sara",50,240:spbtn 205,205
if $party2="Sara" && %sara_train<2 lsp 205,":s/20,20,0;#bbbbbbSara",50,240
if $party2="Sara" && %sara_train>1 itoa $saralv,%saralv:lsp 209,":s/20,20,0;#FFFFFF#FF4444Level: "+$saralv,250,240
if $guest1!="" lsp 206,":s/20,20,0;#FFFFFF#FF4444"+$guest1+"",400,80:spbtn 206,206
if $guest2!="" lsp 207,":s/20,20,0;#FFFFFF#FF4444"+$guest2+"",400,120:spbtn 207,207

btnwait %bwait

if %bwait=201 gosub *menu_skillng
if %bwait=202 gosub *menu_skillng_alice
if %bwait=203 && $knight="Granberia" gosub *menu_skillng_granberia
if %bwait=203 && $knight="Tamamo" gosub *menu_skillng_tamamo
if %bwait=203 && $knight="Erubetie" gosub *menu_skillng_erubetie
if %bwait=203 && $knight="Alma" gosub *menu_skillng_alma
if %bwait=204 && $party1="Harpy" gosub *menu_skillng_harpy
if %bwait=204 && $party1="Sara" gosub *menu_skillng_sara
if %bwait=204 && $party1="Chrome" gosub *menu_skillng_chrome
if %bwait=205 && $party2="Harpy" gosub *menu_skillng_harpy
if %bwait=205 && $party2="Sara" gosub *menu_skillng_sara
if %bwait=205 && $party2="Chrome" gosub *menu_skillng_chrome
if %bwait=206 && $guest1="Morrigan" gosub *menu_skillng_morrigan
if %bwait=207 && $guest2="Morrigan" gosub *menu_skillng_morrigan

if %bwait=111 screen_clear : return				;{^
if %bwait= -1 screen_clear : return				;ENbN
if %bwait=-10 screen_clear : return				;ESCL[
if %bwait=-11 screen_clear : return				;Xy[XL[
goto *menu_skillngparty2

*menu_skillng

saveoff
screen_clear
mov %page,1
lsp 502,":a;system\system_bg.jpg",0,0			;????
lsp 501,":a;system\window5.bmp",25,50			;????
lsp 141,":c;system\m_title_skill.jpg",20,20
lsp 142,":c;system\system_barx_u.jpg",0,0			;??????
lsp 143,":c;system\system_barx_d.jpg",0,560			;??????

*menu_skillng2

cspl 201,217
if %page=0 mov %page,2
if %page=3 mov %page,1
itoa2 $page_h,%page
if %page=1 goto *menu_skillng_page1
if %page=2 goto *menu_skillng_page2
print 1

*menu_skillng_page1

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",280,400:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",500,400:spbtn 113,113
lsp 144,":s/20,20,0;#FFFFFFCursed Sword Skills",305,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Serene Demon Sword (SP:2)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Lightning Sword Flash (SP:2)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Earth Rumbling Decap. (SP:3)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Vaporizing Rebel Sword (SP:4)",400,120:spbtn 204,204
if %undine_get<1 lsp 205,":s/20,20,0;#FFFFFF#FF4444Serene Mind (SP:2)",50,160:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Edging (SP:0)",400,160:spbtn 206,206
if %sylph_get<1 || %gnome_get<1 || %undine_get<1 || %salamander_get<1 skip 4
lsp 207,":s/20,20,0;#FFFFFF#FF4444Element Spica (SP:10)",50,200:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Quadruple Giga (SP:1)",400,200:spbtn 208,208
lsp 216,":s/20,20,0;#FFFFFF#FF4444Quad Spirit Summon (SP:6)",400,360:spbtn 216,216
if %skill_refresh>0 lsp 209,":s/20,20,0;#FFFFFF#FF4444Refresh (SP:2)",50,240:spbtn 209,209
if %skill01>25 lsp 210,":s/20,20,0;#FFFFFF#FF4444Charge (SP:0)",400,240:spbtn 210,210
if %sylph_get>0 lsp 211,":s/20,20,0;#FFFFFF#FF4444Sylph (Lvl:3) (SP:1)",50,280:spbtn 211,211
if %gnome_get>0 lsp 212,":s/20,20,0;#FFFFFF#FF4444Gnome (Lvl:3) (SP:1)",400,280:spbtn 212,212
if %undine_get<1 skip 3
lsp 213,":s/20,20,0;#FFFFFF#FF4444Undine (Lvl:2) (SP:ALL)",50,320:spbtn 213,213
lsp 214,":s/20,20,0;#FFFFFF#FF4444Undine (Lvl:3) (SP:2)",400,320:spbtn 214,214
if %salamander_get>0 lsp 215,":s/20,20,0;#FFFFFF#FF4444Salamander (Lvl:3) (SP:4)",50,360:spbtn 215,215

btnwait %bwait

if %bwait=201 gosub *menu_skillng01
if %bwait=202 gosub *menu_skillng02
if %bwait=203 gosub *menu_skillng03
if %bwait=204 gosub *menu_skillng04
if %bwait=205 gosub *menu_skillng05
if %bwait=206 gosub *menu_skillng06
if %bwait=207 gosub *menu_skillng07
if %bwait=208 gosub *menu_skillng08
if %bwait=209 gosub *menu_skillng09
if %bwait=210 gosub *menu_skillng10
if %bwait=211 gosub *menu_skillng11
if %bwait=212 gosub *menu_skillng12
if %bwait=213 gosub *menu_skillng13
if %bwait=214 gosub *menu_skillng14
if %bwait=215 gosub *menu_skillng15
if %bwait=216 gosub *menu_skillng16

if %bwait=112 mov %page,%page-1:cspl 301,303:goto *menu_skillng2
if %bwait=113 mov %page,%page+1:cspl 301,303:goto *menu_skillng2
if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????

goto *menu_skillng2

*menu_skillng_page2

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",310,400:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",470,400:spbtn 113,113
lsp 144,":s/20,20,0;#FFFFFFAngel Skills",340,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Flash Kill (SP:2)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Ninefold Rakshasa (SP:6)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Heavenly Demon Revival (SP:4)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Daystar (SP:8)",400,120:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Meditation (SP:3)",50,160:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Fallen Angel Dance (SP:2)",50,320:spbtn 206,206

btnwait %bwait

if %bwait=201 gosub *menu_skillng17
if %bwait=202 gosub *menu_skillng18
if %bwait=203 gosub *menu_skillng19
if %bwait=204 gosub *menu_skillng20
if %bwait=205 gosub *menu_skillng21
if %bwait=206 gosub *menu_skillng22

if %bwait=112 mov %page,%page-1:cspl 301,303:goto *menu_skillng2
if %bwait=113 mov %page,%page+1:cspl 301,303:goto *menu_skillng2
if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????

goto *menu_skillng2

*menu_skillng_alice

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFAlice",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Omega Blaze (SP:4)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Frost Ozma (SP:4)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Monster Lord's Cruelty (SP:6)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Eye of Recovery (SP:8)",400,120:spbtn 204,204

btnwait %bwait

if %bwait=201 gosub *menu_skillng_alice01
if %bwait=202 gosub *menu_skillng_alice02
if %bwait=203 gosub *menu_skillng_alice03
if %bwait=204 gosub *menu_skillng_alice04

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_alice

*menu_skillng_granberia

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFGranberia",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Dragon Butcher Attack (SP:3)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Cursed Sword * Decap. (SP:2)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Thunder Thrust * Gale (SP:2)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Beheading * Purgatory (SP:3)",400,120:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Death Sword Chaos Star (SP:3)",50,160:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Vaporizing Rebel Sword (SP:4)",400,160:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Starblade (SP:10)",50,200:spbtn 207,207

btnwait %bwait

if %bwait=201 gosub *menu_skillng_granberia01
if %bwait=202 gosub *menu_skillng_granberia02
if %bwait=203 gosub *menu_skillng_granberia03
if %bwait=204 gosub *menu_skillng_granberia04
if %bwait=205 gosub *menu_skillng_granberia05
if %bwait=206 gosub *menu_skillng_granberia06
if %bwait=207 gosub *menu_skillng_granberia07

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_granberia

*menu_skillng_tamamo

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFTamamo",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Tail Attack (SP:2)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Tamamo Punch (SP:3)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Nine Moons (SP:5)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Moonlight Cannon (SP:8)",400,120:spbtn 204,204
lsp 205,":s/20,20,0;#FFFFFF#FF4444Angel's Kiss (SP:6)",50,160:spbtn 205,205
lsp 206,":s/20,20,0;#FFFFFF#FF4444Tail Squeeze (SP:8)",400,160:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Flash Kill: Quake (SP:4)",50,200:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Word of Dispel (SP:32)",400,200:spbtn 208,208

btnwait %bwait

if %bwait=201 gosub *menu_skillng_tamamo01
if %bwait=202 gosub *menu_skillng_tamamo02
if %bwait=203 gosub *menu_skillng_tamamo03
if %bwait=204 gosub *menu_skillng_tamamo04
if %bwait=205 gosub *menu_skillng_tamamo05
if %bwait=206 gosub *menu_skillng_tamamo06
if %bwait=207 gosub *menu_skillng_tamamo07
if %bwait=208 gosub *menu_skillng_tamamo08

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_tamamo

*menu_skillng_erubetie

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFErubetie",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Slime's Kiss (SP:8)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Aqua Pentagram (SP:8)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Slime Hold (SP:8)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Demon Revival: Blizzard (SP:5)",400,120:spbtn 204,204

btnwait %bwait

if %bwait=201 gosub *menu_skillng_erubetie01
if %bwait=202 gosub *menu_skillng_erubetie02
if %bwait=203 gosub *menu_skillng_erubetie03
if %bwait=204 gosub *menu_skillng_erubetie04

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_erubetie

*menu_skillng_alma

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFAlma Elma",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Angel's Kiss (SP:6)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Shamshir (SP:3)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Seduce Monster (SP:8)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Rakshasa: Wildfire (SP:5)",400,120:spbtn 204,204

btnwait %bwait

if %bwait=201 gosub *menu_skillng_alma01
if %bwait=202 gosub *menu_skillng_alma02
if %bwait=203 gosub *menu_skillng_alma03
if %bwait=204 gosub *menu_skillng_alma04

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_alma

*menu_skillng_harpy

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
if %peinibi<1 lsp 144,":s/20,20,0;#FFFFFFHarpy",370,400
if %peinibi>0 lsp 144,":s/20,20,0;#FFFFFFIpeia",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Divebomb Kick (SP:2)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Air Lift (SP:4)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Harpy Gale (SP:6)",50,120:spbtn 203,203
if %skill_phoenixwing>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Phoenix Wing (SP:3)",400,120:spbtn 204,204

btnwait %bwait

if %bwait=201 gosub *menu_skillng_harpy01
if %bwait=202 gosub *menu_skillng_harpy02
if %bwait=203 gosub *menu_skillng_harpy03
if %bwait=204 gosub *menu_skillng_harpy04

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_harpy

*menu_skillng_sara

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFSara",370,400

if %skill_co>0 lsp 201,":s/20,20,0;#FFFFFF#FF4444Counter (SP:2)",50,80:spbtn 201,201
if %skill_sk>0 lsp 202,":s/20,20,0;#FFFFFF#FF4444Skull Crusher (SP:3)",400,80:spbtn 202,202
if %skill_pa>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Paralyzing Blow (SP:2)",50,120:spbtn 203,203
if %skill_he>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Heavy Overdrive (SP:4)",400,120:spbtn 204,204
if %skill_fin>0 lsp 205,":s/20,20,0;#FFFFFF#FF4444Final Measure (SP:ALL)",50,160:spbtn 205,205

btnwait %bwait

if %bwait=201 gosub *menu_skillng_sara01
if %bwait=202 gosub *menu_skillng_sara02
if %bwait=203 gosub *menu_skillng_sara03
if %bwait=204 gosub *menu_skillng_sara04
if %bwait=205 gosub *menu_skillng_sara05

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_sara

*menu_skillng_chrome

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFChrome",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Mystery Potion (SP:1)",50,80:spbtn 201,201
if %skill_st>0 lsp 202,":s/20,20,0;#FFFFFF#FF4444Strength Potion (SP:2)",50,120:spbtn 202,202
if %skill_gu>0 lsp 203,":s/20,20,0;#FFFFFF#FF4444Guard Potion (SP:2)",50,160:spbtn 203,203
if %skill_fi>0 lsp 204,":s/20,20,0;#FFFFFF#FF4444Fire Potion (SP:4)",50,200:spbtn 204,204
if %skill_fu>0 lsp 205,":s/20,20,0;#FFFFFF#FF4444Full Cure Potion (SP:8)",50,240:spbtn 205,205
if %skill_mp>0 lsp 206,":s/20,20,0;#FFFFFF#FF4444SP Restore Potion (SP:8)",50,280:spbtn 206,206
lsp 207,":s/20,20,0;#FFFFFF#FF4444Corrupted Earth (SP:5)",400,80:spbtn 207,207
lsp 208,":s/20,20,0;#FFFFFF#FF4444Tainted Wind (SP:5)",400,120:spbtn 208,208

btnwait %bwait

if %bwait=201 gosub *menu_skillng_chrome01
if %bwait=202 gosub *menu_skillng_chrome02
if %bwait=203 gosub *menu_skillng_chrome03
if %bwait=204 gosub *menu_skillng_chrome04
if %bwait=205 gosub *menu_skillng_chrome05
if %bwait=206 gosub *menu_skillng_chrome06
if %bwait=207 gosub *menu_skillng_chrome07
if %bwait=208 gosub *menu_skillng_chrome08

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_chrome

*menu_skillng_morrigan

cspl 201,217
btndef clear
lsp 111,":c/2,0,3;system\return.jpg",20,560:spbtn 111,111		;uv{^\
lsp 144,":s/20,20,0;#FFFFFFMorrigan",370,400

lsp 201,":s/20,20,0;#FFFFFF#FF4444Aura of Darkness (SP:3)",50,80:spbtn 201,201
lsp 202,":s/20,20,0;#FFFFFF#FF4444Dark Energy Blast (SP:2)",400,80:spbtn 202,202
lsp 203,":s/20,20,0;#FFFFFF#FF4444Black Flame (SP:3)",50,120:spbtn 203,203
lsp 204,":s/20,20,0;#FFFFFF#FF4444Angel's Kiss (SP:8)",400,120:spbtn 204,204

btnwait %bwait

if %bwait=201 gosub *menu_skillng_morrigan01
if %bwait=202 gosub *menu_skillng_morrigan02
if %bwait=203 gosub *menu_skillng_morrigan03
if %bwait=204 gosub *menu_skillng_morrigan04

if %bwait=111 screen_clear : return				;?????
if %bwait= -1 screen_clear : return				;?????
if %bwait=-10 screen_clear : return				;ESC??
if %bwait=-11 screen_clear : return				;??????
goto *menu_skillng_morrigan

*menu_skillng01

lsp 301,":s/20,20,0;#FFFFFFAn Iai skill used with a serene mind. ",50,450
if %undine_get>0 && %gnome_get<1 lsp 302,":s/20,20,0;#FFFFFFIts power is boosted when Undine is summoned. ",50,480
if %undine_get>0 && %gnome_get>0 lsp 302,":s/20,20,0;#FFFFFFIts power is boosted when Undine or both Undine and Gnome are summoned. ",50,480
return

*menu_skillng02

lsp 301,":s/20,20,0;#FFFFFFA lightning-fast thrust that deals bonus damage when used on the first ",50,450
lsp 302,":s/20,20,0;#FFFFFFturn. ",50,480
if %sylph_get>0 && %undine_get<1 lsp 303,":s/20,20,0;#FFFFFFIts power is boosted when Sylph is summoned. ",50,510
if %sylph_get>0 && %undine_get>0 lsp 303,":s/20,20,0;#FFFFFFIts power is boosted when Sylph or both Sylph and Undine are summoned. ",50,510
return

*menu_skillng03

lsp 301,":s/20,20,0;#FFFFFFA powerful attack that uses the Earth's power to strike from above. ",50,450
if %gnome_get>0 && %salamander_get<1 lsp 302,":s/20,20,0;#FFFFFFIts power is boosted when Gnome is summoned. ",50,480
if %gnome_get>0 && %salamander_get>0 lsp 302,":s/20,20,0;#FFFFFFIts power is boosted when Gnome or both Gnome and Salamander are ",50,480
if %gnome_get>0 && %salamander_get>0 lsp 303,":s/20,20,0;#FFFFFFsummoned. ",50,510
return

*menu_skillng04

lsp 301,":s/20,20,0;#FFFFFFA series of five rapid slashes burning in the flames of purgatory. ",50,450
if %salamander_get>0 && %sylph_get<1 lsp 302,":s/20,20,0;#FFFFFFIts power is boosted when Salamander is summoned. ",50,480
if %salamander_get>0 && %sylph_get>0 lsp 302,":s/20,20,0;#FFFFFFIts power is boosted when Salamander or both Salamander and Sylph ",50,480
if %salamander_get>0 && %sylph_get>0 lsp 303,":s/20,20,0;#FFFFFFare summoned. ",50,510
return

*menu_skillng05

lsp 301,":s/20,20,0;#FFFFFFEnter a Serene State even without Undine's power. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIncreases attack power and evades enemy attacks. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng06

lsp 301,":s/20,20,0;#FFFFFFFocus sharply to reduce health to 1 HP. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThere's really no reason to ever use this. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng07

lsp 301,":s/20,20,0;#FFFFFFA devastating attack that requires the power of all four spirits. ",50,450
lsp 302,":s/20,20,0;#FFFFFFVery powerful, but less effective against opponents with spirit power. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng08

lsp 301,":s/20,20,0;#FFFFFFLuka's ultimate skill that charges the power of the four spirits. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIf an attack is taken during the four turns of charging, it fails. ",50,480
lsp 303,":s/20,20,0;#FFFFFFImpractical unless an opening is created.",50,510
return

*menu_skillng09

lsp 301,":s/20,20,0;#FFFFFFA skill learned from Undine that must be used with her power. ",50,450
lsp 302,":s/20,20,0;#FFFFFFRecovers some HP and purges any toxins from Luka's body. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng10

lsp 301,":s/20,20,0;#FFFFFFFocus energy to recover SP. ",50,450
lsp 302,":s/20,20,0;#FFFFFFMore SP is charged each turn when used consecutively. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng11

lsp 301,":s/20,20,0;#FFFFFFInfuse self with Sylph's power to increase movement speed. ",50,450
lsp 302,":s/20,20,0;#FFFFFFEvade enemy attacks and attack twice. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng12

lsp 301,":s/20,20,0;#FFFFFFInfuse self with Gnome's power to increase physical strength. ",50,450
lsp 302,":s/20,20,0;#FFFFFFGreatly reduced physical damage, and slightly reduced pleasure damage. ",50,480
lsp 303,":s/20,20,0;#FFFFFFAll attacks become critical hits, and binds are more easily escaped. ",50,510
return

*menu_skillng13

lsp 301,":s/20,20,0;#FFFFFFCut off any other spirits and entrust yourself completely to the flow. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAttack power is greatly increased and almost all attacks are avoided. ",50,480
lsp 303,":s/20,20,0;#FFFFFFSP reduces by 1 each turn, and any damage taken cancels it. ",50,510
return

*menu_skillng14

lsp 301,":s/20,20,0;#FFFFFFInfuse self with Undine's power to reach a Serene State. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIncreases attack power and evades enemy attacks. ",50,480
lsp 303,":s/20,20,0;#FFFFFFAlso resists enemy temptations.",50,510
return

*menu_skillng15

lsp 301,":s/20,20,0;#FFFFFFInfuse self with Salamander's power to increase attack power. ",50,450
lsp 302,":s/20,20,0;#FFFFFFSP completely recovers, and boosts skills and attack power. ",50,480
lsp 303,":s/20,20,0;#FFFFFFDisables the use of Charge.",50,510
return

*menu_skillng16

lsp 301,":s/20,20,0;#FFFFFFCalls on the power of all four spirits at once. ",50,450
lsp 302,":s/20,20,0;#FFFFFFCosts more SP, but much faster. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng17

lsp 301,":s/20,20,0;#FFFFFFA secret fallen angel skill to cut through space and time. ",50,450
if %sylph_get>0 lsp 302,":s/20,20,0;#FFFFFFIt strikes twice with boosted power when Sylph is summoned. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng18

lsp 301,":s/20,20,0;#FFFFFFA flurry of slashes that is executed in a dance of death. ",50,450
lsp 302,":s/20,20,0;#FFFFFFA legendary skill that only the most powerful of angels could use. ",50,480
if %salamander_get>0 lsp 303,":s/20,20,0;#FFFFFFIts power is boosted when Salamander is summoned.",50,510
return

*menu_skillng19

lsp 301,":s/20,20,0;#FFFFFFA powerful blast of Holy energy that crushes the enemy. ",50,450
if %gnome_get>0 lsp 302,":s/20,20,0;#FFFFFFIts power is boosted and can neutralize enemy defense ",50,480
if %gnome_get>0 lsp 303,":s/20,20,0;#FFFFFFwhen Gnome is summoned. ",50,510
return

*menu_skillng20

lsp 301,":s/20,20,0;#FFFFFFThe ultimate skill of one of the original fallen angels. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIt charges a counterattack that annihilates the enemy. ",50,480
if %undine_get>0 lsp 303,":s/20,20,0;#FFFFFFIts power is boosted when Undine is summoned.",50,510
return

*menu_skillng21

lsp 301,":s/20,20,0;#FFFFFFConcentrate the spirit to recover half of Luka's maximum HP. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng22

lsp 301,":s/20,20,0;#FFFFFFA secret skill to become one with a holy wave and avoid attacks. ",50,450
lsp 302,":s/20,20,0;#FFFFFFNot very effective against monsters, but effective against angels. ",50,480
lsp 303,":s/20,20,0;#FFFFFFIt can also be used to avoid status effects. ",50,510
return

*menu_skillng_alice01

lsp 301,":s/20,20,0;#FFFFFFUnleashes a storm of fire that burns the enemy to a crisp. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThe target will take burn damage for several turns afterward. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_alice02

lsp 301,":s/20,20,0;#FFFFFFFreezes the enemy solid in a blast of ice. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThe target will be frozen and immobilized for several turns afterward. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_alice03

lsp 301,":s/20,20,0;#FFFFFFThe ultimate art passed down in the Fateburn line. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThe power of darkness tears the enemy apart. ",50,480
lsp 303,":s/20,20,0;#FFFFFFDoes heavy damage three times. ",50,510
return

*menu_skillng_alice04

lsp 301,":s/20,20,0;#FFFFFFUses Alice's eye magic to heal Luka. ",50,450
lsp 302,":s/20,20,0;#FFFFFFLuka recovers from any bad statuses, and his HP is completely restored. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_granberia01

lsp 301,":s/20,20,0;#FFFFFFAn overhead strike with the power to cleave dragons. ",50,450
lsp 302,":s/20,20,0;#FFFFFFCuts through enemy defense for heavy damage. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_granberia02

lsp 301,":s/20,20,0;#FFFFFFA quick and powerful attack that slashes the enemy's neck. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_granberia03

lsp 301,":s/20,20,0;#FFFFFFA sharp thrust with the speed of a sonic boom that tears through ",50,450
lsp 302,":s/20,20,0;#FFFFFFthe enemy. ",50,480
lsp 303,":s/20,20,0;#FFFFFFDoes more damage if used on the first turn.",50,510
return

*menu_skillng_granberia04

lsp 301,":s/20,20,0;#FFFFFFAn attack that strikes from above to crush the enemy's head. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_granberia05

lsp 301,":s/20,20,0;#FFFFFFA rapid series of slashes that damages the enemy five times. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_granberia06

lsp 301,":s/20,20,0;#FFFFFFGranberia's ultimate skill that she created herself. ",50,450
lsp 302,":s/20,20,0;#FFFFFFBurning in the flames of purgatory, her blade slashes ",50,480
lsp 303,":s/20,20,0;#FFFFFFthe enemy five times. ",50,510
return

*menu_skillng_granberia07

lsp 301,":s/20,20,0;#FFFFFFGranberia teams up with Luka for a single devastating strike. ",50,450
lsp 302,":s/20,20,0;#FFFFFFGranberia infuses her blade with the power of a Daystar. ",50,480
lsp 303,":s/20,20,0;#FFFFFFSwinging her blade down, she does unparalleled damage to all opponents. ",50,510
return

*menu_skillng_tamamo01

lsp 301,":s/20,20,0;#FFFFFFFilled with the power of the Earth, Tamamo strikes the enemy ",50,450
lsp 302,":s/20,20,0;#FFFFFFwith her fluffy tail.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_tamamo02

lsp 301,":s/20,20,0;#FFFFFFTamamo's signature punch that strikes at the enemy ",50,450
lsp 302,":s/20,20,0;#FFFFFFwith the weight of the Earth behind her. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_tamamo03

lsp 301,":s/20,20,0;#FFFFFFTamamo's secret skill that strikes the enemy with ",50,450
lsp 302,":s/20,20,0;#FFFFFFall nine of her tails at once. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_tamamo04

lsp 301,":s/20,20,0;#FFFFFFTamamo charges the power of the moon into a devastating laser of energy. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_tamamo05

lsp 301,":s/20,20,0;#FFFFFFA borrowed Succubus skill that recovers half of Luka's HP with a kiss. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_tamamo06

lsp 301,":s/20,20,0;#FFFFFFTamamo wraps the target up in her tail and binds them. ",50,450
lsp 302,":s/20,20,0;#FFFFFFImmobilizes the target for several turns and deals binding ",50,480
lsp 303,":s/20,20,0;#FFFFFFdamage each turn.",50,510
return

*menu_skillng_tamamo07

lsp 301,":s/20,20,0;#FFFFFFTamamo teams up with Luka to deliver a fast and powerful sword strike. ",50,450
lsp 302,":s/20,20,0;#FFFFFFWith his blade enchanted by Tamamo's magic, Luka uses Flash Kill. ",50,480
lsp 303,":s/20,20,0;#FFFFFFCuts through enemy defense.",50,510
return

*menu_skillng_tamamo08

lsp 301,":s/20,20,0;#FFFFFFAn incantation that unlocks Tamamo's true power. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThe conditions necessary for using it have yet to be determined. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_erubetie01

lsp 301,":s/20,20,0;#FFFFFFErubetie uses her regenerative slime to heal Luka with a kiss. ",50,450
lsp 302,":s/20,20,0;#FFFFFFFully restores Luka's HP. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_erubetie02

lsp 301,":s/20,20,0;#FFFFFFA secret magic technique to create the ultimate space-time ",50,450
lsp 302,":s/20,20,0;#FFFFFFdefense barrier. ",50,480
lsp 303,":s/20,20,0;#FFFFFFLuka becomes nearly immune to all damage for several turns. ",50,510
return

*menu_skillng_erubetie03

lsp 301,":s/20,20,0;#FFFFFFErubetie wraps the target up in her powerful slime and binds them. ",50,450
lsp 302,":s/20,20,0;#FFFFFFImmobilizes the target for several turns. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_erubetie04

lsp 301,":s/20,20,0;#FFFFFFErubetie teams up with Luka to blast the enemy with ice magic. ",50,450
lsp 302,":s/20,20,0;#FFFFFFWith the air frozen around him, Luka uses Heavenly Demon Revival. ",50,480
lsp 303,":s/20,20,0;#FFFFFFHits all opponents present and cuts through their defense.",50,510
return

*menu_skillng_alma01

lsp 301,":s/20,20,0;#FFFFFFA traditional Succubus skill that heals Luka with a kiss. ",50,450
lsp 302,":s/20,20,0;#FFFFFFFully restores Luka's HP. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_alma02

lsp 301,":s/20,20,0;#FFFFFFSummons a powerful squall of wind blades to tear up the enemy. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_alma03

lsp 301,":s/20,20,0;#FFFFFFAlma seduces the target into inaction. ",50,450
lsp 302,":s/20,20,0;#FFFFFFImmobilizes the target for several turns. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_alma04

lsp 301,":s/20,20,0;#FFFFFFAlma teams up with Luka to attack the enemy with a whirlwind of fire. ",50,450
lsp 302,":s/20,20,0;#FFFFFFWith a mighty wind blowing around him, Luka engulfs his blade in flames ",50,480
lsp 303,":s/20,20,0;#FFFFFFand uses Ninefold Rakshasa.",50,510
return

*menu_skillng_harpy01

lsp 301,":s/20,20,0;#FFFFFFDives through the air to deliver a sharp talon kick to the opponent. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_harpy02

lsp 301,":s/20,20,0;#FFFFFFPicks up Luka to suspend him in the air for one turn. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAll enemy attacks will be avoided this turn. ",50,480
lsp 303,":s/20,20,0;#FFFFFFUsually just wastes a turn, but helpful for avoiding dangerous attacks. ",50,510
return

*menu_skillng_harpy03

lsp 301,":s/20,20,0;#FFFFFFCreates a gale of wind around Luka to boost the power of wind. ",50,450
lsp 302,":s/20,20,0;#FFFFFFThe effectiveness of Sylph's evasion and all wind-based attacks ",50,480
lsp 303,":s/20,20,0;#FFFFFFwill be increased for several turns. ",50,510
return

*menu_skillng_harpy04

lsp 301,":s/20,20,0;#FFFFFFEngulfs a wing in flames and strikes the opponent with it. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_sara01

lsp 301,":s/20,20,0;#FFFFFFWaits for an opponent's attack, then counters it with a powerful slash. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIt can only be triggered by attacks that make physical contact. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_sara02

lsp 301,":s/20,20,0;#FFFFFFA heavy overhead swing that reduces the opponent's defense. ",50,450
lsp 302,":s/20,20,0;#FFFFFFBecomes less effective with each use on a single target. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_sara03

lsp 301,":s/20,20,0;#FFFFFFA sharp jab at the enemy's head that paralyzes them for one turn. ",50,450
lsp 302,":s/20,20,0;#FFFFFFInterrupts any actions they were taking. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_sara04

lsp 301,":s/20,20,0;#FFFFFFA combination of two powerful strikes that deals heavy damage. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_sara05

lsp 301,":s/20,20,0;#FFFFFFSara's final skill that consumes all her SP at once for a single powerful blow. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIts power is increased with SP consumed and missing HP. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome01

lsp 301,":s/20,20,0;#FFFFFFChrome brews up a random potion and gives it to Luka. ",50,450
lsp 302,":s/20,20,0;#FFFFFFSince she's an amateur, the results won't always be good... ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome02

lsp 301,":s/20,20,0;#FFFFFFChrome brews a potion of strength for Luka. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIncreases Luka's attack power for a short period of time. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome03

lsp 301,":s/20,20,0;#FFFFFFChrome brews a potion of defense for Luka. ",50,450
lsp 302,":s/20,20,0;#FFFFFFIncreases Luka's defense power for a short period of time. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome04

lsp 301,":s/20,20,0;#FFFFFFChrome brews a fire potion to toss at the enemy and deal damage. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome05

lsp 301,":s/20,20,0;#FFFFFFChrome brews a potent restorative potion for Luka. ",50,450
lsp 302,":s/20,20,0;#FFFFFFFully recovers Luka's health and cures any status effects.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome06

lsp 301,":s/20,20,0;#FFFFFFChrome brews a potent restorative potion for Luka. ",50,450
lsp 302,":s/20,20,0;#FFFFFFFully restores Luka's SP.",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome07

lsp 301,":s/20,20,0;#FFFFFFChrome imbues Luka with Gnomaren's power. ",50,450
lsp 302,":s/20,20,0;#FFFFFFMakes Luka nigh-impervious to damage for a short period of time. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_chrome08

lsp 301,":s/20,20,0;#FFFFFFChrome imbues Luka with Zylphe's power. ",50,450
lsp 302,":s/20,20,0;#FFFFFFAllows Luka to move twice in one turn for a short period of time. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_morrigan01

lsp 301,":s/20,20,0;#FFFFFFMorrigan envelops all opponents present in an aura of darkness. ",50,450
lsp 302,":s/20,20,0;#FFFFFFGradually drains their energy each turn for several turns. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_morrigan02

lsp 301,":s/20,20,0;#FFFFFFConcentrates a blast of dark energy and launches it at the opponent. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_morrigan03

lsp 301,":s/20,20,0;#FFFFFFConsumes the enemy in a blaze of black fire that cuts through defense. ",50,450
lsp 302,":s/20,20,0;#FFFFFF",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

*menu_skillng_morrigan04

lsp 301,":s/20,20,0;#FFFFFFA traditional Succubus skill that heals Luka with a kiss. ",50,450
lsp 302,":s/20,20,0;#FFFFFFFully restores Luka's HP. ",50,480
lsp 303,":s/20,20,0;#FFFFFF",50,510
return

;===============================================================
;??
;===============================================================


*menu_kiroku

saveoff
screen_clear						;???????????????
if %2501>0 && %2502>0 && %2503>0 && %2504>0 && %2505>0 && %2506>0 && %2507>0 && %2508>0 && %2509>0 && %2510>0 && %2511>0 && %2512>0 && %2513>0 && %2514>0 && %2515>0 && %2516>0 && %2517>0 && %2518>0 && %2519>0 && %2520>0 && %2521>0 && %2522>0 && %2523>0 && %2524>0 && %2525>0 && %2526>0 && %2527>0 && %2528>0 && %2529>0 && %2530>0 && %2531>0 && %2532>0 && %2533>0 && %2534>0 && %2535>0 && %2536>0 && %2537>0 && %2538>0 && %2539>0 && %2540>0 && %2541>0 && %2542>0 && %2543>0 && %2544>0 && %2545>0 && %2546>0 && %2547>0 && %2548>0 && %2549>0 && %2550>0 && %2551>0 && %2552>0 && %2553>0 && %2554>0 && %2555>0 && %2556>0 && %2557>0 && %2558>0 && %2559>0 && %2560>0 && %2561>0 && %2562>0 && %2563>0 && %2564>0 && %2565>0 && %2801>0 && %2802>0 && %2803>0 && %2804>0 && %2805>0 && %2806>0 && %2807>0 && %2808>0 && %2809>0 && %2810>0 && %2811>0 && %2812>0 && %2813>0 && %2814>0 && %2815>0 && %2816>0 && %2817>0 && %2818>0 && %2819>0 && %game_clear>0 && %hsean_meia1=1 && %hsean_sara1=1 && %count_hanseikai>49 mov %count_zukan1,1
if %2566>0 && %2567>0 && %2568>0 && %2569>0 && %2570>0 && %2571>0 && %2572>0 && %2573>0 && %2574>0 && %2575>0 && %2576>0 && %2577>0 && %2578>0 && %2579>0 && %2580>0 && %2581>0 && %2582>0 && %2583>0 && %2584>0 && %2585>0 && %2586>0 && %2587>0 && %2588>0 && %2589>0 && %2590>0 && %2591>0 && %2592>0 && %2593>0 && %2594>0 && %2595>0 && %2596>0 && %2597>0 && %2598>0 && %2599>0 && %2600>0 && %2601>0 && %2602>0 && %2603>0 && %2604>0 && %2605>0 && %2606>0 && %2607>0 && %2608>0 && %2609>0 && %2610>0 && %2611>0 && %2612>0 && %2613>0 && %2614>0 && %2615>0 && %2616>0 && %2617>0 && %2618>0 && %2619>0 && %2620>0 && %2621>0 && %2622>0 && %2624>0 && %2625>0 && %2626>0 && %2627>0 && %2628>0 && %2629>0 && %2630>0 && %2631>0 && %2633>0 && %2634>0 && %2635>0 && %2636>0 && %2637>0 && %2638>0 && %2639>0 && %2640>0 && %2641>0 && %2642>0 && %2643>0 && %2644>0 && %2645>0 && %2646>0 && %2647>0 && %2648>0 && %2649>0 && %2820>0 && %2821>0 && %2822>0 && %2823>0 && %2824>0 && %2825>0 && %2826>0 && %2827>0 && %2828>0 && %2829>0 && %2830>0 && %2831>0 && %2832>0 && %2833>0 && %2834>0 && %2835>0 && %2836>0 && %2837>0 && %2838>0 && %game_clear>1 && %hsean_irias1=1 mov %count_zukan2,1
mov %page,1
lsp 502,":a;system\system_bg.jpg",0,0			;????
lsp 501,":a;system\window10.bmp",25,50			;????
lsp 141,":c;system\m_title_mem.jpg",20,20
lsp 142,":c;system\system_barx_u.jpg",0,0			;??????
lsp 143,":c;system\system_barx_d.jpg",0,560			;??????


*menu_kiroku2

cspl 201,213
if %page=0 mov %page,11
if %page=12 mov %page,1
itoa2 $page_h,%page
lsp 144,":s/20,20,0;#FFFFFF"+$page_h+"/11",370,500
if %page=1 gosub *menu_kiroku_page1
if %page=2 gosub *menu_kiroku_page2
if %page=3 gosub *menu_kiroku_page3
if %page=4 gosub *menu_kiroku_page4
if %page=5 gosub *menu_kiroku_page5
if %page=6 gosub *menu_kiroku_page6
if %page=7 gosub *menu_kiroku_page7
if %page=8 gosub *menu_kiroku_page8
if %page=9 gosub *menu_kiroku_page9
if %page=10 gosub *menu_kiroku_page10
if %page=11 gosub *menu_kiroku_page11
print 1



*menu_kiroku_btn

btndef clear
lsp 111,":c/2,0,3;system\return.bmp",20,560:spbtn 111,111		;?????????
lsp 112,":c/2,0,3;system\menu_prev.jpg",330,500:spbtn 112,112
lsp 113,":c/2,0,3;system\menu_next.jpg",450,500:spbtn 113,113

btnwait %bwait
if %bwait=112 mov %page,%page-1:goto *menu_kiroku2
if %bwait=113 mov %page,%page+1:goto *menu_kiroku2
if %bwait=111 screen_clear:return				;?????????
if %bwait= -1 screen_clear:return				;?????
if %bwait=-10 screen_clear:return				;ESC??
if %bwait=-11 screen_clear:return				;??????
goto *menu_kiroku_btn



*menu_kiroku_page1

itoa2 $menu_list1,%count_ko
itoa2 $menu_list2,%count_end
itoa2 $menu_list3,%count_kousan
itoa2 $menu_list4,%count_onedari
itoa2 $menu_list5,%count_hanseikai+%count_hanseikai2
itoa2 $menu_list6,%count_drainhp
itoa2 $menu_list7,%count_drainlv
itoa2 $menu_list8,%count_bouhatu
itoa2 $menu_list9,%count_most
itoa2 $menu_list10,%count_wind
itoa2 $menu_list11,%count_earth
itoa2 $menu_list12,%count_aqua
itoa2 $menu_list13,%count_fire
lsp 201,":s/20,20,0;#FFFFFFNum of Victories: "+$menu_list1+"",50,80
lsp 202,":s/20,20,0;#FFFFFFNum of Orgasms: "+$menu_list2+"",50,110
lsp 203,":s/20,20,0;#FFFFFFNum of Surrenders: "+$menu_list3+"",50,140
lsp 204,":s/20,20,0;#FFFFFFNum of Requests: "+$menu_list4+"",50,170
lsp 205,":s/20,20,0;#FFFFFFNum of Evaluations: "+$menu_list5+"",50,200
lsp 206,":s/20,20,0;#FFFFFFHP Drained in Attacks: "+$menu_list6,50,230
lsp 207,":s/20,20,0;#FFFFFFLevels Drained: "+$menu_list7,50,260
lsp 208,":s/20,20,0;#FFFFFFNum of Accidental Ejaculations: "+$menu_list8+"",50,290
if $count_mostname="" lsp 209,":s/20,20,0;#FFFFFFMost lost to Monster: None",50,320
notif $count_mostname="" lsp 209,":s/20,20,0;#FFFFFFMost Lost to Monster: "+$count_mostname+" ("+$menu_list9+")",50,320
lsp 210,":s/20,20,0;#FFFFFFNum of Sylph Summons: "+$menu_list10+"",50,350
lsp 211,":s/20,20,0;#FFFFFFNum of Gnome Summons: "+$menu_list11+"",50,380
lsp 212,":s/20,20,0;#FFFFFFNum of Undine Summons: "+$menu_list12+"",50,410
lsp 213,":s/20,20,0;#FFFFFFNum of Salamander Summons: "+$menu_list13+"",50,440
return



*menu_kiroku_page2

itoa2 $menu_list1,%count_nakadashi
itoa2 $menu_list2,%count_sakuseikikan
itoa2 $menu_list3,%count_sumata
itoa2 $menu_list4,%count_fera
itoa2 $menu_list5,%count_paizuri
itoa2 $menu_list6,%count_tekoki
itoa2 $menu_list7,%count_ashikoki
itoa2 $menu_list8,%count_kami
itoa2 $menu_list9,%count_zenshin
itoa2 $menu_list10,%count_kiss
itoa2 $menu_list11,%count_analsex
itoa2 $menu_list12,%count_tikubi
itoa2 $menu_list13,%count_analseme
lsp 201,":s/20,20,0;#FFFFFFVaginal Ejaculations: "+$menu_list1+"",50,80
lsp 202,":s/20,20,0;#FFFFFFSpecial Mouth Ejaculations: "+$menu_list2+"",50,110
lsp 203,":s/20,20,0;#FFFFFFIntercrural Ejaculations: "+$menu_list3+"",50,140
lsp 204,":s/20,20,0;#FFFFFFFellatio Ejaculations: "+$menu_list4+"",50,170
lsp 205,":s/20,20,0;#FFFFFFTit Fuck Ejaculations: "+$menu_list5+"",50,200
lsp 206,":s/20,20,0;#FFFFFFHandjob Ejaculations: "+$menu_list6+"",50,230
lsp 207,":s/20,20,0;#FFFFFFFootjob Ejaculations: "+$menu_list7+"",50,260
lsp 208,":s/20,20,0;#FFFFFFHairjob Ejaculations: "+$menu_list8+"",50,290
lsp 209,":s/20,20,0;#FFFFFFFull-Body-Job Ejaculations: "+$menu_list9+"",50,320
lsp 210,":s/20,20,0;#FFFFFFKiss Ejaculations: "+$menu_list10+"",50,350
lsp 211,":s/20,20,0;#FFFFFFAnal Sex Ejaculations: "+$menu_list11+"",50,380
lsp 212,":s/20,20,0;#FFFFFFNipple Torture Ejaculations: "+$menu_list12+"",50,410
lsp 213,":s/20,20,0;#FFFFFFAnal Tease Ejaculations: "+$menu_list13+"",50,440
return


*menu_kiroku_page3

itoa2 $menu_list1,%count_zensin
itoa2 $menu_list2,%count_kusuguri
itoa2 $menu_list3,%count_ganmenkizyou
itoa2 $menu_list4,%count_tissoku
itoa2 $menu_list5,%count_onani
itoa2 $menu_list6,%count_syokusyu
itoa2 $menu_list7,%count_slime
itoa2 $menu_list8,%count_nenmaku
itoa2 $menu_list9,%count_sipppo
itoa2 $menu_list10,%count_ito
itoa2 $menu_list11,%count_role
itoa2 $menu_list12,%count_plant
itoa2 $menu_list13,%count_wing
lsp 201,":s/20,20,0;#FFFFFFFull Body Massage Ejaculations: "+$menu_list1+"",50,80
lsp 202,":s/20,20,0;#FFFFFFTickle Attack Ejaculations: "+$menu_list2+"",50,110
lsp 203,":s/20,20,0;#FFFFFFFace Ride Ejaculations: "+$menu_list3+"",50,140
lsp 204,":s/20,20,0;#FFFFFFSuffocation Attack Ejaculations: "+$menu_list4+"",50,170
lsp 205,":s/20,20,0;#FFFFFFForced Masturbation Ejaculations: "+$menu_list5+"",50,200
lsp 206,":s/20,20,0;#FFFFFFTentacle Attack Ejaculations: "+$menu_list6+"",50,230
lsp 207,":s/20,20,0;#FFFFFFSlime Attack Ejaculations: "+$menu_list7+"",50,260
lsp 208,":s/20,20,0;#FFFFFFMucus Membrane Attack Ejaculations: "+$menu_list8+"",50,290
lsp 209,":s/20,20,0;#FFFFFFTail Tease Attack Ejaculations: "+$menu_list9+"",50,320
lsp 210,":s/20,20,0;#FFFFFFString Attack Ejaculations: "+$menu_list10+"",50,350
lsp 211,":s/20,20,0;#FFFFFFBinding Attack Ejaculations: "+$menu_list11+"",50,380
lsp 212,":s/20,20,0;#FFFFFFPlant Attack Ejaculations: "+$menu_list12+"",50,410
lsp 213,":s/20,20,0;#FFFFFFWing Attack Ejaculations: "+$menu_list13+"",50,440
return


*menu_kiroku_page4

itoa2 $menu_list1,%count_ihuku
itoa2 $menu_list2,%count_kaze
itoa2 $menu_list3,%count_marunomi
itoa2 $menu_list4,%count_buturi
itoa2 $menu_list5,%count_yuuwaku
itoa2 $menu_list6,%count_sonota
itoa2 $menu_list7,%count_kousoku
itoa2 $menu_list8,%count_koukotu
itoa2 $menu_list9,%count_mahi
itoa2 $menu_list10,%count_kuppuku
itoa2 $menu_list11,%count_yuwaku
itoa2 $menu_list12,%count_sekika
itoa2 $menu_list13,%count_konran
lsp 201,":s/20,20,0;#FFFFFFClothes Attack Ejaculations: "+$menu_list1+"",50,80
lsp 202,":s/20,20,0;#FFFFFFWind Attack Ejaculations: "+$menu_list2+"",50,110
lsp 203,":s/20,20,0;#FFFFFFDevouring Attack Ejaculations: "+$menu_list3+"",50,140
lsp 204,":s/20,20,0;#FFFFFFDowned by Physical Attacks: "+$menu_list4+"",50,170
lsp 205,":s/20,20,0;#FFFFFFDefeated Self in Confusion: "+$menu_list5+"",50,200
lsp 206,":s/20,20,0;#FFFFFFOther Attack Ejaculations: "+$menu_list6+"",50,230
lsp 207,":s/20,20,0;#FFFFFFNum of Orgasms While Bound: "+$menu_list7+"",50,260
lsp 208,":s/20,20,0;#FFFFFFNum of Orgasms While in Trance: "+$menu_list8+"",50,290
lsp 209,":s/20,20,0;#FFFFFFNum of Orgasms While Paralyzed: "+$menu_list9+"",50,320
lsp 210,":s/20,20,0;#FFFFFFNum of Orgasms While Seduced: "+$menu_list10+"",50,350
lsp 211,":s/20,20,0;#FFFFFFNum of Orgasms While Forced to Surrender: "+$menu_list11+"",50,380
lsp 212,":s/20,20,0;#FFFFFFNum of Orgasms While Petrified: "+$menu_list12+"",50,410
lsp 213,":s/20,20,0;#FFFFFFNum of Orgasms While Confused: "+$menu_list13+"",50,440
return


*menu_kiroku_page5

itoa2 $menu_list1,%count_b001
itoa2 $menu_list2,%count_b002
itoa2 $menu_list3,%count_b003
itoa2 $menu_list4,%count_b004
itoa2 $menu_list5,%count_b005
itoa2 $menu_list6,%count_b006
itoa2 $menu_list7,%count_b007
itoa2 $menu_list8,%count_b008
itoa2 $menu_list9,%count_b009
itoa2 $menu_list10,%count_b010
itoa2 $menu_list11,%count_b011
itoa2 $menu_list12,%count_b013
itoa2 $menu_list13,%count_b014
lsp 201,":s/20,20,0;#FFFFFFTimes Kept as a Reproductive Partner: "+$menu_list1+"",50,80
lsp 202,":s/20,20,0;#FFFFFFTimes Mated With for Reproduction, Then Killed: "+$menu_list2+"",50,110
lsp 203,":s/20,20,0;#FFFFFFTimes Endlessly Sucked as Food: "+$menu_list3+"",50,140
lsp 204,":s/20,20,0;#FFFFFFTimes Killed by Being Sucked Dry: "+$menu_list4+"",50,170
lsp 205,":s/20,20,0;#FFFFFFTimes Turned Into a Toy: "+$menu_list5+"",50,200
lsp 206,":s/20,20,0;#FFFFFFTimes Toyed With For Fun, Then Killed: "+$menu_list6+"",50,230
lsp 207,":s/20,20,0;#FFFFFFTimes Made Into a Group Toy: "+$menu_list7+"",50,260
lsp 208,":s/20,20,0;#FFFFFFTimes Killed by a Group Squeezing Dry: "+$menu_list8+"",50,290
lsp 209,":s/20,20,0;#FFFFFFTimes Made Into a Monster's Slave: "+$menu_list9+"",50,320
lsp 210,":s/20,20,0;#FFFFFFTimes Forced to Marry a Monster: "+$menu_list10+"",50,350
lsp 211,":s/20,20,0;#FFFFFFTimes Eaten by a Monster: "+$menu_list11+"",50,380
lsp 212,":s/20,20,0;#FFFFFFTimes Made Into Research Guinea Pig: "+$menu_list12+"",50,410
lsp 213,":s/20,20,0;#FFFFFFNum of Times Invited to Death: "+$menu_list13+"",50,440
return



*menu_kiroku_page6

itoa2 $menu_list1,%count_b012
itoa2 $menu_list2,%count_b015
itoa2 $menu_list3,%count_lick
itoa2 $menu_list4,%count_b016
itoa2 $menu_list5,%count_b017
itoa2 $menu_list6,%count_surrender
itoa2 $menu_list7,%count_poison
itoa2 $menu_list8,%count_curse
itoa2 $menu_list9,%count_sirikoki
itoa2 $menu_list10,%count_fukutsu
itoa2 $menu_list11,%count_fetish
lsp 201,":s/20,20,0;#FFFFFFTimes put into a Monster's Nursery: "+$menu_list1+"",50,80
lsp 202,":s/20,20,0;#FFFFFFTimes reincarnated into a new existence: "+$menu_list2+"",50,110
lsp 203,":s/20,20,0;#FFFFFFLicking Attack Ejaculations: "+$menu_list3+"",50,140
lsp 204,":s/20,20,0;#FFFFFFTimes kept as an apprentice: "+$menu_list4+"",50,170
lsp 205,":s/20,20,0;#FFFFFFTimes shown pity: "+$menu_list5+"",50,200
lsp 206,":s/20,20,0;#FFFFFFTimes forced to surrender: "+$menu_list6+"",50,230
lsp 207,":s/20,20,0;#FFFFFFTimes succumbed to an enemy's poison: "+$menu_list7+"",50,260
lsp 208,":s/20,20,0;#FFFFFFTimes defeated by an enemy's curse: "+$menu_list8+"",50,290
lsp 209,":s/20,20,0;#FFFFFFAssjob Ejaculations: "+$menu_list9+"",50,320
lsp 210,":s/20,20,0;#FFFFFFStomach Rub Ejaculations: "+$menu_list10+"",50,350
lsp 211,":s/20,20,0;#FFFFFFTimes succumbed to a fetish: "+$menu_list11+"",50,380
lsp 212,":s/20,20,0;#FFFFFF",50,410
lsp 213,":s/20,20,0;#FFFFFF",50,440
return



*menu_kiroku_page7

lsp 201,":s/20,20,0;#bbbbbbFirst Chapter Cleared",50,80
if %game_clear>0 && %2265=1 lsp 201,":s/20,20,0;#FFFFFFFirst Chapter Cleared",50,80
lsp 202,":s/20,20,0;#bbbbbbSecond Chapter Cleared",50,110
if %game_clear>1 && %2342=1 lsp 202,":s/20,20,0;#FFFFFFSecond Chapter Cleared",50,110
if %game_clear=3 lsp 203,":s/20,20,0;#FFFFFFFinal Chapter Cleared",50,140
if %game_clear<3 lsp 203,":s/20,20,0;#bbbbbbFinal Chapter Cleared",50,140
if %count_zukan1=0 lsp 204,":s/20,20,0;#bbbbbbCompleted First Chapter Monsterpedia",50,170
if %count_zukan1=1 lsp 204,":s/20,20,0;#FFFFFFCompleted First Chapter Monsterpedia",50,170
if %count_zukan2=0 lsp 205,":s/20,20,0;#bbbbbbCompleted Second Chapter Monsterpedia",50,200
if %count_zukan2=1 lsp 205,":s/20,20,0;#FFFFFFCompleted Second Chapter Monsterpedia",50,200
if %count_zukan3=0 lsp 206,":s/20,20,0;#bbbbbbCompleted Final Chapter Monsterpedia",50,230
if %count_zukan3=1 lsp 206,":s/20,20,0;#FFFFFFCompleted Final Chapter Monsterpedia",50,230
lsp 207,":s/20,20,0;#bbbbbbHit By All Requestable First Chapter Techniques",50,260
if %count_oskill1=262 lsp 207,":s/20,20,0;#FFFFFFHit By All Requestable First Chapter Techniques",50,260
lsp 208,":s/20,20,0;#bbbbbbHit By All Requestable Second Chapter Techniques",50,290
if %count_oskill2=403 lsp 208,":s/20,20,0;#FFFFFFHit By All Requestable Second Chapter Techniques",50,290
lsp 209,":s/20,20,0;#bbbbbbHit By All Requestable Final Chapter Techniques",50,320
if %count_oskill3=443 lsp 209,":s/20,20,0;#FFFFFFHit By All Requestable Final Chapter Techniques",50,320
lsp 210,":s/20,20,0;#bbbbbbCompleted Monsterpedia",50,350
if %count_zukan1=1 && %count_zukan2=1 && %count_zukan3=1 && %count_oskill1+%count_oskill2+%count_oskill3=1109 lsp 210,":s/20,20,0;#FFFFFFCompleted Monsterpedia",50,350
if %count_hpfull=1 lsp 211,":s/20,20,0;#FFFFFFWon Without Taking Damage",50,380
if %count_hpfull=0 lsp 211,":s/20,20,0;#bbbbbbWon Without Taking Damage",50,380
if %count_onekill=1 lsp 212,":s/20,20,0;#FFFFFFDefeated on the First Turn",50,410
if %count_onekill=0 lsp 212,":s/20,20,0;#bbbbbbDefeated on the First Turn",50,410
if %count_vickonran=1 lsp 213,":s/20,20,0;#FFFFFFWon While Confused",50,440
if %count_vickonran=0 lsp 213,":s/20,20,0;#bbbbbbWon While Confused",50,440
return



*menu_kiroku_page8

if %count_hellvic=1 lsp 201,":s/20,20,0;#FFFFFFWon a Fight on HELL mode",50,80
if %count_hellvic=0 lsp 201,":s/20,20,0;#bbbbbbWon a Fight on HELL mode",50,80
if %count_granhigi=1 lsp 202,":s/20,20,0;#FFFFFFTook the Flames of Granberia's Demon Skull Beheading * Blaze",50,110
if %count_granhigi=0 && %game_clear=0 lsp 202,":s/20,20,0;#bbbbbbTook ??????'s ???????? attack",50,110
if %count_granhigi=0 && %game_clear>0 lsp 202,":s/20,20,0;#bbbbbbTook the Flames of Granberia's Demon Skull Beheading * Blaze",50,110
if %3173>0 lsp 203,":s/20,20,0;#FFFFFFTook Alma Elma's Tail Drain Attack",50,140
if %3173=0 && %game_clear=0 lsp 203,":s/20,20,0;#bbbbbbTook ????????'s ???????? attack",50,140
if %3173=0 && %game_clear>0 lsp 203,":s/20,20,0;#bbbbbbTook Alma Elma's Tail Drain Attack",50,140
if %3237>0 lsp 204,":s/20,20,0;#FFFFFFTook Sphinx's Ancient Law of Ecstasy",50,170
if %3237=0 && %game_clear=0 lsp 204,":s/20,20,0;#bbbbbbTook ??????'s ?????? of ????????",50,170
if %3237=0 && %game_clear>0 lsp 204,":s/20,20,0;#bbbbbbTook Sphinx's Ancient Law of Ecstasy",50,170
if %count_sara=1 lsp 205,":s/20,20,0;#FFFFFFSara defeated a monster",50,200
if %count_sara=0 && %game_clear=0 lsp 205,":s/20,20,0;#bbbbbb???? defeated a monster",50,200
if %count_sara=0 && %game_clear>0 lsp 205,":s/20,20,0;#bbbbbbSara defeated a monster",50,200
if %count_mylv0=1 lsp 206,":s/20,20,0;#FFFFFFDrained to Level 1",50,230
if %count_mylv0=0 lsp 206,":s/20,20,0;#bbbbbbDrained to Level 1",50,230
if %count_kadora=1 lsp 207,":s/20,20,0;#FFFFFFForced an enemy to eat Quadruple Giga",50,260
if %count_kadora=0 && %game_clear<2 lsp 207,":s/20,20,0;#bbbbbb????????? unleashed",50,260
if %count_kadora=0 && %game_clear>1 lsp 207,":s/20,20,0;#bbbbbbForced an enemy to eat Quadruple Giga",50,260
if %yuusyaakasi=1 lsp 208,":s/20,20,0;#FFFFFFHero's Proof obtained",50,290
if %yuusyaakasi=0 lsp 208,":s/20,20,0;#bbbbbbHero's Proof obtained",50,290
if %g_sylph=1 lsp 209,":s/20,20,0;#FFFFFFSylph was summoned tired out",50,320
if %g_sylph=0 && %game_clear=0 lsp 209,":s/20,20,0;#bbbbbb?????? was summoned tired out",50,320
if %g_sylph=0 && %game_clear>0 lsp 209,":s/20,20,0;#bbbbbbSylph was summoned tired out",50,320
if %z_gnome=1 lsp 210,":s/20,20,0;#FFFFFFGnome was summoned sleeping",50,350
if %z_gnome=0 && %game_clear<2 lsp 210,":s/20,20,0;#bbbbbb?????? was summoned sleeping",50,350
if %z_gnome=0 && %game_clear>1 lsp 210,":s/20,20,0;#bbbbbbGnome was summoned sleeping",50,350
if %count_alice1=1 lsp 211,":s/20,20,0;#FFFFFFAlice defeated an enemy in her sealed state.",50,380
if %count_alice1=0 && %game_clear<3 lsp 211,":s/20,20,0;#bbbbbb???????? sealed state.",50,380
if %count_alice1=0 && %game_clear=3 lsp 211,":s/20,20,0;#bbbbbbAlice defeated an enemy in her sealed state.",50,380
if %count_alice2=1 lsp 212,":s/20,20,0;#FFFFFFAlice defeated an enemy.",50,410
if %count_alice2=0 && %game_clear<3 lsp 212,":s/20,20,0;#bbbbbb????? defeated an enemy.",50,410
if %count_alice2=0 && %game_clear=3 lsp 212,":s/20,20,0;#bbbbbbAlice defeated an enemy.",50,410
if %alicek=1 lsp 213,":s/20,20,0;#FFFFFFDefeated an enemy without transforming Alice.",50,440
if %alicek=0 && %game_clear<3 lsp 213,":s/20,20,0;#bbbbbb???????? without transforming.",50,440
if %alicek=0 && %game_clear=3 lsp 213,":s/20,20,0;#bbbbbbDefeated an enemy without transforming Alice.",50,440
return



*menu_kiroku_page9

if %count_enemy_wind=1 lsp 201,":s/20,20,0;#FFFFFFDefeated an enemy strengthened by Zylphe.",50,80
if %count_enemy_wind=0 lsp 201,":s/20,20,0;#bbbbbbDefeated an enemy strengthened by Zylphe.",50,80
if %count_enemy_earth=1 lsp 202,":s/20,20,0;#FFFFFFDefeated an enemy strengthened by Gnomaren.",50,110
if %count_enemy_earth=0 lsp 202,":s/20,20,0;#bbbbbbDefeated an enemy strengthened by Gnomaren.",50,110
if %count_enemy_aqua=1 lsp 203,":s/20,20,0;#FFFFFFDefeated an enemy strengthened by Grandine.",50,140
if %count_enemy_aqua=0 lsp 203,":s/20,20,0;#bbbbbbDefeated an enemy strengthened by Grandine.",50,140
if %count_enemy_fire=1 lsp 204,":s/20,20,0;#FFFFFFDefeated an enemy strengthened by Gigamander.",50,170
if %count_enemy_fire=0 lsp 204,":s/20,20,0;#bbbbbbDefeated an enemy strengthened by Gigamander.",50,170
if %counterk=1 lsp 205,":s/20,20,0;#FFFFFFDefeated an enemy in a counter stance.",50,200
if %counterk=0 lsp 205,":s/20,20,0;#bbbbbbDefeated an enemy in a counter stance.",50,200
if %tamek=1 lsp 206,":s/20,20,0;#FFFFFFCountered an enemy's charged skill.",50,230
if %tamek=0 lsp 206,":s/20,20,0;#bbbbbbCountered an enemy's charged skill.",50,230
if %dopple_wet=1 lsp 207,":s/20,20,0;#FFFFFFDefeated Doppleganger without her unclothing.",50,260
if %dopple_wet=0 && %game_clear<3 lsp 207,":s/20,20,0;#bbbbbb???????????? without her unclothing.",50,260
if %dopple_wet=0 && %game_clear=3 lsp 207,":s/20,20,0;#bbbbbbDefeated Doppleganger without her unclothing.",50,260
if %hsean_shitenno5=1 lsp 208,":s/20,20,0;#FFFFFFSeen something incredible...",50,290
if %hsean_shitenno5=0 && %game_clear<3 lsp 208,":s/20,20,0;#bbbbbb?????????? incredible...",50,290
if %hsean_shitenno5=0 && %game_clear=3 lsp 208,":s/20,20,0;#bbbbbbSeen something incredible...",50,290
if %micaela_batou=1 lsp 209,":s/20,20,0;#FFFFFFDisparaged by Micaela.",50,320
if %micaela_batou=0 && %game_clear<3 lsp 209,":s/20,20,0;#bbbbbb?????? disparaged you.",50,320
if %micaela_batou=0 && %game_clear=3 lsp 209,":s/20,20,0;#bbbbbbDisparaged by Micaela.",50,320
if %lonely=1 lsp 210,":s/20,20,0;#FFFFFFDid not remember Amira.",50,350
if %lonely=0 && %game_clear<3 lsp 210,":s/20,20,0;#bbbbbb????? was not remembered.",50,350
if %lonely=0 && %game_clear=3 lsp 210,":s/20,20,0;#bbbbbbDid not remember Amira.",50,350
if %ruka_book=1 lsp 211,":s/20,20,0;#FFFFFFThe author of The Legend of the Hero Luka discovered.",50,380
if %ruka_book=0 && %game_clear<3 lsp 211,":s/20,20,0;#bbbbbb??????? author discovered.",50,380
if %ruka_book=0 && %game_clear=3 lsp 211,":s/20,20,0;#bbbbbbThe author of The Legend of the Hero Luka discovered.",50,380
lsp 212,":s/20,20,0;#FFFFFF",50,410
lsp 213,":s/20,20,0;#FFFFFF",50,440
return



*menu_kiroku_page10

if %granberia_hell>0 lsp 201,":s/20,20,0;#FFFFFFBeat Granberia (NG+) on Hell difficulty.",50,80
if %granberia_hell<1 lsp 201,":s/20,20,0;#bbbbbbBeat Granberia (NG+) on Hell difficulty.",50,80

if %queenharpy_hell>0 lsp 202,":s/20,20,0;#FFFFFFBeat Queen Harpy (NG+) on Hell difficulty.",50,110
if %queenharpy_hell<1 lsp 202,":s/20,20,0;#bbbbbbBeat Queen Harpy (NG+) on Hell difficulty.",50,110

if %tamamo_hell>0 lsp 203,":s/20,20,0;#FFFFFFBeat Tamamo (NG+) on Hell difficulty.",50,140
if %tamamo_hell<1 lsp 203,":s/20,20,0;#bbbbbbBeat Tamamo (NG+) on Hell difficulty.",50,140

if %granberia_maxrep>0 lsp 204,":s/20,20,0;#FFFFFFGranberia's rep at max (NG+ Part 1 End)",50,170
if %granberia_maxrep<1 lsp 204,":s/20,20,0;#bbbbbbGranberia's rep at max (NG+ Part 1 End)",50,170

if %tamamo_maxrep>0 lsp 205,":s/20,20,0;#FFFFFFTamamo's rep at max (NG+ Part 1 End)",50,200
if %tamamo_maxrep<1 lsp 205,":s/20,20,0;#bbbbbbTamamo's rep at max (NG+ Part 1 End)",50,200

if %granberia_minrep>0 lsp 206,":s/20,20,0;#FFFFFFGranberia's rep at lowest (NG+ Part 1 End)",50,230
if %granberia_minrep<1 lsp 206,":s/20,20,0;#bbbbbbGranberia's rep at lowest (NG+ Part 1 End)",50,230

if %earth_decap>0 lsp 207,":s/20,20,0;#FFFFFFTook Granberia (NG+)'s Starblade.",50,260
if %earth_decap<1 lsp 207,":s/20,20,0;#bbbbbbTook Granberia (NG+)'s Starblade.",50,260

if %nine_moons_won>0 lsp 208,":s/20,20,0;#FFFFFFTook Tamamo (NG+)'s Nine Moons and won (Any Difficulty)",50,290
if %nine_moons_won<1 lsp 208,":s/20,20,0;#bbbbbbTook Tamamo (NG+)'s Nine Moons and won (Any Difficulty)",50,290

if %tamamo_knows>0 lsp 209,":s/20,20,0;#FFFFFFTamamo knows something...",50,320
if %tamamo_knows<1 lsp 209,":s/20,20,0;#bbbbbbTamamo knows something...",50,320

if %ng1_achi>0 lsp 210,":s/20,20,0;#FFFFFFAll NG+ Part 1 Achievements",50,350
if %ng1_achi<1 lsp 210,":s/20,20,0;#bbbbbbAll NG+ Part 1 Achievements",50,350

if %lilith_hell>0 lsp 211,":s/20,20,0;#FFFFFFBeat Lilith & Lilim (NG+) on Hell difficulty.",50,380
if %lilith_hell<1 lsp 211,":s/20,20,0;#bbbbbbBeat Lilith & Lilim (NG+) on Hell difficulty.",50,380

if %cupidsuccubus_debut>0 lsp 212,":s/20,20,0;#FFFFFFThe Debut of the Cupid Succubus!",50,410
if %cupidsuccubus_debut<1 lsp 212,":s/20,20,0;#bbbbbbThe Debut of the Cupid Succubus!",50,410

if %sara_tantrum>0 lsp 213,":s/20,20,0;#FFFFFFWatched Sara throw a fit.",50,440
if %sara_tantrum<1 lsp 213,":s/20,20,0;#bbbbbbWatched ??? throw a fit.",50,440

return

*menu_kiroku_page11

if %lily_generator>0 lsp 201,":s/20,20,0;#FFFFFFOverloaded Lily's barrier generator.",50,80
if %lily_generator<1 lsp 201,":s/20,20,0;#bbbbbbOverloaded ???'s barrier generator.",50,80

if %koakgigacount>0 lsp 202,":s/20,20,0;#FFFFFFForced Koakuma to eat a Quadruple Giga.",50,110
if %koakgigacount<1 lsp 202,":s/20,20,0;#bbbbbbForced ??? to eat a Quadruple Giga.",50,110

if %sara_crushed>0 lsp 203,":s/20,20,0;#FFFFFFCrushed Sara's hopes and dreams completely.",50,140
if %sara_crushed<1 lsp 203,":s/20,20,0;#bbbbbb?????????? hopes and dreams",50,140

if %lily_generator>0 && %mansiongiga>0 && %koakgigacount>0 && %cavein>0 lsp 204,":s/20,20,0;#FFFFFFWa Ga Na Wa Luka",50,170
if %lily_generator<1 || %mansiongiga<1 || %koakgigacount<1 || %cavein<1 lsp 204,":s/20,20,0;#bbbbbbPath of Destruction?",50,170

if %noalice_beelzebub>0 lsp 205,":s/20,20,0;#FFFFFFDefeated Beelzebubs without support from Alice.",50,200
if %noalice_beelzebub<1 lsp 205,":s/20,20,0;#bbbbbbDefeated Beelzebubs without ???",50,200

lsp 206,":s/20,20,0;#FFFFFF",50,230
lsp 207,":s/20,20,0;#FFFFFF",50,260
lsp 208,":s/20,20,0;#FFFFFF",50,290
lsp 209,":s/20,20,0;#FFFFFF",50,320
lsp 210,":s/20,20,0;#FFFFFF",50,350
lsp 211,":s/20,20,0;#FFFFFF",50,380
lsp 212,":s/20,20,0;#FFFFFF",50,410
lsp 213,":s/20,20,0;#FFFFFF",50,440
return