;mode640,value250
*define
nsa
;-------------------------------------------------------------------
;uDOUBLEO`vXNvg
;	Copyright (C) 2003 [ӂ. All rights reserved.
;-------------------------------------------------------------------
;Ŝ̎dg
;	00.txt - 09.txt	VXe֘A
;		00.txt	ݒEdefine
;		01.txt	Q[Jn/OP/ED/[eBeB
;		02.txt	VXeJX^}CY֘A
;		03.txt	^CgʁEyELЉE}{
;		04.txt	CONFIGʂ̏
;		05.txt	Z[u[h
;		06.txt	Q[̏F{[`
;		07.txt	---
;		08.txt	z[h^gV[Ăяo
;		09.txt	bf[h
;	10.txt - 	ViI֘A
;		10.txt	ViIRg[͂
;		11.TXT	eXgpɃAL
;		12.txt	ViI{
;-------------------------------------------------------------------
;TufBNg
;---摜֘A---
;	CG	BMP	umov $_cg,"XXXX" : gosub *cgoutvŏo
;	BG	JPG	umov $_bg,"XXXX" : gosub *outvŏo
;	CHAR	JPG	umov $_char,"XXXX" : gosub *outvŏo
;	SYS	JPG	ʊ֘A`bvB
;	MABO	JPG	}{֘A
;---֘A---
;	BGM	mp3	
;	VOICE	WAV	BADPCM 44bit/mono  22bit/mono
;	SE	WAV	ʉB
;-------------------------------------------------------------------
;pbN̍\
;	arc.nsa		SYS/MABO/THUM
;	arc1.nsa	BG/CHAR
;	arc2.nsa	SE
;	arc3.nsa	CG
;	arc4.nsa	BGM
;	arc5.nsa	VOICE
;	arc6.nsa	BGM
;-------------------------------------------------------------------
;̖ڕW
;	obNO͑Sʂ
;	ʂ̃Xs[h͕ύX\ɁłB
;-------------------------------------------------------------------
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;VXeݒ
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
	caption		"DOUBLEO`(By Torrens moyu.moe)"
	versionstr	"DOUBLEO`","Copyright(C) 2003 [ӂ"
	defaultfont	"lr SVbN"
	automode		;j[ɁuI[g[hvo
	usewheel		;zC[}EXg悤ɂ
	useescspc		;{^߂esc{^spc{^g
	effectblank 	50	;GtFNg̕AԂݒ(50~b)
	mp3fadeout	1000	;CDtF[hAEg̎(~b)
	defaultspeed	50,25,10
	menusetwindow	18,18,2,2,0,1,#cccccc	;Z[u[hj[
	selectcolor #FF791E,#FCF3F1
	kidokuskip
	mode_saya
	maxkaisoupage	50	;zO₷B
	windoweffect 1	;EBhȄõGtFNg͑
	globalon	;O[oϐgp
	filelog		;t@C̃O
	labellog	;x̃O
	lookbackbutton ":a;sys/cur_up.jpg",":a;sys/cur_up_off.jpg",":a;sys/cur_down.jpg",":a;sys/cur_down_off.jpg"
	textgosub *text_lb
	effectcut
	windowback
	humanz 18
	;IJƂAÎǂꂩ̏ɓƂAǂꂩ̑INbNƂ
	selectvoice "","se\zover.wav","se\zclick.wav"
	;j[JƂAj[LZƂAj[Îǂꂩ̏ɓƂAǂꂩNbN ƂA łȂƂ̌xAu͂vI񂾂ƂAuv񂾂ƂAłB
	menuselectvoice "","","","","se\zcancel.wav","se\zok.wav","se\zcancel.wav"

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;j[̐ݒ
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
	resetmenu	;resetmenuŃj[JX^}CY邱Ƃ錾

;insertmenu "eLXg",@\R[h(,Tuj[Kw)
;Ō,ꍇA͂̐@Tuj[ւ̑}ӖB
;wv(&H)
	insertmenu "o[W(&V)",VERSION
;I[g[h(&A)
	insertmenu "I[g[h(&A)",AUTO

;I܂ŃXLbv(&K)
	insertmenu "I܂ŃXLbv(&K)",SKIP

;tHgI
	insertmenu "tHgI(&S)",FONT

	insertmenu "t@C(&F)",SUB
	insertmenu "I(&X)",END,1
	insertmenu "^Cg(&T)",RESET,1

;insertmenu "ݒ",SUB
;;SUB̓Tuj[JƂ킵܂B
;insertmenu "EF[u",SUB,1
;insertmenu "nm",WAVEON,2
;insertmenu "nee",WAVEOFF,2
;insertmenu "{[",DWAVEVOLUME,2
;insertmenu "eLXg",SUB,1
;insertmenu "x",TEXTSLOW,2
;insertmenu "",TEXTMIDDLE,2
;insertmenu "",TEXTFAST,2
;insertmenu "bc|c`",SUB,1
;insertmenu "nm",CDON,2
;insertmenu "nee",CDOFF,2
;insertmenu "NbNݒ",SUB,1
;insertmenu "",CLICKDEF,2
;insertmenu "y[W",CLICKPAGE,2

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;t@CGCAX
;	bmp/jpg̍sʓ|ȂŁAύX肻Ȃ̂́AȂׂGCAXŁB
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;dialog
	stralias	DLG_YES	,":a/2,0,3;sys/dlg_yes.jpg"
	stralias	DLG_NO	,":a/2,0,3;sys/dlg_no.jpg"

;config
	stralias	CFG_DN,		":l/2,0,3;SYS/CFG_DN.BMP"
	stralias	CFG_UP,		":l/2,0,3;SYS/CFG_UP.BMP"
	stralias	CFG_HSE,	":a/2,0,3;SYS/CFG_VOICEH.BMP"
	stralias	CFG_CHARB2,	":a/2,0,3;SYS/CFG_VOICEB2.BMP"
	stralias	CFG_CHARC2,	":a/2,0,3;SYS/CFG_VOICEC2.BMP"
	stralias	CFG_CHARD2,	":a/2,0,3;SYS/CFG_VOICED2.BMP"
	stralias	CFG_CHARE2,	":a/2,0,3;SYS/CFG_VOICEE2.BMP"
	stralias	CFG_CHARX2,	":a/2,0,3;SYS/CFG_VOICEX2.BMP"
	stralias	CFG_CHARY2,	":a/2,0,3;SYS/CFG_VOICEY2.BMP"
	stralias	CFG_HSE2,	":a/2,0,3;SYS/CFG_VOICEH2.BMP"

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;GCAX
;	XK
;		萔ƂĎgꍇ͑啶
;		%$ĕϐƂĎgꍇ͏ŋLq
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;萔(const)
	numalias ON		,1
	numalias OFF		,0
	numalias YES		,1
	numalias NO		,1
	numalias TRUE		,1
	numalias FALSE		,0
;݂XLbv[hȂPAI[g[hȂQAʏ탂[hȂOԂ܂B
	numalias SKIP_NONE	,0
	numalias SKIP_SKIP	,1
	numalias SKIP_AUTO	,2
;---------------------------------------------------------------------------
;ViIp
;j
	numalias SUN	,0
	numalias MON	,1
	numalias TUE	,2
	numalias WED	,3
	numalias THU	,4
	numalias FRI	,5
	numalias SAT	,6
;---------------------------------------------------------------------------
;CONFIGp̒萔l
	numalias n_FULLSCREEN	,1
	numalias n_WINDOWMODE	,0
;---------------------------------------------------------------------------
;_CAOYES/NO̍W
	numalias DLG_YES_X,	210
	numalias DLG_YES_Y,	250
	numalias DLG_NO_X,	340
	numalias DLG_NO_Y,	250
	numalias DISPLAY_X,	640	;modeŏ
	numalias DISPLAY_Y,	480	;modeŏ
;---------------------------------------------------------------------------
;XvCg
;bZ[WEBhEpXvCgԍ
;{Iɂ̃XvCg͏ȂBԂ点ȂB
	numalias SP_CURSOR	,0	;J[\摜
	numalias SP_MESWIN	,1	;g
	numalias SP_SAVE	,2	;Z[u
	numalias SP_LOAD	,3	;[h
	numalias SP_SKIP	,4	;XLbv
	numalias SP_AUTO	,5	;I[g{^
	numalias SP_CONFIG	,6	;RtBOʂ
	numalias SP_HELP	,7	;wv
;---------------------------------------------------------------------------
	numalias SP_C		,11	;O^
	numalias SP_L		,12	;O
	numalias SP_R		,13	;OE
;---------------------------------------------------------------------------
;_CAO֘AXvCg
;̃XvCǵAق̃XvCgQƂԂ点ȂB
	numalias SP_DLG_YES	,8	;YES{^
	numalias SP_DLG_NO	,9	;NO{^
	numalias SP_DLG		,10	;_CAOn
	;-̂R͊Oɂ̂ŃC7-8gp
	numalias SP_DLG_MES	,15	;_CAOŎgbZ[WXvCg
	numalias SP_DLG_MES2	,16	;_CAOŎgbZ[WXvCg
;---------------------------------------------------------------------------
	numalias  SP_EXIT	,17	;߂{^ėp
;---------------------------------------------------------------------------
;ȍ~͋L\ȃXvCg
;fobOpXvCg
	numalias SP_DBG_FNAME	,20	;10,10
	numalias SP_DBG_CG	,21	;10,40
	numalias SP_DBG_CHAR	,22	;10,70
	numalias SP_DBG_BG	,23	;10,100
	numalias SP_DBG_SE	,24	;10,130
	numalias SP_DBG_VOICE	,25	;10,160
;---------------------------------------------------------------------------
;Z[u^[hpl֘AXvCg
	numalias SP_SAVEPAGE1	,20
	numalias SP_SAVEPAGE2	,21
	numalias SP_SAVEPAGE3	,22
	numalias SP_SAVEPAGE4	,23
	numalias SP_SAVEPAGE5	,24
	numalias SP_SAVEEXIT	,25
	numalias SP_SAVESLOT01	,26
	numalias SP_SAVESLOT02	,27
	numalias SP_SAVESLOT03	,28
	numalias SP_SAVESLOT04	,29
	numalias SP_SAVESLOT05	,30
	numalias SP_SAVESLOT06	,31
	numalias SP_SAVESLOT07	,32
	numalias SP_SAVESLOT08	,33
	numalias SP_SAVESLOT09	,34
	numalias SP_SAVESLOT10	,35
	numalias SP_SAVETHUM01	,36
	numalias SP_SAVETHUM02	,37
	numalias SP_SAVETHUM03	,38
	numalias SP_SAVETHUM04	,39
	numalias SP_SAVETHUM05	,40
	numalias SP_SAVETHUM06	,41
	numalias SP_SAVETHUM07	,42
	numalias SP_SAVETHUM08	,43
	numalias SP_SAVETHUM09	,44
	numalias SP_SAVETHUM10	,45
	numalias SP_SAVECMNT01	,46
	numalias SP_SAVECMNT02	,47
	numalias SP_SAVECMNT03	,48
	numalias SP_SAVECMNT04	,49
	numalias SP_SAVECMNT05	,50
	numalias SP_SAVECMNT06	,51
	numalias SP_SAVECMNT07	,52
	numalias SP_SAVECMNT08	,53
	numalias SP_SAVECMNT09	,54
	numalias SP_SAVECMNT10	,55
	numalias SP_SAVEBTN01	,56
	numalias SP_SAVEBTN02	,57
	numalias SP_SAVEBTN03	,58
	numalias SP_SAVEBTN04	,59
	numalias SP_SAVEBTN05	,60
	numalias SP_SAVEBTN06	,61
	numalias SP_SAVEBTN07	,62
	numalias SP_SAVEBTN08	,63
	numalias SP_SAVEBTN09	,64
	numalias SP_SAVEBTN10	,65
	numalias SP_SAVENEW	,66
	numalias SP_SAVEBG	,67
;---------------------------------------------------------------------------
;RtBOpl֘AXvCg
	numalias SP_CFG_EXIT		,20	;EBhE
	numalias SP_CFG_TITLE		,21
	numalias SP_CFG_SAVE		,22
	numalias SP_CFG_LOAD		,23
	numalias SP_CFG_FULLSCREEN	,24	;tXN[
	numalias SP_CFG_WINDOW		,25	;EBhE
	numalias SP_CFG_BGMVOL		,26
	numalias SP_CFG_BGMVOL_UP	,27
	numalias SP_CFG_BGMVOL_DOWN	,28
	numalias SP_CFG_SEVOL		,29
	numalias SP_CFG_SEVOL_UP	,30
	numalias SP_CFG_SEVOL_DOWN	,31
;	numalias SP_CFG_VOICEVOL	,32
;	numalias SP_CFG_VOICEVOL_UP	,33
;	numalias SP_CFG_VOICEVOL_DOWN	,34
;	numalias SP_CFG_CHARB		,35
;	numalias SP_CFG_CHARC		,36
;	numalias SP_CFG_CHARD		,37
;	numalias SP_CFG_CHARE		,38
;	numalias SP_CFG_CHARX		,39
;	numalias SP_CFG_CHARY		,40
	numalias SP_CFG_HSEON		,40
	numalias SP_CFG_HSEOFF		,41
	numalias SP_CFG_KIDOKU		,42
	numalias SP_CFG_MIDOKU		,43
	numalias SP_CFG_CAPTURE		,44
	numalias SP_CFG_HINTON		,45
	numalias SP_CFG_HINTOFF		,46
	numalias SP_CFG_TEXTSPEED	,47
	numalias SP_CFG_TEXTSPEED_UP	,48
	numalias SP_CFG_TEXTSPEED_DOWN	,49
	numalias SP_CFG_AUTOSPEED	,50
	numalias SP_CFG_AUTOSPEED_UP	,51
	numalias SP_CFG_AUTOSPEED_DOWN	,52
	numalias SP_CFG_KOUKAOFF	,53
	numalias SP_CFG_KOUKAON		,54
	numalias SP_CFG_DLGON		,55	
	numalias SP_CFG_DLGOFF		,56
	numalias SP_CFG_BG		,57
;---------------------------------------------------------------------------
;{^ԍ
;bZ[WEBhEp{^ԍi萔j
	numalias BTN_QUICKSAVE	,100	;NCbNZ[u
	numalias BTN_QUICKLOAD	,101	;NCbN[h
	numalias BTN_SAVE	,102	;Z[u
	numalias BTN_LOAD	,103	;[h
	numalias BTN_SKIP	,104	;XLbv
	numalias BTN_LOG	,105	;O
	numalias BTN_VOICE	,106	;{CX
	numalias BTN_RETUREN	,107	;^[{^
	numalias BTN_AUTO	,108	;I[g{^
	numalias BTN_CONFIG	,109	;RtBO
	numalias BTN_HELP	,110	;wv
	numalias BTN_EXIT	,111	;߂@ėp

;_CAOp{^ԍ
	numalias BTN_YES		,118	;YES
	numalias BTN_NO			,119	;NO

;Z[u^[hp{^ԍ
	numalias BTN_PAGE1		,130	;save/load̃y[W؂ւ
	numalias BTN_PAGE2		,131	
	numalias BTN_PAGE3		,132	
	numalias BTN_PAGE4		,133	
	numalias BTN_PAGE5		,134	
	numalias BTN_SAVEEXIT		,135
	numalias BTN_SAVECMNT		,136

;CONFIGʗp{^ԍ
	numalias BTN_CFG_EXIT		,140
	numalias BTN_CFG_TITLE		,141
	numalias BTN_CFG_SAVE		,142
	numalias BTN_CFG_LOAD		,143
	numalias BTN_CFG_FULLSCREEN	,144
	numalias BTN_CFG_WINDOW		,145
	numalias BTN_CFG_BGMVOL		,146
	numalias BTN_CFG_BGMVOL_UP	,147
	numalias BTN_CFG_BGMVOL_DOWN	,148
	numalias BTN_CFG_SEVOL_UP	,149
	numalias BTN_CFG_SEVOL_DOWN	,150
	numalias BTN_CFG_VOICEVOL_UP	,151
	numalias BTN_CFG_VOICEVOL_DOWN	,152

;	numalias BTN_CFG_CHARB		,153
;	numalias BTN_CFG_CHARC		,154
;	numalias BTN_CFG_CHARD		,155
;	numalias BTN_CFG_CHARE		,156
;	numalias BTN_CFG_CHARX		,157
;	numalias BTN_CFG_CHARY		,158
	numalias BTN_CFG_HSEON		,158
	numalias BTN_CFG_HSEOFF		,159

	numalias BTN_CFG_KIDOKU		,160
	numalias BTN_CFG_MIDOKU		,161
	numalias BTN_CFG_HINTON		,162
	numalias BTN_CFG_HINTOFF	,163

	numalias BTN_CFG_TEXTSPEED_UP	,164
	numalias BTN_CFG_TEXTSPEED_DOWN	,165
	numalias BTN_CFG_AUTOSPEED_UP	,166
	numalias BTN_CFG_AUTOSPEED_DOWN	,167

	numalias BTN_CFG_KOUKAOFF	,168
	numalias BTN_CFG_KOUKAON	,169

	numalias BTN_CFG_DLGON		,170
	numalias BTN_CFG_DLGOFF		,171

;ȈՃXe[^X
	numalias BTN_STATUSB	,175
	numalias BTN_STATUSC	,176
	numalias BTN_STATUSD	,177

;Ip{^ԍ
	numalias BTN_CSEL0	,200
	numalias BTN_CSEL1	,201
	numalias BTN_CSEL2	,202
	numalias BTN_CSEL3	,203
	numalias BTN_CSEL4	,204
;---------------------------------------------------------------------------
;L[{[h֘A
	numalias MOUSE_LBUTTON,	0	;}EXNbN
	numalias MOUSE_RBUTTON,	-1	;ENbN
	numalias MOUSE_WHEELUP,	-2	;zC[}EX usewheelv
	numalias MOUSE_WHEELDOWN,-3	;zC[}EX usewheelv
	numalias TIMEOUT,	-5	;I[ĝƂ
	numalias KEY_ESCAPE,	-10	;ESCL[@ useescspcv
	numalias KEY_SPACE,	-11	;SPACEL[@useescspcv
	numalias KEY_PAGEUP,	-12	;PAGEUPL[
	numalias KEY_RETURN,	-19	;RETURNL[ getenterv
	numalias KEY_TAB,	-20	;TABL[ gettabv
	numalias KEY_F1,	-21	;F1-F12
	numalias KEY_F2,	-22
	numalias KEY_F3,	-23
	numalias KEY_F4,	-24
	numalias KEY_F5,	-25
	numalias KEY_F6,	-26
	numalias KEY_F7,	-27
	numalias KEY_F8,	-28
	numalias KEY_F9,	-29
	numalias KEY_F10,	-30
	numalias KEY_F11,	-31
	numalias KEY_F12,	-32
	numalias KEY_UP,	-40	; getcursorv
	numalias KEY_RIGHT,	-41	;
	numalias KEY_DOWN,	-42	;
	numalias KEY_LEFT,	-43	;

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;GtFNgw
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;	effect	1,1		; P u\BԎw͂܂B
;	effect	2,2,1000	; Q Vb^[
;	effect	3,3,1000	; R EVb^[
;	effect	4,4,1000	; S Vb^[
;	effect	5,5,1000	; T Vb^[
;	effect	6,6,1000	; U J[e
;	effect	7,7,1000	; V EJ[e
;	effect	8,8,1000	; W J[e
;	effect	9,9,1000	; X J[e
;	effect	10,10,500	;PO sNZPʂ̃NXtF[h
;	effect	11,11,1000	;PP XN[
;	effect	12,12,1000	;PQ EXN[
;	effect	13,13,1000	;PR ォXN[
;	effect	14,14,1000	;PS XN[
;;	effect	15,15,1000,"m1.bmp"	;PT }XNp^[ɂtF[hB
;	effect	16,16,1000	;PU UCNAEgB
;	effect	17,17,1000	;PV UCNCB
;	effect	18,18,1000,"m1.bmp"	;PW }XNp^[ɂNXtF[h

	effect 2,10,300		;O\pNXtF[h
	effect 3,10,500		;NXtF[h
	effect 4,10,1000	;Cxg\pNXtF[h
	effect 5,10,2000	;Cxg\pNXtF[h
	effect 6, 6,500		; U J[e
	effect 7,10,3000	;Cxg\pNXtF[h
	effect 11,11,2000	;PP XN[
	effect 12,12,2000	;PQ EXN[
	effect 13,13,2000	;PR ォXN[
	effect 14,14,2000	;PS XN[
	effect 15,12,1000	;PS XN[
	effect 16,16,1000	;PU UCNAEgB
	effect 17,17,1000	;PV UCNCB

	effect 21,18,1000,"bg/mask01.jpg"
	effect 22,18,1000,"bg/mask02.jpg"
	effect 23,18,1000,"bg/mask03.jpg"
	effect 24,18,1000,"bg/mask04.jpg"
	effect 25,18,1000,"bg/mask05.jpg"
	effect 26,18,1000,"bg/mask06.jpg"
	effect 27,18,1000,"bg/mask07.jpg" ;ł
	effect 28,18,1000,"bg/mask08.jpg" ;
	effect 29,18,1000,"bg/mask09.jpg" ;˂
	effect 30,18,1000,"bg/mask10.jpg"
	effect 31,18,1000,"bg/mask11.jpg"
	effect 32,18,1000,"bg/mask12.jpg"
	effect 33,18,1000,"bg/mask13.jpg"
	effect 34,18,1000,"bg/mask14.jpg" ;S
	effect 35,18,1000,"bg/mask15.jpg"
	effect 36,18,1000,"bg/mask16.jpg" ;UCNǂ
	effect 37,18,1000,"bg/mask17.jpg" ;^

;---------------------------------------------------------------------------
;GtFNg̔ԍ̃GCAXiconstj
	numalias NO_EFFECT,1
	numalias GAME_EFFECT,6
	numalias CHAR_EFFECT,2
	numalias BG_EFFECT,22
	numalias CG_EFFECT,4
	numalias FADE_LONG,4
	numalias FADE_SHORT,5
	numalias CLEAR_CHAR,2
	numalias SYSTEM_EFFECT,6
	numalias END_EFFECT,5
	numalias ENDCG_EFFECT,7
;---------------------------------------------------------------------------
;TEhnGCAX
	numalias CH_VOICE,0	;ch0
	numalias CH_SE,1	;ʉch1
	;ybgm߂ōĐ

;---------------------------------------------------------------------------
;Z[uԍ֘AGCAX(const)
	numalias TODAYSAVE,	94	;Q[IOZ[u
	numalias EXITSAVE,	95	;Q[IOZ[u
	numalias MOVIESAVE,	96	;[r[OZ[u
	numalias QUICKSAVE,	97	;NCbNZ[up
	numalias PRESAVE,	98	;^[@\p
	numalias RETURNSAVE,	99	;^[@\p
;---------------------------------------------------------------------------
;[Jϐ̃GCAX
; 0-249 --- local_initialŃNA
	numalias work		,0	;ɂłgėpwork
	numalias work2		,1	;work2
	numalias _i		,2	;ϐ fortranۂgĂ݂
	numalias _j		,3	;
	numalias _k		,4	;
	numalias _l		,5	;
	numalias _x		,6	;xW
	numalias _y		,7	;yW
	numalias _w		,8	;width
	numalias _h		,9	;height
	numalias is_adv		,10	;0Ń^Cgʁ^1ADV^2ŉz

	numalias page		,11	;SAVE/LOADŎgp
	numalias slot		,12	
	numalias saveno		,13

	numalias w_cur		,16	;J[\łɕ`ς
	numalias w_skip		,17	;XLbv[hϐ
	numalias do_skip	,18	;ǏXLbvsH
	numalias do_auto	,19	;ǏI[gsH

	numalias month		,20
	numalias day		,21
	numalias hour		,22
	numalias min		,23

	numalias l_x		,33	;ÔwW
	numalias l_y		,34	;ÔxW
	numalias r_x		,35	;OÊwW
	numalias r_y		,36	;OÊxW

	numalias skip_status	,38	;XLbvp̃c	
	numalias logp		,40	;񃍃ÕCfbNX

	numalias do_effect	,44	;摜ʕ\邩ۂ
	numalias do_cg		,45	;摜\邩ۂ

	numalias check_skip	,48	;ONŃXLbvpǂ̃`FbN
	numalias font		,49	;݂̃tHg̃TCY 0=normal/1=small/2=big

;ViI֘A
	numalias go_go		,50	;Q[邩Ȃ
	numalias go_h		,51	;N̂H
		numalias ALICE	,1
		numalias MISA	,2
		numalias CHIAKI	,3

;---------------------------------------------------------------------------
;ϐpGCAX
;0-249܂łʂ̕ϐ/250-999܂łO[oϐ
;locals
	numalias _bg		,10
	numalias _music		,11
	numalias _char		,12
	numalias _charL		,13
	numalias _charR		,14
	numalias _se		,15
	numalias _cg		,16
	numalias _voice		,17
	numalias effect		,18	;

;e|
	numalias tmp		,20
	numalias tmp2		,21
	numalias savestr	,22
	numalias debugstr	,23	;fobOp񂪓B
					;̕ݒ̓GfB^ōsB
	numalias cmntstr	,24	;Z[up̃ftHgRg
		numalias CMNTMAX,32	;16

;Q[VXe֘A
	numalias old_bg		,30
	numalias old_music	,31
	numalias old_char	,32
	numalias old_charL	,33
	numalias old_charR	,34
	numalias old_se		,35
	numalias old_cg		,36

;I֘A
	numalias sel_text1	,41
	numalias sel_text2	,42
	numalias sel_text3	,43
	numalias sel_text4	,44
	numalias sel_text5	,45

;51-99܂łobt@łgK
	numalias buf		,51
	numalias bufend		,99

;O\p
	numalias log_start	,100
	numalias log_end	,199
;---------------------------------------------------------------------------
;globalsϐGCAX
;	globalϐ̏ꍇ͐擪g_邱ƁI
;---------------------------------------------------------------------------
	numalias g_hero		,250	;l̖O
	numalias g_fname	,251	;l̖
	
;RtBO֘A
	numalias g_initial	,252	;ŏ̋Nۂ
	numalias g_savepage	,253	;Z[u^[hy[WBiP`POj
	numalias g_savenew	,254	;ŐVZ[uԍ saveno̒l
	numalias g_vol_voice	,255
	numalias g_vol_bgm	,256	;0OFF
	numalias g_vol_se	,257
	numalias g_confirm	,258	;1=mF_CAOoA0=oȂ
	numalias g_hint		,259	;IqgON/OFF

	numalias g_text_speed	,260
	numalias g_auto_speed	,261
	numalias g_auto_time	,262

	numalias g_window_mode	,263	;0EBhE,1=tXN[
	
	numalias g_skipmode	,270	;XLbv[h OFSāAPF
	numalias g_koukaoff	,271	;ʁFOFONAPFOFF
	numalias g_cgoff	,272	;XLbvŉ摜ItFO PF\
	numalias g_auto_mode	,273	;ǏI[g[hs
	numalias debug		,276	;ONŃfobOp\
	numalias skip_movie	,277	;1Ń[r[͍ĐȂ
	numalias opening_looked	,278	;I[vjO
	numalias opmovie_looked	,279	;[r[XLbv\

	numalias g_charb	,280	;ON/OFF
	numalias g_charc	,281	;ON/OFF
	numalias g_chard	,282	;ON/OFF
	numalias g_chare	,283	;ON/OFF
	numalias g_otherX	,284	;̑̉ON/OFF
	numalias g_otherY	,285	;̑j̉ON/OFF
	numalias g_hse		,286	;gȌʉON/OFF

;ViI֘A
	numalias g_game		,290		;݂̃Q[ 1:g,2:[,3:T

;---------------------------------------------------------------------------
;fobOp
;---------------------------------------------------------------------------
	numalias debug_fname	,299
;---------------------------------------------------------------------------
;Z[u
	numalias g_save_slot		,300	;ϐ301-349̓Z[uGAƂĎgp
	numalias g_save_slot_end	,349
	numalias g_save_slot1		,300
	numalias g_save_slot2		,310
	numalias g_save_slot3		,320
	numalias g_save_slot4		,330
	numalias g_save_slot5		,340
	numalias g_save_comment1	,350	;350-399̓Z[ũRgGA
	numalias g_save_comment2	,360
	numalias g_save_comment3	,370
	numalias g_save_comment4	,380
	numalias g_save_comment5	,390
;---------------------------------------------------------------------------
;~bg̐ݒ
	intlimit g_savepage	,0,4	;0,1,2,3,4y[Ŵ
	intlimit g_vol_bgm	,0,5
	intlimit g_vol_se	,0,5
	intlimit g_vol_voice	,0,5
	intlimit g_text_speed	,0,5
	intlimit g_auto_speed	,0,5
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;-------------------------------------------------------------------
;Q[Jn
;	Q[Jn炷Ɂu*startv
;	Q[̂̃X^[g debug_10.txt go_10.txtłB
;-------------------------------------------------------------------
game
	goto	*start
;-------------------------------------------------------------------
*global_initial	;O[oϐCjVCYî݁j
;Z[uXbg
	for %0=g_save_slot to g_save_slot_end: mov $%0,"|m@c|": next

;l̃ftHgOݒ
	mov $g_fname,""
	mov $g_hero,""

;VXe菉
	mov %g_savepage,0	;Z[uy[W
	mov %g_vol_bgm,1
	mov %g_vol_SE,2
	mov %g_vol_VOICE,3
	mov %g_text_speed,4
	mov %g_auto_speed,4
;	mov %g_charb,ON
;	mov %g_charc,ON
;	mov %g_chard,ON
;	mov %g_chare,ON
;	mov %g_otherX,ON
;	mov %g_otherY,ON
	mov %g_hse,ON

;misc
	mov %g_hint,ON
	mov %debug,OFF
	mov %skip_movie,OFF
	mov %opmovie_looked,OFF
	mov %opening_looked,OFF
	return
;---------------------------------------------------------------------------
*local_initial	;[JϐCjVCY
;ϐ̏
	for %0=0 to 249: mov %%0,0:next
	mov $_cg,""
	mov $_bg,""
	mov $_music,""
	mov $_char,""
	mov $_charL,""
	mov $_charR,""
	mov $_se,""
	mov $_voice,""
	mov %logp,log_start
	mov %is_adv,0	;^CgʂȂ0/ADVʂȂ1/z2

;OW
	mov %l_x,10	;
	mov %l_y,170	;130/170/230
	mov %r_x,570	;
	mov %r_y,170	;130/170/230

;̕ϐ	
	if %g_vol_bgm=0 mp3vol  0  
	if %g_vol_bgm=1 mp3vol  20 
	if %g_vol_bgm=2 mp3vol  40 
	if %g_vol_bgm=3 mp3vol  60 
	if %g_vol_bgm=4 mp3vol  80 
	if %g_vol_bgm=5 mp3vol 100 

	if %g_vol_SE=0 sevol  0  
	if %g_vol_SE=1 sevol  20 
	if %g_vol_SE=2 sevol  40 
	if %g_vol_SE=3 sevol  60 
	if %g_vol_SE=4 sevol  80 
	if %g_vol_SE=5 sevol 100 

	if %g_vol_VOICE=0 voicevol   0
	if %g_vol_VOICE=1 voicevol  20 
	if %g_vol_VOICE=2 voicevol  40 
	if %g_vol_VOICE=3 voicevol  60 
	if %g_vol_VOICE=4 voicevol  80 
	if %g_vol_VOICE=5 voicevol 100 

	gosub *speed_val
	gosub *auto_val

	if %g_skipmode==ON  kidokumode 0
	if %g_skipmode==OFF kidokumode 1
	return

;---------------------------------------------------------------------------
*get_hero_name	;l̖O擾
	gosub *blackout

	mov $20,"݂̎l̖Óy"
	add $20,$g_fname
	add $20,"@"
	add $20,$g_hero
	add $20,"złB"
	len %work2,$tmp : div %work2,2 : mul %work2,22
	mov %work,DISPLAY_X : sub %work,%work2 : div %work,2
	lsp SP_DLG_MES, ":s/22,22,0;#FFFFFF$20",%work,DLG_YES_Y-80

	mov $20,"OύX܂H"
	len %work2,$tmp : div %work2,2 : mul %work2,22
	mov %work,DISPLAY_X : sub %work,%work2 : div %work,2
	lsp SP_DLG_MES2,":s/22,22,0;#FFFFFF$20",%work,DLG_YES_Y-40

	lsp SP_DLG_YES,DLG_YES, DLG_YES_X,DLG_YES_Y
	lsp SP_DLG_NO, DLG_NO,  DLG_NO_X, DLG_NO_Y
	print 1
	
	btndef ""
	spbtn SP_DLG_YES,BTN_YES
	spbtn SP_DLG_NO,BTN_NO
	movemousecursor DLG_YES_X+20,DLG_YES_Y+10

;-------------------------------------------------------------------
*dlg_get_heron_name_wait
	btnwait %work
	if %work = MOUSE_RBUTTON goto *name_nochange
	if %work = KEY_ESCAPE    goto *name_nochange
	if %work = BTN_YES goto *name_change
	if %work = BTN_NO goto *name_nochange
	goto *dlg_get_heron_name_wait

;-------------------------------------------------------------------
*name_change	;l̖Oݒ
	csp SP_DLG_YES
	csp SP_DLG_NO
	csp SP_DLG_MES
	csp SP_DLG_MES2

	input $g_fname,"l̖͂ĂiSpR܂Łj",$g_fname,6,1
	input $g_hero,"l̖O͂ĂiSpR܂Łj",$g_hero,6,1
	repaint

	mov $20,"l̖Óy"
	add $20,$g_fname
	add $20,"@"
	add $20,$g_hero
	add $20,"zɂȂ܂B"
	len %work2,$tmp : div %work2,2 : mul %work2,22
	mov %work,DISPLAY_X : sub %work,%work2 : div %work,2
	lsp SP_DLG_MES,":s/22,22,0;#FFFFFF$20",%work,DLG_YES_Y-40
	print 1
	click
	csp SP_DLG_MES
	repaint
	return
	
;-------------------------------------------------------------------
*name_nochange	;O̕ύXȂ
	btndef ""
	csp SP_DLG_YES
	csp SP_DLG_NO
	csp SP_DLG_MES
	csp SP_DLG_MES2
	repaint

	mov $20,"l̖Óy"
	add $20,$g_fname
	add $20,"@"
	add $20,$g_hero
	add $20,"ẑ܂܂łB"
	len %work2,$tmp : div %work2,2 : mul %work2,22
	mov %work,DISPLAY_X : sub %work,%work2 : div %work,2

	lsp SP_DLG_MES,":s/22,22,0;#FFFFFF$20",%work,DLG_YES_Y-40
	print 1
	click
	csp SP_DLG_MES
	repaint
	return

;-------------------------------------------------------------------
;Q[̏I
;-------------------------------------------------------------------
*dlg_end	;Q[I邩ۂB
	lsp SP_DLG,":a;sys\dlg_exit.jpg",0,0
	lsp SP_DLG_YES,DLG_YES, DLG_YES_X,DLG_YES_Y
	lsp SP_DLG_NO, DLG_NO,  DLG_NO_X, DLG_NO_Y
	print 1
	btndef ""
	spbtn SP_DLG_YES,BTN_YES
	spbtn SP_DLG_NO,BTN_NO
	movemousecursor DLG_YES_X+20,DLG_YES_Y+10

*dlg_end_wait
	btnwait %work
	if %work = MOUSE_RBUTTON goto *go_end
	if %work = KEY_ESCAPE    goto *go_end
	if %work = BTN_YES end
	if %work = BTN_NO goto *go_end
	goto *dlg_end_wait

*go_end
	gosub *se_cancel
	csp SP_DLG
	csp SP_DLG_MES
	csp SP_DLG_YES
	csp SP_DLG_NO
	repaint
	if %is_adv==1 return	;Ahx`[̌ĂяoȂ߂
	goto *title		;łȂ΃^Cg

;-------------------------------------------------------------------
;fobO[`
;-------------------------------------------------------------------
*debug_ini	;night.inif[^ǂݍ݁AfobOݒ
;fobO₢Ȃ
	getini	$tmp,".\kimonex.ini","DEBUG","debug"
	if $tmp=="ON" mov %debug,ON
	if $tmp=="OFF" mov %debug,OFF

;ЂɉʏiVXLbvB^`OAO̓XLbvB
;ԂƂƁB
;	getini	$tmp,".\kimonex.ini","DEBUG","cgoff"
;	if $tmp=="ON" mov %g_cgoff,ON
;	if $tmp=="OFF" mov %g_cgoff,OFF

;nõ[r[XLbv邩ۂ
;[r[ĐoȂ͂őΏ
	getini	$tmp,".\kimonex.ini","MOVIE","skip"
	if $tmp=="ON" mov %skip_movie,ON

;Z[u
	getini	$tmp,".\kimonex.ini","MOVIE","reload"
	if $tmp=="ON" gosub *reload
	return
;-------------------------------------------------------------------
*reload	;MOVIESAVEǂݍ
	savefileexist %work,MOVIESAVE
	if %work==0 goto *title	;Z[ut@CΉȂ
	gosub *click
	textoff
	gosub *hide_window
	bg black,SYSTEM_EFFECT
	loadgame MOVIESAVE
	goto *title	;ɗ͂͂ȂAی
;-------------------------------------------------------------------
*debug_info
	if %debug==OFF return
	bg #008080,BG_EFFECT
	wait 50
	gosub *set_message_window
	gosub *show_window
	input $tmp,"Jnt𔼊pœ","1",2,0
	atoi %today,$tmp
	goto *today
;-------------------------------------------------------------------
*debug_goto
	if %debug==OFF return
	inputstr $debugstr,"ѐ͂ĂBpŁI",20,0

	gosub	*local_initial
	mov	%is_adv,1	;ADVX^[g
	resettimer 
	gosub	*blackout
	waittimer 100
	gosub *speed_val	;bZ[WXs[hĐݒ
	gosub *auto_val		;I[g̃Xs[hĐݒ
	gosub *set_message_window
	gosub *show_window
	mov $tmp,"*"
	add $tmp,$debugstr
	gosub $tmp

	gosub *hide_window
	goto *title

;-------------------------------------------------------------------
;I[vjO֘A
;-------------------------------------------------------------------
*opmovie	;I[vjO[r[̍Đ
	skipoff
	gosub *sestop
	gosub *musicstop

	savegame MOVIESAVE	;Ô߂ɃI[vjO[r[OŃZ[u
	saveoff
	gosub *hide_window
	gosub *blackout
	resettimer	
	waittimer 200
;	gosub	*whiteout
	if %skip_movie==OFF mpegplay "aop.mpg",%opmovie_looked
	if %opmovie_looked==0 mov %opmovie_looked,1
	gosub	*blackout
	resettimer	
	waittimer 200

	gosub *set_message_window
	gosub *show_window
	saveon
	return
;-------------------------------------------------------------------
G֐
*waitkey	;NbNtL[҂B
	click
	gosub *click
	mov $old_cg,""
	mov $_cg,""
	return
;-------------------------------------------------------------------
*clear_screen	;ʃNA
	if %is_adv!=0	textoff
	if $_charL!=""  vsp SP_L,0
	if $_charR!=""  vsp SP_R,0
	if $_char!=""	cl c,1
;	if %today_on==ON gosub *hide_datewindow
;	if %hbg_on==ON	vsp 18,0 : vsp 19,0
	return
;-------------------------------------------------------------------
*return_screen	;ʕA clear_screenƑ΂Ŏg
	if $_charL!=""  vsp SP_L,1
	if $_charR!=""  vsp SP_R,1
	mov $tmp,"CHAR/"             ;tmp = :a;CHAR/
	add $tmp,$_char                 ;tmp = CHAR/xxx
	add $tmp,".JPG"                 ;tmp = CHAR/xxx.JPG
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	if %work!=0 mov $tmp2,":a;": add $tmp2,$tmp: ld c,$tmp2,1 
;	if %hbg_on==ON	vsp 18,1 : vsp 19,1
;	if %today_on==OFF gosub *show_datewindow
	print 1
	return
;--------------------------------------------------------------------------
*cutting1		;ԂAj
	bg black,1	;ʂN
	; 摜ǂ݂
	btndef "bg/cutting.jpg"
	; Aj[Vɕ\wi摜pӂ鏬׍H
	bg #ff0000,0	;
	; 炪Aj[VBǂ݂񂾉摜ɕ\
	resettimer
	;; ؂肳1Bnn
	blt 0,0,640,480,0,0,320,240
	waittimer 40
	blt 0,0,640,480,320,0,320,240
	waittimer 80
	; Aj摜ItXN[obt@ցB
	ofscpy
	; 摜BЂςɓAj[Vgꍇ͉
	; Ȃق邩B
	btndef ""
	; wi\Ă
	print 1 : 
	mov $_bg,"BLOOD4B"
	mov %effect,FADE_SHORT
	gosub *bg
	return

*cutting2		;ԂAj
	bg black,1	;ʂN
	; 摜ǂ݂
	btndef "bg/cutting.jpg"
	bg #ff0000,0	;
	resettimer
	blt 0,0,640,480,640,0,320,240
	waittimer 40
	blt 0,0,640,480,320,0,320,240
	waittimer 80
	ofscpy
	btndef ""
	; wi\Ă
	print 1 : 
	mov $_bg,"BLOOD2W"
	mov %effect,FADE_SHORT
	gosub *bg
	return

*splash	;ԂAj2
	bg black,1	;ʂN
	btndef "bg/BLOOD.jpg"
	bg #ff0000,0	;
	resettimer
	;9R}
	mov %work,0
	mov %_i,100
	;blt ʏx,ʏy,ʏ̕,ʏ̍,{^摜x,{^摜y,{^摜 ,{^摜̍
	blt 0,0,640,480,0,0,320,240	;1
	waittimer %work : add %work,%_i
	blt 0,0,640,480,424,0,320,240	;2
	waittimer %work : add %work,%_i
	blt 0,0,640,480,848,0,320,240	;3
	waittimer %work : add %work,%_i
	blt 0,0,640,480,1272,0,320,240	;4
	waittimer %work : add %work,%_i
	blt 0,0,640,480,1696,0,320,240	;5
	waittimer %work : add %work,%_i
	blt 0,0,640,480,2120,0,320,240	;6
	waittimer %work : add %work,%_i
	blt 0,0,640,480,2120,0,320,240	;7
	waittimer %work : add %work,%_i
	blt 0,0,640,480,2968,0,320,240	;8
	waittimer %work : add %work,%_i
	blt 0,0,640,480,3392,0,320,240	;9
	waittimer %work : add %work,%_i
	ofscpy
	btndef ""
	; wi\Ă
	mov $_bg,"BLACK"
	mov %effect,FADE_SHORT
	gosub *bg
	return

*moon	;Aj
	bg black,1	;ʂN
	btndef "bg/MOONA.jpg"
	resettimer
	mov %work,0  :mov %_i,100 ;҂
	mov %_y,0 :mov %_j,240 ;YW
	;blt ʏx,ʏy,ʏ̕,ʏ̍,{^摜x,{^摜y,{^摜 ,{^摜̍
	for %_i=0 to 41
		blt 0,0,640,480,0,%_y,320,240	;1
		waittimer %work: add %work,%_i
		add %_y,%_j
	next
	ofscpy
	btndef ""
	; wi\Ă
	mov $_bg,"BLACK"
	mov %effect,FADE_SHORT
	gosub *bg
	return

*uzu		;邮
	bg black,1	;ʂN
	; 摜ǂ݂
	btndef "bg/uzu.jpg"
	bg black,0	;N
	resettimer
	blt 0,0,640,480,0,0,320,240
	waittimer 50
	blt 0,0,640,480,320,0,320,240
	waittimer 100
	ofscpy
	btndef ""
	; wi\Ă
	print 1
	gosub *blackout
	return


;----------------------------------------------------------------------
;VXeJX^}CY֘A
;	{IɃbZ[WEBhȄB
;		
;	Lq̒
;		ȂׂPŏB
;		̂߂ɏɍȂ΁Areturn邱ƁI
;	Copyright (C) 2002 [ӂ. All rights reserved.
;----------------------------------------------------------------------
*set_message_window	;bZ[WEBhE̐ݒ
;	numalias MOJI_X,80	;bZ[WEBhE̕Ww
;	numalias MOJI_Y,490	;bZ[WEBhE̕Wx
;	numalias COLUM,25	;@QS
;	numalias LINE,4		;c@Rs
;	numalias FONTSIZE_X,24	;
;	numalias FONTSIZE_Y,24	;c
;	numalias MARGIN_X,0	;Ԃw
;	numalias MARGIN_Y,4	;sԂx
;	numalias DEFAULT_SPEED,20	;ftHg\Xs[h	
;	numalias MESWINDOW_X,20		;EBhEw
;	numalias MESWINDOW_Y,460	;EBhEx

notif %is_adv==2 setwindow 45,378,25,4,22,22,0,6,0,1,1,":a;SYS/meswin.jpg", 0,360
   if %is_adv==2 setwindow 45,378,25,4,22,22,0,6,0,1,1,":a;SYS/meswin2.jpg",0,360
mov %font,0

;	lsph SP_MESWIN,":a;SYS/meswin.jpg",meswindow_x,meswindow_y
	;bZ[WEBhE̘gƕ̈̐ݒ
	erasetextwindow 0
	;GtFNĝƂAEBhE͏oςȂB
	gosub *speed_val
	gosub *auto_val
	setcursor 0,":l/15,100,2;SYS/SYS_CURSOR.BMP",2,4	;s
	setcursor 1,":l/15,100,2;SYS/SYS_CURSOR.BMP",2,4	;y[W

	;J[\摜
	lsph SP_CURSOR,	":l/15,100,2;SYS/SYS_CURSOR.BMP",0,0

	;{^
if %is_adv==1	lsph SP_SAVE,       ":a/2,0,3;SYS/SYS_SAVE.JPG"   ,430,315
if %is_adv==1	lsph SP_LOAD,       ":a/2,0,3;SYS/SYS_LOAD.JPG"   ,460,315
		lsph SP_SKIP,	    ":a/2,0,3;SYS/SYS_SKIP.JPG"   ,500,315
		lsph SP_AUTO,       ":a/2,0,3;SYS/SYS_AUTO.JPG"   ,530,315
		lsph SP_CONFIG,     ":a/2,0,3;SYS/SYS_CONFIG.JPG" ,560,315
		lsph SP_HELP,       ":a/2,0,3;SYS/SYS_HELP.JPG"   ,590,315
		return
;---------------------------------------------------------------------------
*set_full_window	;bZ[WEBhE̐ݒ
	;	  X  Y  
	setwindow 20,20,36,20,20,20,0,4,20,0,1,#999999,0,0,600,460
	gosub *speed_val
	gosub *auto_val
	erasetextwindow 0
	setcursor 0,":l/15,100,2;SYS/SYS_CURSOR.BMP",2,4	;s
	setcursor 1,":l/15,100,2;SYS/SYS_CURSOR.BMP",2,4	;y[W

	;J[\摜
	lsph SP_CURSOR,	":l/15,100,2;SYS/SYS_CURSOR.BMP",0,0

	;{^
if %is_adv==1	lsph SP_SAVE,       ":a/2,0,3;SYS/SYS_SAVE.JPG"   ,430,410
if %is_adv==1	lsph SP_LOAD,       ":a/2,0,3;SYS/SYS_LOAD.JPG"   ,460,410
		lsph SP_SKIP,	    ":a/2,0,3;SYS/SYS_SKIP.JPG"   ,500,410
		lsph SP_AUTO,       ":a/2,0,3;SYS/SYS_AUTO.JPG"   ,530,410
		lsph SP_CONFIG,     ":a/2,0,3;SYS/SYS_CONFIG.JPG" ,560,410
		lsph SP_HELP,       ":a/2,0,3;SYS/SYS_HELP.JPG"   ,590,410
	return
;---------------------------------------------------------------------------
;	numalias FONTSIZE_X,24	;
;	numalias FONTSIZE_Y,24	;c
*set_font_big
	mov %font,2
notif %is_adv==2 setwindow3 80,490,25,4,40,40,0,4,0,1,1,":a;SYS/meswin.jpg", 20,460
   if %is_adv==2 setwindow3 80,490,25,4,40,40,0,4,0,1,1,":a;SYS/meswin2.jpg",20,460
	gosub *speed_val
	gosub *auto_val
	return
;---------------------------------------------------------------------------
*set_font_small
	mov %font,1
notif %is_adv==2 setwindow3 80,490,25,4,18,18,0,4,0,1,1,":a;SYS/meswin.jpg", 20,460
   if %is_adv==2 setwindow3 80,490,25,4,18,18,0,4,0,1,1,":a;SYS/meswin2.jpg",20,460
	gosub *speed_val
	gosub *auto_val
	return
;---------------------------------------------------------------------------
*set_font_normal
	mov %font,0
notif %is_adv==2 setwindow3 80,490,25,4,24,24,0,4,0,1,1,":a;SYS/meswin.jpg", 20,460
   if %is_adv==2 setwindow3 80,490,25,4,24,24,0,4,0,1,1,":a;SYS/meswin2.jpg",20,460
	gosub *speed_val
	gosub *auto_val
	return
;---------------------------------------------------------------------------
*mesbtn	;bZ[WEBhẼ{^̒`
if %is_adv==1	spbtn	SP_SAVE,	BTN_SAVE
if %is_adv==1	spbtn	SP_LOAD,	BTN_LOAD
		spbtn	SP_SKIP,	BTN_SKIP
		spbtn	SP_AUTO,	BTN_AUTO
		spbtn	SP_CONFIG,	BTN_CONFIG
		spbtn	SP_HELP,	BTN_HELP

;	exbtn_d "P2P3P4P5P6"
;	exbtn SP_SAVE,  BTN_SAVE,  "P2,1P3P4P5P6P7S1,(SE\ZOVER.WAV)"   ;Z[u
;	exbtn SP_LOAD,  BTN_LOAD,  "P2P3,1P4P5P6P7S1,(SE\ZOVER.WAV)"   ;[h
;	exbtn SP_SKIP,  BTN_SKIP,  "P2P3P4,1P5P6P7S1,(SE\ZOVER.WAV)"   ;XLbv
;	exbtn SP_AUTO,  BTN_AUTO,  "P2P3P4P5,1P6P7S1,(SE\ZOVER.WAV)"   ;I[g{^
;	exbtn SP_CONFIG,BTN_CONFIG,"P2P3P4P5P6,1P7S1,(SE\ZOVER.WAV)"   ;RtBO
;	exbtn SP_HELP,  BTN_HELP,  "P2P3P4P5P6P7,1S1,(SE\ZOVER.WAV)"   ;wv
		return
;---------------------------------------------------------------------------
;eLXgNbN҂
*text_lb	;eLXgNbN҂
	btndef ""	;{^`̓NA
	gosub *mesbtn	;bZ[WEBhẼ{^`
	gosub *show_cursor

*textbtn_wait	;NbN҂
	transbtn	;{^摜̓ߕ{^ƂĖɂ܂B
	spclclk		;Xy[Xo[NbNƓɂ܂B
	getpage		;PAGEUP/DOWN擾
	getcursor	;L[擾
	getfunction	;F1-F12擾
	getenter	;Enter擾
	textbtnwait %work	;eLXg{^҂߁B܂ő҂A
	repaint ;ꂽ܂܂̃{^Ȃǂ𐳂`
;---------------------------------------------------------------------
if %work==MOUSE_LBUTTON   goto *textbtn_end	;NbNAʂ̃eLXg菈
if %work==MOUSE_WHEELDOWN goto *textbtn_end	;zC[}EXAʂ̃eLXg菈
if %work==KEY_RETURN	  goto *textbtn_end	;RETURNL[ŁAʂ̃eLXg菈
;---------------------------------------------------------------------
if %work==MOUSE_RBUTTON   goto *_meswin_erase	;ENbNAEBhE
if %work==KEY_ESCAPE      goto *_meswin_erase	;ESCAEBhEiENbNƓj
;---------------------------------------------------------------------
if %work==MOUSE_WHEELUP   goto *_meswin_kaisou	;zC[}EXAz[h
if %work==KEY_PAGEUP      goto *_meswin_kaisou	;PAGEAbvŉz[h
if %work==KEY_UP          goto *_meswin_kaisou	;;L[̏ŉz[h
;---------------------------------------------------------------------
if %work==BTN_SKIP        goto *_meswin_skip	;SKIP{^Ƃ
if %work==KEY_F1	  goto *_meswin_skip	;F1Ƃ
;---------------------------------------------------------------------
if %work==BTN_SAVE 	  goto *_meswin_save	;SAVE{^Ƃ
if %work==KEY_F5   	  goto *_meswin_save	;F5Ƃ
;---------------------------------------------------------------------
if %work==BTN_LOAD	  goto *_meswin_load	;LOAD{^Ƃ
if %work==KEY_F6	  goto *_meswin_load	;F6L[Ƃ
;---------------------------------------------------------------------
if %work==BTN_AUTO	  goto *_meswin_auto	;auto{^Ƃ
if %work==KEY_F2	  goto *_meswin_auto	;F2L[Ƃ
;---------------------------------------------------------------------
if %work==BTN_CONFIG	  goto *_meswin_config	;config{^
if %work==KEY_F11    	  goto *_meswin_config	;F11L[Ƃ
;---------------------------------------------------------------------
if %work==BTN_HELP	  goto *_meswin_help	;help{^
;---------------------------------------------------------------------
if %work==KEY_F12	  goto *_meswin_gotitle	;F12L[Ƃ
;---------------------------------------------------------------------
;̃{^L[ɂĂ͂܂Ȃ̂Ȃ
goto *text_lb
;---------------------------------------------------------------------
*textbtn_end	;NbN̋ʃ[`
	gosub *hide_cursor
	texec
	saveon	;Z[u|CgXV\ɂ܂B
	return
;-----------------------------------------------------------------------------------
;bZ[WEBhẼ{^̏
;-----------------------------------------------------------------------------------
*_meswin_erase	;EBhE
	gosub *hide_cursor
	systemcall windowerase
	mov %w_cur,1
	goto *text_lb
;-----------------------------------------------------------------------------------
*_meswin_kaisou	;ziOj
if %font==2 goto *textbtn_wait
	gosub *hide_cursor
	systemcall lookback
	mov %w_cur,1
	goto *textbtn_wait
;-----------------------------------------------------------------------------------
*_meswin_skip		;XLbv
	gosub *click
	systemcall skip
	goto *textbtn_end
;-----------------------------------------------------------------------------------
*_meswin_save		;Z[u
	if %is_adv!=1 goto *text_lb 
	gosub *click
	getscreenshot 240,180	;Z[uʂŎgp
	gettext $cmntstr	;Z[uʂŎgp
	gosub *hide_window
	gosub *save
	mov %w_cur,1		;ݒAZ[uA[h߂ĂƂ͏Ȃ
	gosub *show_window
	goto *text_lb 
;-----------------------------------------------------------------------------------
*_meswin_load	;[h
	if %is_adv!=1 goto *text_lb
	gosub *click
	gosub *hide_window
	gosub *load
	;[hLZƂɖ߂ĂB
	mov %w_cur,1		;ݒAZ[uA[h߂ĂƂ͏Ȃ
	gosub *show_window
	goto *text_lb
;-----------------------------------------------------------------------------------
*_meswin_auto		;I[g[h
	gosub *click
	menu_automode
	goto *textbtn_end
;-----------------------------------------------------------------------------------
*_meswin_config	;bnmehf
	gosub *click
	gosub *hide_window
	gosub *config		;{^`j
	mov %w_cur,1		;ݒAZ[uA[h߂ĂƂ͏Ȃ
	gosub *show_window
	goto *text_lb 
;-----------------------------------------------------------------------------------
*_meswin_help	;wvʕ\
	gosub *click
	gosub *hide_window
	lsp 8,":c;sys/help.jpg",0,0
	print 1
	click
	csp 8
	mov %w_cur,1		;ݒAZ[uA[h߂ĂƂ͏Ȃ
	gosub *show_window
	goto *text_lb 
;-----------------------------------------------------------------------------------
*_meswin_gotitle	;^Cgʂ
	gosub *click
	gosub *hide_window
	gosub *dlg_title
	;_CAONOIāAǃ^Cgʂɖ߂Ȃ
	;[hLZƂɖ߂ĂB
	mov %w_cur,1		;ݒAZ[uA[h߂ĂƂ͏Ȃ
	gosub *show_window
	goto *text_lb 
;-----------------------------------------------------------------------------------
;bZ[WEBhEpTu[`
;-----------------------------------------------------------------------------------
*hide_cursor	;J[\
	vsp SP_CURSOR,0
	print 1
	return
;--------------------------------------------
*show_cursor	;J[\\
	isskip %w_skip:if %w_skip==SKIP_SKIP return ;XLbv̓J[\Ȃ
	if %w_cur==1 mov %w_cur,0 : return	;ݒAZ[uA[h߂ĂƂ͏Ȃ
	getcursorpos %_x,%_y	;݂̕\ʒu擾(%_xxW,%_yyW)
	add %_x,2	;Ẍʒu
	add %_y,4	;Ÿʒu
	amsp SP_CURSOR,%_x,%_y
	vsp SP_CURSOR,1 ;J[\\
	return
;--------------------------------------------
*hide_window	;bZ[WEBhE
		vsp SP_CURSOR	,0
if %is_adv==1	vsp SP_SAVE	,0
if %is_adv==1	vsp SP_LOAD	,0
		vsp SP_SKIP	,0
		vsp SP_AUTO	,0
		vsp SP_CONFIG	,0
		vsp SP_HELP	,0
		textoff
		print 1
		return
;--------------------------------------------
*show_window	;bZ[WEBhE\
if %is_adv==1	vsp SP_SAVE	,1
if %is_adv==1	vsp SP_LOAD	,1
		vsp SP_SKIP	,1
		vsp SP_AUTO	,1
		vsp SP_CONFIG	,1
		vsp SP_HELP	,1
		texton
		repaint
;		$text_log
		return
;--------------------------------------------
*erase_window	;bZ[WEBhẼXvCg폜
		gosub *hide_window
		btndef ""
		csp SP_CURSOR	
if %is_adv==1	csp SP_SAVE	
if %is_adv==1	csp SP_LOAD	
		csp SP_SKIP	
		csp SP_AUTO	
		csp SP_HELP	
		return
;--------------------------------------------
*log_mode	;z[h
	gosub *hide_cursor	;J[\
	systemcall lookback 
	return
;--------------------------------------------
*quicksave	;NCbNZ[u
	savegame QUICKSAVE
	gosub *click
	return
;--------------------------------------------
*quickload	;NCbN[h
	savefileexist %work,QUICKSAVE
	if %work==0 return	;NCbNZ[ut@CΉȂ
	gosub *click
	textoff
	gosub *hide_window
	bg black,SYSTEM_EFFECT
	loadgame QUICKSAVE
	return
;---------------------------------------
*hintsave	;^[p̃Z[u
	savegame RETURNSAVE
	return	
;----------------------------------------------------------------------------
;Ȉ
;----------------------------------------------------------------------------
*customsel	;IJX^}CY
	isskip %w_skip 
	if %w_skip==SKIP_SKIP mov %do_skip,1
 	if %w_skip==SKIP_AUTO mov %do_auto,1
	if %w_skip==SKIP_NONE mov %do_skip,0 : mov %do_auto,0
	skipoff			:;XLbv
;---------------------------------------

*csel_lb	;INbN҂
	btndef ""
	gosub *mesbtn		;ʂ̃VXe{^`[`Ăт܂B
	getcselnum %work	;̑I擾܂
	getcursorpos %_x,%_y	;J[\ʒu_x_yɎ擾
	cselbtn 0,BTN_CSEL0,%_x,%_y	;cselbtnőI{^
	;ZNgԍi0CfbNXjA{^ԍAxW,yW
		   add %_y,26            :cselbtn 1,BTN_CSEL1,%_x,%_y
	if %work>2 sub %_y,26:add %_x,350:cselbtn 2,BTN_CSEL2,%_x,%_y
	if %work>3 add %_y,26            :cselbtn 3,BTN_CSEL3,%_x,%_y
;	if %work>4 add %_y,30:cselbtn 4,BTN_CSEL4,%_x,%_y

*csel_loop
	spclclk	;Xy[Xo[NbNƓɂ܂B
	getpageup
	gettab
	getcursor
	getfunction
	getenter
	selectbtnwait %work		;csel̃{^߂łB
	repaint

;---------------------------------------------------------------------
if %work==MOUSE_RBUTTON goto *_csel_erase	;ENbNAEBhE
if %work==KEY_ESCAPE    goto *_csel_erase	;ESCAEBhE
if %work==TIMEOUT 	goto *textbtn_end	;I[gԐ؂ŁAʂ̃eLXg菈
;---------------------------------------------------------------------
if %work==MOUSE_WHEELUP goto *_csel_kaisou	;zC[}EXAz[h
if %work==KEY_PAGEUP    goto *_csel_kaisou	;PAGEAbvŉz[h
if %work==KEY_UP        goto *_csel_kaisou	;;L[̏ŉz[h
;---------------------------------------------------------------------
if %work==BTN_SAVE 	goto *_csel_save	;SAVE{^Ƃ
if %work==KEY_F5   	goto *_csel_save	;F5Ƃ
;---------------------------------------------------------------------
if %work==BTN_LOAD	goto *_csel_load	;LOAD{^Ƃ
if %work==KEY_F6	goto *_csel_load	;F6Ƃ
;---------------------------------------------------------------------
;skipauto{^͑Ił͖
;---------------------------------------------------------------------
if %work==BTN_CONFIG	goto *_csel_config	;config{^
if %work==KEY_F11    	goto *_csel_config	;F11Ƃ
;---------------------------------------------------------------------
if %work==KEY_F12	goto *_csel_gotitle	;F12Ń^Cgʂɖ߂邩K˂
;---------------------------------------------------------------------
if %work>=BTN_CSEL0 & %work<=BTN_CSEL4 goto *csel_goto	;ۂ̑Is
;---------------------------------------------------------------------
goto *csel_loop	;ɂ̂̓{^EIȊONbNƂ
;---------------------------------------------------------------------
*csel_goto	;I̔ѐ
	sub %work,BTN_CSEL0
;^[f[^XV
;0̂ƂRETRUNSAVEǂނ牽Ȃî݁j
;if %g_return_choice==1	mov %g_return_data,RETURNSAVE
;if %g_return_choice==2	mov %g_return_data,PRESAVE
	saveon
	cselgoto %work	;cselgotóAIԍ̒ʂɃWv܂BCfbNX0łB
;-----------------------------------------------------------------------------------
;ÎƂ̃{^̏
;-----------------------------------------------------------------------------------
*_csel_erase	;EBhE
	gosub *hide_cursor
	systemcall windowerase
;	gosub *show_window
	goto *csel_lb
;-----------------------------------------------------------------------------------
*_csel_kaisou	;ziOj
	gosub *hide_cursor
	systemcall lookback
	goto *csel_loop
;-----------------------------------------------------------------------------------
*_csel_quicksave	;NCbNZ[u
	if %is_adv!=1 goto *csel_loop
	gosub *quicksave
	goto *csel_loop
;-----------------------------------------------------------------------------------
*_csel_quickload	;NCbN[h
	if %is_adv!=1 goto *csel_loop	
	gosub *quickload
	goto *csel_loop	
;-----------------------------------------------------------------------------------
*_csel_save		;Z[u
	if %is_adv!=1 goto *csel_lb
	gosub *click
	getscreenshot 240,180	;Z[uʂŎgp
	gettext $cmntstr	;save[`Ŏg
	gosub *hide_window
	gosub *save
	gosub *show_window
	goto *csel_lb 
;-----------------------------------------------------------------------------------
*_csel_load	;[h
	if %is_adv!=1 goto *csel_lb
	gosub *click
	gosub *hide_window
	gosub *load
	;[hLZƂɖ߂ĂB
	gosub *show_window
	goto *csel_lb
;-----------------------------------------------------------------------------------
*_csel_qreturn	;NCbN^[
	if %is_adv!=1 goto *csel_loop
	gosub *quickreturn
	;sꍇ̂݁ixIoĂȂj߂Ă
	goto *csel_loop
;-----------------------------------------------------------------------------------
*_csel_config	;bnmehf
	gosub *click
	gosub *hide_window
	gosub *config		;{^`j
	gosub *show_window
	goto *csel_lb 
;----------------------------------------------------------------------------
*_csel_gotitle	;^Cgʂ
	gosub *click
	gosub *hide_window
	gosub *dlg_title
	;_CAONOIāAǃ^Cgʂɖ߂Ȃ
	gosub *show_window
	goto *csel_lb

; ||||||||||||||||||||||||||||||||||
;	^Cg
;-------------------------------------------------------------------
*title	;^Cg
	gosub *anten_system

	lookbackflush	;zNA
	textclear	;\ĂeLXg
	dwavestop CH_SE : mov $_se,"" 
	dwavestop CH_VOICE : mov $_voice,""

	if %g_initial=0 gosub *global_initial:mov %g_initial,1
				;vĈ݃O[oϐNA
	gosub *local_initial	;[JϐNA

	;--BGM;----------------------------------
	csp -1 ;XvCgׂăNA
	mov $_music,"02": gosub *music

	bg "sys/title.jpg",0	;wi\
	lsp 0,":c/2,0,3;sys/ttl_start.jpg",	430,30		;͂
	lsp 1,":c/2,0,3;sys/ttl_cont.jpg",	430,30+60*1	;Â
	lsp 2,":c/2,0,3;sys/ttl_exit.jpg",	430,30+60*2	;I
	lsp 3,":c/2,0,3;sys/ttl_config.jpg",	430,30+60*3	;ݒ
	lsp 4,":c/2,0,3;sys/ttl_cg.jpg",	430,30+60*4	;CG&Replay
	lsp 5,":c/2,0,3;sys/ttl_appendix.jpg",	430,30+60*5	;܂

if %debug==ON lsp 6,":s/24,24,0;#FFFFFF#FF0000Wvs", 100,40

	print BG_EFFECT

	btndef ""
if %debug==OFF	exbtn_d "P0P1P2P3P4P5"
if %debug==ON	exbtn_d "P0P1P2P3P4P5P6"
	exbtn 0,1,"P0,1P1P2P3P4P5S1,(SE\ZOVER.WAV)"
	exbtn 1,2,"P0P1,1P2P3P4P5S1,(SE\ZOVER.WAV)"
	exbtn 2,3,"P0P1P2,1P3P4P5S1,(SE\ZOVER.WAV)"
	exbtn 3,4,"P0P1P2P3,1P4P5S1,(SE\ZOVER.WAV)"
	exbtn 4,5,"P0P1P2P3P4,1P5S1,(SE\ZOVER.WAV)"
	exbtn 5,6,"P0P1P2P3P4P5,1S1,(SE\ZOVER.WAV)"
if %debug==ON exbtn 6,7,"P0P1P2P3P4P5P6"

*title_lp
	btnwait %work
	if %work==0 goto *title_lp
	if %work==1 gosub *click: csp -1 : mov %g_game,0 : goto *start_game
	if %work==2 gosub *click: csp -1 : mov %g_game,0 : goto *continue
	if %work==3 gosub *click: csp -1 : goto *dlg_end
	if %work==4 gosub *click: csp -1 : goto *config
	if %work==5 gosub *click: csp -1 : goto *cgmode
	if %work==6 gosub *click: csp -1 : mov %g_game,1 : goto *start_game
if %debug==ON if %work==7 gosub *click: csp -1 : goto *debug_goto
	goto *title_lp

;-------------------------------------------------------------------
*continue	;Â
	bg black,SYSTEM_EFFECT
	gosub *speed_val
	gosub *auto_val
	gosub *set_message_window
	goto *load
;-------------------------------------------------------------------

;-------------------------------------------------------------------
;CONFIGʂ̏
;	Copyright (C) 2003 [ӂ. All rights reserved.
;-------------------------------------------------------------------
*config	;CONFIG
	gosub *clear_screen
	gosub *config_out

;-------------------------------------------------------------------
*config_btndef
	btndef ""
if %g_window_mode==n_WINDOWMODE spbtn SP_CFG_FULLSCREEN,BTN_CFG_FULLSCREEN
if %g_window_mode==n_FULLSCREEN spbtn SP_CFG_WINDOW,BTN_CFG_WINDOW
	spbtn SP_CFG_BGMVOL_UP,		BTN_CFG_BGMVOL_UP
	spbtn SP_CFG_BGMVOL_DOWN,	BTN_CFG_BGMVOL_DOWN
	spbtn SP_CFG_SEVOL_UP,		BTN_CFG_SEVOL_UP
	spbtn SP_CFG_SEVOL_DOWN,	BTN_CFG_SEVOL_DOWN
;	spbtn SP_CFG_VOICEVOL_UP,	BTN_CFG_VOICEVOL_UP
;	spbtn SP_CFG_VOICEVOL_DOWN,	BTN_CFG_VOICEVOL_DOWN
	spbtn SP_CFG_TEXTSPEED_UP,	BTN_CFG_TEXTSPEED_UP
	spbtn SP_CFG_TEXTSPEED_DOWN,	BTN_CFG_TEXTSPEED_DOWN
	spbtn SP_CFG_AUTOSPEED_UP,	BTN_CFG_AUTOSPEED_UP
	spbtn SP_CFG_AUTOSPEED_DOWN,	BTN_CFG_AUTOSPEED_DOWN
if %g_skipmode=1 spbtn SP_CFG_MIDOKU,		BTN_CFG_MIDOKU
if %g_skipmode=0 spbtn SP_CFG_KIDOKU,		BTN_CFG_KIDOKU
if %g_hint=OFF   spbtn SP_CFG_HINTON,		BTN_CFG_HINTON
if %g_hint=ON    spbtn SP_CFG_HINTOFF,		BTN_CFG_HINTOFF
	spbtn SP_CFG_KOUKAOFF,		BTN_CFG_KOUKAOFF
	spbtn SP_CFG_KOUKAON,		BTN_CFG_KOUKAON
	spbtn SP_CFG_TITLE,		BTN_CFG_TITLE
	spbtn SP_CFG_EXIT,		BTN_CFG_EXIT
;	spbtn SP_CFG_CHARB,		BTN_CFG_CHARB
;	spbtn SP_CFG_CHARC,		BTN_CFG_CHARC
;	spbtn SP_CFG_CHARD,		BTN_CFG_CHARD
;	spbtn SP_CFG_CHARE,		BTN_CFG_CHARE
;	spbtn SP_CFG_CHARX,		BTN_CFG_CHARX
;	spbtn SP_CFG_CHARY,		BTN_CFG_CHARY
	spbtn SP_CFG_HSEON,		BTN_CFG_HSEON
	spbtn SP_CFG_HSEOFF,		BTN_CFG_HSEOFF
	spbtn SP_CFG_DLGON,		BTN_CFG_DLGON
	spbtn SP_CFG_DLGOFF,		BTN_CFG_DLGOFF

;-------------------------------------------------------------------
*config_btnwait	;{^҂

	btnwait %work
	if %work==MOUSE_RBUTTON goto *config_end
	if %work==KEY_ESCAPE goto *config_end
	if %work==BTN_CFG_EXIT		gosub *click : goto *config_end
	if %work==BTN_CFG_TITLE		gosub *click : gosub *config_gotitle :gosub *config_out: goto *config_btndef
	if %work==BTN_CFG_WINDOW	gosub *config_window : goto *config_btndef
	if %work==BTN_CFG_FULLSCREEN	gosub *config_fullscreen  : goto *config_btndef
	if %work==BTN_CFG_BGMVOL_UP	inc %g_vol_bgm : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_BGMVOL_DOWN	dec %g_vol_bgm : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_SEVOL_UP	inc %g_vol_SE : gosub *config_out : gosub *click : goto *config_btndef
	if %work==BTN_CFG_SEVOL_DOWN	dec %g_vol_SE : gosub *config_out : gosub *click : goto *config_btndef
;	if %work==BTN_CFG_VOICEVOL_UP	inc %g_vol_VOICE : gosub *config_out : gosub *voice_test : goto *config_btndef
;	if %work==BTN_CFG_VOICEVOL_DOWN	dec %g_vol_VOICE : gosub *config_out : gosub *voice_test : goto *config_btndef
;	if %work==BTN_CFG_CHARB		gosub *config_charb: gosub *config_out : goto *config_btndef
;	if %work==BTN_CFG_CHARC		gosub *config_charc: gosub *config_out : goto *config_btndef
;	if %work==BTN_CFG_CHARD		gosub *config_chard: gosub *config_out : goto *config_btndef
;	if %work==BTN_CFG_CHARE		gosub *config_chare: gosub *config_out : goto *config_btndef
;	if %work==BTN_CFG_CHARX		gosub *config_charx: gosub *config_out : goto *config_btndef
;	if %work==BTN_CFG_CHARY		gosub *config_chary: gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_HSEON		gosub *config_hse_on: gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_HSEOFF	gosub *config_hse_off: gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_TEXTSPEED_UP	 inc %g_text_speed : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_TEXTSPEED_DOWN dec %g_text_speed : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_AUTOSPEED_UP	 inc %g_auto_speed : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_AUTOSPEED_DOWN dec %g_auto_speed : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_KIDOKU	mov %g_skipmode,1 : kidokumode 0 : gosub *click : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_MIDOKU	mov %g_skipmode,0 : kidokumode 1 : gosub *click : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_HINTON	mov %g_hint,1 : gosub *click : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_HINTOFF	mov %g_hint,0 : gosub *click : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_KOUKAON	mov %g_koukaoff,0 : gosub *click : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_KOUKAOFF	mov %g_koukaoff,1 : gosub *click : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_DLGON		mov %g_confirm,1 : gosub *click : gosub *config_out : goto *config_btndef
	if %work==BTN_CFG_DLGOFF	mov %g_confirm,0 : gosub *click : gosub *config_out : goto *config_btndef

;--------------------------------------------
	goto *config_btnwait

;-------------------------------------------------------------------
*config_out	;CONFIGʂ̕`
	;gpXvCgNA
	for %work=SP_CFG_EXIT to SP_CFG_BG:csp %work:next

;nǂݍ
	lsp SP_CFG_BG,":c;SYS/CFG_BG.JPG",0,0

;afl
	lsp SP_CFG_BGMVOL_DOWN,	CFG_DN,130,40
	lsp SP_CFG_BGMVOL_UP,	CFG_UP,370,40
	if %g_vol_bgm=0 lsp SP_CFG_BGMVOL,":l;SYS/bar1.JPG",165,55 : mp3vol  0  
	if %g_vol_bgm=1 lsp SP_CFG_BGMVOL,":c;SYS/bar1.JPG",165,55 : mp3vol  20 
	if %g_vol_bgm=2 lsp SP_CFG_BGMVOL,":c;SYS/bar2.JPG",165,55 : mp3vol  40 
	if %g_vol_bgm=3 lsp SP_CFG_BGMVOL,":c;SYS/bar3.JPG",165,55 : mp3vol  60 
	if %g_vol_bgm=4 lsp SP_CFG_BGMVOL,":c;SYS/bar4.JPG",165,55 : mp3vol  80 
	if %g_vol_bgm=5 lsp SP_CFG_BGMVOL,":c;SYS/bar5.JPG",165,55 : mp3vol 100 

;rd
	lsp SP_CFG_SEVOL_DOWN,	CFG_DN,130,90
	lsp SP_CFG_SEVOL_UP,	CFG_UP,370,90
	if %g_vol_SE=0 lsp SP_CFG_SEVOL,":l;SYS/bar1.JPG",165,105 :sevol  0  
	if %g_vol_SE=1 lsp SP_CFG_SEVOL,":c;SYS/bar1.JPG",165,105 :sevol  20 
	if %g_vol_SE=2 lsp SP_CFG_SEVOL,":c;SYS/bar2.JPG",165,105 :sevol  40 
	if %g_vol_SE=3 lsp SP_CFG_SEVOL,":c;SYS/bar3.JPG",165,105 :sevol  60 
	if %g_vol_SE=4 lsp SP_CFG_SEVOL,":c;SYS/bar4.JPG",165,105 :sevol  80 
	if %g_vol_SE=5 lsp SP_CFG_SEVOL,":c;SYS/bar5.JPG",165,105 :sevol 100 

;;
;	lsp SP_CFG_VOICEVOL_DOWN,CFG_DN,130,140
;	lsp SP_CFG_VOICEVOL_UP,	 CFG_UP,370,140
;;	bar o[ԍ,       ݒl,       x,  y,  ,,o[̍ől,F
;	bar SP_CFG_VOICEVOL,%g_vol_voice,165,155,200,10,5,#AB4330
;
;	if %g_vol_VOICE=0 voicevol   0
;	if %g_vol_VOICE=1 voicevol  20 
;	if %g_vol_VOICE=2 voicevol  40 
;	if %g_vol_VOICE=3 voicevol  60 
;	if %g_vol_VOICE=4 voicevol  80 
;	if %g_vol_VOICE=5 voicevol 100 


;bZ[WXs[h
	lsp SP_CFG_TEXTSPEED_DOWN,CFG_DN,130,140
	lsp SP_CFG_TEXTSPEED_UP,  CFG_UP,370,140
	if %g_text_speed=0 lsp SP_CFG_TEXTSPEED,":l;SYS/bar1.JPG",165,155 
	if %g_text_speed=1 lsp SP_CFG_TEXTSPEED,":c;SYS/bar1.JPG",165,155 
	if %g_text_speed=2 lsp SP_CFG_TEXTSPEED,":c;SYS/bar2.JPG",165,155 
	if %g_text_speed=3 lsp SP_CFG_TEXTSPEED,":c;SYS/bar3.JPG",165,155 
	if %g_text_speed=4 lsp SP_CFG_TEXTSPEED,":c;SYS/bar4.JPG",165,155 
	if %g_text_speed=5 lsp SP_CFG_TEXTSPEED,":c;SYS/bar5.JPG",165,155 
	gosub *speed_val	;bZ[WXs[hĐݒ


;I[g̑x
	lsp SP_CFG_AUTOSPEED_DOWN,CFG_DN,130,190
	lsp SP_CFG_AUTOSPEED_UP,  CFG_UP,370,190
	if %g_auto_speed=0 lsp SP_CFG_AUTOSPEED,":l;SYS/bar1.JPG",165,205 
	if %g_auto_speed=1 lsp SP_CFG_AUTOSPEED,":c;SYS/bar1.JPG",165,205 
	if %g_auto_speed=2 lsp SP_CFG_AUTOSPEED,":c;SYS/bar2.JPG",165,205 
	if %g_auto_speed=3 lsp SP_CFG_AUTOSPEED,":c;SYS/bar3.JPG",165,205 
	if %g_auto_speed=4 lsp SP_CFG_AUTOSPEED,":c;SYS/bar4.JPG",165,205 
	if %g_auto_speed=5 lsp SP_CFG_AUTOSPEED,":c;SYS/bar5.JPG",165,205 
	gosub *auto_val	;bZ[WXs[hĐݒ


;EBhE[h
;݃tXN[ǂ擾閽isfull܂B
;isfull %ϐԍ
;Alt+ReturnłXN[[hς̂ŁA̖߈ȊOł
;݂̃XN[[h͎擾ł܂B
	isfull %g_window_mode
	if %g_window_mode==n_WINDOWMODE lsp SP_CFG_FULLSCREEN,":c/2,0,3;SYS/CFG_FULL_.jpg",400,300 : lsp SP_CFG_WINDOW,":c/2,0,3;SYS/CFG_WIN.jpg", 540,300
	if %g_window_mode==n_FULLSCREEN lsp SP_CFG_FULLSCREEN,":c/2,0,3;SYS/CFG_FULL.jpg", 400,300 : lsp SP_CFG_WINDOW,":c/2,0,3;SYS/CFG_WIN_.jpg",540,300

;ʂON/OFF
;	numalias g_koukaoff	,271	;ʁFOFONAPFOFF
	if %g_koukaoff==0 lsp SP_CFG_KOUKAOFF,":c/2,0,3;SYS/CFG_KOUKAON_.JPG", 470,325 : lsp SP_CFG_KOUKAON,":c/2,0,3;SYS/CFG_KOUKAOFF.JPG", 540,325 
	if %g_koukaoff==1 lsp SP_CFG_KOUKAOFF,":c/2,0,3;SYS/CFG_KOUKAON.JPG",  470,325 : lsp SP_CFG_KOUKAON,":c/2,0,3;SYS/CFG_KOUKAOFF_.JPG",540,325 

;XLbv
;	numalias g_skipmode	,217	;XLbv[h OFSāAPFǂ̂
	if %g_skipmode==0 lsp SP_CFG_KIDOKU,":c/2,0,3;SYS/CFG_MIDOKU_.JPG",455,350 : lsp SP_CFG_MIDOKU,":c/2,0,3;SYS/CFG_KIDOKU.JPG",540,350
	if %g_skipmode==1 lsp SP_CFG_KIDOKU,":c/2,0,3;SYS/CFG_MIDOKU.JPG",455,350  : lsp SP_CFG_MIDOKU,":c/2,0,3;SYS/CFG_KIDOKU_.JPG",  540,350

;qg
	if %g_hint==ON  lsp SP_CFG_HINTON,":c/2,0,3;SYS/CFG_ON.JPG",  470,375 : lsp SP_CFG_HINTOFF,":c/2,0,3;SYS/CFG_OFF_.JPG",540,375 
	if %g_hint==OFF lsp SP_CFG_HINTON,":c/2,0,3;SYS/CFG_ON_.JPG", 470,375 : lsp SP_CFG_HINTOFF,":c/2,0,3;SYS/CFG_OFF.JPG", 540,375
;gʉ
	if %g_hse==1 lsp SP_CFG_HSEON,":c/2,0,3;SYS/CFG_ON.JPG", 470,400 :  lsp SP_CFG_HSEOFF,":c/2,0,3;SYS/CFG_OFF_.JPG",540,400
	if %g_hse==0 lsp SP_CFG_HSEON,":c/2,0,3;SYS/CFG_ON_.JPG",470,400 :  lsp SP_CFG_HSEOFF,":c/2,0,3;SYS/CFG_OFF.JPG", 540,400

;Z[u[h̊mF
	if %g_confirm==0 lsp SP_CFG_DLGOFF,":c/2,0,3;SYS/CFG_DLGON.JPG", 470,425 : lsp SP_CFG_DLGON,":c/2,0,3;SYS/CFG_DLGOFF_.JPG",540,425 
	if %g_confirm==1 lsp SP_CFG_DLGOFF,":c/2,0,3;SYS/CFG_DLGON_.JPG",470,425 : lsp SP_CFG_DLGON,":c/2,0,3;SYS/CFG_DLGOFF.JPG", 540,425 

;Q[֖߂
;0Ń^Cgʁ^1ADV^2ŉz
if %is_adv!=0	lsp SP_CFG_EXIT, ":a/2,0,3;SYS/CFG_EXIT.jpg",10,370

;^Cg֖߂
	lsp SP_CFG_TITLE, ":a/2,0,3;SYS/CFG_TITLE.jpg",10,420

;L
;	if %g_charb==1 lsp SP_CFG_CHARB,CFG_CHARB,  470,330
;	if %g_charb==0 lsp SP_CFG_CHARB,CFG_CHARB2, 470,330
;
;	if %g_charc==1 lsp SP_CFG_CHARC,CFG_CHARC,  530,330
;	if %g_charc==0 lsp SP_CFG_CHARC,CFG_CHARC2, 530,330
;
;	if %g_chard==1 lsp SP_CFG_CHARD,CFG_CHARD,  590,330
;	if %g_chard==0 lsp SP_CFG_CHARD,CFG_CHARD2, 590,330
;
;	if %g_chare==1 lsp SP_CFG_CHARE,CFG_CHARE,  650,330
;	if %g_chare==0 lsp SP_CFG_CHARE,CFG_CHARE2, 650,330
;
;	if %g_otherX==1 lsp SP_CFG_CHARX,CFG_CHARX, 530,390
;	if %g_otherX==0 lsp SP_CFG_CHARX,CFG_CHARX2,530,390
;
;	if %g_otherY==1 lsp SP_CFG_CHARY,CFG_CHARY, 590,390
;	if %g_otherY==0 lsp SP_CFG_CHARY,CFG_CHARY2,590,390


;ĕ`
	print 1
	return

;-------------------------------------------------------------------
*voice_test	;̃eXg
	;fileexist %work,$tmp	;Ńt@C݂̑`FbN
	;if %work==0 return	;t@C݂ȂΖ߂
	mov $_voice,"VCCHK" : gosub *vo
	return

;-------------------------------------------------------------------
*config_window	;EBhE[hɕύX
;	if %g_window_mode==n_WINDOWMODE return	;łɃEBhE[hȂ̂ŉȂ
	gosub *click		;NbN炷
	menu_window		;EBhEʃ[hɂ܂B
	mov %g_window_mode,n_WINDOWMODE
	cell SP_CFG_FULLSCREEN,0 : cell SP_CFG_WINDOW,1
	print 1
	return

;-------------------------------------------------------------------
*config_fullscreen	;tXN[ɕύX
;	if %g_window_mode==n_FULLSCREEN return	;łɃtXN[Ȃ̂ŉȂ
	gosub *click		;NbN炷
	menu_full		;tʃ[hɂ܂B
	mov %g_window_mode,n_FULLSCREEN
	cell SP_CFG_FULLSCREEN,1 : cell SP_CFG_WINDOW,0
	print 1
	return

;-------------------------------------------------------------------
*config_charb	;b̉nm^nee
	;OFFŃNbNꂽONɂ
	if %g_charb==OFF : mov %g_charb,ON  :  mov $_voice,"VCHARB" : gosub *vo : return
	if %g_charb==ON  : mov %g_charb,OFF :  gosub *click : return

;-------------------------------------------------------------------
*config_charc	;߂̉̂nm^nee
	;OFFŃNbNꂽONɂ
	if %g_charc==OFF : mov %g_charc,ON  : mov $_voice,"VCHARC" : gosub *vo : return
	if %g_charc==ON  : mov %g_charc,OFF : gosub *click : return

;-------------------------------------------------------------------
*config_chard	;񂸂̉̂nm^nee
	;OFFŃNbNꂽONɂ
	if %g_chard==OFF : mov %g_chard,ON  : mov $_voice,"VCHARD" : gosub *vo : return
	if %g_chard==ON  : mov %g_chard,OFF : gosub *click : return

;-------------------------------------------------------------------
*config_chare	;̉̂nm^nee
	;OFFŃNbNꂽONɂ
	if %g_chare==OFF : mov %g_chare,ON  : mov $_voice,"VCHARE" : gosub *vo : return
	if %g_chare==ON  : mov %g_chare,OFF : gosub *click : return

;-------------------------------------------------------------------
*config_charx	;̑̉̂nm^nee
	;OFFŃNbNꂽONɂ
	if %g_otherX==OFF : mov %g_otherX,ON  : mov $_voice,"VOTHERY" :  gosub *vo :return
	if %g_otherX==ON  : mov %g_otherX,OFF : gosub *click : return
	
;-------------------------------------------------------------------
*config_chary	;̑̉̂nm^nee
	;OFFŃNbNꂽONɂ
	if %g_otherY==OFF : mov %g_otherY,ON  : mov $_voice,"VOTHERY" :  gosub *vo :return
	if %g_otherY==ON  : mov %g_otherY,OFF : gosub *click : return
	
;-------------------------------------------------------------------
*config_hse_on	;gȌʉ̂nm^nee
	if %g_hse==OFF : mov %g_hse,ON  : mov $_se,"WSECHK":  gosub *se : return

*config_hse_off	;gȌʉ̂nm^nee
	if %g_hse==ON  : mov %g_hse,OFF : gosub *click : return

;---------------------------------------------------------------------------
*speed_val	;Xs[h̒
	if %g_text_speed==0 textspeed 80
	if %g_text_speed==1 textspeed 40
	if %g_text_speed==2 textspeed 20
	if %g_text_speed==3 textspeed 10
	if %g_text_speed==4 textspeed 5 
	if %g_text_speed==5 textspeed 0 
	return
;---------------------------------------------------------------------------
*auto_val	;I[g̑x
	if %g_auto_speed==0 mov %g_auto_time,5000 :automode_time 5000
	if %g_auto_speed==1 mov %g_auto_time,4000 :automode_time 4000
	if %g_auto_speed==2 mov %g_auto_time,3000 :automode_time 3000
	if %g_auto_speed==3 mov %g_auto_time,2000 :automode_time 2000
	if %g_auto_speed==4 mov %g_auto_time,1000 :automode_time 1000
	if %g_auto_speed==5 mov %g_auto_time,500  :automode_time 500 
	return
;-------------------------------------------------------------------
*config_end	;CONFIG̏I
	for %work=SP_CFG_EXIT to SP_CFG_BG:csp %work:next
	if %is_adv=0 goto *title ;^Cg痈ĂƂ̓^Cgɖ߂
	gosub *return_screen
	return	 ;ȊO̎̓VXeɖ߂
;---------------------------------------------------------------------------
*config_gotitle
;0Ń^Cgʁ^1ADV^2ŉz
;^Cgʂ痈ĂL킳߂B
	if %is_adv==0 goto *config_end
	barclear	;_ZFcB

*dlg_title
	lsp SP_DLG,":a;sys\dlg_title.jpg",0,0
	lsp SP_DLG_YES,DLG_YES, DLG_YES_X,DLG_YES_Y
	lsp SP_DLG_NO, DLG_NO,  DLG_NO_X, DLG_NO_Y
	print 1
	btndef ""
	spbtn SP_DLG_YES,BTN_YES
	spbtn SP_DLG_NO,BTN_NO
	movemousecursor DLG_YES_X+20,DLG_YES_Y+10

*dlg_title_wait	;^Cgʂɖ߂܂̓͑҂
	btnwait %work
	if %work = MOUSE_RBUTTON 
	if %work = KEY_ESCAPE    goto *back_game
	if %work = BTN_YES goto *go_title
	if %work = BTN_NO goto *back_game
	goto *dlg_title_wait

*back_game	;LZăQ[ɖ߂
	gosub *se_cancel
	csp SP_DLG
	csp SP_DLG_YES
	csp SP_DLG_NO
	print 1
	return

*go_title	;njă^Cgʂ
	gosub *se_ok
	savegame EXITSAVE		;Of[^Z[u
	csp -1
	barclear
	reset
	goto *title	;^Cgʂց|ی

;------------------------------------

;-------------------------------------------------------------------
;Z[u[h
;-------------------------------------------------------------------
*save	;Z[u
	gosub *clear_screen
	gosub *save_out

*save_btnloop
	btnwait %work
	if %work>= 1 && %work<=10 :mov %slot,%work :dec %slot :goto *save_do
	if %work>=11 && %work<=20 :sub %work,11 :gosub *cmnt: goto *save
	if %work==BTN_PAGE1 gosub *click : mov %g_savepage,0: gosub *save_out
	if %work==BTN_PAGE2 gosub *click : mov %g_savepage,1: gosub *save_out
	if %work==BTN_PAGE3 gosub *click : mov %g_savepage,2: gosub *save_out
	if %work==BTN_PAGE4 gosub *click : mov %g_savepage,3: gosub *save_out
	if %work==BTN_PAGE5 gosub *click : mov %g_savepage,4: gosub *save_out
	if %work==BTN_SAVEEXIT : gosub *click : goto *save_end
	if %work==MOUSE_RBUTTON : goto *save_end
	if %work==KEY_ESCAPE : goto *save_end
	goto *save_btnloop
;-----------------------------------------------------------
*save_do
	if %g_confirm==1 goto *save_do_ok	;mF_CAOoȂ
	lsp SP_DLG,":a;sys\dlg_save.jpg",0,0
	lsp SP_DLG_YES,DLG_YES, DLG_YES_X,DLG_YES_Y
	lsp SP_DLG_NO, DLG_NO,  DLG_NO_X, DLG_NO_Y
	print 1

	btndef ""
	spbtn SP_DLG_YES,BTN_YES
	spbtn SP_DLG_NO, BTN_NO
	movemousecursor DLG_YES_X+20,DLG_YES_Y+10

*save_confirm_wait
	btnwait %work
	if %work = MOUSE_RBUTTON goto *save_do_end
	if %work = KEY_ESCAPE goto *save_do_end
	if %work = BTN_YES gosub *se_ok     : goto *save_do_ok
	if %work = BTN_NO  gosub *se_cancel : goto *save_do_end
	goto *save_confirm_wait

*save_do_ok
	if %g_savepage==0 mov %saveno,00
	if %g_savepage==1 mov %saveno,10
	if %g_savepage==2 mov %saveno,20
	if %g_savepage==3 mov %saveno,30
	if %g_savepage==4 mov %saveno,40
	add %saveno,%slot	;P̈ʑ

	len %work,$cmntstr
	mid $tmp,$cmntstr,0,CMNTMAX
	mov %work,g_save_comment1: add %work,%saveno
	mov $%work,$tmp		;Z[uRgۑ

	savegame %saveno	;f[^Z[u
	mov %g_savenew,%saveno	;ŐVZ[uԍۑ
	gosub *save_screen	;TlCۑ

	savetime %saveno,%month,%day,%hour,%min	;Z[ut@C̓t擾
	mov $savestr,""
;	itoa $tmp,%saveno:gosub *to2keta: add $savestr,$tmp: add $savestr,"j"
	itoa $tmp,%month :gosub *to2keta: add $savestr,$tmp: add $savestr,""
	itoa $tmp,%day   :gosub *to2keta: add $savestr,$tmp: add $savestr,"@"
	itoa $tmp,%hour  :gosub *to2keta: add $savestr,$tmp: add $savestr,""
	itoa $tmp,%min   :gosub *to2keta: add $savestr,$tmp: add $savestr,""

	mov %work,g_save_slot :	add %work,%saveno ; %workO[oϐindex
	mov $%work,$savestr	;Z[uۑ
	goto *save_do_end

*save_do_end
	csp SP_DLG
	csp SP_DLG_YES
	csp SP_DLG_NO
	print 1
	goto *save
;-----------------------------------------------------------
*save_end
	btndef ""
	for %work=SP_SAVEPAGE1 to SP_SAVEBG:csp %work:next
	gosub *return_screen
	return
;-----------------------------------------------------------
*save_out
	for %work=SP_SAVEPAGE1 to SP_SAVEBG:csp %work:next
	lsp SP_SAVEBG,":c;SYS\SAVEBG.jpg",0,0
	gosub *saveload_out
	return

;-----------------------------------------------------------
*save_screen	;Z[uVbg
	mov  $tmp, "save/"              ;fBNg
	itoa $tmp2,%saveno: add $tmp, $tmp2 	;ԍ
	add  $tmp, ".bmp"               	;gq
	savescreenshot2 $tmp			;getscreenshot02.txt
	return
;----------------------------------------------------------------------------
*load	;[h
	gosub *clear_screen
	gosub *load_out


*load_btnloop
	btnwait %work
	if %work>=1 && %work<=10 :mov %slot,%work :dec %slot :goto *load_do
	if %work>=11 && %work<=20 :sub %work,11 :gosub *cmnt: goto *load
	if %work==BTN_PAGE1 gosub *click : mov %g_savepage,0: gosub *load_out
	if %work==BTN_PAGE2 gosub *click : mov %g_savepage,1: gosub *load_out
	if %work==BTN_PAGE3 gosub *click : mov %g_savepage,2: gosub *load_out
	if %work==BTN_PAGE4 gosub *click : mov %g_savepage,3: gosub *load_out
	if %work==BTN_PAGE5 gosub *click : mov %g_savepage,4: gosub *load_out
	if %work==BTN_SAVEEXIT : gosub *click : goto *load_end
	if %work==MOUSE_RBUTTON : goto *load_end
	if %work==KEY_ESCAPE : goto *load_end
	goto *load_btnloop

;-----------------------------------------------------------
*load_do
	;saveno
	if %g_savepage==0 mov %saveno,00
	if %g_savepage==1 mov %saveno,10
	if %g_savepage==2 mov %saveno,20
	if %g_savepage==3 mov %saveno,30
	if %g_savepage==4 mov %saveno,40
	add %saveno,%slot			;P̈ʑ

	;Z[ut@C݂ȂȂAȂŃ[hʂɖ߂
	savefileexist %work,%saveno : if %work==0 goto *load

	if %g_confirm==1 goto *load_do_ok	;mF_CAOoȂ
	lsp SP_DLG,":a;sys\dlg_load.jpg",0,0
	lsp SP_DLG_YES,DLG_YES, DLG_YES_X,DLG_YES_Y
	lsp SP_DLG_NO, DLG_NO,  DLG_NO_X, DLG_NO_Y
	print 1

	btndef ""
	spbtn SP_DLG_YES,BTN_YES
	spbtn SP_DLG_NO, BTN_NO
	movemousecursor DLG_YES_X+20,DLG_YES_Y+10

*load_confirm_wait
	btnwait %work
	if %work = MOUSE_RBUTTON goto *load_do_end
	if %work = KEY_ESCAPE goto *load_do_end
	if %work = BTN_YES gosub *se_ok     : goto *load_do_ok
	if %work = BTN_NO  gosub *se_cancel : goto *load_do_end
	goto *load_confirm_wait

*load_do_ok
	loadgame %saveno			;f[^Z[u

*load_do_end
	csp SP_DLG
	csp SP_DLG_YES
	csp SP_DLG_NO
	print 1
	goto *load

;-----------------------------------------------------------
*load_end
	for %work=SP_SAVEPAGE1 to SP_SAVEBG:csp %work:next
	btndef ""
	if %is_adv=0 goto *title ;^Cg痈ĂƂ̓^Cgɖ߂
	gosub *return_screen
	return
;-----------------------------------------------------------
*load_out
	for %work=SP_SAVEPAGE1 to SP_SAVEBG:csp %work:next
	lsp SP_SAVEBG,":c;SYS\LOADBG.jpg",0,0
	gosub *saveload_out
	return

;-----------------------------------------------------------
*saveload_out
	;gpXvCgNA

;y[Wԍ\
	mov %_x,360	;wWl
	mov %_y,20	;xWl
	lsp SP_SAVEPAGE1,":a/2,0,3;SYS/S1.jpg",%_x,%_y :add %_x,30
	lsp SP_SAVEPAGE2,":a/2,0,3;SYS/S2.jpg",%_x,%_y :add %_x,30
	lsp SP_SAVEPAGE3,":a/2,0,3;SYS/S3.jpg",%_x,%_y :add %_x,30
	lsp SP_SAVEPAGE4,":a/2,0,3;SYS/S4.jpg",%_x,%_y :add %_x,30
	lsp SP_SAVEPAGE5,":a/2,0,3;SYS/S5.jpg",%_x,%_y 

	mov %_x,360	;wWl
	mov %_y,20	;xWl
	if %g_savepage==0 lsp SP_SAVEPAGE1,":a/2,0,3;SYS/_S1.jpg",%_x,%_y
	if %g_savepage==1 lsp SP_SAVEPAGE2,":a/2,0,3;SYS/_S2.jpg",%_x+30,%_y
	if %g_savepage==2 lsp SP_SAVEPAGE3,":a/2,0,3;SYS/_S3.jpg",%_x+60,%_y
	if %g_savepage==3 lsp SP_SAVEPAGE4,":a/2,0,3;SYS/_S4.jpg",%_x+90,%_y
	if %g_savepage==4 lsp SP_SAVEPAGE5,":a/2,0,3;SYS/_S5.jpg",%_x+120,%_y 

;Xbg
	if %g_savepage==0 mov %work,g_save_slot1
	if %g_savepage==1 mov %work,g_save_slot2
	if %g_savepage==2 mov %work,g_save_slot3
	if %g_savepage==3 mov %work,g_save_slot4
	if %g_savepage==4 mov %work,g_save_slot5

	mov %_x,40	;wWl
	mov %_y,30	;xWl
	mov $20,$%work:lsp SP_SAVESLOT01,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT02,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT03,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT04,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT05,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT06,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT07,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT08,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT09,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y :add %_y,40 :inc %work
	mov $20,$%work:lsp SP_SAVESLOT10,":s/20,20,2;#FFFFFF#FFFF80$20",%_x,%_y


;Rg{^
	mov %_x,5	;wWl
	mov %_y,25	;xWl
	lsp SP_SAVEBTN01,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN02,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN03,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN04,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN05,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN06,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN07,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN08,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN09,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y:add %_y,40 
	lsp SP_SAVEBTN10,":a/2,0,3;SYS/save_CMNT.jpg",%_x,%_y

;TlC
	if %g_savepage==0 mov %work,0
	if %g_savepage==1 mov %work,10
	if %g_savepage==2 mov %work,20
	if %g_savepage==3 mov %work,30
	if %g_savepage==4 mov %work,40
	mov %work2,0

	mov %_x,370	;wWl
	mov %_y,70	;xWl
	gosub *saveload_thum:lsph SP_SAVETHUM01,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM02,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM03,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM04,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM05,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM06,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM07,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM08,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM09,$20,%_x,%_y: inc %work: inc %work2
	gosub *saveload_thum:lsph SP_SAVETHUM10,$20,%_x,%_y
	;zforőΉĂ񂾂ǁA10Ȃ̂ɁAǐĂKvꂸB

;Rg
	if %g_savepage==0 mov %0,g_save_comment1
	if %g_savepage==1 mov %0,g_save_comment2
	if %g_savepage==2 mov %0,g_save_comment3
	if %g_savepage==3 mov %0,g_save_comment4
	if %g_savepage==4 mov %0,g_save_comment5

	mov %_x,390	;wWl
	mov %_y,295	;xWl
	mov $20,$%0:lsph SP_SAVECMNT01,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT02,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT03,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT04,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT05,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT06,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT07,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT08,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT09,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y: inc %0
	mov $20,$%0:lsph SP_SAVECMNT10,":s/12,12,-1,1;#FFFFFF$20",%_x,%_y

;What's New
	gosub *whatsnew

;ǂ
	lsp SP_SAVEEXIT,":a/2,0,3;sys/modoru.jpg",486,350
	print SYSTEM_EFFECT

;SP_SAVEPAGE1`5   -- 20`24
;SP_SAVEPAGE1`5   -- 20`24
;SP_EXIT           -- 25
;SP_SAVESLOT01`10 -- 26`35 t
;SP_SAVETHUM01`10 -- 36`45 TlC
;SP_SAVECMNT01`10 -- 46`55 Rg
;SP_SAVEBTN01`10  -- 56`65 Rg
;BG - 66

	btndef ""
exbtn_d "P20P21P22P23P24P25P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEPAGE1, BTN_PAGE1,"P20,1P21P22P23P24P25P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEPAGE2, BTN_PAGE2,"P20P21,1P22P23P24P25P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEPAGE3, BTN_PAGE3,"P20P21P22,1P23P24P25P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEPAGE4, BTN_PAGE4,"P20P21P22P23,1P24P25P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEPAGE5, BTN_PAGE5,"P20P21P22P23P24,1P25P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT01, 1,"P20P21P22P23P24P25P26,1P27P28P29P30P31P32P33P34P35P36C37C38C39C40C41C42C43C44C45P46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT02, 2,"P20P21P22P23P24P25P26P27,1P28P29P30P31P32P33P34P35C36P37C38C39C40C41C42C43C44C45C46P47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT03, 3,"P20P21P22P23P24P25P26P27P28,1P29P30P31P32P33P34P35C36C37P38C39C40C41C42C43C44C45C46C47P48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT04, 4,"P20P21P22P23P24P25P26P27P28P29,1P30P31P32P33P34P35C36C37C38P39C40C41C42C43C44C45C46C47C48P49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT05, 5,"P20P21P22P23P24P25P26P27P28P29P30,1P31P32P33P34P35C36C37C38C39P40C41C42C43C44C45C46C47C48C49P50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT06, 6,"P20P21P22P23P24P25P26P27P28P29P30P31,1P32P33P34P35C36C37C38C39C40P41C42C43C44C45C46C47C48C49C50P51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT07, 7,"P20P21P22P23P24P25P26P27P28P29P30P31P32,1P33P34P35C36C37C38C39C40C41P42C43C44C45C46C47C48C49C50C51P52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT08, 8,"P20P21P22P23P24P25P26P27P28P29P30P31P32P33,1P34P35C36C37C38C39C40C41C42P43C44C45C46C47C48C49C50C51C52P53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT09, 9,"P20P21P22P23P24P25P26P27P28P29P30P31P32P33P34,1P35C36C37C38C39C40C41C42C43P44C45C46C47C48C49C50C51C52C53P54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT10,10,"P20P21P22P23P24P25P26P27P28P29P30P31P32P33P34P35,1C36C37C38C39C40C41C42C43C44P45C46C47C48C49C50C51C52C53C54P55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN01, 11,"P20P21P22P23P24P25P26,1P27P28P29P30P31P32P33P34P35P36C37C38C39C40C41C42C43C44C45P46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN02, 12,"P20P21P22P23P24P25P26P27,1P28P29P30P31P32P33P34P35C36P37C38C39C40C41C42C43C44C45C46P47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN03, 13,"P20P21P22P23P24P25P26P27P28,1P29P30P31P32P33P34P35C36C37P38C39C40C41C42C43C44C45C46C47P48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN04, 14,"P20P21P22P23P24P25P26P27P28P29,1P30P31P32P33P34P35C36C37C38P39C40C41C42C43C44C45C46C47C48P49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN05, 15,"P20P21P22P23P24P25P26P27P28P29P30,1P31P32P33P34P35C36C37C38C39P40C41C42C43C44C45C46C47C48C49P50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN06, 16,"P20P21P22P23P24P25P26P27P28P29P30P31,1P32P33P34P35C36C37C38C39C40P41C42C43C44C45C46C47C48C49C50P51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN07, 17,"P20P21P22P23P24P25P26P27P28P29P30P31P32,1P33P34P35C36C37C38C39C40C41P42C43C44C45C46C47C48C49C50C51P52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN08, 18,"P20P21P22P23P24P25P26P27P28P29P30P31P32P33,1P34P35C36C37C38C39C40C41C42P43C44C45C46C47C48C49C50C51C52P53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN09, 19,"P20P21P22P23P24P25P26P27P28P29P30P31P32P33P34,1P35C36C37C38C39C40C41C42C43P44C45C46C47C48C49C50C51C52C53P54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN10, 20,"P20P21P22P23P24P25P26P27P28P29P30P31P32P33P34P35,1C36C37C38C39C40C41C42C43C44P45C46C47C48C49C50C51C52C53C54P55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEEXIT,BTN_SAVEEXIT,"P20P21P22P23P24P25,1P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
	return

;----------------------------------------------------------------------
*saveload_thum	;Z[u[h̃TlC쐬
;%workɃZ[ut@C̔ԍBȊO͔j\B
;$tmpɃt@CĖ߂
	savetime %work,%month,%day,%hour,%min	;Z[ut@C̓t擾B݂ȂȂ%month0
	if %month==0 mov $tmp,":c;save/nodata.bmp": return
;t@C
	mov  $tmp, ":c;save/"              ;fBNg
	itoa $tmp2,%work: add $tmp, $tmp2 ;ԍ
	add  $tmp, ".bmp"                  ;gq
	return

;----------------------------------------------------------------------------
*cmnt	;Rgǉ
;%workɃXbg̔ԍ
	if %g_savepage==0 mov %work2,g_save_comment1
	if %g_savepage==1 mov %work2,g_save_comment2
	if %g_savepage==2 mov %work2,g_save_comment3
	if %g_savepage==3 mov %work2,g_save_comment4
	if %g_savepage==4 mov %work2,g_save_comment5
	add %work2,%work
	input $%work2,"Rg͂Ă",$%work2,CMNTMAX,1
	return
;----------------------------------------------------------------------------
*whatsnew	;ŐVf[^̃}[N
	if %g_savenew==100 return	;܂PxZ[uĂȂ
	mov %work,%g_savenew
	div %work,10			;%work10̈ʂZo
	if %g_savepage!=%work return	;ŐV͂̃y[WɂȂ̂Ŗ߂
	mov %_x,270			;wWl
	mov %_y,25	;xWl
	mov %work,%g_savenew
	mod %work,10			;%work1̈ʂZo
	mul %work,40			;x̊Ԋu
	add %_y,%work
	lsp SP_SAVENEW,":a;sys/save_new.jpg",%_x,%_y
	return


;6.TXT
;-------------------------------------------------------------------
;Q[̏
;	Copyright (C) 2002 [ӂ. All rights reserved.
;-------------------------------------------------------------------
*se	;rdĐ[` 
;̃[`$tmp,$tmp2j󂷂
;w肪ΉȂ
	if $_se=="" return

;gȌʉON/OFF
	mov $tmp2,$_se
	mid $tmp,$tmp2,0,1	;$_voice1ڂ$tmpɐ؂o
	if %g_hse==OFF && $tmp=="W" :  return

;t@C
	mov $tmp, "SE/"
	add $tmp, $_se
	add $tmp, ".WAV"

;fileexist %ϐԍ,"t@C"
;t@C΂PAȂ΂OԂ܂B
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_se
	if %work==0 return	;t@C݂ȂΖ߂
;Đ
	dwave CH_SE,$tmp
	return
;-------------------------------------------------------------------
*sestop	;rd~[`
	dwavestop CH_SE
	mov $_se,""
	return
;-------------------------------------------------------------------
*se_loop	;rd[vĐ[` 
;̃[`$tmp,$tmp2j󂷂
;w肪ΉȂ
	if $_se=="" return

;gȌʉON/OFF
	mov $tmp2,$_se
	mid $tmp,$tmp2,0,1	;$_voice1ڂ$tmpɐ؂o
	if %g_hse==OFF && $tmp=="W" :  return

;t@C
	mov $tmp, "SE/"
	add $tmp, $_se
	add $tmp, ".WAV"

;fileexist %ϐԍ,"t@C"
;t@C΂PAȂ΂OԂ܂B
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_se
	if %work==0 return	;t@C݂ȂΖ߂
;Đ
	dwaveloop CH_SE,$tmp
	return
;-------------------------------------------------------------------
*vo	;Đ[`
;̃[`$tmp,$tmp2j󂷂
;w肪ΉȂ
	if $_voice=="" : return

;ON/OFF`FbN
	mov $tmp2,$_voice
	mid $tmp,$tmp2,0,1	;$_voice1ڂ$tmpɐ؂o
	if %g_charb==OFF && $tmp=="B" return
	if %g_charc==OFF && $tmp=="C" return
	if %g_chard==OFF && $tmp=="D" return
	if %g_chard==OFF && $tmp=="E" return
	if %g_otherX==OFF && $tmp=="X" return
	if %g_otherX==OFF && $tmp=="L" return ; ݂邭
	if %g_otherX==OFF && $tmp=="G" return ;
	if %g_otherX==OFF && $tmp=="F" return ;Sb
	if %g_otherX==OFF && $tmp=="Q" return ;S
	if %g_otherY==OFF && $tmp=="Y" return
	if %g_otherY==OFF && $tmp=="N" return ;CY~
	if %g_otherY==OFF && $tmp=="O" return ;X_
	if %g_otherY==OFF && $tmp=="P" return ; Ó

	if %g_charb==OFF && $tmp=="b" return
	if %g_charc==OFF && $tmp=="c" return
	if %g_chard==OFF && $tmp=="d" return
	if %g_chard==OFF && $tmp=="e" return
	if %g_otherX==OFF && $tmp=="x" return
	if %g_otherX==OFF && $tmp=="l" return ; ݂邭
	if %g_otherX==OFF && $tmp=="g" return ;
	if %g_otherX==OFF && $tmp=="f" return ;Sb
	if %g_otherX==OFF && $tmp=="q" return ;S
	if %g_otherY==OFF && $tmp=="y" return
	if %g_otherY==OFF && $tmp=="n" return ;CY~
	if %g_otherY==OFF && $tmp=="o" return ;X_
	if %g_otherY==OFF && $tmp=="p" return ; Ó


;t@C --- VOICE/xxx.WAVɂ
	mov $tmp, "VOICE/"
	add $tmp, $_voice
	add $tmp, ".WAV"

;t@C݃`FbN
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_vo
	if %work==0 return	;t@C݂ȂΖ߂

;Đ
	dwave CH_VOICE,$tmp
	return
;-------------------------------------------------------------------
*vostop	;rd~[`
	dwavestop CH_VOICE
	mov $_voice,""
	return
;-------------------------------------------------------------------
*bg	;wi\[`
;	gosub *skip_cg : if %do_cg==0 return

	if $_bg=="" return
	if $old_bg==$_bg return	;OƓȂ牽\Ȃ
	mov $old_bg,$_bg	;wit@Cold_bgɕۑ
	mov $_cg,"": mov $old_cg,""	;Cxgbf̓NA

	mov $tmp,"BG/"		;tmp = BG\
	add $tmp,$_bg		;tmp = BG\xxx
	add $tmp,".JPG"		;tmp = BG\xxx.JPG

	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_bg
	if %work==0 return	;t@C݂ȂΖ߂

	if $_bg == "BLACK" gosub *clear_cg_var 
	if $_bg == "WHITE" gosub *clear_cg_var 

	isskip %w_skip
	if %w_skip==SKIP_SKIP mov %effect,1

	;GtFNg̎w肪Ȃ΁AftHg̎wŏo
	if %effect==0 	bg $tmp,BG_EFFECT : return	;wi\

	;GtFNg̎w肪΁A̎wŏo
	;GtFNǧ͂͂P̂
	bg $tmp,%effect : mov %effect,0  : return
;-------------------------------------------------------------------
*char	;O\[`
	gosub *skip_cg : if %do_cg==0 return

	if $_char=="" return
	if $old_char==$_char return	;OOƓȂ牽\Ȃ
	mov $old_char,$_char		;Ot@Cold_charɕۑ

	mov $tmp,"CHAR/"             ;tmp = :a;CHAR/
	add $tmp,$_char                 ;tmp = CHAR/xxx
	add $tmp,".JPG"                 ;tmp = CHAR/xxx.JPG

	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_char
	if %work==0 return	;t@C݂ȂΖ߂

;isskip %ϐ
;jisskip %0
;݂XLbv[hȂPAI[g[hȂQAʏ탂[hȂOԂ܂B
	isskip %w_skip
	if %w_skip==SKIP_SKIP mov %effect,1

	;GtFNg̎w肪Ȃ΁AftHg̎wŏo
	mov $tmp2,":a;"
	add $tmp2,$tmp
	if %effect==0 	ld c,$tmp2,CHAR_EFFECT : return	;O\

	;GtFNg̎w肪΁A̎wŏo
	;GtFNǧ͂͂P̂
	ld c,$tmp2,%effect : mov %effect,0  : return

;-------------------------------------------------------------------
*charL	;O\[`ij
	gosub *skip_cg : if %do_cg==0 return
	if $_charL=="" return
	if $old_charL==$_charL return	;OOƓȂ牽\Ȃ
	mov $old_charL,$_charL		;Ot@Cold_charLɕۑ

	mov $tmp,"CHAR/"             ;tmp = :a;CHAR/
	add $tmp,$_charL             ;tmp = CHAR/xxx
	add $tmp,".JPG"              ;tmp = CHAR/xxx.JPG

	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_charL
	if %work==0 return	;t@C݂ȂΖ߂

;isskip %ϐ
;jisskip %0
;݂XLbv[hȂPAI[g[hȂQAʏ탂[hȂOԂ܂B
	isskip %w_skip
	if %w_skip==SKIP_SKIP mov %effect,1

	;GtFNg̎w肪Ȃ΁AftHg̎wŏo
	mov $tmp2,":a;"
	add $tmp2,$tmp
;	if %effect==0 	ld l,$tmp2,CHAR_EFFECT : return	;O\
	if %effect==0 	lsp SP_L,$tmp2,%l_x,%l_y : print CHAR_EFFECT : return

	;GtFNg̎w肪΁A̎wŏo
	;GtFNǧ͂͂P̂
;	ld l,$tmp2,%effect : mov %effect,0  : return
	lsp SP_L,$tmp2,%l_x,%l_y : print %effect : mov %effect,0 : return
           
;-------------------------------------------------------------------
*charR	;O\[`iEj
	gosub *skip_cg : if %do_cg==0 return
	if $_charR=="" return
	if $old_charR==$_charR return	;OOƓȂ牽\Ȃ
	mov $old_charR,$_charR		;Ot@Cold_charRɕۑ

	mov $tmp,"CHAR/"             ;tmp = :a;CHAR/
	add $tmp,$_charR             ;tmp = CHAR/xxx
	add $tmp,".JPG"              ;tmp = CHAR/xxx.JPG

	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_charR
	if %work==0 return	;t@C݂ȂΖ߂

;isskip %ϐ
;jisskip %0
;݂XLbv[hȂPAI[g[hȂQAʏ탂[hȂOԂ܂B
	isskip %w_skip
	if %w_skip==SKIP_SKIP mov %effect,1

	;GtFNg̎w肪Ȃ΁AftHg̎wŏo
	mov $tmp2,":a;"
	add $tmp2,$tmp
;	if %effect==0 	ld r,$tmp2,CHAR_EFFECT : return	;O\
	if %effect==0 	lsp SP_R,$tmp2,%r_x,%r_y : print CHAR_EFFECT : return

	;GtFNg̎w肪΁A̎wŏo
	;GtFNǧ͂͂P̂
;	ld r,$tmp2,%effect : mov %effect,0  : return
	lsp SP_R,$tmp2,%r_x,%r_y : print %effect : mov %effect,0 : return
           
;-------------------------------------------------------------------
*music	;yĐ[`
	if $_music=="" return
	if $old_music==$_music return ;OƓȂ牽ĐȂ
	mov $old_music,$_music
	mov $tmp,"BGM/"
	add $tmp,$_music
	add $tmp,".wav"
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	if %work==0 return	;t@C݂ȂΖ߂
	bgm $tmp
	return
;-------------------------------------------------------------------
*musicstop	;y~[`
	stop
	mov $old_music,""
	mov $_music,""
	return
;-------------------------------------------------------------------
*click	;NbNĐ
	dwave CH_SE,"SE\ZCLICK.WAV"
	return
;-------------------------------------------------------------------
*se_ok	;OKĐ
	dwave CH_SE,"SE\ZOK.WAV"
	return
;-------------------------------------------------------------------
*se_cancel	;CANCELĐ
	dwave CH_SE,"SE\ZCANCEL.WAV"
	return
;-------------------------------------------------------------------
*getlog	;O擾
;OŕۑȂƂȂ̂́AeLXgƉt@Ĉ݁B
;eLXgۑBPsɕ\
;O
	gettext $0
	len %0,$0
;	if %0==0 return

;t@C
	mov $tmp,$_voice
	len %0,$_voice
	for %1=%0 to 8: add $tmp," " :next 

;t@C{O
	add $0,$tmp

;ۑ
	mov $%logp,$0

;CfbNXCNg
	inc %logp
	if %logp>log_end mov %logp,log_end
	; I[o[ۂ߂
	return
;-------------------------------------------------------------------
*putlog	;O\
	return
;-------------------------------------------------------------------
;ʂ̍\vfׂďiĜ݁j
;OƂ̍ȂΎsȂ̂ŁAɌĂяoĂ悢
*out	;ʏ
	gosub	*music
	gosub	*bg
	gosub	*char
	gosub	*charL
	gosub	*charR
	return
;-------------------------------------------------------------------
*cgout	;Cxgbfŉʏ
;	gosub *skip_cg : if %do_cg==0 return
	if $_cg=="" return
	gosub *clear_charall
	gosub *clear_screen	;tƂXvCg͏

	if $old_cg==$_cg return	;OƓȂ牽\Ȃ
	mov $old_cg,$_cg	;Cxgbfold_cgɕۑ
	mov $_bg,"": mov $old_bg,""
	mov $_char,"": mov $old_char,""
	mov $_charL,"": mov $old_charL,""
	mov $_charR,"": mov $old_charR,""
	mov $tmp,"CG/"		;tmp = CG\
	add $tmp,$_cg		;tmp = CG\xxx
	add $tmp,".BMP"		;tmp = CG\xxx.BMP

	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	gosub *debugout_cg
	if %work==0 return	;t@C݂ȂΖ߂

	isskip %w_skip
	if %w_skip==SKIP_SKIP mov %effect,1

	;GtFNg̎w肪Ȃ΁AftHg̎wŏo
	if %effect==0 	mov %effect,CG_EFFECT

	;Cxgbf\
	if %is_adv!=0 gosub *hide_window
	bg $tmp,%effect		;GtFNg̎w肪΁A̎wŏo
	mov %effect,0		;GtFNǧ͂͂P̂
	if %is_adv!=0 gosub *show_window
	return
;-------------------------------------------------------------------
*clear_charall	;L摜̂ݏ
;	gosub *clear_char
;	gosub *clear_charL
;	gosub *clear_charR

;Oݒ肳ĂȂ̂cspƃG[ɂȂ
	cl c,clear_char
	if $_charL!="" 	csp SP_L
	if $_charR!="" 	csp SP_R

	mov $_char,""		;LNA
	mov $old_char,""	;ۑĂ̂NA
	mov $_charL,""		;LNA
	mov $old_charL,""	;ۑĂ̂NA
	mov $_charR,""		;LNA
	mov $old_charR,""	;ۑĂ̂NA
	
	mov %0,1
	gosub *skip_effect
	if %do_effect==1 mov %0,CHAR_EFFECT
	print %0
	return
;-------------------------------------------------------------------
*clear_char	;L摜̂ݏ
	cl c,clear_char
	mov $_char,""		;LNA
	mov $old_char,""	;ۑĂ̂NA
	return
;-------------------------------------------------------------------
*clear_charL	;L摜̂ݏ
;	cl l,clear_char
;Oݒ肳ĂȂ̂cspƃG[ɂȂ
	if $_charL=="" return
	csp SP_L
	mov %0,1
	gosub *skip_effect
	if %do_effect==1 mov %0,CHAR_EFFECT
	print %0
	mov $_charL,""		;LNA
	mov $old_charL,""	;ۑĂ̂NA
	return
;-------------------------------------------------------------------
*clear_charR	;L摜̂ݏ
;	cl r,clear_char
	if $_charR=="" return
	csp SP_R
	mov %0,1
	gosub *skip_effect
	if %do_effect==1 mov %0,CHAR_EFFECT
	print %0
	mov $_charR,""		;LNA
	mov $old_charR,""	;ۑĂ̂NA
	return
;-------------------------------------------------------------------
*charLtoR	;LE
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 39
		resettimer
		msp SP_L, 20,0,0
		print 1
		waittimer 50
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charLtoC	;L^񒆂
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 12
		resettimer
		msp SP_L, 20,0,0
		print 1
		waittimer 50
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRtoL	;LE
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 27
		resettimer
		msp SP_R, -20,0,0
		print 1
		waittimer 50
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRtoC	;LE^񒆂

	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 12
		resettimer
		msp SP_R, -20,0,0
		print 1
		waittimer 50
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRtoR	;LEE
;́AɈړEXvCgEɖ߂̂ɎgB
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return
	for %0=0 to 12
		resettimer
		msp SP_R, 20,0,0
		print 1
		waittimer 50
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRPuru	;LE㉺Ƀvv
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 2
;
		resettimer
		msp SP_R, 0,20,0
		print 1
		waittimer 100
;
		resettimer
		msp SP_R, 0,-20,0
		print 1
		waittimer 100
	next
	resettimer
	wait 100
	return
;-------------------------------------------------------------------
*charLPuru	;L㉺Ƀvv
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return
	for %0=0 to 2
;
		resettimer
		msp SP_L, 0,20,0
		print 1
		waittimer 100
;
		resettimer
		msp SP_L, 0,-20,0
		print 1
		waittimer 100
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRShake	;LEɃVFCNI
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return
	for %0=0 to 2
;
		resettimer
		msp SP_R, 20,0,0
		print 1
		waittimer 100
;E
		resettimer
		msp SP_R, -20,0,0
		print 1
		waittimer 100
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charLShake	;LEɃVFCNI
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return
	for %0=0 to 2
;
		resettimer
		msp SP_L, 20,0,0
		print 1
		waittimer 100
;E
		resettimer
		msp SP_L, -20,0,0
		print 1
		waittimer 100
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRdown	;LE
;130/170/230 --- 60
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 6
		resettimer
		msp SP_R, 0,10,0
		print 1
		waittimer 80
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charLdown	;L
;130/170/230 --- 60
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 6
		resettimer
		msp SP_L, 0,10,0
		print 1
		waittimer 80
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRup	;L
;130/170/230 
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 8
		resettimer
		msp SP_R, 0,-10,0
		print 1
		waittimer 80
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charLup	;L
;130/170/230 
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 8
		resettimer
		msp SP_L, 0,-10,0
		print 1
		waittimer 80
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charRyoro	;LEƒ
;130/170/230 
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 3
		resettimer
		msp SP_R, -20,10,0
		print 1
		waittimer 100
	next
	for %0=0 to 3
		resettimer
		msp SP_R, -20,-10,0
		print 1
		waittimer 100
	next
	for %0=0 to 3
		resettimer
		msp SP_R, -20,10,0
		print 1
		waittimer 100
	next
	for %0=0 to 3
		resettimer
		msp SP_R, -20,-10,0
		print 1
		waittimer 100
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charLyoro	;Lƒ
;130/170/230 
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 3
		resettimer
		msp SP_L, 20,10,0
		print 1
		waittimer 100
	next
	for %0=0 to 3
		resettimer
		msp SP_L, 20,-10,0
		print 1
		waittimer 100
	next
	for %0=0 to 3
		resettimer
		msp SP_L, 20,10,0
		print 1
		waittimer 100
	next
	for %0=0 to 3
		resettimer
		msp SP_L, 20,-10,0
		print 1
		waittimer 100
	next
	resettimer
	waittimer 100
	return
;-------------------------------------------------------------------
*charLbig	;L剻BZ[usB
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return
	saveoff
	mov $tmp,":a;CHAR/"             ;tmp = :a;CHAR/
	add $tmp,$_charL             ;tmp = CHAR/xxx
	add $tmp,".JPG"              ;tmp = CHAR/xxx.JPG
	btndef $tmp
	resettimer
	blt %l_x,40,400,400,10,20,200,200
	print 1
	ofscpy
	waittimer 300
	btndef ""	

;wiēǍ
	mov $tmp,"BG/"		;tmp = BG\
	add $tmp,$_bg		;tmp = BG\xxx
	add $tmp,".JPG"		;tmp = BG\xxx.JPG
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	if %work!=0 bg $tmp,0

;^`OĐݒ
	if $_char=="" goto *charLbigEND
	mov $tmp,"CHAR/"	;tmp = :a;CHAR/
	add $tmp,$_char         ;tmp = CHAR/xxx
	add $tmp,".JPG"         ;tmp = CHAR/xxx.JPG
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	if %work!=0 mov $tmp2,":a;": add $tmp2,$tmp: ld c,$tmp2,0

;
*charLbigEND
	print 1
	saveon
	return
;-------------------------------------------------------------------
*charRbig	;LE剻BZ[usB
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return
	saveoff
	mov $tmp,":a;CHAR/"             ;tmp = :a;CHAR/
	add $tmp,$_charR             ;tmp = CHAR/xxx
	add $tmp,".JPG"              ;tmp = CHAR/xxx.JPG
	btndef $tmp
	resettimer
	blt 390,40,400,400,10,20,200,200
	print 1
	ofscpy
	waittimer 300
	btndef ""	

;wiēǍ
	mov $tmp,"BG/"		;tmp = BG\
	add $tmp,$_bg		;tmp = BG\xxx
	add $tmp,".JPG"		;tmp = BG\xxx.JPG
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	if %work!=0 bg $tmp,0

;^`OĐݒ
	if $_char=="" goto *charRbigEND
	mov $tmp,"CHAR/"	;tmp = :a;CHAR/
	add $tmp,$_char         ;tmp = CHAR/xxx
	add $tmp,".JPG"         ;tmp = CHAR/xxx.JPG
	fileexist %work,$tmp	;Ńt@C݂̑`FbN
	if %work!=0 mov $tmp2,":a;": add $tmp2,$tmp: ld c,$tmp2,0
;
*charRbigEND
	print 1
	saveon
	return
;-------------------------------------------------------------------
*charRpyoko	;LE㉺ɂ҂傱
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	resettimer
	msp SP_R, 0,-100,0
	print 1
	waittimer 100

	resettimer
	msp SP_R, 0, -50,0
	print 1
	waittimer 100

	resettimer
	msp SP_R, 0, 150,0
	print 1
	waittimer 100

	resettimer
	wait 100
	return
;-------------------------------------------------------------------
*charLpyoko	;L㉺ɂ҂傱
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	resettimer
	msp SP_L, 0,-100,0
	print 1
	waittimer 100

	resettimer
	msp SP_L, 0, -50,0
	print 1
	waittimer 100

	resettimer
	msp SP_L, 0, 150,0
	print 1
	waittimer 100

	resettimer
	wait 100
	return
;-------------------------------------------------------------------
*charRupdown	;LE㉺ɂ
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 8
		resettimer
		msp SP_R, 0,-10,0
		print 1
		waittimer 80
		resettimer
	next
	for %0=0 to 8
		resettimer
		msp SP_R, 0,10,0
		print 1
		waittimer 80
		resettimer
	next
	resettimer
	wait 100
	return
;-------------------------------------------------------------------
*charLupdown	;L㉺ɂ
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	for %0=0 to 8
		resettimer
		msp SP_L, 0,-10,0
		print 1
		waittimer 80
		resettimer
	next
	for %0=0 to 8
		resettimer
		msp SP_L, 0,10,0
		print 1
		waittimer 80
		resettimer
	next
	resettimer
	wait 100
	return
;-------------------------------------------------------------------
*whiteout	;ŃAEg
;	gosub *skip_cg : if %do_cg==0 return
	gosub *clear_charall

	;ʃItȂApbƏo
	gosub *skip_effect
	if %do_effect==0 bg white,1
	if %do_effect==1 bg white,CG_EFFECT : wait 500
	gosub *clear_cg_var
	return
;-------------------------------------------------------------------
*blackout	;ŃAEg
;	gosub *skip_cg : if %do_cg==0 return
	gosub *clear_charall
	;ʃItȂApbƏo
	gosub *skip_effect
	if %do_effect==0 bg black,1
	if %do_effect==1 bg black,CG_EFFECT : wait 500
	gosub *clear_cg_var
	return
;-------------------------------------------------------------------
*redout	;ԂŃAEg
;	gosub *skip_cg : if %do_cg==0 return
	;ʃItȂApbƏo
	gosub *skip_effect
	if %do_effect==0 bg #FF0000,1
	if %do_effect==1 bg #FF0000,CG_EFFECT : wait 500
	gosub *clear_cg_var
	return
;-------------------------------------------------------------------
*mono_on	;mNJn
	monocro #AFAFAF
	return
;-------------------------------------------------------------------
*mono_off	;mNI
	monocro off
;	print CG_EFFECT
	return
;-------------------------------------------------------------------
*nega_on	;lK\Jn
	nega	1
	return
;-------------------------------------------------------------------
*nega_off	;lK\I
	nega	0
;	print CG_EFFECT
	return
;-------------------------------------------------------------------
*guragura	;ʃOO
	gosub *skip_cg : if %do_cg==0 return
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	quake 10,200
	return
;-------------------------------------------------------------------
*gura	;ʒPOO
	gosub *skip_cg : if %do_cg==0 return
	;ʃItȂAȂ
	gosub *skip_effect: if %do_effect==0 return

	quake 5,200
	return
;-------------------------------------------------------------------
*anten	;J[eX_
	bg black,SYSTEM_EFFECT
	wait 500
	mov $_char,""	: mov $old_char,""
	mov $_cg,""	: mov $old_cg,""
	mov $_bg,""	: mov $old_bg,""
	return
;-------------------------------------------------------------------
*anten_system	;Ó]cVXeʗp
	bg black,0
	print SYSTEM_EFFECT
	mov $_bg,""
	mov $old_bg,""
	return
;---------------------------------------------------------------------------
*to2keta	;$tmpɓĂlPȂQɂ
	mov $tmp2,$tmp
	len %work,$tmp2	
	if %work>=2 return ; QȏȂ߂
	mov $tmp,"0"
	add $tmp,$tmp2
	return
;-------------------------------------------------------------------
*clear_cg_var 	;摜\p̃[JϐNA
	mov $_char,"" : mov $old_char,""
	mov $_charL,"" : mov $old_charL,""
	mov $_charR,"" : mov $old_charR,""
	mov $_cg,""   : mov $old_cg,""
	mov $_bg,""   : mov $old_bg,""
	if %debug==ON csp SP_DBG_CHAR : csp SP_DBG_CG : csp SP_DBG_BG 
	return
;-------------------------------------------------------------------
;debugłwork͐΂ɔj󂵂Ȃ
;-------------------------------------------------------------------
*debugout	;fobOpt@C\
	if %debug==OFF return
	if $debugstr=="" return
	csp SP_DBG_FNAME
	;numalias debugstr	,23
	lsp SP_DBG_FNAME,":s/20,22,0;#FFFFFF$23",10,130
	mov $debugstr,""
	return
;-------------------------------------------------------------------
*debugout_se
	if %debug==OFF return
	if $debugstr=="" return
	if %work==0 add $debugstr,""	;t@C݂Ȃ
	csp SP_DBG_SE
	lsp SP_DBG_SE,":s/20,22,0;#FFFFFF$23",500,100 ;fobOp
	mov $debugstr,""
	return
;-------------------------------------------------------------------
*debugout_vo
	if %debug==OFF return
	if $debugstr=="" return
	if %work==0 add $debugstr,""	;t@C݂Ȃ
	csp SP_DBG_VOICE
	lsp SP_DBG_VOICE,":s/20,22,0;#FFFFFF$23",500,130
	mov $debugstr,""
	return
;-------------------------------------------------------------------
*debugout_bg
	if %debug==OFF return
	if $debugstr=="" return
	if %work==0 add $debugstr,""	;t@C݂Ȃ
	csp SP_DBG_BG
	lsp SP_DBG_BG,":s/20,22,0;#FFFFFF$23",500,10
	mov $debugstr,""
	return
;-------------------------------------------------------------------
*debugout_cg
	if %debug==OFF return
	if $debugstr=="" return
	if %work==0 add $debugstr,""	;t@C݂Ȃ
	csp SP_DBG_CG
	lsp SP_DBG_CG,":s/20,22,0;#FFFFFF$23",500,40
	mov $debugstr,""
	return
;-------------------------------------------------------------------
*debugout_char
	if %debug==OFF return
	if $debugstr=="" return
	if %work==0 add $debugstr,""	;t@C݂Ȃ
	csp SP_DBG_CHAR
	lsp SP_DBG_CHAR,":s/20,22,0;#FFFFFF$23",500,70
	mov $debugstr,""
	return
;-------------------------------------------------------------------
*debugout_charL
	if %debug==OFF return
	if $debugstr=="" return
	if %work==0 add $debugstr,""	;t@C݂Ȃ
	csp SP_DBG_CHAR
	lsp SP_DBG_CHAR,":s/20,22,0;#FFFFFF$23",500,70
	mov $debugstr,""
	return
;-------------------------------------------------------------------
*debugout_charR
	if %debug==OFF return
	if $debugstr=="" return
	if %work==0 add $debugstr,""	;t@C݂Ȃ
	csp SP_DBG_CHAR
	lsp SP_DBG_CHAR,":s/20,22,0;#FFFFFF$23",500,70
	mov $debugstr,""
	return
;-------------------------------------------------------------------
;摜ʃ`FbN
;	ʕ\ȂA%do_effect==1 
;	pbƂȂA  %do_effect==0
;݂XLbv[hȂPAI[g[hȂQAʏ탂[hȂOԂ܂B
;	numalias SKIP_NONE	,0
;	numalias SKIP_SKIP	,1
;	numalias SKIP_AUTO	,2
;-------------------------------------------------------------------
*skip_effect	;XLbvɁAGtFNggۂ
	isskip %w_skip ;XLbvԎ擾
	if %w_skip==SKIP_NONE mov %do_effect,1 : return ;ʏ
	if %w_skip==SKIP_AUTO mov %do_effect,1 : return ;I[g
;XLbv̂ݔf
	if %g_koukaoff==0 mov %do_effect,1 ;ON
	if %g_koukaoff==1 mov %do_effect,0 ;OFF
	return

*skip_cg	;XLbvɁAʂ͏Ȃ
	isskip %w_skip ;XLbvԎ擾
	if %w_skip==SKIP_NONE mov %do_cg,1 : return ;ʏ
	if %w_skip==SKIP_AUTO mov %do_cg,1 : return ;I[g
;XLbv̂ݔf
	if %g_cgoff==0 mov %do_cg,1 ;cg͕\
	if %g_cgoff==1 mov %do_cg,0 ;cg͕\Ȃ
	return

;07.txt 

;8.txt

;09.txt 
;============================================
; bf[h
; Copyright (C) Cherrysoft. All rights reserved
; 2003/07/28
;============================================
	csp -1	;gpXvCgNA
*cgmode
	mov $_music,"14": gosub *out ; LOVE
*CGA
	bg "sys/CGBG.jpg",0	;wi\
;bf[h̃XvCg`
;***********1s***********
mov %_y,40
lsp  0,("cg/C01A.bmp")":c/2,0,3;thum/C01A.bmp"":c;thum/futa.bmp", 20, %_y
lsp  1,("cg/C02A.bmp")":c/2,0,3;thum/C02A.bmp"":c;thum/futa.bmp",150,%_y
lsp  2,("cg/C02B.bmp")":c/2,0,3;thum/C02B.bmp"":c;thum/futa.bmp",280,%_y
;***********2s***********
add %_y,120
lsp  3,("cg/C03A.bmp")":c/2,0,3;thum/C03A.bmp"":c;thum/futa.bmp", 20, %_y
lsp  4,("cg/C03B.bmp")":c/2,0,3;thum/C03B.bmp"":c;thum/futa.bmp",150, %_y
lsp  5,("cg/C03C.bmp")":c/2,0,3;thum/C03C.bmp"":c;thum/futa.bmp",280, %_y
;***********3s***********
add %_y,120
lsp  6,("cg/C04A.bmp")":c/2,0,3;thum/C04A.bmp"":c;thum/futa.bmp", 20, %_y
lsp  7,("cg/C04B.bmp")":c/2,0,3;thum/C04B.bmp"":c;thum/futa.bmp",150, %_y
lsp  8,("cg/C05A.bmp")":c/2,0,3;thum/C05A.bmp"":c;thum/futa.bmp",280, %_y
;***********4s***********
;add %_y,100
;lsp  9,("cg/C04C.bmp")":c/2,0,3;thum/C04C.bmp"":c;thum/futa.bmp", 20, %_y
;lsp 10,("cg/C05A.bmp")":c/2,0,3;thum/C05A.bmp"":c;thum/futa.bmp",150, %_y
;lsp 11,("cg/C05B.bmp")":c/2,0,3;thum/C05B.bmp"":c;thum/futa.bmp",280, %_y
;***********z************
lsp 9,("cg/C01A.bmp")":c/2,0,3;thum/C01A.bmp"":c;thum/futa.bmp",500,160
;lsp 13,("cg/C04A.bmp")":c/2,0,3;thum/C04A.bmp"":c;thum/futa.bmp",500,270
;lsp 14,("cg/A06A.bmp")":c/2,0,3;thum/A06A.bmp"":a;thum/futa.bmp",277, %_y
;============================================
lsp SP_EXIT,":a/2,0,3;sys/modoru.jpg",500, 430
	print 23
;============================================
;{^`
	btndef ""
;***********1s***********
if fchk "cg/C01A.BMP" spbtn  0, 1
if fchk "cg/C02A.BMP" spbtn  1, 2
if fchk "cg/C02B.BMP" spbtn  2, 3
;***********2s***********
if fchk "cg/C03A.BMP" spbtn  3, 4
if fchk "cg/C03B.BMP" spbtn  4, 5
if fchk "cg/C03C.BMP" spbtn  5, 6
;***********3s***********
if fchk "cg/C04A.BMP" spbtn  6, 7
if fchk "cg/C04B.BMP" spbtn  7, 8
if fchk "cg/C05A.BMP" spbtn  8, 9
;***********4s***********
;if fchk "cg/C04C.BMP" spbtn  9,10
;if fchk "cg/C05A.BMP" spbtn 10,11
;if fchk "cg/C05B.BMP" spbtn 11,12
;***********z************
if fchk "cg/C01A.BMP" spbtn 9,10
;if fchk "cg/C04A.BMP" spbtn 13,14
;============================================
spbtn SP_EXIT,BTN_EXIT	;߂
;============================================
*CGA_wait
	btnwait %0
	if %0==MOUSE_RBUTTON  gosub *click : csp -1 : goto *title
	if %0==KEY_ESCAPE     gosub *click : csp -1 : goto *title
	if %0<=0 goto *CGA_wait
	if %0==BTN_EXIT gosub *click : csp -1 : goto *title;߂
	dec %0
	tablegoto %0,*cg_C01A,*cg_C02A,*cg_C02B,*cg_C03A,*cg_C03B,*cg_C03C,*cg_C04A,*cg_C04B,*cg_C05A,*kaisou1
	goto *CGA_wait
;============================================
*cg_C01A
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C01A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C02A
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C02A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C02B
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C02B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C03A
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C03A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C03B
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C03B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C03C
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C03C": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C04A
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C04A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C04B
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C04B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_C05A
	gosub *click
	csp -1
	bg black,24
	mov $_cg,"C05A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*kaisou1
	gosub *click
	csp -1
	bg black,24
	gosub *set_message_window
	gosub *show_window
	gosub *D01	;pCY
	gosub *D02	;}
	gosub *D03
	gosub *D04
	if %go_h==CHIAKI gosub *D04B
	if %go_h==ALICE  gosub *D04C
	gosub *D05
	gosub *D06
	gosub *erase_window
 	gosub *blackout
	goto  *CGA
	;============================================

;-------------------------------------------------------------------
;GO_10.TXT
;Q[Rg[
;-------------------------------------------------------------------
*start	;Q[̊Jn
	saveoff
	gosub	*debug_ini		;init@Cǂݍ
	goto	*title			;^Cg
;-------------------------------------------------------------------
*start_game	;Q[̃CRg[[`
	gosub	*local_initial
	mov	%is_adv,1	;ADVX^[g
	resettimer 
	gosub	*blackout
	waittimer 100
	gosub *speed_val	;bZ[WXs[hĐݒ
	gosub *auto_val
	gosub *set_message_window
	gosub *show_window
	saveon
;-------------------------------------------------------------------
;Q[Ŝ̃CRg[
;-------------------------------------------------------------------
	if %g_game==0 goto *EROERO	;G
	if %g_game==1 goto *WORLDTOWER	;[
	if %g_game==2 goto *LIKEABIRD	;T

*EROERO
	gosub	*get_hero_name
	gosub *D00
	if %go_h==0 gosub *erase_window : goto *title
	gosub *D01	;pCY
	gosub *D02	;}
	gosub *D03
	gosub *D04
	if %go_h==CHIAKI gosub *D04B
	if %go_h==ALICE  gosub *D04C
	gosub *D05
	gosub *D06
*eroero_end
	gosub *endroll
	goto *title

*WORLDTOWER
	gosub *U0
	if %go_go==0 gosub *erase_window : goto *title
	gosub *U1
	gosub *title_u	;^CgʁBXvbVƂ
	gosub *set_message_window
	gosub *show_window
	gosub *U1B
	gosub *wing
	gosub *U1C
	gosub *wing
	gosub *U2
	gosub *wing
	gosub *U3
	gosub *wing
	gosub *U4
	gosub *wing
	gosub *U5
	gosub *wing
	gosub *U6
	gosub *wing
	gosub *U6B
	gosub *wing
	gosub *U6C
	gosub *U6D
	gosub *wing
*wend
	gosub *U7
	gosub *endroll_u
	goto *title

*LIKEABIRD
	gosub *endroll
	goto *title


;-------------------------------------------------------------------
*title_u		;The world tower Title Splash
	skipoff
	gosub *erase_window
	csp -1
	gosub *blackout
	gosub *sestop
	mov $_music,"25": gosub *out

;HXN[
	trap *title_u_end
	btndef ":c;sys/title_ua.jpg"	
	for %0=0 to 800-480
		blt 240,0,640,480,0,%0,640,480
		resettimer
		waittimer 20
	next
	ofscpy
*title_u_end
	trap off
	bg ":c;sys/title_ub.jpg",FADE_LONG
	resettimer
	waittimer 30
	bg ":c;sys/title_uc.jpg",FADE_LONG
	resettimer
	waittimer 100
	gosub *blackout
	csp -1
	return

;-------------------------------------------------------------------
*wing
	gosub *hide_window
	gosub *blackout
	mov $_music,"25": gosub *out
	mov $_bg,"wing"
	rnd %work,3 : itoa $tmp,%work
	add $_bg,$tmp
	mov %effect,FADE_LONG
	gosub *bg
	resettimer:waittimer 100
	mov $_bg,"wtower"
	mov %effect,FADE_SHORT
	gosub *bg
	resettimer:waittimer 20
	gosub *blackout
	gosub *set_message_window
	gosub *show_window
	return
	
;-------------------------------------------------------------------
*endroll	;X^bt[ for The World Tower
	skipoff
	gosub *erase_window
	csp -1
	gosub *blackout
	gosub *sestop
	gosub *musicstop
	gosub *whiteout

	resettimer
	mov $_music,"25": gosub *out
	gosub *blackout

	trap *endroll_end

	btndef ":c;sys/endroll.jpg"
	for %0=0 to 2080-480
		blt 0,0,640,480,0,%0,640,480
		wait 20
	next
	ofscpy

*endroll_end
	trap off
	gosub *musicstop
	gosub *whiteout
	csp -1
	return

;-------------------------------------------------------------------
*endroll_u	;X^bt[ for The World Tower
	skipoff
	gosub *erase_window
	csp -1
	gosub *blackout
	gosub *sestop
	gosub *musicstop
	gosub *whiteout

	resettimer
	mov $_music,"25": gosub *out
	gosub *blackout

	trap *endrollu_end

	btndef ":c;sys/endrollu.jpg"
	for %0=0 to 2080-480
		blt 0,0,640,480,0,%0,640,480
		wait 20
	next
	ofscpy

*endrollu_end
	trap off
	gosub *musicstop
	gosub *whiteout
	csp -1
	return

;11.txt 

;12.txt 
;DOUBLEԊOҁu낦v 
;============================================
; D03
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/03
;============================================
*D03	; t@CJñx
	mov $debugstr,"D03 " : gosub *debugout
;uDOUBLEO`vF}FD03
;
;}

	;--BGM;----------------------------------
	mov $_music,"14": gosub *out
;BGM:Love
;}Ă͔̂
	;-- CxgCG;----------------------------------
	mov $_cg,"C05A"
	mov $debugstr,"bfFC05A"
	gosub *cgout	;Cxgbf

	yz
	ꟁcꟙcTcꟁc
	icicBcqcII\
	;-gʉ;----------------------------------
	mov $_se,"WC008"
	mov $debugstr,"gFWC008 "
	gosub *se
;P}

	ΎcBݚac݁ccݚITcB\

	I_ItafoIt́C
	MࡒIVCꢈIZVB\

	yz
	ꟁcꟁcꟁccI@݁cŐ[cꟁII\
	;-gʉ;----------------------------------
	mov $_se,"WM02"
	mov $debugstr,"gFWM02"
	gosub *se
;ՂIIA}

	ΚaacݚaTII\

	yHz
	ꟁCߌoSvGB
	JSꝁC݁H\

	yz
	TcMCB
	DށcBȁcҗvcđ_cB\
	;-gʉ;----------------------------------
	mov $_se,"WM03A"
	mov $debugstr,"gFWM03A "
	gosub *se
;ڍO`bIYkbIk`I

	y$g_heroz
	ґzhXꝁH\

	yHz
	݁C^ÐSꡁB\

	HVtNߑΊŋNꑙIᔒC
	pwߘM[IB\

	yz
	ׁcꟁcTcBTII\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	哮nJnΒnRNB\

	yz
	Tc݉Ig̗c꒵꒵ncݝcB
	ꟁcD靁CŗvċNcD_ꟁcB\

	yHz
	݁CDꇊQꟁcꎟ
	ߗAouЌГIGB\

	yz
	ݗʒIccꟁcIꟁI
	DII@ꟁcݒcTjcI\
	;-gʉ;----------------------------------
	mov $_se,"WM12B"
	mov $debugstr,"gFWM12B "
	gosub *se
;ςς

	yHz
	ʔnCCkꝁH
	䐳݊ߘMICoH\

	yz
	TcBcTcI@D_I
	粖cđ_cII\
	;-gʉ;----------------------------------
	mov $_se,"WA001"
	mov $debugstr,"gFWA001 "
	gosub *se
;wōLiςcj

	yHz
	݁C^ꇊQꡁBg̔qB
	ߗCH\
	;-gʉ;----------------------------------
	mov $_se,"WA006"
	mov $debugstr,"gFWA006 "
	gosub *se
;wŒ܂킷i߁j

	yz
	TcBTcI@D_cD_ꟁcI
	AږD_I@DcI\

	yHz
	vꝁH@ߌoCssH
	AځAaNhCk_ꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WC001"
	mov $debugstr,"gFWC001 "
	gosub *se
;ijOo

	yz
	O㗈cAnc
	cꟁcII@\

	yHz
	FICFFI}
	zszvˏoDꡁH\
	;-gʉ;----------------------------------
	mov $_se,"WC003"
	mov $debugstr,"gFWC003 "
	gosub *se
;ijo/OŌiZ߁j

	HVtΉeZB\

	y$g_heroz
	CCzvꝁH
	zvptCc꣓IMuЌГIꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WC005"
	mov $debugstr,"gFWC005 "
	gosub *se
;ijo/ippj

	yz
	TTIcIqUII
	ꟁITITIߌossII\
	;-gʉ;----------------------------------
	mov $_se,"WC006"
	mov $debugstr,"gFWC006 "
	gosub *se
;R

	y$g_heroz
	ꐥꖘꟁCH\

	yHz
	zt}IꠁC݁H\

	wqC꘢n_B\
	;-gʉ;----------------------------------
	mov $_se,"WC004"
	mov $debugstr,"gFWC004 "
	gosub *se
;ijo/OŌi߁j

	yz
	ꟁIꟁII@vcvI@
	cvcTcIII\
	;-gʉ;----------------------------------
	mov $_se,"WC003"
	mov $debugstr,"gFWC003 "
	gosub *se
;ijo/OŌiZ߁j

	yz
	ꟁcccccIIIIII\
	;-gʉ;----------------------------------
	mov $_se,"WE001"
	mov $debugstr,"gFWE001 "
	gosub *se
;ʂɃhsbƏoiЂj

	ΚaIΚaIΚaI\

	䏫ʓI
	F˓I̓B\
	return
	;----------------------------------
;---D03  END -----
;============================================
; D04
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/03
;============================================
*D04	; t@CJñx
	mov $debugstr,"D04 " : gosub *debugout
;uDOUBLEO`vFHɑ}łfnIFD04
;
;Hɑ}łfnI

	;--BGM;----------------------------------
	mov $_music,"14": gosub *out
;BGM:Love

	yHz
	C֓엹ꠁB\

	䒩`IŋB\

	y$g_heroz
	HVtcBNcB\
	;-- CxgCG;----------------------------------
	mov $_cg,"C03A"
	mov $debugstr,"bfFC03A"
	gosub *cgout	;Cxgbf

	ߐꕝlIiB
	NeݒnC
	oڑJl`B\

	HVtpwaC
	ꢓߎNgIAB\

	y$g_heroz
	DꇊQcBҁc݈ꒊꒊn
	HVtcB\

	yHz
	RIꠁH@œߎ
	\sꟁB\

	HVtIꟃҐaB
	ACꢓIpђIB\
	;-gʉ;----------------------------------
	mov $_se,"WA002"
	mov $debugstr,"gFWA002 "
	gosub *se
;włij

	yAXz
	ꟁcꟁcI@sAssI
	NIANIqCݔoݚaݚaIcI\

	y$g_heroz
	NIAږdMMnCgn𗧒B
	zvI_yꝁH\

	yAXz
	ꟁcjccB\

	yHz
	ߊҗpvB
	׉쐥꣓IzꟁB\

	y$g_heroz
	Icz讁H\

	yHz
	ꟁBB
	꣒IؖB\

	y$g_heroz
	^IꝁBהI
	ICsꝁH\

	yHz
	^II@ʔSᗹII
	vC꣍ˉꡁH\

	y$g_heroz
	vꝁcB
	VtҕsꝁH\

	䒩HVtaN粑ߋB
	ꢘ염lIˁCݑߓIB\

	yHz
	ݔg˗ߛC
	RҔcB\

	HVtŒߔ퐸tatGIsC
	oꓹ~A
	@s@˓IB\

	yAXz
	^IꡁcBDꇊQcB\

	yHz
	ꟁCIw툤NI
	ًْnZGB\

	yAXz
	TcBAcB\

	y$g_heroz
	zvꝁCNH\

	NAA_B\

	yAXz
	TTBߘCߘCN
	zv$g_heroI_Bzvh{B\

	y$g_heroz
	ACHVtݚGcc
	HVtzꡁH\

	yHz
	p{sIGB
	CқC꣑I꘢ꠁB\

	y$g_heroz
	^IB
	sA꒖ꝁH\

	yHz
	cϐIIC
	sAlꝁB\

	HVtے{Cc_粁B
	֔@CIt̊ҐꢚI\D
	sfnOoB\
;----------------------------------
*hintD04
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintD042off
	csel
	"HƂ", *D0410,
	"AXƂ", *D0420,
	"qg", *D0430
*hintD042off	;qgOFF̂Ƃ
	csel
	"HƂ", *D0410,
	"AXƂ", *D0420
;----------------------------------
*D0410
;HƂ
	mov %go_h,CHIAKI
	goto *nextD04	;nextD04ֈړ
;----------------------------------
*D0420
;AXƂ
	mov %go_h,ALICE
	goto *nextD04	;nextD04ֈړ
;----------------------------------
*D0430
;qg

	uNƐHv
	@ΐHVtisB\

	uNƈNv
	@NƈNB\

	ӑIꋊ슽IB\
;qgI
	goto *hintD04	;hintD04ֈړ
;----------------------------------
*nextD04
	return
	;----------------------------------
;---D04  END -----
;============================================
; D04B
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/03
;============================================
*D04B	; t@CJñx
	mov $debugstr,"D04B" : gosub *debugout
;uDOUBLEO`vFHɑ}łfnIFD04
;
;Hɑ}łfnI

	;--BGM;----------------------------------
	mov $_music,"14": gosub *out
;BGM:Love
;HƂ

	y$g_heroz
	ߛCAIHVtꠁB\

	yAXz
	`H@߉ꡁH@sc
	{{ꝁH\

	y$g_heroz
	NvsDDw
	z變YLIbssꟁB\

	yAXz
	jjcB\

	y$g_heroz
	ו⏞CA樐HVtc꣘MꠁB
	ApHVtIwa㓪B\

	yAXz
	I``BzvXeIvB
	zv햔喔eICΎΎnѐvB\

	y$g_heroz
	꣉^ÐSꟁCNB\

	yHz
	DD꣔IB
	cEψꉺGBNB\

	HVtɋNIC
	ɊɒncNIOB\

	yAXz
	TꟚjcII\

	HVtp뙉MNIAǁC
	aanzgFIB\
	;-gʉ;----------------------------------
	mov $_se,"WA004"
	mov $debugstr,"gFWA004 "
	gosub *se
;wiƁjʂcc

	yAXz
	ꟁcIꟁcIꟁcIꟁcI
	DCDꟁcII\

	ufIt嗹oB\

	y$g_heroz
	^\ꟁCHVtB
	߉A꣘ꠁB\

	⋓HVtIg@B
	ꢐᔒI\ԁC
	\œAIgFAB\

	y$g_heroz
	HVtIߗC݈ꒊꒊnꡁB
	݋iꝁH\

	yHz
	cꟁcBzv꣕icB\

	y$g_heroz
	HVtC嫑R̐z讁C
	Aq_ssꟁB\

	yHz
	ꟁcʐ횭SIbcB\

	y$g_heroz
	ߏADDnꟁB\

	yHz
	ꋔclI_ciڑGz讐HcЎόГhI
	cB\

	y$g_heroz
	^IzvꝁH\

	yHz
	TcTczv꣗pߍMdI
	nݐlƗʊhcB\

	y$g_heroz
	߁cviGH\
	;-gʉ;----------------------------------
	mov $_se,"WA007"
	mov $debugstr,"gFWA007 "
	gosub *se
;wŒ܂킷iZj
	;-- CxgCG;----------------------------------
	mov $_cg,"C03B"
	mov $debugstr,"bfFC03B"
	gosub *cgout	;Cxgbf

	΁cΎcII\

	ߒʍgF֒nuNIsC
	[[niHVt[I
	AB\

	yHz
	ꟁcꟁccII\

	y$g_heroz
	cߋNkꟁB\
	;-gʉ;----------------------------------
	mov $_se,"WA006"
	mov $debugstr,"gFWA006 "
	gosub *se
;wŒ܂킷i߁j

	HVtJnݍʁCRN@דIB
	ꢔz䍘ICȖ哮nNB\

	yHz
	ꟁccccꟁcB
	D_c_cII\

	툤t[GIٗC
	It鄒nJnoB\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	y$g_heroz
	ꇊQCHVtcB
	VtI̓鄒nOoB\

	yHz
	ꟁcAācꟁcׁc_I
	sI@qDMcDdcI\
	;-gʉ;----------------------------------
	mov $_se,"WM08"
	mov $debugstr,"gFWM08"
	gosub *se
;C

	y$g_heroz
	I{bCkꝁH\

	yHz
	DGcI@D_I@
	sGcII@DuꟁccII\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	粙ߒHVtIgbC
	粌p[ꢓۓ@DIǁB\

	yHz
	ꟁcꟁcꟁcD_cI@ėp͓_cI
	ėp͝zEcI@p꣓I_cI\

	y$g_heroz
	꣏A슽_ꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WM23"
	mov $debugstr,"gFWM23"
	gosub *se
;イFwŐG

	yHz
	슽cD슽cI@MdCҍdMMn
	Ő[cI@D_GcII\
	;-gʉ;----------------------------------
	mov $_se,"WM10"
	mov $debugstr,"gFWM10"
	gosub *se
;ʂʂ

	y$g_heroz
	^ꇊQꟁCQBnRC
	ŗ꣐^IkꟁBHVtB\

	yHz
	TcTcDcDGcI
	\꣓I_CDKGcI\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	y$g_heroz
	׏YH@꣐IꝁH\

	yHz
	ꟁcB׉䐥꣓Iꑮꟁc
	ꟁcꟁcI@Đ[_cꟁcII\
	;-gʉ;----------------------------------
	mov $_se,"WM13"
	mov $debugstr,"gFWM13"
	gosub *se
;Ⴅ

	y$g_heroz
	^ÐSꟁCHVtB
	R̐CߏAՏbˍsꟁB\

	yHz
	ꟁcꟚjcTcI@Tcbc
	bcBҗvcB\
	;-gʉ;----------------------------------
	mov $_se,"WM12B"
	mov $debugstr,"gFWM12B "
	gosub *se
;ςς

	y$g_heroz
	꣔꘢DsDH
	ߎȝiCґѐU_IbH\

	yHz
	^c^IꝁcH@ADcB
	DꟁccB\

	yz
	ߞIbC䔇DLGB\

	SIכZnΒC
	粝\ёIbߗB\

	yz
	꣊ŁCkꠁH
	əɓIbB\

	݋bIꓪC
	ꍪIAGKIU_B\

	y$g_heroz
	ߏAK痹ꟁB
	꣔\DDꝁCHVtH\

	HVtŏ㋎퍂C
	JnhWNȓIB\

	yHz
	II\

	y$g_heroz
	^ꇊQꟁB^IB\

	yHz
	cI\

	HVt粉nC粗hWB
	ꢓI_ߛIV^ׁَC
	[M~]I䊁B\

	y$g_heroz
	ߛcAcb
	DDniHVtIᗢGB\

	yz
	vppꝁH
	pV@ϓqGB\

	꘢ޗrB
	rqUߑI
	FṕB\

	y$g_heroz
	꣔퓌sꖘMIꟁH\

	yz
	jČāC閧B\

	HVtIߌo툤tMIC
	嫑Rsӗp㓪erԁcc\

	y$g_heroz
	csɓIbCHVtXDꠁH\

	䖞n之NuyIṕB\
	;-gʉ;----------------------------------
	mov $_se,"WM23"
	mov $debugstr,"gFWM23"
	gosub *se
;イFwŐG

	ێIԜ^gqC
	p̌nh݊OߏIB\

	yHz
	BꟁcII@DADucII\

	y$g_heroz
	EψꉺBnAϔMIB\

	IwsHVtIǁB\

	粗pwiIGC
	粏rIp̌niB\

	y$g_heroz
	ߛCbviGH\

	yHz
	IcTB
	`ꋗClcB\

	y$g_heroz
	ߏAcB\
	;-gʉ;----------------------------------
	mov $_se,"WB006"
	mov $debugstr,"gFWB006 "
	gosub *se
;Ar[Y

	ΎIII\

	b
	HVtIB\

	yHz
	BTcII\
	;-gʉ;----------------------------------
	mov $_se,"WB007"
	mov $debugstr,"gFWB007 "
	gosub *se
;Ar[Y

	RˑR睓IhC
	HVtoŐ^IIB\

	y$g_heroz
	jcBAݏI
	I_socB\

	nn
	ZݐHVtIgCcU_SSnŒZB\

	y$g_heroz
	ꝁH\

	yz
	RBIJցcB\
;Ar[Y

	N楁II\
	;-gʉ;----------------------------------
	mov $_se,"WM01"
	mov $debugstr,"gFWM01"
	gosub *se
;oCu

	ߘJ֍@C
	uwǓI粖琏VNB\

	y$g_heroz
	jccDucB\

	yHz
	ꟁc[cI[c
	vcTꟁcI@DcDꇊQcII\
	;-gʉ;----------------------------------
	mov $_se,"WM03A"
	mov $debugstr,"gFWM03A "
	gosub *se
;ڍO`bIYkbIk`I

	y$g_heroz
	HVtCa
	oĉCkJSꝁH\

	y$g_heroz
	ꟁcTcBc狖ckJScB
	cocǵcD靁cB\

	yz
	ˍJnꡁB
	C@B\

	y$g_heroz
	@H\

	yz
	I򗝍pa㉁A񑼖
	sB\

	s싻ܓI򕨁B\

	y$g_heroz
	c毕sksH\

	yz
	vIBsLpIB
	嫑R\ߓABA\

	ΗBߕ\N~I
	ΗeCpߛC樉䋻s߁B\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	HVtsIhC
	TJnhWNB\

	yHz
	ꟁcꟁcI@vI
	vꟁII@sꟁcII\
	;-gʉ;----------------------------------
	mov $_se,"WC003"
	mov $debugstr,"gFWC003 "
	gosub *se
;ijo/OŌiZ߁j

	y$g_heroz
	LߛꝁCHVtH\

	yHz
	TcITcID_I
	U_a_suII\

	y$g_heroz
	꣐vB
	goS͗꣓IGB\

	yAXz
	^DꟁcBNzvcB\

	yz
	߈NI
	AR䗈꣓hꠁB\

	yAXz
	\BI\

	L݈NIԁC
	ݔoJꒊꓮTIAC
	hFI܁B\

	yz
	CNH\

	yAXz
	ꟁc㗈cc
	oϓDꟁcB\

	R@CߑI
	Lic_݈NԓI
	HVtI{B\

	yHz
	H\

	y$g_heroz
	يꠁBHVtB\

	yHz
	I\

	HVtJSnꐺC
	ًNIB\

	yz
	CDyGB
	HVtB\

	yHz
	I@I\

	IwHVtzC
	MࡒrIVB\

	pߎIw
	ًْnoZHVtIB\

	yHz
	ꟁcTĚjcI@D_CD_ꟁcI
	AҊҗLCsȚGcI\

	HVtI_jNgC
	_~ϓB\

	yAXz
	NcꟁCN
	ZcB\
	;-gʉ;----------------------------------
	mov $_se,"WA003"
	mov $debugstr,"gFWA003 "
	gosub *se
;̎włiʂIʂIj

	N粗pwݚaݚanߘM
	ȓIC
	粏_aHVtIB\
	;-gʉ;----------------------------------
	mov $_se,"WD002"
	mov $debugstr,"gFWD002 "
	gosub *se
;Nj

	accB
	ꢔoCz⒅AځB\

	yHz
	ꟁcꟁII\

	HVtIg̖Ғn@|NB\

	yAXz
	TcacꟁcHVtc
	ddInckꠁH\

	yHz
	TI@TI@D_ꟁCNI
	AځCđz_cII\

	yz
	ߋꡁH\

	paOCݐHVtI
	rƖIB\

	yHz
	TI@TI@vI
	zII@cI\
	;-gʉ;----------------------------------
	mov $_se,"WC004"
	mov $debugstr,"gFWC004 "
	gosub *se
;ijo/OŌi߁j

	HVtIg̛ߌosB
	ꢓIg̕sZnTCגǋhB\

	y$g_heroz
	HVtCDꇊQc^IB
	^IB\

	rI򕨉엹I󉋁C
	܏ĒHVtI_oB\
	;-gʉ;----------------------------------
	mov $_se,"WC003"
	mov $debugstr,"gFWC003 "
	gosub *se
;ijo/OŌiZ߁j

	yHz
	ꟁccc^IkvB
	D_cqUIcBTII\

	yHz
	D靁cDꟁcI@]钁cꟁc
	ovcI@\

	y$g_heroz
	vICs꣓IꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WC002"
	mov $debugstr,"gFWC002 "
	gosub *se
;ijOoiƊۂj

	yHz
	ꟁIꟁIꟁI@ĔcMXꠁI
	snhꠁI@cOMꠁII\

	y$g_heroz
	җvꝁH@ґzvXH
	HVtC꣉^ÐSꟁB\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	yHz
	җvcTcҗvcI@[I@[I
	I[I@nꟁI\

	y$g_heroz
	I[CꖗꟁH
	q{AȗꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WC005"
	mov $debugstr,"gFWC005 "
	gosub *se
;ijo/ippj

	yHz
	ꟁcBcTc΁I΁I[cI
	q{I@gnꟁII\

	yz
	vڎˍݎq{C
	HVtC꣉\sGH\
	;-gʉ;----------------------------------
	mov $_se,"WC006"
	mov $debugstr,"gFWC006 "
	gosub *se
;R

	pIꢕ߈ъƗIbC
	ꟃpoOIB\

	y$g_heroz
	ꝁH@ȔctڎːiHVtI
	q{ꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WA008"
	mov $debugstr,"gFWA008 "
	gosub *se
;wŒ܂킷iCj

	yHz
	TcI@zczvI
	q{cځctcݚaݚancI\

	狖SꑓM݉yVIꠁCHVt
	RnfIoqIB\
	;-gʉ;----------------------------------
	mov $_se,"WA006"
	mov $debugstr,"gFWA006 "
	gosub *se
;wŒ܂킷i߁j

	y$g_heroz
	ߍDCAˋꣁB
	s߁CҗvꢍđCDDnB\

	yHz
	ꟁcꟁccctc
	꣓IcIc}ctcB\

	y$g_heroz
	ˍꖗH\
	;-gʉ;----------------------------------
	mov $_se,"WC005"
	mov $debugstr,"gFWC005 "
	gosub *se
;ijo/ippj

	鼁I鼁I鼁IkI鼚aI
	HVt\I񋿒B\

	yHz
	qcI@_iInI
	q{I@DcDIcFIcI\
	;-gʉ;----------------------------------
	mov $_se,"WC006"
	mov $debugstr,"gFWC006 "
	gosub *se
;R

	ݚaIݚaCݚaCݚaTI
	HVtIˑRvL≺B\

	y$g_heroz
	AߛCzvꝁH\

	yHz
	Dz˓MMIR@ꟁcI@ݐH
	ꒊGIΚaΚanˏocI\
	;-gʉ;----------------------------------
	mov $_se,"WC004"
	mov $debugstr,"gFWC004 "
	gosub *se
;ijo/OŌi߁j

	y$g_heroz
	TcB
	߉Cv˗cGH\

	yHz
	ꟁIꟁIꟁIII
	䐸t_III\

	y$g_heroz
	IIIIIIIII\
	;-gʉ;----------------------------------
	mov $_se,"WE002"
	mov $debugstr,"gFWE002 "
	gosub *se
;hshsbI
	;-- CxgCG;----------------------------------
	mov $_cg,"WHITE"
	mov $debugstr,"bfFWHITE "
	mov	%effect,1	;GtFNgw
	gosub *cgout	;Cxgbf
	;-- CxgCG;----------------------------------
	mov $_cg,"C03C"
	mov $debugstr,"bfFC03C"
	gosub *cgout	;Cxgbf

	yHz
	ꟁcII\
	;-gʉ;----------------------------------
	mov $_se,"WM13"
	mov $debugstr,"gFWM13"
	gosub *se
;Ⴅ

	΁I@΁I@΁I
	ΚaI@ЁII@ΎII\

	yHz
	BꟁAꟁAꟁAcccꟁII\

	yHz
	vIvIvIҗvIҗvI
	җvXtIXIIꟁII\
	;-gʉ;----------------------------------
	mov $_se,"WM19"
	mov $debugstr,"gFWM19"
	gosub *se
;тԂ

	ΚaaaIIЁIII
	ΎjjjjjjjIII\

	ˏoItCntꢓIAǁB
	ݔ튴oItCHVtOꑟ˗B\
	return
	;----------------------------------
;---D04B END -----
;============================================
; D04C
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/03
;============================================
*D04C	; t@CJñx
	mov $debugstr,"D04C" : gosub *debugout
;uDOUBLEO`vFHɑ}łfnIFD04
;
;Hɑ}łfnI

	;--BGM;----------------------------------
	mov $_music,"14": gosub *out
;BGM:Love
;AXƂ

	y$g_heroz
	ߛCANƈNꠁB\

	yAXz
	^IꝁIH@ӎꣁC$g_heroI\

	y$g_heroz
	ߛCg㗈B
	xꠁB\

	yAXz
	TB\

	Nn׍ݗIgB\

	ꢓߊŎ_Iᔒg̏C
	UoNgI̍a樐lȔEA
	h~IB\
	;-gʉ;----------------------------------
	mov $_se,"WA001"
	mov $debugstr,"gFWA001 "
	gosub *se
;wōLiςcj
	;-- CxgCG;----------------------------------
	mov $_cg,"C04A"
	mov $debugstr,"bfFC04A"
	gosub *cgout	;Cxgbf
;AAŃKK

	ݚacB\

	NI
	ZߖuNKdI_[B\
	;-gʉ;----------------------------------
	mov $_se,"WC008"
	mov $debugstr,"gFWC008 "
	gosub *se
;P}

	ΓӁcII
	؏d́CNB\

	yAXz
	TTcII\
	;-gʉ;----------------------------------
	mov $_se,"WM10"
	mov $debugstr,"gFWM10"
	gosub *se
;ʂʂ

	ߕێMdԓIAs
	툤NۓB\
;܂l[

	yAXz
	cjcB\

	N[IbB\

	y$g_heroz
	DꇊQccIsۉcB\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	Nn
	JnRꢓߑ@דIB\

	yAXz
	ꟁcꟁcTccDꟁcB
	pΔMI{{cݗʍddncB\

	WAWnCꢓꑙI[
	I쎧hWB\

	y$g_heroz
	NC슽I_ꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WM09"
	mov $debugstr,"gFWM09"
	gosub *se
;CQ

	\œNIA
	F֓IsۗiB\

	yAXz
	ꟁcTcTcI@슽cB
	ׁcDcށcB\

	N㉺RC
	I_sSVIBB\

	FIAMࡒC
	nܒI~]B\
	;-gʉ;----------------------------------
	mov $_se,"WM03A"
	mov $debugstr,"gFWM03A "
	gosub *se
;ڍO`bIYkbIk`I

	y$g_heroz
	@ʑzΚoΚon흇C
	ߏAZsI_sꠁH\

	粌NIAڐLoC
	粊Jm⓹Bp͝sZ[ϓgIʎB\

	yAXz
	ށccTccIꟁccsccsvvcc
	@ʕs$g_heroI_ccAsvccB\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	N嫑RݍEhC
	AחqCꢊҐ
	ΓIgFΎnݗIB\

	y$g_heroz
	׏YH\

	pwIwbCeꉺꢓIԐcB
	wIC
	NIg̋pVsZnTB\

	yAXz
	ׁc슽cŊ슽vcB
	׈N슽$g_herocB\
	;-gʉ;----------------------------------
	mov $_se,"WM10"
	mov $debugstr,"gFWM10"
	gosub *se
;ʂʂ

	y$g_heroz
	׊슽CȍˑzvI_ꝁH\

	NIoŗvZʓIC
	KIΗeB\

	yAXz
	TcTcBƓsIGB
	א슽IlI{{CȍˊJScB\

	ꢉIoOoI
	bC樉ӊs߁B\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	y$g_heroz
	^IꝁcBNŋNk슽
	IocȗpߋVޓIsꠁH\

	yAXz
	˕sꡁcsIcB
	Nczv$g_heroIvcII\

	y$g_heroz
	ߏAcؖŁB\

	yAXz
	ꟁcTcꟁcߘc
	cYށcH\
	;-gʉ;----------------------------------
	mov $_se,"WM14"
	mov $debugstr,"gFWM14"
	gosub *se
;傮

	y$g_heroz
	v݉˔VOCEZsˏAsB
	鑍\ꠁH\

	yAXz
	TccjccBEϓIccB
	$g_heroctˋ׎~ccNs꒼EϓIccB\

	y$g_heroz
	CcItCNI
	ːiÍB\
	;-gʉ;----------------------------------
	mov $_se,"WM13"
	mov $debugstr,"gFWM13"
	gosub *se
;Ⴅ

	yAXz
	ꟁcTcTcTc
	NFFIcˍDDcB\

	y$g_heroz
	슽ItꝁH\

	yAXz
	Tc슽cŊ슽cB樏
	h슽Cp{bh슽cB\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	y$g_heroz
	׏YH@o
	vL䔇XHXIꠁH\

	yAXz
	˕sꡁB$g_heroIckDGH
	NcŊ슽cB\
	;-gʉ;----------------------------------
	mov $_se,"WM03A"
	mov $debugstr,"gFWM03A "
	gosub *se
;ڍO`bIYkbIk`I

	y$g_heroz
	߁C䖈VsˋꣁB
	ˍDDꣁB\

	yAXz
	TcTTcDJScDJSށcB
	FFI`cDDJScB\
	;-gʉ;----------------------------------
	mov $_se,"WM10"
	mov $debugstr,"gFWM10"
	gosub *se
;ʂʂ

	y$g_heroz
	ߞIbC꣏AȒꑮI
	ĘIlꡁB󖞗tĘIIߎB\

	yAXz
	ꟙccTccNcc
	$g_heroIcctĘIlccꝁccH\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	y$g_heroz
	꣜k슽IĘIꠁH\

	yAXz
	TcI@TI
	樉䊅I@樏DDI\
	;-gʉ;----------------------------------
	mov $_se,"WM10"
	mov $debugstr,"gFWM10"
	gosub *se
;ʂʂ

	y$g_heroz
	ߌoCssꝁH
	zꝁH\

	yAXz
	ׁcߗcFFIn
	ߌocCcꟁcII\

	y$g_heroz
	ssB\
	;-gʉ;----------------------------------
	mov $_se,"WM23"
	mov $debugstr,"gFWM23"
	gosub *se
;イFwŐG

	pw
	ًْnsZNIAځB\

	yAXz
	BꟁII\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	y$g_heroz
	ssGCҕs\IB
	Җv꣍GH\

	yAXz
	ꟁIށIssIssI
	ߗCLoIILoIII\
	;-gʉ;----------------------------------
	mov $_se,"WA001"
	mov $debugstr,"gFWA001 "
	gosub *se
;wōLiςcj

	y$g_heroz
	AڜkꝁH
	sٖ瘮ꝁH\

	yAXz
	ꟁcꟁI@D_ID_I
	ߘMIAځIđ_II\
	;-gʉ;----------------------------------
	mov $_se,"WA006"
	mov $debugstr,"gFWA006 "
	gosub *se
;wŒ܂킷i߁j

	y$g_heroz
	N^ꟁBRC
	痐CҗB\

	yAXz
	ꟁcjIׁIׁIׁI
	zcNczꟁcB\
	;-gʉ;----------------------------------
	mov $_se,"WC002"
	mov $debugstr,"gFWC002 "
	gosub *se
;ijOoiƊۂj

	y$g_heroz
	^IzꝁH
	z˖tR@ꝁH\
	;-gʉ;----------------------------------
	mov $_se,"WC007"
	mov $debugstr,"gFWC007 "
	gosub *se
;ʂʂo

	yAXz
	TI@TI@TI
	꣗I꣗I@_ˏoꠁII\
	;-gʉ;----------------------------------
	mov $_se,"WC004"
	mov $debugstr,"gFWC004 "
	gosub *se
;ijo/OŌi߁j

	y$g_heroz
	^\꣖vꔖ@ꟁBߛCv˗GH\
	;-gʉ;----------------------------------
	mov $_se,"WD003"
	mov $debugstr,"gFWD003 "
	gosub *se
;hsbhshsb
	;-- CxgCG;----------------------------------
	mov $_cg,"WHITE"
	mov $debugstr,"bfFWHITE "
	mov	%effect,1	;GtFNgw
	gosub *cgout	;Cxgbf
	;-- CxgCG;----------------------------------
	mov $_cg,"C04B"
	mov $debugstr,"bfFC04B"
	gosub *cgout	;Cxgbf

	ΎIIIIIIII
	݁I݁IEEEIII\

	yAXz
	ꟁcꟁIII\
	;-gʉ;----------------------------------
	mov $_se,"WM04"
	mov $debugstr,"gFWM04"
	gosub *se
;˃rbIrrubI

	y$g_heroz
	ҍ݁cҍݎˁcII\
	;-gʉ;----------------------------------
	mov $_se,"WM07"
	mov $debugstr,"gFWM07"
	gosub *se
;tٓ炱ڂo

	yAXz
	ꟁccI@D_I@vII
	NCssI@vꟁIII\
	return
	;----------------------------------
;---D04C END -----
;============================================
; D01
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/07
;============================================
*D01	; t@CJñx
	mov $debugstr,"D01 " : gosub *debugout
;uDOUBLEO`vFՁFD01
;
;
;Ȃ񂩂邮QۂJWŉʓ]

	;--BGM;----------------------------------
	mov $_music,"16": gosub *out
;BGM:Memory
	gosub *blackout
;Olłdfn

	䊴oȓIrC
	iMIDʁB\
	;-gʉ;----------------------------------
	mov $_se,"WM16"
	mov $debugstr,"gFWM16"
	gosub *se
;[キ[[

	y$g_heroz
	ꟁcqcB\

	rIDԁC`IGB
	`ꠚccꠚccIB\

	y$g_heroz
	iccHj\

	ȑOssmBeגn
	rDCIꌏB
	䊴LIΕB\

	y$g_heroz
	icHj\

	@oNsΙCyJˁB\
;Ȃ񂩂邮QۂJWŉʓ]
	;-- CxgCG;----------------------------------
	mov $_cg,"C01A"
	mov $debugstr,"bfFC01A"
	gosub *cgout	;Cxgbf

	y$g_heroz
	VcH\

	NACҗLHVtB\

	y$g_heroz
	iׁA׏Ycj\

	OlsԐǵB
	ꢘᔒȈA\I݋󟃒B\

	Csm׉CꢘsՒB\

	y$g_heroz
	׏YcH\

	ÍC䔯oILB
	ҁC׉䑾ْꝁH\

	ߓRCmْccْIꟁI\

	yAXz
	$g_heroccB\

	NߐO`DIoOC
	Ď܏ZIErB\
	;-gʉ;----------------------------------
	mov $_se,"WD002"
	mov $debugstr,"gFWD002 "
	gosub *se
;Nj

	yAXz
	TccaccB\

	ꢏA݌C
	ss싿nrIrB\

	y$g_heroz
	ށCZꟁCNI
	ߞskꝁI\

	NV^َגn`R΁B\

	yAXz
	˕sꡁBא$g_herovB
	CkꠁH@TcI\

	N粔ogZI@C
	粍גvnp{IrB\
	;-gʉ;----------------------------------
	mov $_se,"WM10"
	mov $debugstr,"gFWM10"
	gosub *se
;ʂʂ

	y$g_heroz
	TcꟁcI@\

	yAXz
	ꝁC$g_heroH\

	VIGC^C
	s@ꏉg^_C
	樉䊴oȕŗvAOZB\

	oDsB\

	y$g_heroz
	VcVtcI@HVtcI\

	yHz
	H\

	y$g_heroz
	j~NꟁI
	鑾ꠁH\

	yHz
	sYIC
	sُsꝁB\

	yHz
	o􎢔svB
	TB\

	ӎ^B\

	y$g_heroz
	BRsՒB
	IbCȒAcc\

	yz
	oȒAzꝁH
	ҐCIꡁB\

	y$g_heroz
	IAII@IH\

	yAXz
	ΚGC$g_hero
	NꢘIlvB\

	y$g_heroz
	A펖I\

	ߌoYsMsB
	䐥lH@\

	yHz
	SꠁClB
	׉D`Dn꣓IGB\

	H@YRߗؗIF
	ҐF^ї˗LIݒꟁccs΁I\

	y$g_heroz
	BB
	|ً^␥[s`IB\

	y$g_heroz
	ꟁcB
	VaꟁcB\

	y$g_heroz
	ΗCRCߕsǘY
	sُꠁBTCTB\

	䎩ڎn__Cڎn𗹁B\

	ccb񗈁CȊO
	zsoʓI@ߔvI\

	yz
	VCvg̗kC
	ˏokCcUIGB\

	y$g_heroz
	ꟁC䓞YꔍˍDI\
;----------------------------------
*hintD01
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintD014off
	csel
	"", *D0110,
	"ZbNX", *D0110,
	"܂킢", *D0110,
	"qg", *D0140
*hintD014off	;qgOFF̂Ƃ
	csel
	"", *D0110,
	"ZbNX", *D0110,
	"܂킢", *D0110
;----------------------------------
*D0110
;Ƃ
	mov %go_h,ALICE
	goto *nextD01	;nextD01ֈړ
;----------------------------------
*D0140
;qg

	٘_IꖘsIcB\
	goto *hintD01	;hintD01ֈړ
;llƂĂ
;----------------------------------
*nextD01
	return
	;----------------------------------
;---D01  END -----
;============================================
; D05
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/07
;============================================
*D05	; t@CJñx
	mov $debugstr,"D05 " : gosub *debugout
;uDOUBLEO`vFdFD05
;
;d
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:The Usual Thing
	;--wi;----------------------------------
	mov $_bg,"BG015A"
	mov $debugstr,"afFBG015A"
	gosub *bg	;ʂɏo
;;n̉Ɓi{n̕j
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	cckדꟁB\
	;--L;----------------------------------
	mov $_char,"TP1J"
	mov $debugstr,"FTP1J"
	gosub *char  ;ʂɏo

	yŉzz
	ꟙB]]B\
	;--L;----------------------------------
	mov $_char,"TF1B"
	mov $debugstr,"FTF1B"
	gosub *char  ;ʂɏo

	ŷ݁z
	`ꠁ`\
	;--L;----------------------------------
	mov $_char,"TQ1A"
	mov $debugstr,"FTQ1A"
	gosub *char  ;ʂɏo

	y㓡z
	]B\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	꣈Ȉד]AꝁH\
	;--L;----------------------------------
	mov $_char,"TP1J"
	mov $debugstr,"FTP1J"
	gosub *char  ;ʂɏo

	yŉzz
	GGCDB\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	ꟁC䐥^IGB
	p{ߕsꉓIꝁH\
	;--L;----------------------------------
	mov $_char,"TO1C"
	mov $debugstr,"FTO1C"
	gosub *char  ;ʂɏo

	yz
	ꉉꉁBȒA`ꠁB\
	;--L;----------------------------------
	mov $_char,"TQ1C"
	mov $debugstr,"FTQ1C"
	gosub *char  ;ʂɏo

	y㓡z
	琥ccvzCRYߎʁcc
	ciʏ`Cwωcc\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	C꣘׏Yv$g_hero
	IߎH\
	;--L;----------------------------------
	mov $_char,"TP1A"
	mov $debugstr,"FTP1A"
	gosub *char  ;ʂɏo

	yŉzz
	יߐߐ\ϐiI
	AoYkLꠁB\
	;--L;----------------------------------
	mov $_char,"TF1B"
	mov $debugstr,"FTF1B"
	gosub *char  ;ʂɏo

	ŷ݁z
	ꟁB\
	;--L;----------------------------------
	mov $_char,"TO1B"
	mov $debugstr,"FTO1B"
	gosub *char  ;ʂɏo

	yz
	TB\
	;--L;----------------------------------
	mov $_char,"TQ1D"
	mov $debugstr,"FTQ1D"
	gosub *char  ;ʂɏo

	y㓡z
	sߞIBߖ򐥈חmC
	spϐiIB\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	ccVޓIC
	sYϕʐlIꠁB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	sIccB䐥^Sח꣒풅zˁI\
	;--L;----------------------------------
	mov $_char,"TA2J"
	mov $debugstr,"FTA2J"
	gosub *char  ;ʂɏo

	y$g_heroz
	ccߛCʊYꔁH\
	;-- CxgCG;----------------------------------
	mov $_cg,"C01A"
	mov $debugstr,"bfFC01A"
	gosub *cgout	;Cxgbf

	yAXz
	$g_hero`BVvaNNߚGB\

	yz
	sȓƐGCNB\

	yHz
	ꟑꟁBvDDn樑ƈN
	pˍsB\
	;--wi;----------------------------------
	mov $_bg,"BG018A"
	mov $debugstr,"afFBG018A"
	gosub *bg	;ʂɏo
;;n̕iQj
	;--L;----------------------------------
	mov $_char,"TA2D"
	mov $debugstr,"FTA2D"
	gosub *char  ;ʂɏo

	y$g_heroz
	Icc
	I`aݔvL֌nꝁH\
	;--L;----------------------------------
	mov $_char,"TQ1F"
	mov $debugstr,"FTQ1F"
	gosub *char  ;ʂɏo

	y㓡z
	ߐ^IA䗹BI
	efabຓIcc\
	;--L;----------------------------------
	mov $_char,"TF1H"
	mov $debugstr,"FTF1H"
	gosub *char  ;ʂɏo

	ŷ݁z
	aʏ`݈NssDꟁH\
	;--L;----------------------------------
	mov $_char,"TO1K"
	mov $debugstr,"FTO1K"
	gosub *char  ;ʂɏo

	yz
	ߑʓIN
	`ꟁcc\
	;--L;----------------------------------
	mov $_char,"TQ1A"
	mov $debugstr,"FTQ1A"
	gosub *char  ;ʂɏo

	y㓡z
	AC@ʔ^I$g_heroIÖ]
	eEIbcc\
	;--L;----------------------------------
	mov $_char,"TQ1B"
	mov $debugstr,"FTQ1B"
	gosub *char  ;ʂɏo

	y㓡z
	ȒȉϐEId唯ꟁI
	ӔOR\ډeI\
	;--L;----------------------------------
	mov $_char,"TA2H"
	mov $debugstr,"FTA2H"
	gosub *char  ;ʂɏo

	y$g_heroz
	G```B꣓Iӎv]q
	Az펖ꝁH\
	;--L;----------------------------------
	mov $_char,"TQ1F"
	mov $debugstr,"FTQ1F"
	gosub *char  ;ʂɏo

	y㓡z
	sBIӎvCꋑzőIC
	sA펖ꡁcc\
	;--L;----------------------------------
	mov $_char,"TA2D"
	mov $debugstr,"FTA2D"
	gosub *char  ;ʂɏo

	y$g_heroz
	ߎZYꟁI
	˕sߎF_ꟁII\
	;--L;----------------------------------
	mov $_char,"TP1A"
	mov $debugstr,"FTP1A"
	gosub *char  ;ʂɏo

	yŉzz
	Œyꟁcc\
	;--L;----------------------------------
	mov $_char,"TF1A"
	mov $debugstr,"FTF1A"
	gosub *char  ;ʂɏo

	ŷ݁z
	TB\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	ށCv֌nꊁBm营IC
	߈wqAIC$g_heroB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	ꣁAꣁA꣌ӐYI
	IʗLXXDXXXXIϐI\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	vߞADcc\
	;--L;----------------------------------
	mov $_char,"TP1B"
	mov $debugstr,"FTP1B"
	gosub *char  ;ʂɏo

	yŉzz
	s߁C@{
	ZjlIQꠁB\
	;--L;----------------------------------
	mov $_char,"TG1B"
	mov $debugstr,"FTG1B"
	gosub *char  ;ʂɏo

	yTz
	GށCꝁH\
	;--L;----------------------------------
	mov $_char,"TH1A"
	mov $debugstr,"FTH1A"
	gosub *char  ;ʂɏo

	yNAz
	GCꝁB\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	IH@ׁA׏Y䳝faQݔI\
	;--L;----------------------------------
	mov $_char,"TH1D"
	mov $debugstr,"FTH1D"
	gosub *char  ;ʂɏo

	yNAz
	\Δُ펖ԒuVsB꣔ƚ
	bvH֋NCDSyꠁB\
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	HAHցIH\
	;--L;----------------------------------
	mov $_char,"TH1A"
	mov $debugstr,"FTH1A"
	gosub *char  ;ʂɏo

	yNAz
	vl瑢eC߉AϗB
	K^ICݍDLRlcc\
	;--L;----------------------------------
	mov $_char,"TG1A"
	mov $debugstr,"FTG1A"
	gosub *char  ;ʂɏo

	yTz
	ꟁB
	ݖrVOC꣘SlADDꠁB\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	IH\
	;--L;----------------------------------
	mov $_char,"TH1D"
	mov $debugstr,"FTH1D"
	gosub *char  ;ʂɏo

	yNAz
	sA꣏]IEꝁH\
	;--L;----------------------------------
	mov $_char,"TA2J"
	mov $debugstr,"FTA2J"
	gosub *char  ;ʂɏo

	y$g_heroz
	AI@ߕI\
	;--L;----------------------------------
	mov $_char,"TA2H"
	mov $debugstr,"FTA2H"
	gosub *char  ;ʂɏo

	y$g_heroz
	jlAsz߈ꎟJ@{C
	R@ys譚{펖ꠁI\
	;--L;----------------------------------
	mov $_char,"TA2D"
	mov $debugstr,"FTA2D"
	gosub *char  ;ʂɏo

	y$g_heroz
	msz߁II\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	vLGB\
	;--L;----------------------------------
	mov $_char,"TA2D"
	mov $debugstr,"FTA2D"
	gosub *char  ;ʂɏo

	y$g_heroz
	yslޓIfII\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	cc\
	;--L;----------------------------------
	mov $_char,"TA2H"
	mov $debugstr,"FTA2H"
	gosub *char  ;ʂɏo

	y$g_heroz
	R琥C琥C琥cc\
	;--L;----------------------------------
	mov $_char,"TQ1A"
	mov $debugstr,"FTQ1A"
	gosub *char  ;ʂɏo

	y㓡z
	vLGB\
	;--L;----------------------------------
	mov $_char,"TA2D"
	mov $debugstr,"FTA2D"
	gosub *char  ;ʂɏo

	y$g_heroz
	񑼁CsjlIfI\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	YAYI@גjI\
	POO^II\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	ɁH@꣘aNߗꝁH\
	;--L;----------------------------------
	mov $_char,"TQ1F"
	mov $debugstr,"FTQ1F"
	gosub *char  ;ʂɏo

	y㓡z
	߁AߘCvccg̊\AZ꘢l
	\mFICҗLwmcc\
	;--L;----------------------------------
	mov $_char,"TA2H"
	mov $debugstr,"FTA2H"
	gosub *char  ;ʂɏo

	y$g_heroz
	꣔ƚCҐj\\II\
	;--L;----------------------------------
	mov $_char,"TP1B"
	mov $debugstr,"FTP1B"
	gosub *char  ;ʂɏo

	yŉzz
	ꟙB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	ׁA׏Yv΁I@osȗqזړII
	BsזvLӋ`Cȍ˖v􎧛߁I\
	;--L;----------------------------------
	mov $_char,"TF1B"
	mov $debugstr,"FTF1B"
	gosub *char  ;ʂɏo

	ŷ݁z
	vsv䋋꣉ИwqH\
	;--L;----------------------------------
	mov $_char,"TQ1F"
	mov $debugstr,"FTQ1F"
	gosub *char  ;ʂɏo

	y㓡z
	sKI\
	;-- CxgCG;----------------------------------
	mov $_cg,"C01A"
	mov $debugstr,"bfFC01A"
	gosub *cgout	;Cxgbf

	yz
	C֓IbA׎~ꠁC
	_ꠁC$g_heroB\

	yAXz
	AAB
	樉䏦I$g_heroꠁB\

	yHz
	ƓIʘC
	oL_Qꡁcc\

	y$g_heroz
	ꟁC^II
	䜃ꔍˍDꟁIII\

	ynz
	ށCAߗIa߁CDvB\

	y$g_heroz
	ꟁII\
	gosub *blackout
	return
	;----------------------------------
;---D05  END -----
;============================================
; D06
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/07
;============================================
*D06	; t@CJñx
	mov $debugstr,"D06 " : gosub *debugout
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo

	^ICACEEIH\

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
	;--wi;----------------------------------
	mov $_bg,"BG034A"
	mov $debugstr,"afFBG034A"
	gosub *bg	;ʂɏo
;BGM:Town
	;-ʉ;----------------------------------
	mov $_se,"ZROPEN"
	mov $debugstr,"rdFZROPEN"
	gosub *se
	;--L;----------------------------------
	mov $_char,"TMA"
	mov $debugstr,"FTMA "
	gosub *char  ;ʂɏo

	yz
	׏YvLIYꟁB\
	;--L;----------------------------------
	mov $_char,"TLC"
	mov $debugstr,"FTLC "
	gosub *char  ;ʂɏo

	yRz
	琥B\
	;--L;----------------------------------
	mov $_char,"TNB"
	mov $debugstr,"FTNB "
	gosub *char  ;ʂɏo

	yz
	꣘염Cz
	giꝁH\
	;--L;----------------------------------
	mov $_char,"TMC"
	mov $debugstr,"FTMC "
	gosub *char  ;ʂɏo

	yz
	ccsCߘӎvB\
	;--L;----------------------------------
	mov $_char,"TNA"
	mov $debugstr,"FTNA "
	gosub *char  ;ʂɏo

	yz
	ccGB\
	;--L;----------------------------------
	mov $_char,"TME"
	mov $debugstr,"FTME "
	gosub *char  ;ʂɏo

	yz
	ꣁA꣓ߐYꟃꟁB\
	;--L;----------------------------------
	mov $_char,"TNB"
	mov $debugstr,"FTNB "
	gosub *char  ;ʂɏo

	yz
	sCvYB\
	;--L;----------------------------------
	mov $_char,"TLC"
	mov $debugstr,"FTLC "
	gosub *char  ;ʂɏo

	yRz
	b񗈁CskꝁH
	~YL$g_hero꘢lIݓߑoI\
	;--L;----------------------------------
	mov $_char,"TNA"
	mov $debugstr,"FTNA "
	gosub *char  ;ʂɏo

	yz
	|ُB
	׉䔇lsoB\
	;--L;----------------------------------
	mov $_char,"TMC"
	mov $debugstr,"FTMC "
	gosub *char  ;ʂɏo

	yz
	ccߘb^IꝁB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	yRz
	baߋRLQjlI
	꣘so⛋ꝁIH\
	;--L;----------------------------------
	mov $_char,"TNA"
	mov $debugstr,"FTNA "
	gosub *char  ;ʂɏo

	yz
	sC|ksB\
	;--L;----------------------------------
	mov $_char,"TMC"
	mov $debugstr,"FTMC "
	gosub *char  ;ʂɏo

	yz
	꣊Ґ^CesꟁB\
	;--L;----------------------------------
	mov $_char,"TNB"
	mov $debugstr,"FTNB "
	gosub *char  ;ʂɏo

	yz
	䓙Avo嗹B\
	;--L;----------------------------------
	mov $_char,"TLE"
	mov $debugstr,"FTLE "
	gosub *char  ;ʂɏo

	yRz
	aAaNIH
	꣏Y𗹏FccIH\
	;--L;----------------------------------
	mov $_char,"TNB"
	mov $debugstr,"FTNB "
	gosub *char  ;ʂɏo

	yz
	ꟙCsꊁB
	VsaFccB\
	;-ʉ;----------------------------------
	mov $_se,"ZROPEN"
	mov $debugstr,"rdFZROPEN"
	gosub *se
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yibL[z
	]ؗ`I
	x`II\
	;--L;----------------------------------
	mov $_char,"TLE"
	mov $debugstr,"FTLE "
	gosub *char  ;ʂɏo

	yRz
	ꟁI@II\
	;--L;----------------------------------
	mov $_char,"TIB"
	mov $debugstr,"FTIB "
	gosub *char  ;ʂɏo

	yibL[z
	ICvB
	䐥h`\
	;--L;----------------------------------
	mov $_char,"TNA"
	mov $debugstr,"FTNA "
	gosub *char  ;ʂɏo

	yz
	嫑Rꢕs䏗FC
	AvalB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yibL[z
	VCvꖗށ`H\
	;--L;----------------------------------
	mov $_char,"TNA"
	mov $debugstr,"FTNA "
	gosub *char  ;ʂɏo

	yz
	ŋߜkLlIZ{ꠁB
	h@؉ꝁB\
	;--L;----------------------------------
	mov $_char,"TIB"
	mov $debugstr,"FTIB "
	gosub *char  ;ʂɏo

	yibL[z
	Dҙށ`II\
	;--L;----------------------------------
	mov $_char,"TNB"
	mov $debugstr,"FTNB "
	gosub *char  ;ʂɏo

	yz
	ߛC摖B
	IԁCA꣘염ʍDDꠁB\
	;--L;----------------------------------
	mov $_char,"TIB"
	mov $debugstr,"FTIB "
	gosub *char  ;ʂɏo

	yibL[z
	Čꊁ`I\
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZROPEN"
	mov $debugstr,"rdFZROPEN"
	gosub *se

	;--BGM;----------------------------------
	mov $_music,"24": gosub *out
;BGM:Jingle Bells
	;--L;----------------------------------
	mov $_char,"TMC"
	mov $debugstr,"FTMC "
	gosub *char  ;ʂɏo

	yz
	ccʏAa꣗ꝁccB\
	;--L;----------------------------------
	mov $_char,"TLH"
	mov $debugstr,"FTLH "
	gosub *char  ;ʂɏo

	yRz
	׏YCvaƚccB\
	;--L;----------------------------------
	mov $_char,"TMH"
	mov $debugstr,"FTMH "
	gosub *char  ;ʂɏo

	yz
	bC˗vsnҋꣁB
	ccB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	yRz
	ꟁ`I^II@
	ώI꣔TII\
	;--L;----------------------------------
	mov $_char,"TMD"
	mov $debugstr,"FTMD "
	gosub *char  ;ʂɏo

	yz
	DI
	s꣕JI\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	yRz
	ꟁC^IIAZs\FFIُII
	樘VqЕꉺꟁIIII\
	;--wi;----------------------------------
	mov $_bg,"XMAS"
	mov $debugstr,"afFXMAS"
	mov %effect,31	;GtFNgw
	gosub *bg	;ʂɏo

	ꗈCA^I
	EEII\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	y܂ڂz
	֔gI֔gII\
	return
	;----------------------------------
;---D06  END -----
;============================================
; D00
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*D00	; t@CJñx
	mov $debugstr,"D00 " : gosub *debugout
;uDOUBLEO`vFDOUBLEO`FD00
;
;DOUBLEO`
;^CgF
	gosub *musicstop
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"24": gosub *out
;BGM:Jingle Bells
	;--wi;----------------------------------
	mov $_bg,"XMAS"
	mov $debugstr,"afFXMAS"
	mov %effect,31	;GtFNgw
	gosub *bg	;ʂɏo

	sm׉CVa߁B\
	;--wi;----------------------------------
	mov $_bg,"BG066D"
	mov $debugstr,"afFBG066D"
	gosub *bg	;ʂɏo
;;؍XÁiVssSij

	Ƙarn݈NB\

	A꘢̎B\
	;--wi;----------------------------------
	mov $_bg,"BG015A"
	mov $debugstr,"afFBG015A"
	gosub *bg	;ʂɏo
;;n̉Ɓi{n̕j
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	VAa߁cB
	LvJhΗcB\
	;--L;----------------------------------
	mov $_char,"TA2B"
	mov $debugstr,"FTA2B"
	gosub *char  ;ʂɏo

	y$g_heroz
	smYqIꡁcB\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	HߌoJnꝁH
	ꟁC]]B\
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	$g_fname@$g_herołB
	䐥cntakdIpB\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	spꝁH\
	;--L;----------------------------------
	mov $_char,"TA2H"
	mov $debugstr,"FTA2H"
	gosub *char  ;ʂɏo

	y$g_heroz
	y꣈粑ҒB\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	׏YH\
	;--L;----------------------------------
	mov $_char,"TA2J"
	mov $debugstr,"FTA2J"
	gosub *char  ;ʂɏo

	y$g_heroz
	lƐjlkVꊁB\
	;--L;----------------------------------
	mov $_char,"TB10A"
	mov $debugstr,"FTB10A "
	gosub *char  ;ʂɏo

	ynz
	ߕcB\
	gosub *clear_char	;--Li^񒆁j
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	DCB
	{ꖙXB\
	;--L;----------------------------------
	mov $_char,"TG3A"
	mov $debugstr,"FTG3A"
	gosub *char  ;ʂɏo

	yHHz
	\\B\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	ӎӁcbC˓ߐlNꟁH
	vCZB\
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	ŊŁCu̎֘cntakdI
	NAaHIcv\
	;--L;----------------------------------
	mov $_char,"TA2I"
	mov $debugstr,"FTA2I"
	gosub *char  ;ʂɏo

	y$g_heroz
	uVAIFF̎v\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	ccC퓌^IDꝁH\
;----------------------------------
*hintD00
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintD001off
	csel
	"vCĂ݂", *D0010,
	"߂Ƃ", *D0020,
	"qg", *D0030
*hintD001off	;qgOFF̂Ƃ
	csel
	"vCĂ݂", *D0010,
	"߂Ƃ", *D0020
;----------------------------------
*D0010
;vCĂ݂
	;--L;----------------------------------
	mov $_char,"TB11A"
	mov $debugstr,"FTB11A "
	gosub *char  ;ʂɏo

	ynz
	ƓIlҐ^ꡁB\
	;--L;----------------------------------
	mov $_char,"TA2D"
	mov $debugstr,"FTA2D"
	gosub *char  ;ʂɏo

	y$g_heroz
	sߎbI\
	mov %go_h,1
	goto *nextD00	;nextD00ֈړ
;----------------------------------
*D0020
;߂Ƃ
	;--L;----------------------------------
	mov $_char,"TQ1J"
	mov $debugstr,"FTQ1J"
	gosub *char  ;ʂɏo

	y㓡z
	ߛCݕԉWʁB\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	I@svˑR`oꟁI\
	;--L;----------------------------------
	mov $_char,"TP0B"
	mov $debugstr,"FTP0B"
	gosub *char  ;ʂɏo

	yŉzz
	ČCČCČB\
	gosub *blackout
	mov %go_h,0
	return
;----------------------------------
*D0030
;qg

	uJn߁v
	ԊOёJnB\

	uҐZv
	ԉWʁB\
	goto *hintD00	;hintD00ֈړ
;------------
;----------------------------------
*nextD00
;Ղ̏
	gosub *musicstop
	gosub *blackout
	;-ʉ;----------------------------------
	mov $_se,"ZDOORC"
	mov $debugstr,"rdFZDOORC"
	gosub *se

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
	;--wi;----------------------------------
	mov $_bg,"BG018A"
	mov $debugstr,"afFBG018A"
	gosub *bg	;ʂɏo
;;n̕iQj
	;--L;----------------------------------
	mov $_char,"TQ1A"
	mov $debugstr,"FTQ1A"
	gosub *char  ;ʂɏo

	y㓡z
	嫑RL_ˑRCs꣍DB\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	ꟁI@I
	꣘ꖙX`oIH\
	;--L;----------------------------------
	mov $_char,"TQ1D"
	mov $debugstr,"FTQ1D"
	gosub *char  ;ʂɏo

	y㓡z
	ȉsOŉߏėꝁC
	u嫑RL_ˑRvꟁB\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	ccȁCLYꝁH\
	;--L;----------------------------------
	mov $_char,"TQ1C"
	mov $debugstr,"FTQ1C"
	gosub *char  ;ʂɏo

	y㓡z
	svpߛuI_ŉꟁB\
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	b꣚{oCҐ^lbꡁB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	꣐YI
	꣍ŋߐszzyH\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	Ɠs쐫isꟁcB\
	;--L;----------------------------------
	mov $_char,"TQ1D"
	mov $debugstr,"FTQ1D"
	gosub *char  ;ʂɏo

	y㓡z
	sCʑRҐ꣘ҍ݈NC
	v꣍דƗ̓IgꏔFݓhI\
	;--L;----------------------------------
	mov $_char,"TA2I"
	mov $debugstr,"FTA2I"
	gosub *char  ;ʂɏo

	y$g_heroz
	ʐߛmꟁB\
	;--L;----------------------------------
	mov $_char,"TQ1B"
	mov $debugstr,"FTQ1B"
	gosub *char  ;ʂɏo

	y㓡z
	s߁CҐꋕSB
	Va߁B\
	;--L;----------------------------------
	mov $_char,"TA2J"
	mov $debugstr,"FTA2J"
	gosub *char  ;ʂɏo

	y$g_heroz
	LYӋ`ꝁH\
	;--L;----------------------------------
	mov $_char,"TQ1B"
	mov $debugstr,"FTQ1B"
	gosub *char  ;ʂɏo

	y㓡z
	aߏAvL畨I
	CŔrB\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	˕sB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	I@꣗vmԗS
	˘orC꣈ccI\
	;--L;----------------------------------
	mov $_char,"TA2I"
	mov $debugstr,"FTA2I"
	gosub *char  ;ʂɏo

	y$g_heroz
	s߁B\
	;--L;----------------------------------
	mov $_char,"TQ1D"
	mov $debugstr,"FTQ1D"
	gosub *char  ;ʂɏo

	y㓡z
	ꣁA꣓vL
	בlzISꝁccB\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	L|LCAݐݕBƒB
	sߛdlIꟁB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	sΐgُ̑II@痹I\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	꣎ȊsADB\
	;--L;----------------------------------
	mov $_char,"TQ1J"
	mov $debugstr,"FTQ1J"
	gosub *char  ;ʂɏo

	y㓡z
	ׁCVȈ׉IaȁC
	ߌomXXDXXXXXB\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	ߙIODOOOOPꡁH\
	;--L;----------------------------------
	mov $_char,"TQ1C"
	mov $debugstr,"FTQ1C"
	gosub *char  ;ʂɏo

	y㓡z
	CsLOIB
	Ζ}lC{As݊ꎌB\
	;--L;----------------------------------
	mov $_char,"TA2B"
	mov $debugstr,"FTA2B"
	gosub *char  ;ʂɏo

	y$g_heroz
	TB߁C䍷sYB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	ꟁCꉺI\
	;-ʉ;----------------------------------
	mov $_se,"ZBATAN"
	mov $debugstr,"rdFZBATAN"
	gosub *se
	;--L;----------------------------------
	mov $_char,"TP1B"
	mov $debugstr,"FTP1B"
	gosub *char  ;ʂɏo

	yŉzz
	``II\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	ɁC꣜H\
	;--L;----------------------------------
	mov $_char,"TP1C"
	mov $debugstr,"FTP1C"
	gosub *char  ;ʂɏo

	yŉzz
	꣔bIC
	svݔJhꝁH\
	;--L;----------------------------------
	mov $_char,"TA2I"
	mov $debugstr,"FTA2I"
	gosub *char  ;ʂɏo

	y$g_heroz
	h΁H\
	;--L;----------------------------------
	mov $_char,"TP1E"
	mov $debugstr,"FTP1E"
	gosub *char  ;ʂɏo

	yŉzz
	VaꠁH\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	bvꊁccB\
	;--L;----------------------------------
	mov $_char,"TP1B"
	mov $debugstr,"FTP1B"
	gosub *char  ;ʂɏo

	yŉzz
	vꌏkꇊQIC
	ȉ˖ҒnꟁB\
	;--L;----------------------------------
	mov $_char,"TQ1D"
	mov $debugstr,"FTQ1D"
	gosub *char  ;ʂɏo

	y㓡z
	vBIKאE
	fJVIccB\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	sfJsB\
	;--L;----------------------------------
	mov $_char,"TQ1D"
	mov $debugstr,"FTQ1D"
	gosub *char  ;ʂɏo

	y㓡z
	꣘AssCꉁI\
	;--L;----------------------------------
	mov $_char,"TQ1A"
	mov $debugstr,"FTQ1A"
	gosub *char  ;ʂɏo

	y㓡z
	CClliIꕔC
	^䗈Cʉߍ@V`cc\
	;--L;----------------------------------
	mov $_char,"TP1C"
	mov $debugstr,"FTP1C"
	gosub *char  ;ʂɏo

	yŉzz
	ȁCJsJh΁H
	kꟁB\
	;--L;----------------------------------
	mov $_char,"TQ1A"
	mov $debugstr,"FTQ1A"
	gosub *char  ;ʂɏo

	y㓡z
	׏Y꣘AsߐlbꟁI
	꣘씇lI\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo
	;-ʉ;----------------------------------
	mov $_se,"ZDOORO"
	mov $debugstr,"rdFZDOORO"
	gosub *se

	yz
	`ꊁI@ꋓ_I`]B\
	;--L;----------------------------------
	mov $_char,"TF1A"
	mov $debugstr,"FTF1A"
	gosub *char  ;ʂɏo

	ŷ݁z
	Cꋝ\G`\
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	cc꘢ڈ꘢nꟁcc\
	;--L;----------------------------------
	mov $_char,"TP1B"
	mov $debugstr,"FTP1B"
	gosub *char  ;ʂɏo

	yŉzz
	DꊍDꊁCsA抅tIVKvB
	CtqB\
	;--L;----------------------------------
	mov $_char,"TA2A"
	mov $debugstr,"FTA2A"
	gosub *char  ;ʂɏo

	y$g_heroz
	{ݔIꟁcc
	ZCsǗBJB\

	雁C雁B\
	;--L;----------------------------------
	mov $_char,"TA2E"
	mov $debugstr,"FTA2E"
	gosub *char  ;ʂɏo

	y$g_heroz
	ccccccɁH\
	;--L;----------------------------------
	mov $_char,"TA2C"
	mov $debugstr,"FTA2C"
	gosub *char  ;ʂɏo

	y$g_heroz
	ccccocc\
	;--L;----------------------------------
	mov $_char,"TA2J"
	mov $debugstr,"FTA2J"
	gosub *char  ;ʂɏo

	y$g_heroz
	DcDcc\
	;--L;----------------------------------
	mov $_char,"TA2I"
	mov $debugstr,"FTA2I"
	gosub *char  ;ʂɏo

	y$g_heroz
	ccccccccB\
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZDOSA"
	mov $debugstr,"rdFZDOSA "
	gosub *se

	B\

	y$g_heroz
	āB\
	;--L;----------------------------------
	mov $_char,"TF1B"
	mov $debugstr,"FTF1B"
	gosub *char  ;ʂɏo

	ŷ݁z
	CvciskꡁB\
	;--L;----------------------------------
	mov $_char,"TQ1E"
	mov $debugstr,"FTQ1E"
	gosub *char  ;ʂɏo

	y㓡z
	꣘C꣘YCYIH\
	;--L;----------------------------------
	mov $_char,"TP1A"
	mov $debugstr,"FTP1A"
	gosub *char  ;ʂɏo

	yŉzz
	^✒`ꟁCB
	sA꣑zIvC^IB\
	return
	;----------------------------------
;---D00  END -----
;============================================
; D02
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*D02	; t@CJñx
	mov $debugstr,"D02 " : gosub *debugout
;uDOUBLEO`vFpCYFD02
;
;pCY

	;--BGM;----------------------------------
	mov $_music,"14": gosub *out
;BGM:Love
	;-- CxgCG;----------------------------------
	mov $_cg,"C02A"
	mov $debugstr,"bfFC02A"
	gosub *cgout	;Cxgbf
;l̃ijɃpCY
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	ccacB\

	yz
	TcBācTꟁcꟁcB
	O[CAߌoc$g_heroIcB\

	rIIԋNB\

	p
	yynAsIO[B\

	y$g_heroz
	IOBtCDꝁcH\

	JSnr
	ߊJnufnoIt́B\

	yz
	D_Icꟁcꟁc
	DDcB^DcB\

	ߐᔒAב厧xLʓI[
	ًْnCI_B\

	y$g_heroz
	z^ꇊQꟁcBÛYB
	LߛDꝁH\

	yz
	ׁc$g_heroIvcBŒesI
	{{Cg̏ALocB\

	ꢓߌIC׊I֌nCIB
	ꢗpoCًْnZI_gB\

	yz
	T粉ICDꇊQꡁcBݐg̗
	hICȒ樐lscBTcI\
	;-gʉ;----------------------------------
	mov $_se,"WD002"
	mov $debugstr,"gFWD002 "
	gosub *se
;Nj

	ߗL▭ʓxIO[
	ܓCًْnk{OB\

	y$g_heroz
	IcI@ߗCD_B
	đp_㓪a[ꟁB\

	粗hWꑏdI[C
	粎hI_B\

	yz
	ꟁcDcB[C靓I
	{{cD_cDGcB\

	y$g_heroz
	c꣍DꇊQcDꟁcB
	s΁CꢏAkBRȍݗhB\

	ᔒIݑO@B\

	ꢐcȓÍC
	\݉IڏcDG᳓IʒuCB\

	yz
	ꟁcׁclƓߗ
	DvcB\

	y$g_heroz
	꣈I`t
	sIQq㗹GB\

	䒼BnvB
	ICAߌoD^sC
	靓ItGB\

	yz
	ׁcc$g_heroށccB
	vz$g_heroICꢎϓIccB\

	蘸[ڊJC
	B@ꢉ_nZIAXB\

	y$g_heroz
	zIcߘcAcH\

	yz
	z\C꣓I{{
	cꟁcTTcI\
	;-gʉ;----------------------------------
	mov $_se,"WA001"
	mov $debugstr,"gFWA001 "
	gosub *se
;wōLiςcj

	yynNG᳁B
	IAԁC`ݚacIrB\

	y$g_heroz
	圓IcB\

	yz
	ꟁcTTcI@΁I@AI
	AkLocI@TII\

	䍄ˍXn
	ȓI݉IG᳏㖀CB\
	;-gʉ;----------------------------------
	mov $_se,"WA003"
	mov $debugstr,"gFWA003 "
	gosub *se
;̎włiʂIʂIj

	GacBݚacB
	a΁cBacݚacB\

	ILߑtnNB\

	y$g_heroz
	svڒȑuꟁCcB\

	svnAo햽ߔʓIbB
	I]܊JnvZ݉VB\

	yz
	mꊁcBCcH\
	;-gʉ;----------------------------------
	mov $_se,"WM16"
	mov $debugstr,"gFWM16"
	gosub *se
;[キ[[

	粚a鼚a鼒np{
	I_[C
	粗pPI菶CyyncߒIX܁B\

	y$g_heroz
	TTcI\

	ItB
	\ot雒nOIAsC
	樛Ғn}ٕύdB\

	yz
	DꇊQcꟁczz嗹cB
	ŒALocscB\

	َٗȓI{OB
	ꢓߑNgI㓪\B\

	ߗ≐IeC~ZB
	ȓICꢔZIqC
	ٔnhIB\

	ꢍĎꢓߌ`_DI]ܖIԁB
	䊴oꢏ_IN㲒IځB\
	;-gʉ;----------------------------------
	mov $_se,"WM13"
	mov $debugstr,"gFWM13"
	gosub *se
;Ⴅ

	yz
	IccII\

	IAs
	ۓA[B\

	y$g_heroz
	cꟁccI\

	^lI[AB
	IjCIASۓB\

	yAXz
	DꇊQꟁC݁ccI
	c$g_heroI{{CSsۉꡁB\

	yHz
	ꟁ\\^DꟁccB
	Dzv$g_heroNI{{ꟁcB\

	yz
	IccTAIccTTcI\
	;-gʉ;----------------------------------
	mov $_se,"WM15"
	mov $debugstr,"gFWM15"
	gosub *se
;イc

	yyn㉺W]܁B\

	CݚacݚacI
	Cw琏VOB\

	IT󒅔AߓƓIB
	ꢋًٕIo@gB\

	^ˑpI
	ȒsB\

	y$g_heroz
	cB\

	yz
	TcTācB\

	ߓ[yIC
	n`R΁B\
	;-gʉ;----------------------------------
	mov $_se,"WA009"
	mov $debugstr,"gFWA009 "
	gosub *se
;ʂʂ咷

	ꢚ|ꉺcIIAsۓC
	R@pꢓߕYIgFC
	n~MIX܁B\

	y$g_heroz
	\\\IcII\

	従IA咅IC
	ȋy쌀ʌyyGqIoB\

	hs樉~s\B
	ACđ_BvđhꉺC
	\ˏoB\

	yz
	z˗ꝁC$g_heroH\

	꒼܍ݚ{IAsfoC
	粗pyyC@I{pC粏ΗB\

	y$g_heroz
	ꟁB\

	__B\

	yz
	ґz꣘XꝁH
	z꣘kIꝁH\

	y$g_heroz
	zꟁCB\

	yz
	ߛCXn\BsXꠁB
	LꢗC$g_heroAllꟁccB\

	IorIΗeB
	ߗꢓIbCcI|]UB\

	y$g_heroz
	I_CAߛzꝁH\

	yz
	ꟁcBDzفB
	z꣎ˏoDFItB\

	y$g_heroz
	zvꖗH@AH@_H
	ҐCݓ[H\

	yz
	SASszvBz樉ISg
	s꣓ItЏI\

	pPCcNȐᔒI[B
	ꢏȒ𓾍dMMICܐi{cߒB\

	y$g_heroz
	cߞ門CCMIC
	I_ꟁB^B\

	I݉IڏhgB
	G᳓ICߌoIt
	SZB\

	yz
	ꟁcׁcׁcTācI
	ݐvcB\

	y$g_heroz
	ߏAىI_C
	ctBR@A꣝iB\

	RnC`R΁B
	ߐ꘢ȐV^َדI΁B\

	yz
	DIB\

	IP㗹IB\

	yz
	T\\cII\

	ݚaꐺBҒn^㔼gC
	pGNI{O܏ZI_B\

	y$g_heroz
	ccccIII\

	Ioߌo~tB
	uft̓IGZB\

	yz
	acaacBEcq瀁cB\

	_HIt́C
	^{poIt݈NC
	ꢓߎI[CًْnMI_B\

	yz
	TcI@TcI@TcII\

	xLߑtnW_a[B
	uNcITꢓI{B\

	A[ߎƓIGB\

	y$g_heroz
	sCB
	꣊Ґ^슽ىI_ꟁB\

	yz
	TcTTcTcII\

	슽C슽BŊ슽B
	\ꢍ݉_񋿓IfCߏoꢐݔB\

	pyynߘMITB\

	IAs[ܓAB\

	yz
	TācB\

	I{OًْnٗB
	ÛYnZㅍ݉I_B\

	ҎܔMId򝓓CҒŁA[
	OB\

	y$g_heroz
	cI\

	smۙꉗ䔇ꐺĚ^Cyyn__B\

	ˏoꠁBːiI{Cˍ݉I_Cˍ݉g
	ctSsˋB\

	y$g_heroz
	IccII\

	I厕yynqIAsB
	ō@IhB\

	I_ݔIҒn꒵B\

	yz
	ITcII\
	;-- CxgCG;----------------------------------
	mov $_cg,"C02B"
	mov $debugstr,"bfFC02B"
	gosub *cgout	;Cxgbf

	Ё\\II
	tҗntꢓIA[B\

	ЁcIΚacIΚacII
	ˏoItʔ푽B\

	ItuԓUIoB
	v\܏ZIꢓI{p엹oB\

	yz
	I݁cꟁcTācB
	DꇊQcȍRIacB\

	IgOꉺ
	FItAHHnB\

	v̈ӓWň
	Ɋɒnc݌oItB\

	ꢓ߈I\
	JΔB\

	y$g_heroz
	ҖvˊGBcII\

	JSnΒC
	pꢓI[Ĉꎟ㉺MIAsB\

	yz
	ꟁcˏocˍ݉I_cI
	c꣓ߔItCˍ݉I_cII\

	acac判n
	݉I_㗎J_ʓIB\

	y$g_heroz
	ˍ_ꝁCc
	꣐zvtʖꝁH\

	lIbARnoB
	ŉIbꔽXhI~B\

	yz
	TITI@p꣓ItcI_
	hАᔒꠁI@\

	ΚacIЁcI΁III\

	I_퐸tАᔒB
	ufIt́C֊fDI
	_jCɊɊC꒼ꢓIAB\

	yz
	ꟁcꟁcB
	DꇊQcZcDhcB\

	ْ{poIFtC
	粗pL˓IffB\

	yz
	ߘcꎟCMIߗcB\

	y$g_heroz
	ߗꖗH@CߘcIړs
	MICҍ݈ꒊꓮIꝁH\

	ߓ@ړI@C
	s_ҟtC
	Ґ䧒nꉺ_gB\

	yz
	IcTcB\

	y$g_heroz
	ꠁB\

	嫑RQ㵁CAҐp[FʓI_
	ÎIAsB\

	yz
	߁cߘcc
	ciccIcߗccB\

	y$g_heroz
	X\樐lI@ށB
	꣍˕sҐk_IbꝁB\

	yz
	ACߐݘIcלkcB\

	y$g_heroz
	꣐ݕsꝁCH
	sߌo闹B\

	yz
	TcI@ߎnc
	Tc݁ccscsvꟁcI\

	y$g_heroz
	ےOwҕsꝁH
	꣑zvYH\

	ݚacݚaTcI
	IwCݔߖMI
	nhB\

	yz
	scsvgC_cTcB\

	y$g_heroz
	_CYH\

	yz
	$g_heroIc$g_heroI_ciIqc
	cǓIcꟁcI\

	yHz
	^\ݖvꔖ@ꡁB
	lƖzꡁB\

	y$g_heroz
	ߐHVtC꣗樔ꠁB
	ߞIbCsAȊlꝁB\

	yHz
	DꟁB
	꣊Ŕ݁Bvc{{iGB\
	return
	;----------------------------------
;---D02  END -----

;13.txt 
;DOUBLEԊOҁusgd@vnqkc@snvdqv 
;============================================
; U0
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/03
;============================================
*U0	; t@CJñx
	mov $debugstr,"U0" : gosub *debugout
;DOUBLEO`܂̂P

	;--BGM;----------------------------------
	mov $_music,"19": gosub *out
;BGM:Past
	;--wi;----------------------------------
	mov $_bg,"Z19A"
	mov $debugstr,"afFZ19A"
	gosub *bg	;ʂɏo
;afFZ19A

	̎C
	RA꒣bfsvLC\

	pŉz
	e琥ى~IKÌ̎\

	A꘢IsvLC
	g@꣖vꝁH\
;----------------------------------
*hintU
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintU05off
	csel
	"߂Ƃ", *U10,
	"Ђ܂ԂĂ݂", *U20,
	"qg", *U30
*hintU05off	;qgOFF̂Ƃ
	csel
	"߂Ƃ", *U10,
	"Ђ܂ԂĂ݂", *U20
;----------------------------------
*U10
;߂Ƃ

	^Cgɖ߂܂B\
	mov %go_go,0
	goto *nextU	;nextUֈړ
;----------------------------------
*U20
;Ђ܂ԂĂ݂
	mov %go_go,1

	njB\

	݉ځccB\
	goto *nextU	;nextUֈړ
;----------------------------------
*U30
;qg

	uҐZv
	ޏoԉWʁB\

	uŔꉺԁv
	p{ǑŉzI̎B\
	goto *hintU	;hintUֈړ
;----------------------------------
*nextU
	return
	;----------------------------------
;---U0 END -----
;============================================
; U1C
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/03
;============================================
*U1C	; t@CJñx
	mov $debugstr,"U1C " : gosub *debugout
;s@v@s
;PFANA}i
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"16": gosub *out
;BGM:Memory
	;--wi;----------------------------------
	mov $_bg,"BG066A"
	mov $debugstr,"afFBG066A"
	gosub *bg	;ʂɏo
;afFBG066A;؍XÁiVssSij

	󗘔[Bʘ؍XÊCIlHB
	oݓߗCZݓߗB\

	꣐؍XÐlH݂PONOI|
	ߌoϐpЁH@{s\ZlH\

	TCߊmzIꡁB
	AꡁCۏ꒼sZݓߗGB
	閧GB^IB\

	R@C݉Ґs_I\\B\
	;--wi;----------------------------------
	mov $_bg,"BG148A"
	mov $debugstr,"afFBG148A"
	gosub *bg	;ʂɏo
;;؍XÃANA}iiLj
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	CAꊁB
	Zs㐥ߎIތ^ꡁB\

	s߁CߘN
	IwqB\

	sݎGB\

	ȉ˔\NIꟁB\

	׉ꡁB\

	a䓯IƚC
	SsPqC엹oB
	ݙ{ߌoٙ{B\

	s߉ꡁCד]
	ȏAݛlފB\

	꣖␥YH\

	ߓRCחVga
	isIꊁB\

	;--BGM;----------------------------------
	mov $_music,"19": gosub *out
;BGM:Past
	;--wi;----------------------------------
	mov $_bg,"U01B"
	mov $debugstr,"afFU01B"
	gosub *bg	;ʂɏo
;;afFVgƈ

	꣙ߐ߁VgaꝁH\

	Α΁CAݖ؍XËߊCє\œI
	NIlޓI`B꣕smvB\

	TBߘCݓIGB^IB\

	vȒP_IbC
	AIlꊁB\

	H@ߕsݎÝDV@
	A֎~ꝁH\

	ꟁCTBmL֎~I
	@ꊁB\

	ꟁC@sAחLlŔj
	ˉ퐧oIvB\

	AA\rClssꟁB
	٘_ŋI\rCҐI\rCsꡁB\
;\
;(1)őm(خ)э݉Ƃ̐M҂ׂBE拤ʂ̂̂ƂẮC
;E
;(ĳ)@ʂ݁Bʂт
;׈(ެ)@B܉̈BvwłȂ̂̏B܂AvwłsĂ͂ȂȂsׁB
;ό(ӳ)@܉̈BƁB
;@\̈B̐lɑ΂ĂƂA҂𗣊Ԃ킹邱ƁBԌB񖇐B
;@\̈Bl܂ɌƁB
;Y()@^ɂނčI݂ɏ藧ĂƂ΁B\̈B
;×~(ָ)@Ȃ̗~̂ɎĖOƂmȂƁBɗ~̂ӂƁBł͎OŁE\̈BÁB
;ќ()@\Ȃǂ̈B̐SɈႤ̂{肤ނƁBʂɁA{肤ނƁBсBˁB
;׌klʂ̓𖳎όB܌E\f̈B
;̏\ւB
;
;(2)LXgł́C[[̏\Cӂ邫|()ƂB񐹏10̝|ŁCΔ2ʂɏC_ViCRŃ[[ɎƂ(oGWvgL)Be
;B^̐_ɑ΂qC
;̋֎~C
;_̋֎~C
;̌C
;ւ̌hC
;El̋֎~C
;(ݲ)̋֎~C
;݂̋֎~C
;U؂̋֎~C
;l̍ȁEYɑ΂~Ő֎~łB
;LXgő̝|CȂ킿ΐ_Eΐl(}^C`2237)Ƒ΂ȂB
	;--wi;----------------------------------
	mov $_bg,"Z21C"
	mov $debugstr,"afFZ21C"
	gosub *bg	;ʂɏo
;afFZ21C

	lޔ퐶ꟁCDvȗL__
	sCAoΕslޗB\
	;--wi;----------------------------------
	mov $_bg,"BG149D"
	mov $debugstr,"afFBG149D"
	gosub *bg	;ʂɏo
;afFBG149D;؍XÃANA}ii̕j

	vC펖jؖ
	sꝁBRB\

	וFꊁAFꊁA˓IFꊁC
	җL@VޓIB\

	lޓIjAps^ُV
	ҐDIǟ~B\

	ꡁC
	vL퓖lޑΑҁB\

	njB
	쐥퐧oI݁B\

	b嫔@Cō{I
	RҐlꊁB\
;afFVgƈ̉H

	ぃVg^u؎va
	u^vCDA^ɗ
	֝\_ޗoIB\

	sߏIN^ꟁB
	^VnʁB\

	ߐRCspꝁC
	AJnSdb뗢
	於B\

	sߚvC|s}ꊁB
	䎩ȓIB\

	NҍҋLYIC
	oߌoDBҍDLB\
	;--wi;----------------------------------
	mov $_bg,"BG147C"
	mov $debugstr,"afFBG147C"
	gosub *bg	;ʂɏo
;;؍XÃANA}iij

	ꡁC䖈Vs񔎎m
	őŉB\

	@^mIC
	҉gHj\

	ĈҔcIĐDB\

	꣊ŁCIΎt琥LlI
	ʍlvB\

	IΎtCAwߍ
	\gp\͓IƚB\

	꣉YmꠁH@v犐lB
	LΎtCݐ犐˗LB\

	vΕʐlMl̎C
	߉팵dIƍ߁CꠁH\

	AߍlmC
	zΎtI\́CȒzᆗB\

	L߉\ꟁB
	\\\\\́B\

	YsspA\q́A
	oΉAB\

	߉^ꇊQCꠁB\

	ACߍSyϓIm
	c쓖ޗB\

	L\IbCIlAǐSҗL
	Ass󑹗vB\

	spŁCvLːЁB\

	TH@YH@꣖׏YLߎ͗ʁC
	pvLRH\

	ߊҗpꝁB\

	ꟁCoOA꒼ǗGH\

	C{A퐶YoIvB\

	ݔ]ܗAcЏYIC
	sA؈ꝁB\

	JֈCAefnꐺIIA񎖁B
	ꗈASꡁB^IB\
	return
	;----------------------------------
;---U1C  END -----
;============================================
; U6
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/03
;============================================
*U6	; t@CJñx
	mov $debugstr,"U6" : gosub *debugout
;DOUBLEO`܂̂P
;TFv`sdq
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"12": gosub *out
;BGM:Sentimental
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo

	nB
	󗘈CQQn㗹B\

	JEIځCMI
	c{ܖ|ٝʁB\

	玎ߙ{\MIC
	AsvLʁB\

	rsmȊYꔍˍDB\

	mꢛߌov~B
	IΉݒQŁB\

	nz􍱏YB\

	CpYssB\

	g^󗘈C
	ˋ_Is_B\

	YsvLρB\

	ꢛߌo{sbC
	n]xOIVB\

	]zNIuԁC]󒆏ƗCI
	C]΍ghICB\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	u󗘈v\

	oĊꢓICꢕ֊ɖh͒n
	c_]䔇粁B\

	䏫HH󗘈
	@[ʓI{OB\

	їIٖICВnꐺzi
	ߎKI󓴔VB\

	y}Az
	ccccccccc\

	󗘈IӎCnV
	񓞗IgB\

	y}Az
	ccccccccc\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	u󗘈v\

	y}Az
	ꟁccBDccꠁ\

	ًْnZ{OB\

	vsC៣Av{B\

	󗘈mkAvB\

	ߌoICĖٖ@
	ϓIB\

	CAvꢗB\

	䖾mC
	pٔ\ח́B\

	ȌgIoB\

	YssIٗ͊B\

	퐥ߏꡁC
	ҐɋꡁB\

	ꟁCACs_䑽ߏɋC
	sٔ\ח́C\

	ꟁCYssB\

	ksÐSB
	kߏB\

	ACAZ͖ٗۏIȁC
	AZ׍ߏC
	\ϏYꡁB\

	YssρB\
	return
	;----------------------------------
;---U6 END -----
;============================================
; U5
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U5	; t@CJñx
	mov $debugstr,"U5" : gosub *debugout
;[ǉ
	;--wi;----------------------------------
	mov $_bg,"BG148A"
	mov $debugstr,"afFBG148A"
	gosub *bg	;ʂɏo
;afFBG148A;؍XÃANA}iiLj

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:Town

	\\ߐ^VIB
	꘢ZB\
	;--L;----------------------------------
	mov $_char,"TF1A"
	mov $debugstr,"FTF1A"
	gosub *char  ;ʂɏo

	ŷ݁z
	u꣍ōDS_Gv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uVHv\

	ߐm^BLY_`A
	ʍÍB\
	;--L;----------------------------------
	mov $_char,"TF1B"
	mov $debugstr,"FTF1B"
	gosub *char  ;ʂɏo

	ŷ݁z
	uEiB
	@꣘ICAsIGv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	ucc׏YCvaHv\
	;--L;----------------------------------
	mov $_char,"TF1A"
	mov $debugstr,"FTF1A"
	gosub *char  ;ʂɏo

	ŷ݁z
	uؐ樉䗈꣓Iv\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	uؐ΁Hv\

	ؐ΁iʁjΓI
	\F}ꐢcB\
;N29/[6
;݂̂̂́ADOUBLE{҂݂̂̂ł͂ȂB
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uCߘcv\

	\ߌN߁B
	L꘢ێw͞sĐIVg
	pVIB\
	;--L;----------------------------------
	mov $_char,"TF1B"
	mov $debugstr,"FTF1B"
	gosub *char  ;ʂɏo

	ŷ݁z
	uTB쓖CőfIߘƚv\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	uVc^IꟁcB
	@꣘aߘؐ΁CߖꝁHv\
	;--L;----------------------------------
	mov $_char,"TF1A"
	mov $debugstr,"FTF1A"
	gosub *char  ;ʂɏo

	ŷ݁z
	usCwxꊁv\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	uHHv\

	ꢓIb^IB\

	^ؐΌߖʓIC
	꘢m^CI꘢B\

	琥@˒mC
	ݗpm^isLIB\

	󗘈ICs
	pݗVIm^gꠁB\
	;--L;----------------------------------
	mov $_char,"TF1B"
	mov $debugstr,"FTF1B"
	gosub *char  ;ʂɏo

	ŷ݁z
	uꟁC꣘alsC
	@kLvv\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	uLHv\

	ߘm^vL񓚉IC
	]]nΒB\
	;--L;----------------------------------
	mov $_char,"TF1A"
	mov $debugstr,"FTF1A"
	gosub *char  ;ʂɏo

	ŷ݁z
	uvC꣌ИMߋGB
	S_BvDDӉGv\
;̂ݏ
	gosub *clear_char	;--Li^񒆁j

	ߘm^CA}n򑖗B\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uꢓꐥNꟁcv\

	hhC
	󗘈IB\

	V\aꢌʁC䊴kB\
	return
	;----------------------------------
;---U5 END -----
;============================================
; U6B
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U6B	; t@CJñx
	mov $debugstr,"U6B " : gosub *debugout
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"11": gosub *out
;BGM:Trio
	;--wi;----------------------------------
	mov $_bg,"BG146A"
	mov $debugstr,"afFBG146A"
	gosub *bg	;ʂɏo
;;؍XÃANA}iilԋZj

	ߐݐlދZC䐳ݘʌIHIB\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	ucB
	@꣔D_Iqv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uꣁA꣐NHv\
	;--L;----------------------------------
	mov $_char,"TO1B"
	mov $debugstr,"FTO1B"
	gosub *char  ;ʂɏo

	yz
	uʐls䇀ؐ·AB
	ݐlޓ粁v\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	u꣐lށHv\
	;--L;----------------------------------
	mov $_char,"TO1J"
	mov $debugstr,"FTO1J"
	gosub *char  ;ʂɏo

	yz
	u䐥ߊIc
	cITC꣉ʑRkLꟁv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uꖗLꟁv\
	;--L;----------------------------------
	mov $_char,"TO1B"
	mov $debugstr,"FTO1B"
	gosub *char  ;ʂɏo

	yz
	uꊁCˁv\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	uˁHv\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	uL꣔_IlCsꟁB
	sǐVgҐCƕssBIꝁHv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uߖ琥vꔖ@IꟁB
	וsߞAsꟁv\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	usvIHv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	ubvlޙߓcv\
	;--L;----------------------------------
	mov $_char,"TO1B"
	mov $debugstr,"FTO1B"
	gosub *char  ;ʂɏo

	yz
	uvIꠁBݐlދZIb
	BҐ\ۏIv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	ucv\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	ulމ{AnAA{
	AĘahCꠁv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	ucߐv\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	u߁uOʁvIB
	dœ𑽓Iv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uꝁcB꣍DꇊQꟁv\
	;--L;----------------------------------
	mov $_char,"TO1J"
	mov $debugstr,"FTO1J"
	gosub *char  ;ʂɏo

	yz
	u꣔慎hꝁHv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	usIv\
	;--L;----------------------------------
	mov $_char,"TO1B"
	mov $debugstr,"FTO1B"
	gosub *char  ;ʂɏo

	yz
	uc琥B
	꣓INIa꣊O\ŋNCꠁv\

	؎zΗB
	s
	VgΓIqB\

	BsݎlށC
	IVgaĐ
	vIƚB\

	RCsǐOwqIm^C
	Ґ؎zCIΏۋpݏ΁B\

	SzCΖ@^樐lsB\

	a^󗘈IΘbSsB
	ADCLwIߐSʁB\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	u_ƓIlXӒn{aB
	smaCݑzYꡁv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	u얔sh{v\
	;--L;----------------------------------
	mov $_char,"TO1B"
	mov $debugstr,"FTO1B"
	gosub *char  ;ʂɏo

	yz
	u嫑R|oh{\ҍXDB
	䓖aꠁBsC䔇mkhꠁv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	u꣐^l}IbB
	꣏Aח˗QIꝁHv\
	;--L;----------------------------------
	mov $_char,"TO1K"
	mov $debugstr,"FTO1K"
	gosub *char  ;ʂɏo

	yz
	uvߛՁB
	䐳ݝQlv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uQYHv\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	uccݝQL_ʗJIlꠁccTv\
	;--L;----------------------------------
	mov $_char,"TU35A"
	mov $debugstr,"FTU35A "
	gosub *char  ;ʂɏo

	yz
	uIC꣘ݓߊYHv\
	;--L;----------------------------------
	mov $_char,"TO1A"
	mov $debugstr,"FTO1A"
	gosub *char  ;ʂɏo

	yz
	uB䗈tC
	꣉ꠁBČꊁIv\
	gosub *clear_char	;--Li^񒆁j
;

	؎zђZIC
	ݗLIꓪB\

	;--BGM;----------------------------------
	mov $_music,"12": gosub *out
;BGM:Sentimental
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo
;afF
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	i꣕so咣ꝁHj\

	QB\

	y}Az
	Bzꡁ\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	iҐʌ׍DBlIok}vj\

	y}Az
	ccccccccccccccc\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	i󗘈Hj\

	󗘈IˑRҁC樉䊴QB
	g̕sꝁccBҐCccB\

	y}Az
	vBcŔ뗹\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iꟁj\

	䏼B
	ڒCL݈Ӓn⓹B\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	i꣐CYHj\

	y}Az
	؎zIށBoȐMC
	@cDꇊQꟁc\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iꇊQHꖗꇊQHj\

	y}Az
	zvcR퐶
	@\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	ivpIBAZo
	@svLnꝁj\

	y}Az
	szczDl\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	iDlH@m\gpu͗ʁvB
	@AC~ߘIbcj\

	AZ\b̈P
	vLCӋ`B\

	AZ\gpg׎tI\
	v퓱eyIbC
	T㉻wIbB\

	A񎖁B\

	y}Az
	cAcvLPG\

	嫑R@˒mICA؎z^I
	AߞC__nWuvB\

	vC@琬uvAꡁB\

	s߁CPI
	AI\C
	kOIc꘢NB\

	vCߖ񎖗B\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iߖ瑾j\

	AICARlޔ펖
	zsvz߁B\

	sC|sSn
	ߍwB\

	CR\YꡁB
	lIH\

	AꟁCaNCaF֓Vc
	A{gssmB\

	@ʕsmCAA]ssB\

	ߘu؎zvmYꡁB\

	y}Az
	꣖LaInG\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	iccꝁcj\

	|sߛoB\

	y}Az
	B@ʉ\ߛ
	@@ʉ\Ibc؉sLsꡁ\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	isߐ
	@sNIs_뗹j\

	y}Az
	lꟁCӊOnsꡁ\

	󗘈hhnΗNB\

	ꢓISߛ[C
	ApnzvLC
	ꐥ׏YꡁB\

	׉mC؏IꝁB\
	return
	;----------------------------------
;---U6B  END -----
;============================================
; U4
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U4	; t@CJñx
	mov $debugstr,"U4" : gosub *debugout
;s@v@s
;SFancx

	;--BGM;----------------------------------
	mov $_music,"11": gosub *out
;BGM:Trio
	;--wi;----------------------------------
	mov $_bg,"BG149A"
	mov $debugstr,"afFBG149A"
	gosub *bg	;ʂɏo
;;؍XÃANA}ii̕j
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uICꏕ񍐏A꣗v\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uҗLCcIiɑ猟ꉺB
	VVOvMDv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	ucācZCZcv\
	;-ʉ;----------------------------------
	mov $_se,"ZFOOT2"
	mov $debugstr,"rdFZFOOT2"
	gosub *se
	gosub *clear_char	;--Li^񒆁j
;;
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uc^Cvam^􈤗ꝁcv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	us߁CDB
	@A\󗘈щc{܉ߋcv\
	gosub *clear_char	;--Li^񒆁j

	;--BGM;----------------------------------
	mov $_music,"19": gosub *out
;BGM:Past
	;--wi;----------------------------------
	mov $_bg,"BG148A"
	mov $debugstr,"afFBG148A"
	gosub *bg	;ʂɏo
;;؍XÃANA}iiLj

	qVVߋB\

	s\oԁC
	r틎ŊŁB\

	GvB\

	cVsvpPIEiCC
	ő|[ԁCHC\

	җv֓ߘA
	ڒam^􈤓Iʕ񍐁B\

	䘸GoԁCB\

	;--BGM;----------------------------------
	mov $_music,"12": gosub *out
;BGM:Sentimental
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo
;afF
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uꟁcߌoꟁv\

	󗘈CLD{C
	AAOVsAsߋC
	kAB\

	ߓVCL꘢B\

	cꍱÍB
	_j𗪌dNINB\

	VIC
	lAߌo㰝{B
	vLْɉB\

	ŝٖ@EɋʁC
	NgIݕsZnGA従B\

	CJnA폈soB\

	􎢉ҒnGꉺCҔwV|B\

	j́C命s픇ΑғIB
	a펔{I{vYB\

	בvL꘢pzIDǴC
	IAs|ٗpB\

	חmF_IꎞNCoRRs
	sKoI啔jlC
	s鎀IB\

	KIjlC
	ݒEINVOB\

	䘸ߐNIjB\

	sߏwqC
	獷sB\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	u_CꕛKI\v\

	֔@CҐђ꒣
	Ɉ㥌IږʗeB\

	y}Az
	בߌospĔϔYށB
	Sk_ށC퉷_\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	i|oCs󗘈Ij\

	aIB\

	ɋ^xDI\B\

	ٕIُCʖэݑ@ΓI
	㓊IeqB\

	ꟁCN蛑B
	ꟁC[[nC[[nC[[nB\

	嫑RݓCҝٖ@
	ߋ퐥튴B\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	i䍡Vїc{܉ߗC
	@҉X꣑ňjj\

	y}Az
	꣎ȗpꠁ\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	ivIBsLDDhсj\

	y}Az
	AZ꣎TCnmIG\
	;--L;----------------------------------
	mov $_char,"TP3F"
	mov $debugstr,"FTP3F"
	gosub *char  ;ʂɏo

	󗘈ߏ_aI`ہB
	הV[[ˁB\

	ߐ툶@_NaA_S
	݌ZʓIy_GB\

	y}Az
	꣔\JSCkށ\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iRJSꟁCCNsj\

	AAݎݓߗINCkꠁB\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	ilޔVCL󗘈Ilꝁj\

	y}Az
	cNmꡁcBs߁C쌴{琥l
	vBs\LߓߞIlG\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	iꝁcj\

	lޑߏKjB
	䘰nCXKB\

	쎩Ȗ琥C嫐noIC
	Aۏsߐ퐶oI뗹B\

	^nlސIƚB\

	lޔ\IC͋͐ȉ߁B\

	{sݐ^InB
	vCΘlގCى\B\

	y}Az
	ꝁH
	olޖ\noꍱG\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iYHj\

	y}Az
	cxAA
	iAAc\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	iHj\

	y}Az
	TBs}ߍG\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	iꝁj\

	ߐs\IB\

	sCAZ݉ҐsB\

	zC\ꖾߎ펖IlށCYvLꠁB\
	return
	;----------------------------------
;---U4 END -----
;============================================
; U6C
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U6C	; t@CJñx
	mov $debugstr,"U6C " : gosub *debugout
;DOUBLEO`܂̂P
;TFv`sdqcR
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"20": gosub *out
;BGM:Music Box
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo

	cc{VߋB\

	@nCYssB\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	iCҗvꝁHj\

	\ICALٚ{OC
	ob߁B\

	y}Az
	sCspB
	꣎ꠁ\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	isvGBIbzvsLj\

	y}Az
	ߐCwqshщssG\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	iߎ펖C꣐ߒNIHj\

	y}Az
	eeGBאiI\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	iꟁcj\

	y}Az
	\݊OʍsB
	VCnߑC\

	ꟁCv\ߞߓADB\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	isꟁj\

	y}Az
	ꝁ\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	iNssICߎ펖B
	󗘈VOꡁj\

	y}Az
	ꝁ\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iCo䐥sIj\

	y}Az
	ꝁ\
	return
	;----------------------------------
;---U6C  END -----
;============================================
; U1B
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U1B	; t@CJñx
	mov $debugstr,"U1B " : gosub *debugout
;s@v@s
;OFxbh
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"16": gosub *out
;BGM:Memory
	;--wi;----------------------------------
	mov $_bg,"BG021B"
	mov $debugstr,"afFBG021B"
	gosub *bg	;ʂɏo
;afFBG021B;ŉz̕2iԁEmEq哇j

	yz
	uIC樉ߙ꣓Iꠁv\
	;--L;----------------------------------
	mov $_char,"TP0A"
	mov $debugstr,"FTP0A"
	gosub *char  ;ʂɏo

	yŉzz
	uYC꣑z߉I̎H@
	\O̎i^v\

	yz
	uꝁBAzm꣓Iv\
	;--L;----------------------------------
	mov $_char,"TP0C"
	mov $debugstr,"FTP0C"
	gosub *char  ;ʂɏo

	yŉzz
	uTcc꣔kדꟁv\
	;--L;----------------------------------
	mov $_char,"TP0A"
	mov $debugstr,"FTP0A"
	gosub *char  ;ʂɏo

	yŉzz
	u꣐zߗLI̎ꠁC
	@AvY˗Lꡁv\

	yz
	uYssGB@񉯉C֗VޓIv\
	;--L;----------------------------------
	mov $_char,"TP0B"
	mov $debugstr,"FTP0B"
	gosub *char  ;ʂɏo

	yŉzz
	uITcB
	@ߏA䏬Iꠁv\

	yz
	u꣏ꟁcv\
	;--L;----------------------------------
	mov $_char,"TP0C"
	mov $debugstr,"FTP0C"
	gosub *char  ;ʂɏo

	yŉzz
	u꣏ΏYH@zەsH
	@䏬ҒRIꡁv\

	yz
	u^Iꝁv\
	;--L;----------------------------------
	mov $_char,"TP0A"
	mov $debugstr,"FTP0A"
	gosub *char  ;ʂɏo

	yŉzz
	us߁CsꠁHv\

	yz
	uȚGv\
	;--L;----------------------------------
	mov $_char,"TP0B"
	mov $debugstr,"FTP0B"
	gosub *char  ;ʂɏo

	yŉzz
	uߛCAJnꠁv\
	;--L;----------------------------------
	mov $_char,"TP0A"
	mov $debugstr,"FTP0A"
	gosub *char  ;ʂɏo

	yŉzz
	ugґLݎOVꍶE
	@I̎v\
	return
	;----------------------------------
;---U1B  END -----
;============================================
; U2
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U2	; t@CJñx
	mov $debugstr,"U2" : gosub *debugout
;s@v@s
;QF}A

	;--BGM;----------------------------------
	mov $_music,"19": gosub *out
;BGM:Past
	;--wi;----------------------------------
	mov $_bg,"BG148A"
	mov $debugstr,"afFBG148A"
	gosub *bg	;ʂɏo
;;؍XÃANA}iiLj

	R@Cݖ^VB\
	;-ʉ;----------------------------------
	mov $_se,"ZDOOR2"
	mov $debugstr,"rdFZDOOR2"
	gosub *se

	䑜鋎ȕӓI[ԁC
	wInCяoʁVgB\
	;-ʉ;----------------------------------
	mov $_se,"ZBATAN"
	mov $debugstr,"rdFZBATAN"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo

	ꢔ哾ꡁB
	œWLʒQChB\

	ꟁC쐥cIB
	L퐥ꡁB\

	R@BݓߘC
	Qߌoٙ{B\

	ŐVśߌoS㗹C
	ASsߌopB\

	ꢁCN蛁B\

	݉VOIR׎~C
	LkƓÍB\

	ƓB\

	RCsIӎvB
	AƈٓA͍꘢IӎvꊁB\

	ň̑ImCAnI
	߈ʓVˑlIuivꟁcc\

	߉YpiʓIC
	ߐlRځC樐lz⩋NꡁB\

	ACߍ͕oIiC
	AvߛDꡁB\

	rҗL於׌ɍzA
	ᡊ熎zVޓIꡁB\

	\zۓꠁH@ߖAmB
	vsꉓIbCȋTGB\

	шCɍzc
	_boIƊዐlGB\

	ᡊ熎z琥c_bIlB\

	vC嫑RoOeYIsُC
	AVt쎗kꡁB\

	Ŗ{XVCsϓ
	XYGB\

	ߓRCLAZ[pC
	ߖ琥YIXDꠁB\

	ꗈC֐ZHvFIC
	\󓞏rj壏vB\

	CΓߍLKLID
	琳DKꡁB\

	lފҐ^P$g_heroꡁB\

	ށCSB\

	A`B\
	;--wi;----------------------------------
	mov $_bg,"WING_W"
	mov $debugstr,"afFWING_W"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	ߘlI󗘈B\

	ꢍD
	lMo於I퐧oIB\

	ꢓIg̑哾sRCLgߗLQāB\

	ÍCꢓI_aSgszhʓIDB\

	AꟁCߑ΁VgIFHC
	^IퟃhGB\

	喔B\
;ŁA[^`O
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	i^ꟁccj\

	ߎICAesgIs_B\

	N͍n_C
	AI{B\

	֌nv\^ꡁB\

	ꟁCI֌nC
	ωIN^sIc\

	ȒP_CApsB
	R@ꡁC䔇lCZciꠁB
	vshѓIbCAkB\

	Ac얔\
	񋟊zOIHꡁB\

	vCAϒrlޓIc㻙ъIB
	AꡁB\

	ȉ䓖AݑzꟁB\

	ꟁCvL
	YINADꟁB\

	vLINC
	AspĈ׋Q쎧ϔYꟁB\

	䓖AzIB\
	;-ʉ;----------------------------------
	mov $_se,"ZWING"
	mov $debugstr,"rdFZWING "
	gosub *se
;H΂

	;--BGM;----------------------------------
	mov $_music,"12": gosub *out
;BGM:Sentimental
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,1	;GtFNgw
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo

	yHHHz
	|@G\

	smC`B\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	VIH\

	QZnڎlB\

	yHHHz
	ĐAߌo⑐sS͗B
	ҝٖ@pUOqꡁ\

	R@C䝫NCœꢁB\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	˓IccB\

	y}Az
	꣍DCIs_\

	ߕ֐CFוs\ݓISbB\
	return
	;----------------------------------
;---U2 END -----
;============================================
; U3
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U3	; t@CJñx
	mov $debugstr,"U3" : gosub *debugout
;s@v@s
;RFWG[
;ŁAwiʐ؂ւ

	;--BGM;----------------------------------
	mov $_music,"21": gosub *out
;BGM:Another World
	;--wi;----------------------------------
	mov $_bg,"Z13A"
	mov $debugstr,"afFZ13A"
	gosub *bg	;ʂɏo

	gI\́Cn藹B\

	ÓACȋyB\

	ȑOȌiaI
	ԓ`Au敨AS슴
	VޓI\͓sٖ@gpB\

	ݐsꡁB\

	s߁Cn쌴^
	IvێOY݉IB\

	樎gaIC
	琥B\

	iTBgIaC
	琥LIB^Ij\

	ǋIڕWCgI\
	iߕsߐsIYij\

	XLpIB\

	󗘈I\́C׎~
	{sݓIC̈אS슴IB\
	gosub *blackout
;ʐ؂ւ

	;--BGM;----------------------------------
	mov $_music,"12": gosub *out
;BGM:Sentimental
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo

	C@ꢓIǵB\

	vL틋\HIꢁC{vLr
	ACAgLҒWWIB\

	ٖ@SIzpB
	_aAB\

	Ջ󟃁B
	ՐB
	VOCҗLeeIB\

	@ʔ\݈əߞCYsC
	pAIIAA\IbC\

	ߞIbC숽A\א^I
	uVgvB\

	Ak⊶ClޓIB\
	;--wi;----------------------------------
	mov $_bg,"WING_W"
	mov $debugstr,"afFWING_W"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	󗘈c瑓INIǵB\

	ꢙ{ꓮsB
	sCsꠁB\

	DŁCꢎrI\
	ߌojB\

	vLєIDNB
	q{TEꠁB\

	󗘈IgpCA꘢͕l`IAI
	FYpiB\

	LꢓIǵCݜn
	zċzCɖn従B\

	FIH閒nkB\

	y}Az
	VAsbGB
	AZٖ@ێH^Ivꝁ\

	y}Az
	חC
	˖vLo\

	󗘈I{m
	NsB\

	ח\[
	JI߈__C
	^{OCs@XʓI튯B\
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iהꝁH@꣍˔\bj\

	y}Az
	ꠁB
	s߁Cߐ_CAߌo\G\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	iC꣖vΔClꝁHj\

	ݐS\vbB\

	䊴wŔHё~yʓIA
	y_[IoC񕜕֑B\

	y}Az
	䜃\ꡁ\

	ΚoonCP򕑔ʓIہB\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	ic꣈\]ړXDInGHj\

	䕉ӏƌړÍC
	sAZoYُIB\

	ACSsݕsI
	vpPÍB\

	lÍCsҍݘaoIlޑl
	vYI[ԗB\

	is[IVMB
	̐C펔{B\

	y}Az
	sCkDGBkÁ\

	y}Az
	DInC
	׏Y񓾗JꡁH\

	䕉ӓIuvʘ󗘔[I
	QPw[C݈ԎllA󓠓I
	qɗB\

	vLǓB
	vLTB\

	LEoIlpxC
	\]OʉUIVB\

	ߐ䎩ȌEoIB
	cpJC__nEB\

	x˓I粉oC
	uЌВnÌŗB\

	JVCAݏ᳏ppI
	YB\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	iZDnꝁHj\

	y}Az
	TBR\

	c߉q\JB\
	;--wi;----------------------------------
	mov $_bg,"SORA"
	mov $debugstr,"afFSORA"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	J@IVB
	z@ʎh[ԁB\

	RsLYw偌^|niݎCDo
	ٗJIjC
	[ԗCLIoݔ򕑁B\

	y}Az
	ꟁCoȗꎟVG\

	CꢓIx
	䊎hB\
	;-ʉ;----------------------------------
	mov $_se,"ZWING"
	mov $debugstr,"rdFZWING "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,1	;GtFNgw
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"WING_W"
	mov $debugstr,"afFWING_W"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	ꢓWJNB\

	INꟁI
	䝫NC]B\

	FIHџzCMMB\

	ȒÁB\

	y}Az
	VR@\

	y}Az
	zۓIC
	җvꖜ{AS{ꡁ\

	ꟁCߔ@dʓIxII\
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	iccccccccccccj\

	䓩˒nꑐZݓߊI̐B\

	嫑RsmYpYꗈ`eC
	AݓߘˑꎟmB\

	׊xITOB\
	return
	;----------------------------------
;---U3 END -----
;============================================
; U6D
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/04
;============================================
*U6D	; t@CJñx
	mov $debugstr,"U6D " : gosub *debugout
;U6D
;}AƂ̕ʂ

	;--BGM;----------------------------------
	mov $_music,"18": gosub *out
;BGM:Weird
	;--wi;----------------------------------
	mov $_bg,"BG149A"
	mov $debugstr,"afFBG149A"
	gosub *bg	;ʂɏo
;;؍XÃANA}ii̕j
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uIv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	uLYꝁHv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	u꣓ߙXCҗL꘢I
	Yu󗘈vIv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	ucc꣘ŎZcccꢜHv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uVLfdl\͓IWv\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	uWHv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uvBLQI̔\͜kC
	ȗvWꢓIfdl\́v\

	yz
	u^ώBvbs
	caZADccv\
	;--L;----------------------------------
	mov $_char,"TP3A"
	mov $debugstr,"FTP3A"
	gosub *char  ;ʂɏo

	yŉzz
	u߁C׏Yvя󗘈Hv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uvꢓߎqꟁB
	꣔cꢑѓXRav\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	uߎqIH@cccv\
	;--L;----------------------------------
	mov $_char,"TU34B"
	mov $debugstr,"FTU34B "
	gosub *char  ;ʂɏo

	yz
	uꢖpPivY闹B
	lsˁBv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uccv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uIC꣔YꡁB_I
	kZIIv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uccccccccccv\
	;-ʉ;----------------------------------
	mov $_se,"ZFOOT2"
	mov $debugstr,"rdFZFOOT2"
	gosub *se
	gosub *clear_char	;--Li^񒆁j
	;--L;----------------------------------
	mov $_char,"TU34J"
	mov $debugstr,"FTU34J "
	gosub *char  ;ʂɏo

	yz
	uIAII@꣗vꖁI
	@^IChspIƚIv\
;----------------

	;--BGM;----------------------------------
	mov $_music,"12": gosub *out
;BGM:Sentimental
	;--wi;----------------------------------
	mov $_bg,"BGN04"
	mov $debugstr,"afFBGN04 "
	gosub *bg	;ʂɏo
;afFBGN04
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uC󗘈Iv\

	y}Az
	\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	usIbcsIbcv\

	󗘈pꢓߖKIˋÎB
	ߑoƒvLNB\

	y}Az
	v֌nIB\}IClIB\
	;--L;----------------------------------
	mov $_char,"TP3E"
	mov $debugstr,"FTP3E"
	gosub *char  ;ʂɏo

	yŉzz
	u\Iv\

	y}Az
	lsL꘢ssInB
	vߗ߁B\

	ꢓIٔ䕽ÁC\߁B
	䏊mICsv߁B\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	u󗘈v\

	ITB\

	ؓsvB
	٘_ĜFÁCB\

	y}Az
	svYLB
	ؓsICKRB\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	uIIv\

	y}Az
	ꟁC^B\ŒVC
	@a꣌kCR@A}I\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	u󗘈IIIv\
;`r
	;--L;----------------------------------
	mov $_char,"TH3A"
	mov $debugstr,"FTH3A"
	gosub *char  ;ʂɏo

	yNAz
	u䏫vDlIΎCAݔꠁHv\
	;--L;----------------------------------
	mov $_char,"TU34A"
	mov $debugstr,"FTU34A "
	gosub *char  ;ʂɏo

	yz
	uvCcꢑёꠁv\
	;--L;----------------------------------
	mov $_char,"TH3A"
	mov $debugstr,"FTH3A"
	gosub *char  ;ʂɏo

	yNAz
	uv\
	;--L;----------------------------------
	mov $_char,"TP3C"
	mov $debugstr,"FTP3C"
	gosub *char  ;ʂɏo

	yŉzz
	u󗘈IIv\
	gosub *clear_char	;--Li^񒆁j

	y}Az
	ČB꣖\
	@}꘢DIǁ\
	;-ʉ;----------------------------------
	mov $_se,"ZDOOR4"
	mov $debugstr,"rdFZDOOR4"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	mov %effect,3	;GtFNgw
	gosub *bg	;ʂɏo

	yŉzz
	u󗘈IIIIIv\

	ߏA^ꢓIō@ʁB\
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"20": gosub *out
;BGM:Music Box
	;--wi;----------------------------------
	mov $_bg,"BG148A"
	mov $debugstr,"afFBG148A"
	gosub *bg	;ʂɏo
;;؍XÃANA}iiLj

	IcV@C
	픗ő|NߗB\

	꘢وlC󓠓InB\

	t^MďœI`IB
	΍ߌoKB{YKˑ΁B\

	yŉzz
	ujc⦁c⦁cv\

	䖾YߌoKˑ΁B\

	yŉzz
	u󗘈cv\

	RC៣p٘_@
	sOoC{sB\

	󗘈Ig̈ꓮsC
	靲ݓߗB\

	yynC
	㗹ꢓߖKIˁB\

	R@ʊVI񍐁CꢓI
	Ci^C粁B\

	sCꢔ݊C
	aNbꠁB\
	return
	;----------------------------------
;---U6D  END -----
;============================================
; U7
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/05
;============================================
*U7	; t@CJñx
	mov $debugstr,"U7" : gosub *debugout
;DOUBLEO`܂̂P
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"11": gosub *out
;BGM:Trio
;UFb
	;--wi;----------------------------------
	mov $_bg,"BG021B"
	mov $debugstr,"afFBG021B"
	gosub *bg	;ʂɏo
;;ŉz̕2iԁEmEq哇j
	;--L;----------------------------------
	mov $_char,"TP0A"
	mov $debugstr,"FTP0A"
	gosub *char  ;ʂɏo

	yŉzz
	VCI̎A׎~B\

	yŉzz
	vL
	Aϓ\gpꢓߞI͗ʗGB\

	yŉzz
	CYsߒ_ꟁB\
	;--L;----------------------------------
	mov $_char,"TP0A"
	mov $debugstr,"FTP0A"
	gosub *char  ;ʂɏo

	yŉzz
	zCTݓߘ
	ꢗꠁBL픇yqsYs{B\
	;--L;----------------------------------
	mov $_char,"TP0B"
	mov $debugstr,"FTP0B"
	gosub *char  ;ʂɏo

	yŉzz
	ZC嫑Rsm
	ZsZAB\

	;--BGM;----------------------------------
	mov $_music,"10": gosub *out
;BGM:Tension

	yz
	uccc߁ccߘcv\
	;--L;----------------------------------
	mov $_char,"TP0E"
	mov $debugstr,"FTP0E"
	gosub *char  ;ʂɏo

	yŉzz
	C꣔\IB\
	;--L;----------------------------------
	mov $_char,"TP0J"
	mov $debugstr,"FTP0J"
	gosub *char  ;ʂɏo

	yŉzz
	ꟁC꣈Ȉ׉䐥ʓIlꝁH
	]]B\
	;-ʉ;----------------------------------
	mov $_se,"ZKAZE3"
	mov $debugstr,"rdFZKAZE3"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,1	;GtFNgw
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG021B"
	mov $debugstr,"afFBG021B"
	mov %effect,3	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TP1A"
	mov $debugstr,"FTP1A"
	gosub *char  ;ʂɏo

	yŉzz
	sߏAZs꣖疾IꠁB
	œNAmB\
	;--L;----------------------------------
	mov $_char,"TP1E"
	mov $debugstr,"FTP1E"
	gosub *char  ;ʂɏo

	yŉzz
	꣖bsQꝁH
	ߓRsQB\
	;--L;----------------------------------
	mov $_char,"TP1A"
	mov $debugstr,"FTP1A"
	gosub *char  ;ʂɏo

	yŉzz
	ꣁCsiClIꠁH@\
	;--L;----------------------------------
	mov $_char,"TP1J"
	mov $debugstr,"FTP1J"
	gosub *char  ;ʂɏo

	yŉzz
	v֌nCsp{Il
	hꊁB\
	;--L;----------------------------------
	mov $_char,"TP1B"
	mov $debugstr,"FTP1B"
	gosub *char  ;ʂɏo

	yŉzz
	M꣓IC^IB
	nMGB\
	;--L;----------------------------------
	mov $_char,"TP1A"
	mov $debugstr,"FTP1A"
	gosub *char  ;ʂɏo

	yŉzz
	ׁC̐sbICꠁH\

	yz
	uIIv\
	gosub *musicstop
	;-ʉ;----------------------------------
	mov $_se,"ZBLOOD3"
	mov $debugstr,"rdFZBLOOD3 "
	gosub *se
	gosub *cutting2
	;-ʉ;----------------------------------
	mov $_se,"ZDOSA"
	mov $debugstr,"rdFZDOSA "
	gosub *se

	]雁B\

	ꐺꑖIyCɊɝN
	ݒnIߘB\

	_㕂oߌ_I΁C
	כCyy̒B\
	;--wi;----------------------------------
	mov $_bg,"BG021B"
	mov $debugstr,"afFBG021B"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TP1A"
	mov $debugstr,"FTP1A"
	gosub *char  ;ʂɏo

	yŉzz
	DB\

	yŉzz
	꣓ICACqꠁB\
	return
;----------------------------------------------------------------------------
;͂̕ĂƂƂ́AXNvgfR[hēǂł܂ˁi΁j
;̘b͂cntakdグƂɂۂۂƑłł̂łB
;ZtvCB
;lȂŏbȂ̂ŁAĂĔɋC悩ƂoĂ܂B
;cntakdĂƂ́A
;tbp[YM^[ƃIUPp[vCłB
;uwbhm̐EvÂ݂ƂƂ[
;炩Rlg̃C[WȂłBDłB
	;----------------------------------
;---U7 END -----
;============================================
; U1
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/08
;============================================
*U1	; t@CJñx
	mov $debugstr,"U1" : gosub *debugout
;s@v@s
;|PFV[c̏
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"15": gosub *out
;BGM:Bar
	;--wi;----------------------------------
	mov $_bg,"BG153A"
	mov $debugstr,"afFBG153A"
	gosub *bg	;ʂɏo
;afFBG153A;ŉz̉ƁiQj

	˘w^㓪
	IoC
	粖mȗL^IB\

	ݔ펞C䑍son΋NB\

	퐥דꏏܔMZIC
	Ґ׉@uʙuISC\

	AA䎩ȖsmC
	߈ꍏ퐥ݑꖈ΁B\

	yz
	uCccTccTc
	cˊJnAcD`cv\

	OIlᔒInhWB
	ꢏAꓪmÚyIׁB\

	yz
	uꟁccđ_c樉zC
	꣓IcD_cTcIIv\

	ꢔI_ˁCꢓߑ͍IO\C
	SsqPASsYpCꑓMVB\

	yz
	uʖvCSSsUI
	D_cD_cvZBvZꟁIv\

	RC𔇉񎖊
	SBAABkaB\

	sꝁH\

	ACs}ŔIlB
	SICpkB\

	yz
	uvvCssI@ꟁIIv\

	ꟁCŊ슽IA
	AqAى~IB\

	yŉzz
	u䊴oEDݗhhWWnWv\

	yz
	uʏΗCcđ_cIv\

	׏Y΁C
	꣊ҐsmI׍DꟁB\

	RB\
	return
;^Cgo
	;----------------------------------
;---U1 END -----
