;mode640,value250
*define
nsa
;-------------------------------------------------------------------
;uSd杊O`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		"Sd杊O`(By Torrens moyu.moe)"
	versionstr	"Sd杊O`","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_TODAY	,10	;tEBhE
	numalias SP_FULLSTATUS	,11	;tXe[^X
;---------------------------------------------------------------------------
	numalias SP_C		,12	;O^
	numalias SP_L		,13	;O
	numalias SP_R		,14	;OE
;---------------------------------------------------------------------------
;_CAO֘AXvCg
;̃XvCǵAق̃XvCgQƂԂ点ȂB
	numalias SP_DLG_YES	,15	;YES{^
	numalias SP_DLG_NO	,16	;NO{^
	numalias SP_DLG		,17	;_CAOn
	;-̂R͊Oɂ̂ŃC7-8gp
	numalias SP_DLG_MES	,18	;_CAOŎgbZ[WXvCg
	numalias SP_DLG_MES2	,19	;_CAOŎgbZ[WXvCg
;---------------------------------------------------------------------------
;ړXvCg
	numalias SP_MOVE	,19	;ړ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 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,34
	numalias CG_EFFECT,4
	numalias FADE_LONG,5
	numalias FADE_SHORT,3
	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 status_on	,14	;ȈՃXe[^XON/OFF

	numalias today	  	,15	;̓t0`30܂/0OPB
	numalias today_on 	,16	;̓t\ĂON/łȂOFF
	numalias dayofweek	,17	;̓t0`30܂/0OPB

	numalias w_cur		,18	;J[\łɕ`ς
	numalias w_skip		,19	;XLbv[hϐ

	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 hbg_on		,46	;HBGONȂ1  OFFȂ0
	numalias beam_cnt	,47	;o[Wr[̉
	numalias check_skip	,48	;ONŃXLbvpǂ̃`FbN
	numalias font		,49	;݂̃tHg̃TCY 0=normal/1=small/2=big

;ViI֘A
	numalias hikaru_bad,	100	;badGh1

;---------------------------------------------------------------------------
;ϐ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	;

	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

	numalias carduse	,25	;J[hgp1/J[h炤0
	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

	numalias mapchar	,50	;}bṽt@Cp

;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̖
	numalias g_game		,252	;݂̃Q[ 1:,2:Ђ

;RtBO֘A
;	numalias g_touka	,252	;߂̒lۑ
	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_window_mode	,262	;0EBhE,1=tXN[
	
	numalias g_charb	,263	;b̉ON/OFF
	numalias g_charc	,264	;߂̉ON/OFF
	numalias g_chard	,265	;񂸂̉ON/OFF
	numalias g_chare	,266	;̉ON/OFF
	numalias g_otherX	,267	;̑̉ON/OFF
	numalias g_otherY	,268	;̑j̉ON/OFF
	numalias g_hse		,269	;gȌʉON/OFF

	numalias g_skipmode	,270	;XLbv[h OFSāAPF
	numalias g_koukaoff	,271	;ʁFOFONAPFOFF
	numalias g_cgoff	,272	;XLbvŉ摜ItFO PF\
	numalias g_itazura	,273	;gȂ ;2=ALLOFF/1=1stOnly/0=ALLON
	numalias g_retry	,274	;plgC邩ۂBPł
	numalias g_retry_notice	,275	;gC@\Lۂ
	numalias debug		,276	;ONŃfobOp\
	numalias skip_movie	,277	;1Ń[r[͍ĐȂ
	numalias opening_looked	,278	;I[vjO
	numalias opmovie_looked	,279	;[r[XLbv\

;ViI֘A
	numalias g_End		,280		;GfBO܂ōs
	numalias g_BAend	,281		;bGfBO
	numalias g_BDend	,282		;bGfBO
	numalias g_CAend	,283		;߃GfBO
	numalias g_CDend	,284		;߃GfBO
	numalias g_DAend	,285		;񂸎qGfBO
	numalias g_DDend	,286		;񂸎qGfBO
	numalias g_Eend		,287		;GfBO
	numalias g_Hend		,288		;n[GfBO
	numalias g_Pend		,289		;ÓGfBO
	numalias g_Qend		,290		;oGfBO

;---------------------------------------------------------------------------
;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
;	fobOpɃ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
	mov %g_savenew,100	;savef[^Ƃ100͕sBŏp̃}[NB

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

;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 %g_retry,OFF
	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

;plgCfn
	getini	$tmp,".\kimonex.ini","PANEL","retry"
	if $tmp=="ON" mov %g_retry,ON
	if $tmp=="OFF" mov %g_retry,OFF

;
;itazura=1
;2=ALLOFF/1=1stOnly/0=ALLON
	getini	$tmp,".\kimonex.ini","PANEL","itazura"
	if $tmp=="0" mov %g_itazura,0
	if $tmp=="1" mov %g_itazura,1
	if $tmp=="2" mov %g_itazura,2

;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
	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 
	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,"BLOOD4B"
	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,320
if %is_adv==1	lsph SP_LOAD,       ":a/2,0,3;SYS/SYS_LOAD.JPG"   ,460,320
		lsph SP_SKIP,	    ":a/2,0,3;SYS/SYS_SKIP.JPG"   ,500,320
		lsph SP_AUTO,       ":a/2,0,3;SYS/SYS_AUTO.JPG"   ,530,320
		lsph SP_CONFIG,     ":a/2,0,3;SYS/SYS_CONFIG.JPG" ,560,320
		lsph SP_HELP,       ":a/2,0,3;SYS/SYS_HELP.JPG"   ,590,320
		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 "P2P3P4P5P6P7"
;	exbtn SP_SAVE,  BTN_SAVE,  "P2,1P3P4P5P6P7"   ;Z[u
;	exbtn SP_LOAD,  BTN_LOAD,  "P2P3,1P4P5P6P7"   ;[h
;	exbtn SP_SKIP,  BTN_SKIP,  "P2P3P4,1P5P6P7"   ;XLbv
;	exbtn SP_AUTO,  BTN_AUTO,  "P2P3P4P5,1P6P7"   ;I[g{^
;	exbtn SP_CONFIG,BTN_CONFIG,"P2P3P4P5P6,1P7"   ;RtBO
;	exbtn SP_HELP,  BTN_HELP,  "P2P3P4P5P6P7,1"   ;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
	isskip %w_skip:if %w_skip!=SKIP_SKIP 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
	cell SP_SKIP,0 : print 1
	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
	cell SP_AUTO,0 : print 1
	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[\
;	isskip %w_skip:if %w_skip==SKIP_SKIP return ;XLbv̓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
;̕ӂ͍̉ۑ textbtnwaitŎႢ񂾂c
	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=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

;CO낤c
	if %g_game==0 bg "sys/title1.jpg",0	;wi\
	if %g_game==0 lsp 0,":c/2,0,3;sys/ttl_startm1.jpg",	490,40	;͂
	if %g_game==0 lsp 1,":c/2,0,3;sys/ttl_contm1.jpg",	490,90	;Â
	if %g_game==0 lsp 2,":c/2,0,3;sys/ttl_starth1.jpg",	490,150	;Ђ͂
	if %g_game==0 lsp 3,":c/2,0,3;sys/ttl_conth1.jpg",	490,200	;ЂÂ
	if %g_game==0 lsp 4,":c/2,0,3;sys/ttl_exit1.jpg",	400,260	;I
	if %g_game==0 lsp 5,":c/2,0,3;sys/ttl_config1.jpg",	400,320	;ݒ
	if %g_game==0 lsp 6,":c/2,0,3;sys/ttl_appendix1.jpg",	400,380	;܂

	if %g_game==1 bg "sys/title1.jpg",0	;wi\
	if %g_game==1 lsp 0,":c/2,0,3;sys/ttl_startm1.jpg",	490,40	;͂
	if %g_game==1 lsp 1,":c/2,0,3;sys/ttl_contm1.jpg",	490,90	;Â
	if %g_game==1 lsp 2,":c/2,0,3;sys/ttl_starth1.jpg",	490,150	;Ђ͂
	if %g_game==1 lsp 3,":c/2,0,3;sys/ttl_conth1.jpg",	490,200	;ЂÂ
	if %g_game==1 lsp 4,":c/2,0,3;sys/ttl_exit1.jpg",	400,260	;I
	if %g_game==1 lsp 5,":c/2,0,3;sys/ttl_config1.jpg",	400,320	;ݒ
	if %g_game==1 lsp 6,":c/2,0,3;sys/ttl_appendix1.jpg",	400,380	;܂

	if %g_game==2 bg "sys/title2.jpg",0	;wi\
	if %g_game==2 lsp 0,":c/2,0,3;sys/ttl_startm2.jpg",	490,40	;͂
	if %g_game==2 lsp 1,":c/2,0,3;sys/ttl_contm2.jpg",	490,90	;Â
	if %g_game==2 lsp 2,":c/2,0,3;sys/ttl_starth2.jpg",	490,150	;Ђ͂
	if %g_game==2 lsp 3,":c/2,0,3;sys/ttl_conth2.jpg",	490,200	;ЂÂ
	if %g_game==2 lsp 4,":c/2,0,3;sys/ttl_exit2.jpg",	400,260	;I
	if %g_game==2 lsp 5,":c/2,0,3;sys/ttl_config2.jpg",	400,320	;ݒ
	if %g_game==2 lsp 6,":c/2,0,3;sys/ttl_appendix2.jpg",	400,380	;܂

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

	print BG_EFFECT

	btndef ""
if %debug==OFF	exbtn_d "P0P1P2P3P4P5P6P7"
if %debug==ON	exbtn_d "P0P1P2P3P4P5P6P7P8"
	exbtn 0,1,"P0,1P1P2P3P4P5P6P7S1,(SE\ZOVER.WAV)"
	exbtn 1,2,"P0P1,1P2P3P4P5P6P7S1,(SE\ZOVER.WAV)"
	exbtn 2,3,"P0P1P2,1P3P4P5P6P7S1,(SE\ZOVER.WAV)"
	exbtn 3,4,"P0P1P2P3,1P4P5P6P7S1,(SE\ZOVER.WAV)"
	exbtn 4,5,"P0P1P2P3P4,1P5P6P7S1,(SE\ZOVER.WAV)"
	exbtn 5,6,"P0P1P2P3P4P5,1P6P7S1,(SE\ZOVER.WAV)"
	exbtn 6,7,"P0P1P2P3P4P5P6,1P7S1,(SE\ZOVER.WAV)"
if %debug==ON exbtn 7,8,"P0P1P2P3P4P5P6P7P8"

;	exbtn_d "P0P1P2P3P4"
;	exbtn 0,1,"P0,1P1P2P3P4S1,(SE\ZOVER.WAV)"
;	exbtn 1,2,"P0P1,1P2P3P4S1,(SE\ZOVER.WAV)"
;	exbtn 2,3,"P0P1P2,1P3P4S1,(SE\ZOVER.WAV)"
;	exbtn 3,4,"P0P1P2P3,1P4S1,(SE\ZOVER.WAV)"
;	exbtn 4,5,"P0P1P2P3P4,1S1,(SE\ZOVER.WAV)"
;if %debug==ON spbtn 9,10
;if %debug==ON spbtn 10,11
;if %debug==ON spbtn 11,12

*title_lp
	btnwait %work
	if %work==0 goto *title_lp
	if %work==1 gosub *click: csp -1 : mov %g_game,1 : goto *start_game ;
	if %work==2 gosub *click: csp -1 : mov %g_game,1 : goto *continue   ;
	if %work==3 gosub *click: csp -1 : mov %g_game,2 : goto *start_game ;Ђ
	if %work==4 gosub *click: csp -1 : mov %g_game,2 : goto *continue   ;Ђ
	if %work==5 gosub *click: csp -1 : goto *dlg_end
	if %work==6 gosub *click: csp -1 : goto *config
	if %work==7 gosub *click: csp -1 : goto *cgmode
if %debug==ON if %work==8 gosub *click: csp -1 : goto *debug_goto
;if %debug==ON if %work==10 gosub *click: csp -1 : goto *debug_load
;if %debug==ON if %work==12 gosub *click: csp -1 : goto *debug_info
	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 automode_time 5000
	if %g_auto_speed==1 automode_time 4000
	if %g_auto_speed==2 automode_time 3000
	if %g_auto_speed==3 automode_time 2000
	if %g_auto_speed==4 automode_time 1000
	if %g_auto_speed==5 automode_time 500 ;fobOp
;	if %g_auto_speed==5 automode_time 1000
	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
	if %g_game==1 mov %g_savepage,0  ;
	if %g_game==2 mov %g_savepage,1  ;Ђ
	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
;	repaint
	gosub *return_screen
	return
;-----------------------------------------------------------
*save_out
	for %work=SP_SAVEPAGE1 to SP_SAVEBG:csp %work:next
	if %g_game==1 lsp SP_SAVEBG,":c;SYS\SAVEBG1.jpg",0,0  ;
	if %g_game==2 lsp SP_SAVEBG,":c;SYS\SAVEBG2.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
	if %g_game==1 mov %g_savepage,0  ;
	if %g_game==2 mov %g_savepage,1  ;Ђ
	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ɖ߂
	;goto *system		 ;ȊO̎̓VXeɖ߂
	gosub *return_screen
	return
;-----------------------------------------------------------
*load_out
	for %work=SP_SAVEPAGE1 to SP_SAVEBG:csp %work:next
	if %g_game==1 lsp SP_SAVEBG,":c;SYS\LOADBG1.jpg",0,0  ;
	if %g_game==2 lsp SP_SAVEBG,":c;SYS\LOADBG2.jpg",0,0  ;Ђ
	gosub *saveload_out
	return

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

;y[Wԍ\
;	mov %_x,370	;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,370	;wWl
;	mov %_y,20	;xWl
;	if %g_savepage==0 lsp SP_SAVEPAGE1,":a/2,0,3;SYS/_S1.jpg",%_x+30,%_y
;	if %g_savepage==1 lsp SP_SAVEPAGE2,":a/2,0,3;SYS/_S2.jpg",%_x+60,%_y
;	if %g_savepage==2 lsp SP_SAVEPAGE3,":a/2,0,3;SYS/_S3.jpg",%_x+90,%_y
;	if %g_savepage==3 lsp SP_SAVEPAGE4,":a/2,0,3;SYS/_S4.jpg",%_x+120,%_y
;	if %g_savepage==4 lsp SP_SAVEPAGE5,":a/2,0,3;SYS/_S5.jpg",%_x+150,%_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
;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 "P25P26P27P28P29P30P31P32P33P34P35C36C37C38C39C40C41C42C43C44C45C46C47C48C49C50C51C52C53C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT01, 1,"P25P26,1P27P28P29P30P31P32P33P34P35P36C37C38C39C40C41C42C43C44C45P46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT02, 2,"P25P26P27,1P28P29P30P31P32P33P34P35C36P37C38C39C40C41C42C43C44C45C46P47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT03, 3,"P25P26P27P28,1P29P30P31P32P33P34P35C36C37P38C39C40C41C42C43C44C45C46C47P48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT04, 4,"P25P26P27P28P29,1P30P31P32P33P34P35C36C37C38P39C40C41C42C43C44C45C46C47C48P49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT05, 5,"P25P26P27P28P29P30,1P31P32P33P34P35C36C37C38C39P40C41C42C43C44C45C46C47C48C49P50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT06, 6,"P25P26P27P28P29P30P31,1P32P33P34P35C36C37C38C39C40P41C42C43C44C45C46C47C48C49C50P51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT07, 7,"P25P26P27P28P29P30P31P32,1P33P34P35C36C37C38C39C40C41P42C43C44C45C46C47C48C49C50C51P52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT08, 8,"P25P26P27P28P29P30P31P32P33,1P34P35C36C37C38C39C40C41C42P43C44C45C46C47C48C49C50C51C52P53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT09, 9,"P25P26P27P28P29P30P31P32P33P34,1P35C36C37C38C39C40C41C42C43P44C45C46C47C48C49C50C51C52C53P54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVESLOT10,10,"P25P26P27P28P29P30P31P32P33P34P35,1C36C37C38C39C40C41C42C43C44P45C46C47C48C49C50C51C52C53C54P55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN01, 11,"P25P26,1P27P28P29P30P31P32P33P34P35P36C37C38C39C40C41C42C43C44C45P46C47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN02, 12,"P25P26P27,1P28P29P30P31P32P33P34P35C36P37C38C39C40C41C42C43C44C45C46P47C48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN03, 13,"P25P26P27P28,1P29P30P31P32P33P34P35C36C37P38C39C40C41C42C43C44C45C46C47P48C49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN04, 14,"P25P26P27P28P29,1P30P31P32P33P34P35C36C37C38P39C40C41C42C43C44C45C46C47C48P49C50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN05, 15,"P25P26P27P28P29P30,1P31P32P33P34P35C36C37C38C39P40C41C42C43C44C45C46C47C48C49P50C51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN06, 16,"P25P26P27P28P29P30P31,1P32P33P34P35C36C37C38C39C40P41C42C43C44C45C46C47C48C49C50P51C52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN07, 17,"P25P26P27P28P29P30P31P32,1P33P34P35C36C37C38C39C40C41P42C43C44C45C46C47C48C49C50C51P52C53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN08, 18,"P25P26P27P28P29P30P31P32P33,1P34P35C36C37C38C39C40C41C42P43C44C45C46C47C48C49C50C51C52P53C54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN09, 19,"P25P26P27P28P29P30P31P32P33P34,1P35C36C37C38C39C40C41C42C43P44C45C46C47C48C49C50C51C52C53P54C55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEBTN10, 20,"P25P26P27P28P29P30P31P32P33P34P35,1C36C37C38C39C40C41C42C43C44P45C46C47C48C49C50C51C52C53C54P55P56P57P58P59P60P61P62P63P64P65P66"
exbtn SP_SAVEEXIT,BTN_SAVEEXIT,"P25,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 $_char=="TAA" return	;l̃^`O͏oȂ
	if $_char=="taa" return	;l̃^`O͏oȂ

	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,"06": gosub *out
*CGA
	bg "sys/CGBG.jpg",0	;wi\
;bf[h̃XvCg`
;***********1s***********
mov %_y,20
lsp  0,("cg/B01A.bmp")":c/2,0,3;thum/B01A.bmp"":c;thum/futa.bmp", 20, %_y
lsp  1,("cg/B01C.bmp")":c/2,0,3;thum/B01C.bmp"":c;thum/futa.bmp",150,%_y
lsp  2,("cg/B01B.bmp")":c/2,0,3;thum/B01B.bmp"":c;thum/futa.bmp",280,%_y
;***********2s***********
add %_y,100
lsp  3,("cg/B02A.bmp")":c/2,0,3;thum/B02A.bmp"":c;thum/futa.bmp", 20, %_y
lsp  4,("cg/B02B.bmp")":c/2,0,3;thum/B02B.bmp"":c;thum/futa.bmp",150, %_y
lsp  5,("cg/B03A.bmp")":c/2,0,3;thum/B03A.bmp"":c;thum/futa.bmp",280, %_y
;***********3s***********
add %_y,100
lsp  6,("cg/B03B.bmp")":c/2,0,3;thum/B03B.bmp"":c;thum/futa.bmp", 20, %_y
lsp  7,("cg/B04A.bmp")":c/2,0,3;thum/B04A.bmp"":c;thum/futa.bmp",150, %_y
lsp  8,("cg/B04B.bmp")":c/2,0,3;thum/B04B.bmp"":c;thum/futa.bmp",280, %_y
;***********4s***********
add %_y,100
lsp  9,("cg/B04C.bmp")":c/2,0,3;thum/B04C.bmp"":c;thum/futa.bmp", 20, %_y
lsp 10,("cg/B05A.bmp")":c/2,0,3;thum/B05A.bmp"":c;thum/futa.bmp",150, %_y
lsp 11,("cg/B05B.bmp")":c/2,0,3;thum/B05B.bmp"":c;thum/futa.bmp",280, %_y
;***********z************
lsp 12,("cg/B01A.bmp")":c/2,0,3;thum/B01A.bmp"":c;thum/futa.bmp",500,160
lsp 13,("cg/B04A.bmp")":c/2,0,3;thum/B04A.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 18,":a/2,0,3;sys/modoru.jpg",500, 430
	print 23
;============================================
;{^`
	btndef ""
;***********1s***********
if fchk "cg/B01A.BMP" spbtn  0, 1
if fchk "cg/B01C.BMP" spbtn  1, 2
if fchk "cg/B01B.BMP" spbtn  2, 3
;***********2s***********
if fchk "cg/B02A.BMP" spbtn  3, 4
if fchk "cg/B02B.BMP" spbtn  4, 5
if fchk "cg/B03A.BMP" spbtn  5, 6
;***********3s***********
if fchk "cg/B03B.BMP" spbtn  6, 7
if fchk "cg/B04A.BMP" spbtn  7, 8
if fchk "cg/B04B.BMP" spbtn  8, 9
;***********4s***********
if fchk "cg/B04C.BMP" spbtn  9,10
if fchk "cg/B05A.BMP" spbtn 10,11
if fchk "cg/B05B.BMP" spbtn 11,12
;***********z************
if fchk "cg/B01A.BMP" spbtn 12,13
if fchk "cg/B04A.BMP" spbtn 13,14
;============================================
spbtn 18,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_B01A,*cg_B01C,*cg_B01B,*cg_B02A,*cg_B02B,*cg_B03A,*cg_B03B,*cg_B04A,*cg_B04B,*cg_B04C,*cg_B05A,*cg_B05B,*kaisou1,*kaisou2
	goto *CGA_wait
;============================================
*cg_B01A
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B01A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B01B
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B01B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B01C
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B01C": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B02A
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B02A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B02B
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B02B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B03A
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B03A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B03B
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B03B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B04A
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B04A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B04B
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B04B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B04C
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B04C": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B05A
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B05A": gosub *cgout
	gosub *waitkey
	goto  *CGA
*cg_B05B
	gosub *click
	csp -1
	bg black,23
	mov $_cg,"B05B": gosub *cgout
	gosub *waitkey
	goto  *CGA
*kaisou1
	gosub *click
	csp -1
	bg black,23
	gosub *set_message_window
	gosub *show_window
	gosub *H09	;ЂƂg
	gosub *erase_window
 	gosub *blackout
	goto  *CGA
*kaisou2
	gosub *click
	csp -1
	bg black,23
	gosub *set_message_window
	gosub *show_window
	gosub *M31	;Ƃg
	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
	gosub	*get_hero_name
	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==1 goto *maya
	if %g_game==2 goto *hikaru
*maya
	gosub *M00
	gosub *M01
	gosub *M02
	gosub *M03
	gosub *M04
	gosub *M05
	gosub *M06
	gosub *M07
	gosub *M08
	gosub *M09
	gosub *M10
	gosub *M11
	gosub *M12
	gosub *M13
	gosub *M14
	gosub *M15
	gosub *M16
	gosub *M17
	gosub *M18
	gosub *M19
	gosub *M20
	gosub *M21
	gosub *M22
	gosub *M23
	gosub *M24
	gosub *M25
	gosub *M26
	gosub *M27
	gosub *M28
	gosub *M29
	gosub *M30
	gosub *M31
	gosub *M32
	gosub *M33
	gosub *endroll
	goto  *endend

*hikaru
	gosub	*H00
	gosub	*H01
	gosub	*H02
	gosub	*H03
	gosub	*H04
	gosub	*H05
	gosub	*H06
	gosub	*H07
	gosub	*H08
	gosub	*H09
	gosub	*H10
	gosub	*H11
	gosub	*H12
	gosub	*H13
	gosub	*H14
	gosub	*H15
	gosub	*H16
	if %hikaru_bad==1 gosub *H26 : gosub *endroll : goto *title
	gosub	*H17
	gosub	*H18
	gosub	*H19
	gosub	*H20
	gosub	*H21
	if %hikaru_bad==0 gosub *H22 :gosub *H23 : gosub *H24: gosub *endroll : goto *title
	if %hikaru_bad==1 gosub *H25 :gosub *endroll : goto *title

;-------------------------------------------------------------------
;GfBO
;-------------------------------------------------------------------
*endroll	;X^bt[
	skipoff
	gosub *erase_window
	csp -1
	gosub *blackout
	gosub *sestop
	gosub *musicstop
	gosub *whiteout

	resettimer
	mov $_music,"13": gosub *out
	gosub *blackout
	btndef ":c;sys/endroll.jpg"
	trap *endroll_end
	for %0=0 to 2240-480
		blt 0,0,640,480,0,%0,640,480
		wait 20
	next
*endroll_end
	ofscpy
	trap off
	btndef ""
	gosub *musicstop
	gosub *whiteout
	definereset
	return

;11.txt 

;12.txt 
;SO`uv 
;============================================
; M00
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M00	; t@CJñx
	mov $debugstr,"M00 " : gosub *debugout
;uSd杊O`@ҁvFSO`QFM00
;
;SO`Q
;^CgFSURREAL
;$g_heroiSjƖ
;QS܂łǁAȂׂQO炢
;PQRSTUVWXOPQRSTUVWXO
;S{҂͂XȂ̂ŁAV`WB
;ċx݂̎
	gosub *musicstop

	;--BGM;----------------------------------
	mov $_music,"06": gosub *out
;BGM:knud@ÂJW
;no
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
;noF

	䐳璅B
	꒼A꒼s璅B\

	zvIC͋͑L꘢B
	BLꣁB\

	֗vpI؋B
	zvꣁB\
	return
	;----------------------------------
;---M00  END -----
;============================================
; M01
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M01	; t@CJñx
	mov $debugstr,"M01 " : gosub *debugout
;uSd杊O`@ҁvF킢FM01
;
;킢
;AjBVoĂ
	gosub *musicstop
	;-ʉ;----------------------------------
	mov $_se,"ZSYUAN"
	mov $debugstr,"rdFZSYUAN"
	gosub *se
	gosub *cutting1

	NV~B\
	;-ʉ;----------------------------------
	mov $_se,"ZI001"
	mov $debugstr,"rdFZI001 "
	gosub *se

	;--BGM;----------------------------------
	mov $_music,"11": gosub *out
;BGM:ehfgs@
	;--wi;----------------------------------
	mov $_bg,"BG004B"
	mov $debugstr,"afFBG004B"
	gosub *bg	;ʂɏo

	yHHHz
	ZꝁI\

	꘢NyINB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	ώC꣔ƚII\

	ߐ꘢g[ɋCˑRgΉlIB\

	MMI@׋NC
	ًْnZㅍݖʗetcIgB\

	@w偕ߐHʁB\

	yHHHz
	꣏AꠁB
	uߐꢐuߘSvIB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo
	;-gʉ;----------------------------------
	mov $_se,"WH007"
	mov $debugstr,"gFWH007 "
	gosub *se

	yz
	IcI
	ꣁccmFFIcc\

	yHHHz
	SR
	MlޓIbꟁB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	xII{I\

	yHHHz
	v\SߎSI
	csCˏ׊F{ÍB\

	yHHHz
	ߍ`As\Α҉߉IƚC
	v樑쏊Llsꉺꏗ͗ʁB\
	;-ʉ;----------------------------------
	mov $_se,"ZFEEN2"
	mov $debugstr,"rdFZFEEN2"
	gosub *se

	N]騍싿n
	Ig̉zzفB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo
	;-gʉ;----------------------------------
	mov $_se,"WH007"
	mov $debugstr,"gFWH007 "
	gosub *se

	yz
	FFcFFcB\

	ߏɋIB\

	yHHHz
	vpIBvLC\oINB
	٘_dCҐScB\

	B
	ŕsꢓI\B\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ccccccB\

	yHHHz
	@꣕szINؐЁC
	AōDߘbB\
;ŉy؂ւB
	gosub *musicstop
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	c^IvLlBEߔNꝁH\

	yHHHz
	꣈Ȉ׉䎊׎~Ca꣘Iő
	DlߑH\

	yHHHz
	VC
	Asv\蒆EB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	cG`B\

	yHHHz
	꣍݊QꝁH\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	\B\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ݑzcŗ꣔VO
	aꍱIƚߎꡁB\

	;--BGM;----------------------------------
	mov $_music,"10": gosub *out
;BGM:cdbhcd@I
	;-- CxgCG;----------------------------------
	mov $_cg,"A01A"
	mov $debugstr,"bfFA01A"
	gosub *cgout	;Cxgbf
;̉f@I08AEς

	yHHHz
	YIH\

	yz
	ꟙI꣊Ys^IȈׁC
	A~_sI͗ʁCA\SZ{ꠁH\

	yHHHz
	ꣁc꣔ƚꟁII\

	yz
	ᖼזB
	]RۓqVB\

	yHHHz
	IcIRc|ُIH
	׏YcˊҁcI\

	yz
	A~꣔nI͗ʁc
	{vLnhIKvB\

	yHHHz
	YIH\
	;-ʉ;----------------------------------
	mov $_se,"ZI001"
	mov $debugstr,"rdFZI001 "
	gosub *se
;rdFZI001;U

	yz
	RAGlI͓sŕsꟁB
	Ap꣓IC׎ȓI܍ꠁB\
	;-ʉ;----------------------------------
	mov $_se,"ZZ052"
	mov $debugstr,"rdFZZ052 "
	gosub *se
;rdFZZ052;
	gosub *cutting2

	yHHHz
	ݙcI\
	gosub *musicstop
	;-ʉ;----------------------------------
	mov $_se,"ZDOSA"
	mov $debugstr,"rdFZDOSA "
	gosub *se

	oʁcII\

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BG004B"
	mov $debugstr,"afFBG004B"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	cRҊꟁB
	꣔ÐIq^ꟁB\

	yHHHz
	ccI꣔ƚcII\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ZCُcꠁB
	ƚ쐥CsُB\

	puIC
	΍݌
	sfG従IgesځB\
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG008A"
	mov $debugstr,"afFBG008A"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	yz
	cFFcB\

	yz
	cFFccB\

	yz
	꣍݁cꖗcH\
;P
	return
	;----------------------------------
;---M01  END -----
;============================================
; M02
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M02	; t@CJñx
	mov $debugstr,"M02 " : gosub *debugout
;uSd杊O`@ҁvFa@F$g_heroƗԁFM02
;
;a@F$g_heroƗ
	gosub *musicstop
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
;afFBLACk

	\\@꘢@@\\\

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	gosub *bg	;ʂɏo
;afFa

	y$g_heroz
	ꟁ`ꟁCDꟁcBY
	VCVcBdkցcB\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	^IIFF^IB
	De󗹏CA_ꊁB\

	y$g_heroz
	꣓A_ss
	v݈@ߏIFFꝁH\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	L__ꠁB\

	y$g_heroz
	sAOȚvBڍܗꠁH
	nsDDIꡁB\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	㐶sCaDԐʑ󗹔_C
	ȒA瑁B\

	y$g_heroz
	^DꠁB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	琥CLFF
	AL_꘢D_ꡁB\

	y$g_heroz
	꣐ԁH\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	ꟙCJߏΓIJߏΓIBprC
	˗CFF꣍Ŗ_B\

	y$g_heroz
	꣔ݕEꟁB\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	VccB\

	y$g_heroz
	sCnAvƗꠁB
	y闹H\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	vꊁBFF꣏o@IC
	ۏؑSsyÓB\

	y$g_heroz
	VƁCV[ԁB
	TC^ꟁB\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	ꟁB
	ACoL_⛋ꟁ`\

	y$g_heroz
	⛋H׏YH\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	חvaF앪JvB
	꣕soL_⛋ꝁH\

	y$g_heroz
	ŘdbCҋʕsADB
	svbB\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	ˑRASbH\

	y$g_heroz
	׍ݒnIꟁB\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	FFꟁCDs
	⛋ҔߏVޓIꠁB\

	y$g_heroz
	^veBDe琥LߎSIDꠁB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	ꝁ`\

	y$g_heroz
	꣑ΐVI
	A_ssSꝁH\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	ߓ|ccL_ꊁCs߁cc\

	y$g_heroz
	꣊ŁCsA񎖚vB
	b񗈁Cԕa[cc瑾ؗꠁcc\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	אola[vB\

	y$g_heroz
	ʔvꝁH
	Ґa[rDꠁH\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	a[vLʗB
	KIbCIیCȖvB\

	y$g_heroz
	ꝁHߓ|ҍDcc\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	ΕFFIlC
	^Dꡁ`\

	y$g_heroz
	DΓҐScc\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	sAvB
	꣊ŁCȑO꣔햀ԓI琥cc\

	yHHHz
	PAPB\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	˓ߐcca[IlꠁBʓI
	qfCȊŕsAcc\

	y$g_heroz
	TB琥ꎟߓIB
	jlꟁB\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	Iaccskdꟁcc
	쐥sDꟁcc\

	y$g_heroz
	YsꠁB
	^L댯IbCAihbtB\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	TcB琥ꡁB\

	yŌt̂oz
	ŏ`
	TԍsvG\B\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	ꟁCDII
	ߛVA񋎗CFFB\

	y$g_heroz
	TByy__DB
	􎢖痈ŊŉꟁB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	kZCČvsꠁ\B
	IB\

	y$g_heroz
	TBH㏬SB\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	D\BVꊁ\B\
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZDOORC"
	mov $debugstr,"rdFZDOORC"
	gosub *se
;rdFZDOORC;hA܂Bp^
	return
	;----------------------------------
;---M02  END -----
;============================================
; M03
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M03	; t@CJñx
	mov $debugstr,"M03 " : gosub *debugout
;uSd杊O`@ҁvFESBłĂFM03
;
;ESBłĂ

	;--BGM;----------------------------------
	mov $_music,"09": gosub *out
;BGM:cdrhqd@́B
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG006A"
	mov $debugstr,"afFBG006A"
	gosub *bg	;ʂɏo
;afF̉
	;--L;----------------------------------
	mov $_char,"TQB"
	mov $debugstr,"FTQB "
	gosub *char  ;ʂɏo

	ySz
	ꋖvo嗹ꝁCl\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	SB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	AZꋔӖڒnqQCs\QZlIcc
	ꋖYO{VIꝁH\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	mIB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	ߗCF{ߍƚIcc\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	plmB
	sלB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	lꋔ鋭Il|ٖWB
	A񏊗LSsaꋈB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ҎsADB\
	;--L;----------------------------------
	mov $_char,"TQB"
	mov $debugstr,"FTQB "
	gosub *char  ;ʂɏo

	ySz
	䔇𖽁C\nE߈ꎟB
	lB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	cccccccB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	ȉP׎CS㉺
	sݐqQ߈ʑlB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ccccccB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	ҐꋁCҐꋎbꉺB
	lB\
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yz
	mBsIB
	oUUSB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	튴ꋁClB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ƗA꣗B\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	BߛCꋑDB\
	return
	;----------------------------------
;---M03  END -----
;============================================
; M04
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M04	; t@CJñx
	mov $debugstr,"M04 " : gosub *debugout
;uSd杊O`@ҁvFa@ŁF凂$g_heroFM04
;
;a@ŁF凂$g_hero

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	gosub *bg	;ʂɏo
;afFa

	yHHHz
	꣔lC^sꟁB\

	y$g_heroz
	H\

	y$g_heroz
	i粁cΖʏߘlIꠁHj\

	y$g_heroz
	i˖ߓCTcNa
	@scꠁcHj\

	y$g_heroz
	iAocLcB
	@ߐ}c͗cj\

	y$g_heroz
	iȒAlc
	@ߎ튴oIcj\

	yHHHz
	]ꟁCcqfIB
	kꠁBAΕI_sŕsA֓VB\

	y$g_heroz
	sc|ُB\

	y$g_heroz
	iszc樉œ_ꝁHj\

	yHHHz
	PcIPcI@PcI@@\

	y$g_heroz
	ꣁA꣖vꠁH
	g̕sꝁH@vmꝁH\

	yHHHz
	vGBvLߛdB
	VѕaB\

	y$g_heroz
	ߏAcsꠁB
	b񗈁C꣋YH\

	yHHHz
	cc凁B
	ʍCs凘OI凁B\

	y$g_heroz
	凁H@cC^IꟁB\

	y凁z
	ꝁBYIsُB
	sߐWӔ뗹B\

	y$g_heroz
	ACvLkIB
	A슽IwqIssB\

	y凁z
	꣗LFꝁH\

	y$g_heroz
	sCݖvLB\

	y凁z
	Tcc꣔lc^sꡁB\

	y$g_heroz
	ꖗsH\

	y凁z
	eʓsB@c_
	꣗LߛIC^樐lꟁB\

	y$g_heroz
	琥ꟁBԓ߉ƚCmk樉䎩B\

	y凁z
	GB\

	y$g_heroz
	vꟁB\

	y凁z
	o꣜kL뗹B
	{lssYΎƐlꍱꝁH\

	y$g_heroz
	lRsIAlRsBC\RsIA
	RsBLNsmY󗹁B\

	y凁z
	ꟙB^sB
	IlCYsߘꠁB\

	y$g_heroz
	ߘH\

	y凁z
	L`B֘O{V
	ݔƈ@Z@I꘢wIB\
	return
	;----------------------------------
;---M04  END -----
;============================================
; M05
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M05	; t@CJñx
	mov $debugstr,"M05 " : gosub *debugout
;uSd杊O`@ҁvFƐ܌FM05
;
;Ɛ܌

	;--BGM;----------------------------------
	mov $_music,"09": gosub *out
;BGM:cdrhqd@́B
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG007A"
	mov $debugstr,"afFBG007A"
	gosub *bg	;ʂɏo
;afF܌̕
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ށC^HqBYc
	䔇XH\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ׁc֗B\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ꋜsQCvꡁB
	DJn{GB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	vߎ틻B
	sߘCߐYB粓ߘIlB\
	;-- CxgCG;----------------------------------
	mov $_cg,"A02A"
	mov $debugstr,"bfFA02A"
	gosub *cgout	;Cxgbf
;B

	y܌z
	lꟁBꢋB\
	;--wi;----------------------------------
	mov $_bg,"BG007A"
	mov $debugstr,"afFBG007A"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	䓖RmꟁB
	䐥z꣗v\ꢗvBH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	TCZꠁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	s߁CLҜkIB
	ߛwqCsaH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	@q^ꟁBꢊmaGB
	vsǁCkAIꠁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ӏꢕϐS嗈ꢑH꣏Y
	JnMuÎҊH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	CK뗹B
	Zp`IꠁB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	`YH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ߍSV͗ʓIlޙށB\
	return
	;----------------------------------
;---M05  END -----
;============================================
; M06
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M06	; t@CJñx
	mov $debugstr,"M06 " : gosub *debugout
;uSd杊O`@ҁvFaF凂$g_heroFOFM06
;
;aF凂$g_heroFO

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	gosub *bg	;ʂɏo
;afFa

	y凁z
	@ʗL푶݁CAA\iܐtC
	꣉zH\

	y$g_heroz
	ߐYHsVVޓIꝁH
	ߎ퓌\ꟁH\

	y凁z
	ȉːCDIzꟁB
	ƈ@C\L꘢aZ@IwB\

	y$g_heroz
	R@ꡁH\

	y凁z
	嫑Rݗp򎡖ITkccB
	AߛwqIadꡁB\

	y$g_heroz
	ccccccB\

	y凁z
	ꢏZ݊uǁC
	։ߙ{B\

	y凁z
	ō@ꎟꢓICꢐC
	ȗvdGB\

	y$g_heroz
	dH\

	y凁z
	ꟁBϐScLꠁB
	ꗈCA\ꏒɋꒆEB\

	y$g_heroz
	oMYIcB\

	y凁z
	NmꡁBsߚvColݖʗՐ]C
	SZCꍪ~jIGB\

	y$g_heroz
	cc꣖ꝁH\

	y凁z
	NmꡁBדߓso݉ʑOꟁB
	ߘ|I݁B\

	y$g_heroz
	ߐYH\

	y凁z
	u×LCJoQRVԁB
	@ICaINccv\

	y$g_heroz
	꣐IߘI݁cc
	AߘcꝁH\

	y凁z
	SꟁB\

	y$g_heroz
	SH\

	y凁z
	ꟁBZSꠁB
	ߐvÁCA\ϐSB\

	y$g_heroz
	ϐSHvH\

	y凁z
	NmꡁC߈ȍ@AvꢗC
	ȉsmꢍ@ϐYB\

	y$g_heroz
	Gcc\

	y凁z
	ꡁHAZsĐlC
	AZϐSzꝁH\
;----------------------------------
*hintM06
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintM061off
	csel
	"SɂȂĂ݂", *M0610,
	"l̂܂܂ł", *M0620,
	"qg", *M0630
*hintM061off	;qgOFF̂Ƃ
	csel
	"SɂȂĂ݂", *M0610,
	"l̂܂܂ł", *M0620
;----------------------------------
*M0610
;SɂȂĂ݂

	y$g_heroz
	vcc
	ϐSDLӎvIB\

	y凁z
	GccҗLz@ꟁB\

	y$g_heroz
	vzߛ[AB\
	goto *nextM06	;nextM06ֈړ
;----------------------------------
*M0620
;l̂܂܂ł

	y$g_heroz
	ccsϐSsB
	ҐlrDB\

	y凁z
	AZH\

	y$g_heroz
	樉ϐs䎩ȓIqC
	sB\

	y凁z
	@BL꣍DnA\o@C
	AlIB\
	goto *nextM06	;nextM06ֈړ
;----------------------------------
*M0630
;qg

	uzϐSv
	uplv\

	ӑI꣊슽IꍀB\
	goto *hintM06	;hintM06ֈړ
;----------------------------------
*nextM06

	y凁z
	@ʐ^I݋A펧L͗ʓI
	ꡁCҐ]Ȗ\ϐߞꡁB\

	y$g_heroz
	ccVz펖
	o\DIassDB\

	y凁z
	琥ꡁcc
	ΗCLz`ꣁB\

	y$g_heroz
	`H\

	y凁z
	sY厖GB
	VccLlcc\

	y凁z
	C]꣔\bJꉺB
	ߘccszlœC꣉YꠁH\

	y$g_heroz
	TB
	@ʑߎ펖IbC骁B\

	y凁z
	ӎꣁB
	䍷sYBӈB\

	y$g_heroz
	ӈB\
	return
	;----------------------------------
;---M06  END -----
;============================================
; M07
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M07	; t@CJñx
	mov $debugstr,"M07 " : gosub *debugout
;uSd杊O`@ҁvF̂ԂƐ܌FM07
;
;̂ԂƐ܌

	;--BGM;----------------------------------
	mov $_music,"09": gosub *out
;BGM:cdrhqd@́B
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG007A"
	mov $debugstr,"afFBG007A"
	gosub *bg	;ʂɏo
;afF܌̕
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	IvH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ICҎZB
	嫑RŋNs͗ʋISAB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ꝁB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	vcvҎZpAsꠁB
	LꢖZחyIUavB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ŗꢊSLlꡁBߌoLl
	smꖙߐIQ嗈cB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	QꋓIꝁH\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	I㗝lB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	^ꟁB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	b񗈁Cߐ뗈cB
	za]RƓIlnꉺcB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ꢍ񋎗GB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	^ɁB
	߉V@ĐeߋꠁB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	ꢊҐVqC꘢FFIB
	DߌocOwqIYB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	꣐aF{IőDlߌH\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	ꟁB䖾ߛ؏ꢁCꢈ_Icc\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	L퐥vB琥vꔖ@IB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	ꢔlCҐ^_svꡁB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ꟁccs߁cc
	sYQꡁB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	^svcB׏Y
	sߛߘlꡁB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ꡁH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	|occvsݗk]؁B
	Cٖ@ߞzB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	sǐSCҐlށC\DSI
	sL꘢ꠁB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	슽C}C判CB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ICAꠁB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	NmꡁBcc
	sꉏYB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	꣐^sꡁB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	˕sc^
	i꣔cIlB\
	return
	;----------------------------------
;---M07  END -----
;============================================
; M08
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M08	; t@CJñx
	mov $debugstr,"M08 " : gosub *debugout
;uSd杊O`@ҁvFƂ̂ԁFM08
;
;Ƃ̂
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BG006A"
	mov $debugstr,"afFBG006A"
	gosub *bg	;ʂɏo
;afF̕F

	\\@\\B\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	꣉씇X
	Ґ^HꡁCEB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	z]RؘlB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	Llޑz׋SꠁH
	^忁B\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	bs\ꠁH
	]R@C琥ϒSI͗ʍ˓ȔɉhIB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	^ccB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	s_DC@slޓI㗹B
	ccsCS卪{AsvEꠁB\
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yz
	vLFF
	AꗹB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	lމYC樈ؐ׉ߋB
	SsρBٖ@ρB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ߛƚC{AvYIB
	LȁBA퐶B\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	c꣔cbIԓxc
	aߘlCҐ^ꡁB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ߎbAƗB
	ʐC꣐vIlH\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ꟁCߘꟁcB\
	return
	;----------------------------------
;---M08  END -----
;============================================
; M09
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M09	; t@CJñx
	mov $debugstr,"M09 " : gosub *debugout
;uSd杊O`@ҁvF$g_heroƔFM09
;
;$g_heroƔ

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG005B"
	mov $debugstr,"afFBG005B"
	gosub *bg	;ʂɏo
;afFaij

	y$g_heroz
	ioꟁcB
	@CҒ슽ŌIꟁcj\
	;--wi;----------------------------------
	mov $_bg,"BG008A"
	mov $debugstr,"afFBG008A"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	y$g_heroz
	i^zݔX܌ꟁc
	@@ꟁcBa\s\_Dꟁcj\

	y$g_heroz
	iZCVʏoIb
	@Amҗvԑvԗcj\

	y$g_heroz
	ib񗈁C凁crꟁcB
	@^cI̎csCIƚꟁcj\

	y$g_heroz
	iΕΊҐSꟁcj\

	y$g_heroz
	iʁCqA꒼f
	@AI_sv߁cj\

	y$g_heroz
	iZ@ȗC
	@AvߗLlT]ߑj\

	y$g_heroz
	iYsCfJq
	@ʑNssꠁccj\

	y$g_heroz
	icccccccccccccj\

	y$g_heroz
	ioCL_QNj\

	y$g_heroz
	i嫑RґCAҐꠁB
	@TCAꔁj\
	gosub *blackout
	return
	;----------------------------------
;---M09  END -----
;============================================
; M10
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M10	; t@CJñx
	mov $debugstr,"M10 " : gosub *debugout
;uSd杊O`@ҁvFƖFM10
;
;Ɩ
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG006B"
	mov $debugstr,"afFBG006B"
	gosub *bg	;ʂɏo
;afF
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	cꝁB\
	;-ʉ;----------------------------------
	mov $_se,"ZFUSUMA"
	mov $debugstr,"rdFZFUSUMA "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG008A"
	mov $debugstr,"afFBG008A"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	yz
	cFFk슽ꡁcB\

	yz
	FFcB\

	yz
	i׏YC@n]ꡁB
	@׏YC@nzꡁj\

	yz
	i٘_AVACҐԞScj\

	yz
	iER
	@@VI\Icj\

	yz
	AC@ʔ\꣓Ib
	YssvB\

	yz
	isvzB
	@svj\

	yz
	݉IEC
	vFFB\
	return
	;----------------------------------
;---M10  END -----
;============================================
; M11
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M11	; t@CJñx
	mov $debugstr,"M11 " : gosub *debugout
;uSd杊O`@ҁvFAߋzFM11
;
;Aߋz

	;--BGM;----------------------------------
	mov $_music,"06": gosub *out
;BGM:knud@ÂJW
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG009A"
	mov $debugstr,"afFBG009A"
	mov %effect,21	;GtFNgw
	gosub *bg	;ʂɏo
;afF̖OۂƂ
	;--L;----------------------------------
	mov $_char,"TIA2"
	mov $debugstr,"FTIA2"
	gosub *char  ;ʂɏo

	yz
	꣍݊ŏYꡁCFFH
	ݔn꘢lB\

	y$g_heroz
	TH@I܌ꊁB
	꣖vꝁH\
	;--L;----------------------------------
	mov $_char,"TIC2"
	mov $debugstr,"FTIC2"
	gosub *char  ;ʂɏo

	yz
	TI\

	y$g_heroz
	^ꟁcB\
	;--L;----------------------------------
	mov $_char,"TIA2"
	mov $debugstr,"FTIA2"
	gosub *char  ;ʂɏo

	yz
	לkYꝁH\

	y$g_heroz
	RُBݔʑO
	@Is|وӋ`B\

	y$g_heroz
	슽ICA슽B
	Ή䗈C͍߁B\
	;--L;----------------------------------
	mov $_char,"TIA2"
	mov $debugstr,"FTIA2"
	gosub *char  ;ʂɏo

	yz
	TcB\

	y$g_heroz
	Cc苋B\
	;--L;----------------------------------
	mov $_char,"TIA2"
	mov $debugstr,"FTIA2"
	gosub *char  ;ʂɏo

	yz
	THꝁH\

	$g_heroZIB\

	y$g_heroz
	cckyꟁB
	đ_ꟁB\

	I_jCgB
	mȓI_j׉KNFB\

	yz
	icFFCYsmꠁcj\

	y$g_heroz
	BCꠁB\
	;--L;----------------------------------
	mov $_char,"TIA2"
	mov $debugstr,"FTIA2"
	gosub *char  ;ʂɏo

	yz
	L݊ꊁB\

	Œyyʉ_IC
	ΗB\

	y$g_heroz
	c^\꣖vꔖ@B
	CꣁB\
	;--L;----------------------------------
	mov $_char,"TID2"
	mov $debugstr,"FTID2"
	gosub *char  ;ʂɏo

	yz
	VIHꟁcI\

	y$g_heroz
	A\gaNꠁH\
	;--L;----------------------------------
	mov $_char,"TIC2"
	mov $debugstr,"FTIC2"
	gosub *char  ;ʂɏo

	yz
	TcB\

	yz
	i׏YCꡁj\

	ቺCZ{OB\

	yz
	i׏YC슽ꡁcj\

	y$g_heroz
	ŋ߁Cߛ񌟔g^ϐlꟁB\
	;--L;----------------------------------
	mov $_char,"TIA2"
	mov $debugstr,"FTIA2"
	gosub *char  ;ʂɏo

	yz
	cHIXqB\

	y$g_heroz
	ꟁC슽B슽B
	슽ԁB슽hlB\

	y$g_heroz
	C슽䎩ȁB
	vzߗvj~IȁB\
	;--L;----------------------------------
	mov $_char,"TIC2"
	mov $debugstr,"FTIC2"
	gosub *char  ;ʂɏo

	yz
	cTBꟁcB
	琥B꒼Cs@B\
	gosub *clear_char	;--Li^񒆁j

	yz
	iAZߋSNCAZߋNj\

	yz
	iAZ]dC
	@슽FFIj\
	return
	;----------------------------------
;---M11  END -----
;============================================
; M12
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M12	; t@CJñx
	mov $debugstr,"M12 " : gosub *debugout
;uSd杊O`@ҁvF凁F$g_hero̗͂ɋCFM12
;
;凁F$g_hero̗͂ɋC

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG005B"
	mov $debugstr,"afFBG005B"
	gosub *bg	;ʂɏo
;afFa

	y凁z
	cߌoc粓IuvCꝁcB\

	y$g_heroz
	ā\Bā\\B\

	y凁z
	ŗꟁB
	Ic^ꟁcB\

	凍ݔ픒FquJI
	㍿NgB\

	݌foIge
	Ȓ͖؈@ׁB\

	ŕmՎSC
	LI͟ʁB\

	凊Ɋɒn⋋NgC
	quJIԗog`B\

	凁CFIB\

	s͋͐FI߁B
	ݑ@Nʑ@דIg̏
	nZㅒI}сB\

	ߒLoIoAor
	sKCAAAA_ArI
	sZ}сB\

	L˓ICB񗯒ꓹDB\

	hhWWnB
	簒HSʓIC
	݈ӓI$g_heroB\

	vLlœC^IȈבHꠁB
	凘ANrsvLoB\

	y凁z
	cccccccB\

	Î$g_heronI_ˁB
	蜓nC
	$g_herovL@oIvB\

	y凁z
	IccB\

	凓fo㓾@ʓIB\

	y凁z
	i^YꟁcB嫑R䘸vz
	@LVpY`e`ejlcj\

	y凁z
	iꢐߓIߘuYIlv
	@s甇Yꡁcj\

	凜nRȗ{pB
	mgȘoΓI\C
	ߖ瑁ߊŕsoΗeB\

	֔@凊ҐΗ\\ss΁B\

	y凁z
	iLQRVx]JoIB
	@IwCaIjwcꝁj\

	y凁z
	ivIC
	@嫑RsAScj\

	y凁z
	ivIC٘_SsُꠁB
	@߉䖔ZYꡁj\

	y凁z
	i@ʐڎ󐮌`pIbC
	@vDkcꝁj\

	y凁z
	iaݓI䑊CmzRI
	@vj\

	y凁z
	iv͗ʁcҗIbB
	@scAZҗٍϘꠁj\

	y凁z
	iSꝁcj\
	;-- CxgCG;----------------------------------
	mov $_cg,"A01B"
	mov $debugstr,"bfFA01B"
	gosub *cgout	;Cxgbf
;̉f@I08AEmN

	y凁z
	iߘSIl\\
	@\\ꢜkYBkBkj\

	y凁z
	ia䎊׎~E{ISssB
	@Rݓߎ퐶ꝁcj\

	y凁z
	i׎~I䋆ZYB
	@חF{VCsfDlj\

	y凁z
	iDlBDlB
	@ICpُLj\

	y凁z
	iˋ@Ij\

	y凁z
	i֔@Cs\AB
	@vcBcҕszAj\

	y凁z
	i͗ʁcj\

	凊Ō݈ӓI$g_heroB\

	y凁z
	icD摼lIu͗ʁvc
	嫑Rmcדcj\
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG005B"
	mov $debugstr,"afFBG005B"
	gosub *bg	;ʂɏo

	凖ۓےnZ}ѓIo
	\݋OBꢒᐺꡚfB\
	;-ʉ;----------------------------------
	mov $_se,"ZZ017"
	mov $debugstr,"rdFZZ017 "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,29	;GtFNgw
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG005B"
	mov $debugstr,"afFBG005B"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
;<CR>
	;-ʉ;----------------------------------
	mov $_se,"ZZ018"
	mov $debugstr,"rdFZZ018 "
	gosub *se

	݊OI
	$g_heroIg̔o䊁B\

	y凁z
	iccu͗ʁvccIHj\

	y凁z
	icccccIu͗ʁvccIj\

	y凁z
	icƚ쐥SIőcH
	@ŋNsuvcj\

	y凁z
	ipSVIlꠁcj\

	凑zYIC__B\

	y凁z
	icTcIbc
	@vgpI͗ʁccj\
;Ŏl̗͂荞ނƂl

	y凁z
	icvBҁcҗLcj\

	y凁z
	iҁcs\cBscj\
;--------
	return
	;----------------------------------
;---M12  END -----
;============================================
; M13
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M13	; t@CJñx
	mov $debugstr,"M13 " : gosub *debugout
;uSd杊O`@ҁvFFM13
;
;
;afFƂ
	gosub *musicstop
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	gosub *moon

	꣑zvIYB\

	K@nʁ@_
	l@y@\

	FH@lH\

	V\

	ꠁC꣑zvYH\
;Q
	return
	;----------------------------------
;---M13  END -----
;============================================
; M14
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M14	; t@CJñx
	mov $debugstr,"M14 " : gosub *debugout
;uSd杊O`@ҁvFEFM14
;
;E
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;-ʉ;----------------------------------
	mov $_se,"ZSUZUME"
	mov $debugstr,"rdFZSUZUME "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG006A"
	mov $debugstr,"afFBG006A"
	gosub *bg	;ʂɏo
;afF̕
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ꟁcDc\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	DClB
	ꋐ^ꟁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	꣔慎hꝁH\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	ߔћߌoyDB
	OCElꋍVLYŎZB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ꟁCv
	ߘzϐSIƚB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	lvꝁH\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	Yꡁc
	\pŔꝁc\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	@spŔԓInGB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	AZҍ݉ƗC
	QsFFꟁB\
	;--L;----------------------------------
	mov $_char,"TQA"
	mov $debugstr,"FTQA "
	gosub *char  ;ʂɏo

	ySz
	HHBDIC䖾B
	s߁CҐꋕsv駚GB\
	return
	;----------------------------------
;---M14  END -----
;============================================
; M15
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M15	; t@CJñx
	mov $debugstr,"M15 " : gosub *debugout
;uSd杊O`@ҁvF$g_heroƗ鎭FM15
;
;$g_heroƗ鎭

	;--BGM;----------------------------------
	mov $_music,"04": gosub *out
;BGM:g`ooxFɂI
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	gosub *bg	;ʂɏo
;afFa

	y$g_heroz
	DhccB\

	y$g_heroz
	ꟁ`C@Iэ؜A
	hꡁcc\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	FFC䗈ꊁ`B\

	y$g_heroz
	GGC꣗ꊁI
	ꡁIH@GuꡁH\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	݈@IADvcBꣁB\

	y$g_heroz
	IkAꟁB
	VCꊁB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	V׏IlꡁH\

	y$g_heroz
	凁H\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	凁H\

	y$g_heroz
	߉ƚIBݍDݘ􌟍B׉䓖
	̏CȖsk^B\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	ꟁcB׍V䑾DC
	ȘƖݗ]cc\

	y$g_heroz
	B\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	LFF꣓IꏚGB
	ACYꡁcB\

	y$g_heroz
	䗈꣓]ꠁB\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	s꣈꘢lh{GB\

	y$g_heroz
	mꊁB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	s߁Ci꣖ށB
	꣘Y֌nϔDH\

	y$g_heroz
	ks֌nDYIcB\
	;--wi;----------------------------------
	mov $_bg,"BG005C"
	mov $debugstr,"afFBG005C"
	mov %effect,23	;GtFNgw
	gosub *bg	;ʂɏo
;----mg[

	y凁z
	@ʑ݈\AC
	󊎉iܐtIC꣉zH\

	y凁z
	꣉HgsĐlC
	gϐSCzvꝁH\
;-------------
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	mov %effect,23	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	FFH\

	y$g_heroz
	sCvYBNC꣑
	SVޓIkꠁB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	ZskꊁcB\

	y$g_heroz
	LߎlϐSI@ꝁH\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	@LkGBAcc
	sz݈@cB\

	y$g_heroz
	׏YH\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	uuSvꡁC{ݒ
	wғI썰SGB\

	y$g_heroz
	ꝁcB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	꣊ŁCƕssSꝁB\

	y$g_heroz
	ScH\

	y$g_heroz
	icoݏYn߉ߔcj\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	A݉NГIʏCs\֔VޓIB
	AY恓IB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	@݋sABݓcA]ˁC
	݋SIʒu㌚iGB\

	y$g_heroz
	cꉓҐ^ꟁB\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	ccB\

	y$g_heroz
	sߕꟁcBÎIlC
	׏Yߛ݈Ӕ퓌ꡁB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	׍݉ߋCLٖ@IB
	狖AcߍCYuSv푶ꠁB\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	@aAQraЊQcC@ށB
	Lߐ꘢SߓIcB\

	y$g_heroz
	^A鎀C
	Jg׋ScꝁcB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	ꟁCꟁBL@CSIl
	ϐSꡁB\

	y$g_heroz
	GcB\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	꣐ICsA
	FFH\

	y$g_heroz
	\cvcꠁB
	NC䖾VA\o@B\
	;--L;----------------------------------
	mov $_char,"TSC"
	mov $debugstr,"FTSC "
	gosub *char  ;ʂɏo

	yԁz
	VC^IꝁIHVOs
	vx{ꝁH\

	y$g_heroz
	㐶䍜B
	㐶kbB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	FFꣁC
	璷kꡁB\

	y$g_heroz
	ʔcߘa׈kI\
	return
	;----------------------------------
;---M15  END -----
;============================================
; M16
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M16	; t@CJñx
	mov $debugstr,"M16 " : gosub *debugout
;uSd杊O`@ҁvF̂ԂƖAa@ցFM16
;
;̂ԂƖAa@

	;--BGM;----------------------------------
	mov $_music,"09": gosub *out
;BGM:cdrhqd@́B
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG010A"
	mov $debugstr,"afFBG010A"
	gosub *bg	;ʂɏo
;afFa@
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	^TBݔꟁcB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	꣖spߗIB\
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yz
	vŎZB
	אbkϚvB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	꣈׏YvH
	@syGB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	CsAlvYDbInꝁH\
	;--L;----------------------------------
	mov $_char,"TJD"
	mov $debugstr,"FTJD "
	gosub *char  ;ʂɏo

	ŷԁz
	BcB
	alsDhGB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	syB
	sLsIݐFꡁB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	꣐ꠁB񋎓ICLnB
	꣖szĔPꠁH\
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yz
	F{anߛƚ
	{AZs㐥ΎB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	Iv`F{ߗ
	kϓIBLcҖv픯B\

	ŷԁz
	ccꖗꡁB\
	return
	;----------------------------------
;---M16  END -----
;============================================
; M17
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M17	; t@CJñx
	mov $debugstr,"M17 " : gosub *debugout
;uSd杊O`@ҁvF̂Ԃ凁FM17
;
;̂Ԃ
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BG011A"
	mov $debugstr,"afFBG011A"
	gosub *bg	;ʂɏo
;afFa@̂ǂ̕

	y凁z
	ꋏAIw֐lxꝁH
	ٖ@^ꋓʌkB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	v֌nBiꠁB
	꣑zϓaꢈH\

	y凁z
	csmZsZwxB
	AszĔ鉺B\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ŗ꣓IaCA꣓I
	vLC댯B\

	y凁z
	mB
	ߖH\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ȔN蛓IpԊkɋH\

	y凁z
	꣔B\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ӎӁB\

	y凁z
	꣔I݁CsISIB
	ȁCs]꣗B\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	gאlށC꣊Ґ^LӎvIbB
	^B\

	y凁z
	ccccccB\

	ŷԁz
	ߛCAkk̓IꠁB\

	EIRnΗB\
	return
	;----------------------------------
;---M17  END -----
;============================================
; M18
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M18	; t@CJñx
	mov $debugstr,"M18 " : gosub *debugout
;uSd杊O`@ҁvFAꏏɂ́FM18
;
;Aꏏɂ

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG013A"
	mov $debugstr,"afFBG013A"
	gosub *bg	;ʂɏo
;afFL
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	jcʑRDLꟁcB
	D}ꟁcLҎlIcB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ʑRC狖{AvL\hIc
	B\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	THLlB\
	gosub *musicstop
	gosub *clear_char	;--Li^񒆁j
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG012A"
	mov $debugstr,"afFBG012A"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	^ICFFB
	꣕spsIB\

	y$g_heroz
	ҍݖ[ԗ֚vB
	p񑖘HscB\
	gosub *musicstop
	;-ʉ;----------------------------------
	mov $_se,"ZKIN"
	mov $debugstr,"rdFZKIN"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,1	;GtFNgw
	gosub *bg	;ʂɏo
	WAIT 100
	;--wi;----------------------------------
	mov $_bg,"BG013A"
	mov $debugstr,"afFBG013A"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	IIIIIIIIIII\

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG012A"
	mov $debugstr,"afFBG012A"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	vEAsꠁH\

	y$g_heroz
	Dz_hƗIꟁcB
	⒔ꊊƓꊁcB\
	;--wi;----------------------------------
	mov $_bg,"BG013A"
	mov $debugstr,"afFBG013A"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	xlIcBxlIcB\
	;--wi;----------------------------------
	mov $_bg,"BG012A"
	mov $debugstr,"afFBG012A"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	ꟙC꣏o@vsvJh΁H\

	y$g_heroz
	琥ꟁcB\
	;-ʉ;----------------------------------
	mov $_se,"ZFOOT2"
	mov $debugstr,"rdFZFOOT2"
	gosub *se
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	FFI\
	gosub *sestop

	y$g_heroz
	VH\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	FFcIFFꠁIH\

	y$g_heroz
	sCsL
	LYR꣋FFcB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	c꣍ݔꟁB
	ߌoY񋎓IԗcB\

	y$g_heroz
	ꟁCDBꋐwqInlꝁH\
	;-ʉ;----------------------------------
	mov $_se,"ZKIN"
	mov $debugstr,"rdFZKIN"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,1	;GtFNgw
	gosub *bg	;ʂɏo
	WAIT 100
	;--wi;----------------------------------
	mov $_bg,"BG012A"
	mov $debugstr,"afFBG012A"
	mov %effect,29	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TJD"
	mov $debugstr,"FTJD "
	gosub *char  ;ʂɏo

	ŷԁz
	VcIHꟁCꋐcB\

	y$g_heroz
	wqCDcFNB
	ꋑꢉꠁB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	FAFFI\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	Cʔ闹B\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	cccccccB\

	y$g_heroz
	쑖ꠁCԁB\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	TB
	ꟁAߘC썐B\
;^`OB
	gosub *clear_char	;--Li^񒆁j
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ccccB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	cB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	FFcB
	AFFIcB\
	return
	;----------------------------------
;---M18  END -----
;============================================
; M19
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M19	; t@CJñx
	mov $debugstr,"M19 " : gosub *debugout
;uSd杊O`@ҁvF凁FM19
;
;
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	WAIT 100
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
;afFa
	;-ʉ;----------------------------------
	mov $_se,"ZFEEN"
	mov $debugstr,"rdFZFEEN "
	gosub *se

	y凁z
	ߐcO{VIߘScB\

	凓I\ʏ苾B
	qʁCfƒ$g_heroIgeB\

	y凁z
	FFcH
	ccGcBSIcFFꟁcB\

	y凁z
	s^IꡁcBvCZB
	R@cאlޓIǐSsɗcB\

	y凁z
	vcRSIbcB
	cB\

	y凁z
	cBcB\

	凊JSnΗNB
	ה}юՏZCŕsꢓI\B\
	return
	;----------------------------------
;---M19  END -----
;============================================
; M20
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M20	; t@CJñx
	mov $debugstr,"M20 " : gosub *debugout
;uSd杊O`@ҁvFԁFM20
;
;
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG010A"
	mov $debugstr,"afFBG010A"
	gosub *bg	;ʂɏo
;afFa@̏oƂ
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	IC˓ߘwq
	ꐥꡁH\

	y$g_heroz
	NmꡁcBsFlH\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	꣐^IA_ۓsvLꝁH\

	y$g_heroz
	vLꟁBLIbmLBLꢒ
	Cꢍ݈NI琥lcB\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	cccccccB\

	y$g_heroz
	߉lꟁH
	߈ꎟAsYꠁH\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	^II\
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZHIT"
	mov $debugstr,"rdFZHIT"
	gosub *se
	gosub *gura

	雁III\

	y$g_heroz
	DꟁII
	ځI@ځI@󏝓IߏꟁII\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	FF✒`Is꣗II\

	y$g_heroz
	IIԁII\
	return
	;----------------------------------
;---M20  END -----
;============================================
; M21
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M21	; t@CJñx
	mov $debugstr,"M21 " : gosub *debugout
;uSd杊O`@ҁvFV$g_heroF݂񂾂ǁFM21
;

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	gosub *bg	;ʂɏo
;afFa

	y凁z
	GcB펖ꟁB\

	aVOCҐŕs凓IgeB
	IqˑRfB
	\ߓꢓIB\

	y$g_heroz
	ꟁB^ICԓ߉ƚcB
	j``BruꡁcB\

	y凁z
	꣘֌n^DꟁB
	꣘a꣖B^樐lꟁB\

	y$g_heroz
	֌n˕sDꡁB\

	y凁z
	NC꣖VAvo@H\

	y$g_heroz
	ꟁCTB嫑RҖvSD
	sߔV@vfAsB\

	y凁z
	ꟁcB꣉zۓIvꡁB\

	y$g_heroz
	㐶甇B
	s߉{AD\

	y凁z
	ꝁcBʑRꡁB\

	y$g_heroz
	ʑRH\

	y凁z
	sCߘcLB\

	y$g_heroz
	H\

	y凁z
	꣗@fI󏇕֏As
	]꣔\[ԊŊŁB\

	y凁z
	Z@Ԉ꒷C
	AvlT]ꡁcB\

	y$g_heroz
	cccccccB\
;----------------------------------
*hintM21
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintM212off
	csel
	"ɗ", *M2110,
	"߂Ă", *M2120,
	"qg", *M2130
*hintM212off	;qgOFF̂Ƃ
	csel
	"ɗ", *M2110,
	"߂Ă", *M2120
;----------------------------------
*M2110
;ɗ

	y凁z
	voϓIbcB\

	y$g_heroz
	sCv֌nB
	fI󏇕։ߋŊŎ߁B\

	y凁z
	ӎꣁB^B\
	goto *nextM21	;nextM21ֈړ
;----------------------------------
*M2120
;߂Ă

	y$g_heroz
	iVCvŎZ
	@꒼SIƚŌ𓹁j\

	y$g_heroz
	sDӎvC
	nAvƗcB\

	y凁z
	ꝁcB\

	y$g_heroz
	΁AΕsNcB\

	y凁z
	sCvIBs݈ӁB
	꣖ŉB\

	y$g_heroz
	ԁIH\

	y凁z
	ߛwqC^_ꟁB\

	y$g_heroz
	i`````````
	@Ԕƚ``IIj\

	y$g_heroz
	mB狎BAB\

	y凁z
	kB\
	goto *nextM21	;nextM21ֈړ
;----------------------------------
*M2130
;qg

	uTav
	uҐZv\

	oIB\
	goto *hintM21	;hintM21ֈړ
;qgI
;----------------------------------
*nextM21
	return
	;----------------------------------
;---M21  END -----
;============================================
; M22
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M22	; t@CJñx
	mov $debugstr,"M22 " : gosub *debugout
;uSd杊O`@ҁvF܌ƖFM22
;
;܌Ɩ
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"09": gosub *out
;BGM:cdrhqd@́B
	;--wi;----------------------------------
	mov $_bg,"BG007A"
	mov $debugstr,"afFBG007A"
	gosub *bg	;ʂɏo
;afF܌̕
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	ߘlCFFB
	ΕsIII\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	AZ꣔CvLߑB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	EC꣖_YꟁII\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	vcB
	aߘl͈ꡁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ߐRICבAFFꟁI
	cC׏YpΖcB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	AZ{lCߖvꔖ@ꠁB
	sIBבҖvLoB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	CcFFꟁI\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	qDCEDCҗL꣎ȖDC
	ƈJnssYLꝁH\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	c߁cߐc嫑RߞvcB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	b񗈁C꣘쓖RߌocߘwxIAZA
	ƐlAncs^ꠁH\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	VcH\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	݈@\ⓞICsߌoߗB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	kDBNٗ駁C
	LݐB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	IcB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	K{蒲֘wxIB
	җLC瓾aƗnꉺˍscB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	ߌAR䗈ꠁB
	꣕sҗLʓIHvꝁH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	߉^ZBߛCA`꣗B
	b񗈁CB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	vB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	꣌݊ҕs\uvGB
	ߍDCߋ֎~IGB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	׏YI\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	sz]IhB
	꣑zV@oꝁH\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	cʎ߁cB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	꘢fsIlˑRߗC
	꘢FFnCzdޓIꠁB\
	;--L;----------------------------------
	mov $_char,"TJA"
	mov $debugstr,"FTJA "
	gosub *char  ;ʂɏo

	ŷԁz
	^B@ʐIbC
	x@oIBҐnꠁB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	cׁA׏YIHFFAݓߗꟁI
	꣘pI\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ȉs
	юōDI΍ꝁB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	ꗹI꘢lvcI\
	;-ʉ;----------------------------------
	mov $_se,"ZDOOR2"
	mov $debugstr,"rdFZDOOR2"
	gosub *se
	;--L;----------------------------------
	mov $_char,"TMD"
	mov $debugstr,"FTMD "
	gosub *char  ;ʂɏo

	y]z
	K~ꠁCB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	]I\
	;--L;----------------------------------
	mov $_char,"TMA"
	mov $debugstr,"FTMA "
	gosub *char  ;ʂɏo

	y]z
	꣈ȈׁC
	L꣈꘢lzꝁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ccB\
	;--L;----------------------------------
	mov $_char,"TMD"
	mov $debugstr,"FTMD "
	gosub *char  ;ʂɏo

	y]z
	䓙ғIԉ꣒B
	꣔ŋߍːIlvB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	IccB\
	;--L;----------------------------------
	mov $_char,"TKA"
	mov $debugstr,"FTKA "
	gosub *char  ;ʂɏo
	;-ʉ;----------------------------------
	mov $_se,"ZDOOR2"
	mov $debugstr,"rdFZDOOR2"
	gosub *se

	yqz
	sߐBoC
	]IbL{B\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ccccB\
	;--L;----------------------------------
	mov $_char,"TMA"
	mov $debugstr,"FTMA "
	gosub *char  ;ʂɏo

	y]z
	AC铙sꔖ@B
	c΍ߙ߁B\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	䖾IB\
	;--L;----------------------------------
	mov $_char,"TKA"
	mov $debugstr,"FTKA "
	gosub *char  ;ʂɏo

	yqz
	CvnAB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ߛC粗ccB\
	gosub *clear_charall
;ꓯޏB낾c
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ccccccccccB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	FFccB\
	return
	;----------------------------------
;---M22  END -----
;============================================
; M23
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M23	; t@CJñx
	mov $debugstr,"M23 " : gosub *debugout
;uSd杊O`@ҁvF$g_heroAa@ցFM23
;
;$g_heroAa@
	gosub *blackout
	gosub *musicstop

	\\\@@@\\\\

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG010A"
	mov $debugstr,"afFBG010A"
	gosub *bg	;ʂɏo
	;-ʉ;----------------------------------
	mov $_se,"ZSEMI"
	mov $debugstr,"rdFZSEMI "
	gosub *se
;rdFZSEMI;Z~̐
;afF

	y$g_heroz
	DMccB׏YΕ΍ݗv@fIV
	MꟁccB\

	y$g_heroz
	DݖvJCs߁ccB
	ꟁc΍pʍDyccB\

	y$g_heroz
	Y˔\]{ꟁccB
	^IccB\
	return
	;----------------------------------
;---M23  END -----
;============================================
; M24
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M24	; t@CJñx
	mov $debugstr,"M24 " : gosub *debugout
;uSd杊O`@ҁvFa@ŁFM24
;
;a@
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	gosub *bg	;ʂɏo
;afFa@

	y$g_heroz
	䗈ꊁB\

	y凁z
	꣔\^DB\

	y$g_heroz
	ї痈C
	꣋hzꝁH\

	y凁z
	\iuꝁH
	䓙ċhB\

	y$g_heroz
	njBcs߁C꣊ҐVqcx
	fBsMꝁH\

	y凁z
	MꟁBLSg㉺sZ}сB\

	y$g_heroz
	ߑŊJsADB
	꣜k݈ꝁH\

	y凁z
	ߛC\꣓粗ꉺꝁH
	꘢lCNsgB\

	y$g_heroz
	LߛdꝁccB\

	y凁z
	|vߛdꊁB
	P߁B\

	y$g_heroz
	TC߉䗈ccB\
	gosub *sestop
	gosub *clear_char	;--Li^񒆁j
;Ȃڂ̑O^Â
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
;afFBLACK

	y$g_heroz
	ɁH\

	;--BGM;----------------------------------
	mov $_music,"10": gosub *out
;BGM:cdbhcd@I
	;-ʉ;----------------------------------
	mov $_se,"ZSKON"
	mov $debugstr,"rdFZSKON "
	gosub *se

	y凁z
	KËAKÁBAB
	N\͗ʁB꣏A䏊LB\
;tbV
	;-ʉ;----------------------------------
	mov $_se,"ZKIN"
	mov $debugstr,"rdFZKIN"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,1	;GtFNgw
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	䧁II\

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

	oʁccB\

	y凁z
	ccBCADB
	ꗈccB\
	return
	;----------------------------------
;---M24  END -----
;============================================
; M25
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M25	; t@CJñx
	mov $debugstr,"M25 " : gosub *debugout
;uSd杊O`@ҁvFAƂ̑Oő҂FM25
;
;AƂ̑Oő҂
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG001A"
	mov $debugstr,"afFBG001A"
	gosub *bg	;ʂɏo
;afFl̉Ƃ̑OAЂ悱Ȃ̂ŃePg[ł
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	FFccB
	nccňIbCYv֌nꠁB\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	V``I
	FFCҖvꝁH\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	iɁH˓ߐYHj\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	㋎@C݊Җv񗈁H
	ssӔюԗvI\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	@a[Iln
	Ӊ񗈁H@V`H@aߘlH\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	I``TB^ICFFC
	YalƊ֌nϓߛDIށcc\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	^ICAZkvvo嗹cc
	LvLaDIoꟁC^IccB\
	;--wi;----------------------------------
	mov $_bg,"BLACK"
	mov $debugstr,"afFBLACK "
	gosub *bg	;ʂɏo
	;--wi;----------------------------------
	mov $_bg,"BG001A"
	mov $debugstr,"afFBG001A"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ҍ݁cc@ccH
	FFccB\
	;-ʉ;----------------------------------
	mov $_se,"ZDOKUN"
	mov $debugstr,"rdFZDOKUN"
	gosub *se
;rdFZDOKUN;ǂ
;ʂ炷
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	񎖁ccLsDIaB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	ccwaEYICsُB
	䓾ŊŁB\
	return
	;----------------------------------
;---M25  END -----
;============================================
; M26
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M26	; t@CJñx
	mov $debugstr,"M26 " : gosub *debugout
;uSd杊O`@ҁvFa@FM26
;
;a@
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	gosub *bg	;ʂɏo
;afFa@̕
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ccs݁ccB
	Yԕa[IB\

	yz
	CꖗccH\

	yi[Xz
	ށCTaIꝁH\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	ꟁccߘCZꠁccB\

	yi[Xz
	ꋐQF{凐搶IbCVߌoo@GB
	sߑ琥˗JB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	F{IH\

	yi[Xz
	IBkvȑOAN
	B׎󏝁COeccB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	߉ƚIƍꖁH\

	yi[Xz
	VH@ꋈ׏Y┇H
	TaIpsmccccB\
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	;-ʉ;----------------------------------
	mov $_se,"ZKIN"
	mov $debugstr,"rdFZKIN"
	gosub *se
	WAIT 50
	;--wi;----------------------------------
	mov $_bg,"BG005A"
	mov $debugstr,"afFBG005A"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	iB\

	yi[Xz
	cꟁccB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	񓚉B\

	yi[Xz
	cccB⑍ȓIlccB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	n㋎B\

	yi[Xz
	B\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	FFccB
	c꣈vَꟁccB\
	return
	;----------------------------------
;---M26  END -----
;============================================
; M27
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M27	; t@CJñx
	mov $debugstr,"M27 " : gosub *debugout
;uSd杊O`@ҁvF$g_hero̗͂zIFM27
;
;$g_hero̗͂zI
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG015C"
	mov $debugstr,"afFBG015C"
	gosub *bg	;ʂɏo
;afF̕B[Ă
;Ȃ΂ǂO

	y凁z
	BVꡁB
	^KdIꟁB\

	}ѐGgB
	ߍݍgIgeC
	ȒaؔTɈ͈C\

	ȒAꕔeIdeB\

	y$g_heroz
	ꣁc΁cccB\

	ggso͟B\

	ӎҐC
	poȓIrŕsȈʁB\

	y凁z
	sDӎvC꣋B
	s΁c꣐׉I͗ʁcˑ΁B\

	y$g_heroz
	͗ʁcH\

	䕽{sӎB
	b{gAh́B\

	y凁z
	ꣁcg[
	sʐlLIu͗ʁvB\

	y$g_heroz
	cYcӎvcH\

	y凁z
	꣕svmIB
	꣑vAsB\

	y$g_heroz
	YI\
	;-ʉ;----------------------------------
	mov $_se,"ZSKON"
	mov $debugstr,"rdFZSKON "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	WAIT 50
;ʂ炷
	;--wi;----------------------------------
	mov $_bg,"BG015C"
	mov $debugstr,"afFBG015C"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo

	y$g_heroz
	jꟁIIIIII\

	y凁z
	ËAÁBAB
	ח́B䑥B\
	;-ʉ;----------------------------------
	mov $_se,"ZSKON2"
	mov $debugstr,"rdFZSKON2"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	WAIT 100
	;--wi;----------------------------------
	mov $_bg,"BG015C"
	mov $debugstr,"afFBG015C"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo

	y$g_heroz
	IꟁIII\

	y凁z
	cꟙcI
	DꇊQcI@꣓I͗ʑꇊQI\

	y$g_heroz
	jcꟁIII\

	y凁z
	s꣉B
	@ZIlށcc\
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZDOSA"
	mov $debugstr,"rdFZDOSA "
	gosub *se

	y$g_heroz
	\cII\

	y凁z
	sc꣕slꟁc
	ʑRSꑰꝁcH\

	y$g_heroz
	cSccH\

	y凁z
	sݏAEꣁB꣕sIB
	v꣐gCzXAXI͗ʁcc\
	return
	;----------------------------------
;---M27  END -----
;============================================
; M28
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M28	; t@CJñx
	mov $debugstr,"M28 " : gosub *debugout
;uSd杊O`@ҁvFoFM28
;
;o

	;--BGM;----------------------------------
	mov $_music,"11": gosub *out
;BGM:ehfgs@
	;--wi;----------------------------------
	mov $_bg,"BG015C"
	mov $debugstr,"afFBG015C"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	ZIII\

	y凁z
	cSꝁcc\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	JߘlB
	꣔ؔTɒjI\

	y凁z
	SꑰCݔӐYB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	׏Y꣗v꘢lDH
	ߌoYȗAߓIꝁH\

	y凁z
	ՓIB\

	yz
	^syꡁB
	꣘F{ƓIlꟁI\

	y凁z
	^B䑁AqPߞIVB\

	y凁z
	䐶AiL
	ߔN㥌I͗ʁB\

	y凁z
	ACIeB
	ꢊҕsꑰIlB\

	y凁z
	Ȗ{ƕsFI݁B\

	y凁z
	g@Ґ핃eƝ{C
	|{F{ƓInOB\

	y凁z
	AꟁC׏YvߛH
	䓞ꐥחNݎSH\

	y凁z
	nߞCl銈sB
	ACٖ@eEߞB\

	y凁z
	ȁccB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	꣋}CaDl
	ʏAgcꠁB\

	y凁z
	{II\
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yz
	^ꟁBAȓI͗
	sٖ@mėʁB\

	y凁z
	YIH\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	꣜kB㓾߁B
	꣍˖vLoB\

	y凁z
	꣏YӎvIH\
	gosub *musicstop
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yz
	꣐ꟁCFFB\
	return
	;----------------------------------
;---M28  END -----
;============================================
; M29
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M29	; t@CJñx
	mov $debugstr,"M29 " : gosub *debugout
;uSd杊O`@ҁvF$g_heroтƕBFM29
;
;$g_heroтƕB

	;--BGM;----------------------------------
	mov $_music,"12": gosub *out
;BGM:a`sskd@ŏI
	gosub *blackout
	;-ʉ;----------------------------------
	mov $_se,"ZJINARI"
	mov $debugstr,"rdFZJINARI "
	gosub *se

	IGGGccII\
;A炢łJWŁB
	;--wi;----------------------------------
	mov $_bg,"BG015C"
	mov $debugstr,"afFBG015C"
	gosub *bg	;ʂɏo

	y凁z
	YIH\
;ʗhB
	;-ʉ;----------------------------------
	mov $_se,"ZDOKUN"
	mov $debugstr,"rdFZDOKUN"
	gosub *se
	gosub *guragura

	y$g_heroz
	䐥CNB\

	y凁z
	cY͗ʁI󟃍TI
	ԍݕRȁI@ꣁc꣐c꣐III\
	;-ʉ;----------------------------------
	mov $_se,"ZFEEN2"
	mov $debugstr,"rdFZFEEN2"
	gosub *se
;ʗhB
	;--L;----------------------------------
	mov $_char,"TBA"
	mov $debugstr,"FTBA "
	gosub *char  ;ʂɏo

	y$g_heroz
	IcB\

	y凁z
	ށcIIcc꣐SIc
	csꠁcsꠁcߘcII\
	;-ʉ;----------------------------------
	mov $_se,"ZFEEN"
	mov $debugstr,"rdFZFEEN "
	gosub *se
;ʗhB
	;--L;----------------------------------
	mov $_char,"TBA"
	mov $debugstr,"FTBA "
	gosub *char  ;ʂɏo

	y$g_heroz
	ꠁB\
	;-ʉ;----------------------------------
	mov $_se,"ZBLOOD"
	mov $debugstr,"rdFZBLOOD"
	gosub *se
	gosub *cutting2
;ʂԂB˂˂ƁB
	WAIT 100
	;-ʉ;----------------------------------
	mov $_se,"ZBLOOD2"
	mov $debugstr,"rdFZBLOOD2 "
	gosub *se
	gosub *redout
	return
	;----------------------------------
;---M29  END -----
;============================================
; M30
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M30	; t@CJñx
	mov $debugstr,"M30 " : gosub *debugout
;uSd杊O`@ҁvFFM30
;
;
;y؂ւB

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG015C"
	mov $debugstr,"afFBG015C"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	FFIIFFII
	䐥ꟁC꣐ꝁIH\
	;--L;----------------------------------
	mov $_char,"TBA"
	mov $debugstr,"FTBA "
	gosub *char  ;ʂɏo

	y$g_heroz
	IccB\
;ǂ[ȁ[n̕Ƒ₵ȁ[
;炾珑̂ȂyȂ񂾂ǂȁ[B[
;炾珑ȂQlłSlł邼[[
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	FFIH\
	;--L;----------------------------------
	mov $_char,"TBA"
	mov $debugstr,"FTBA "
	gosub *char  ;ʂɏo

	y$g_heroz
	ccIcB\

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

	oʁI\
;ƕmԂ̎lB
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	FFIIcH
	cII@D靁cII\

	y$g_heroz
	IcꟁIII\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	͗ʁcB
	ꝁCs߉ƚQIcB\

	y$g_heroz
	IcIcꟁII\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	vICFFB
	SꠁB\

	y$g_heroz
	ccIcccI\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	cI͗ʁc꣓IcB\
	return
	;----------------------------------
;---M30  END -----
;============================================
; M31
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M31	; t@CJñx
	mov $debugstr,"M31 " : gosub *debugout
;uSd杊O`@ҁvFƂgFM31
;
;Ƃg
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"06": gosub *out
;ꏊ͏̂镔
;͗[Ă
	;-- CxgCG;----------------------------------
	mov $_cg,"B04A"
	mov $debugstr,"bfFB04A"
	gosub *cgout	;Cxgbf

	yz
	Tc^cI\

	哮_ߗ$g_heroIԁB\
	;-gʉ;----------------------------------
	mov $_se,"WM23"
	mov $debugstr,"gFWM23"
	gosub *se
;イFwŐG

	y$g_heroz
	cII\

	ꠚcꐺCGqdsI[B\

	$g_heroIg̖ҒnB
	樖늴ȗ}IxB\
;[[Ol̂͌ȂcB
;ł͂ȂăQ[ł̓AȁB
;A̕ƁBŃB

	yz
	FFIccB\

	돫ēI󟃁Cȋyjl~]IM
	ꓯ[[zoB\

	y$g_heroz
	TcI\
	;-gʉ;----------------------------------
	mov $_se,"WD002"
	mov $debugstr,"gFWD002 "
	gosub *se
;Nj

	ꠚccꠚccBaꠁcB
	딽p닊Ze[B\

	딯Snӊ΁B
	ꢐܒSFFIsB
	s\sxB\
	;-gʉ;----------------------------------
	mov $_se,"WM22"
	mov $debugstr,"gFWM22"
	gosub *se
;イcc

	ٖ@Eߏ_IhC
	$g_heroJnp͒nNB\

	Du͗ʁvI$g_heroC
	ݓIӎ{ߘSفB\

	ݓIC꘢͙~{\úvI݁B\
	;-- CxgCG;----------------------------------
	mov $_cg,"B04B"
	mov $debugstr,"bfFB04B"
	gosub *cgout	;Cxgbf

	yz
	TcII\

	g@CˑRB
	g@C\FFCˑRB\
	;-gʉ;----------------------------------
	mov $_se,"WM15"
	mov $debugstr,"gFWM15"
	gosub *se
;イc

	ݚacII\

	뒣J{C$g_heroIAs
	꒼ۓA[B\
	;-gʉ;----------------------------------
	mov $_se,"WM13"
	mov $debugstr,"gFWM13"
	gosub *se
;Ⴅ

	yz
	Tc݁ccITcācII\
	;-gʉ;----------------------------------
	mov $_se,"WM15"
	mov $debugstr,"gFWM15"
	gosub *se
;イc

	aEccI@aEEccI\

	$g_heroI_בB\

	ߝٖ@S܏ZIoOԁC
	ItB\

	^ݖQϑI
	_oItG݈NB\

	yz
	]\MXuЌГIcB
	@ʐFFIc^IkGcB\

	yz
	ꟁcTcaccB\

	I_jًْnkB\

	ߔ@ʏ_IǁC
	ًَh$g_heroIjB\

	y$g_heroz
	IccTccꟁccꟁII\

	yz
	FFcBDJSc
	FFI{{cB\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	ΎII@aIaI\

	듮p㓪A_jA厕awCgoӐg
	$g_heroisrI[AdB\

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

	ꢔE󒅔풸A[IɋC
	EqItB\

	䢁cacݚacB\

	yz
	izvXcFFI{{c
	@XcScŐ[cj\

	rIC_I
	F{OCIAs
	꒼哞B\
	;-gʉ;----------------------------------
	mov $_se,"WM19"
	mov $debugstr,"gFWM19"
	gosub *se
;тԂ

	䢘Ec䢘EEcB\

	AISɊ従C
	u`ICO$g_heroISgB\

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

	IO@ޓB
	dMMI_ɊɓfoC
	I判ʒn`TB\
	;-gʉ;----------------------------------
	mov $_se,"WM16"
	mov $debugstr,"gFWM16"
	gosub *se
;[キ[[

	ꢓI{O܏ZTIaB
	@דIw㕏M靓I_B\

	ꢓI슈n٘MI[B\

	ҎܔMIo₏㗹$g_heroIǵB
	钓B@O_B\

	y$g_heroz
	TIIIIII\
	;-- CxgCG;----------------------------------
	mov $_cg,"B04C"
	mov $debugstr,"bfFB04C"
	gosub *cgout	;Cxgbf

	염Ig̖ҒnB\
	;-gʉ;----------------------------------
	mov $_se,"WM03A"
	mov $debugstr,"gFWM03A "
	gosub *se
;ڍO`bIYkbIk`I

	КjjjjII@΁II
	ajjjjII@ИEEIII\

	yz
	TII\

	IoҒnyBꢚ{I
	TO[CSfӑI
	SttꢓIA[B\

	TcT݁cI@݁ccTB
	딒᪑@דIzC鄈ꐺꉺB\

	yz
	DꇊQcTcc݊cB
	c݊cFFIcZZIt́cB\
	;-gʉ;----------------------------------
	mov $_se,"WE001"
	mov $debugstr,"gFWE001 "
	gosub *se
;ʂɃhsbƏoiЂj

	IЁIIЁII
	΁II鄁II\

	yz
	TcI݁c鄁cB\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	䏫ʓI靐t˓IB
	ߐꢓۈ􉺋IAB\

	yz
	TcꟁcꟁcācB
	FFIcݍAcꟁcZㅒcB\

	y$g_heroz
	cꟁcꟁcBꟁcIc\

	yz
	DꇊQckDGCFFcB
	DJSc^IDJSc\cB\

	^IkB
	ꢈ꒼C꒼szB\

	ݑOC嫑R
	GqꢓIǵCAō@svL򋖉ꢁB\

	yz
	嫑RݓIFFC_uscB
	嫑Rrsm䐥cB\

	yz
	g@ckcB
	^IDJSꟁBncB\

	y$g_heroz
	āccāccccB\

	$g_heroednbBҕsB
	yyZgךFFI$g_heroIoځC
	enB\

	v꣍XCXB
	ׁCvc댣FFB\

	yz
	C֓䗈꣗GB
	cInCSshꠁB\
	;-- CxgCG;----------------------------------
	mov $_cg,"B05A"
	mov $debugstr,"bfFB05A"
	gosub *cgout	;Cxgbf

	eݒnCɊɒn
	NȓI𗇑ځBߐ[UfIpB\

	y$g_heroz
	cB
	Җvq߁cB\

	Œߖ\IوIVC
	ꓹ[~]Io񉞁B\

	yz
	ꟁcB׋zFFI{bC
	ȕϓIcB\
	;-gʉ;----------------------------------
	mov $_se,"WM23"
	mov $debugstr,"gFWM23"
	gosub *se
;イFwŐG

	pȔ᪓IwݓߏʟC
	ɊɒnJߑΐԍgIAB\

	y$g_heroz
	ꟁccB\

	A͋H`IAсCߌo
	όГhCMࡒI䊁B\

	[ےNIAC
	ȋyߒSIgFʎCs툤tZMMB\

	y$g_heroz
	cꟁccII\
	;-gʉ;----------------------------------
	mov $_se,"WM13"
	mov $debugstr,"gFWM13"
	gosub *se
;Ⴅ

	a㩁ccB\

	$g_hero߈~]哾ÔgIʁC
	ݖIB\
	;-gʉ;----------------------------------
	mov $_se,"WC008"
	mov $debugstr,"gFWC008 "
	gosub *se
;P}

	ccII\

	yz
	ꟙcII\

	딯oꐺgZIB\
	;-gʉ;----------------------------------
	mov $_se,"WM03A"
	mov $debugstr,"gFWM03A "
	gosub *se
;ڍO`bIYkbIk`I

	΁cΚacIII
	_AhߎIAB\

	yz
	ꟁIiAiIiI
	ꟁcFFIcFFIꟁIII\
	;-gʉ;----------------------------------
	mov $_se,"WM05"
	mov $debugstr,"gFWM05"
	gosub *se
;}FI

	]ac]ac]ac
	嫐ߌo툤tZCA_Ґv
	ߋIوʁCsfnOiB\

	yz
	D_IoD_I
	DcI@ϓDꟁII\
	;-gʉ;----------------------------------
	mov $_se,"WM08"
	mov $debugstr,"gFWM08"
	gosub *se
;C

	ˍݔѐIxVB
	ꢈחǋCnRȑ@דIB\

	yz
	ꟁIꟁIDꇊQIDꇊQށII
	FFIIFFIŊ슽꣗I\
	;-gʉ;----------------------------------
	mov $_se,"WM09"
	mov $debugstr,"gFWM09"
	gosub *se
;CQ

	$g_heroҒnghiBߋI
	AhMB󟃒񓠋NSVIB\

	ٓߑe_rIG樉䊴\暈ӁC
	$g_heroNB\

	yz
	ꟁIꟁIIꟁIꟁIꟁII
	ߗccߗDII@_II\
	;-gʉ;----------------------------------
	mov $_se,"WC001"
	mov $debugstr,"gFWC001 "
	gosub *se
;ijOo

	$g_heroI_ݗIq_B
	ߌoٖ@Rߌ҉B\

	yz
	ꟁIBIBBBTTII
	D_ID_ꟁIIߗcIꟁI\

	uuߗvꢘsB\

	嫑Rmꢓ߈IǓLꏈq_C
	VO\Gy߁CA\
	;-gʉ;----------------------------------
	mov $_se,"WC004"
	mov $debugstr,"gFWC004 "
	gosub *se
;ijo/OŌi߁j

	嫐OCA펩ȓIFFѐC
	樓ߕq_픽CIC
	@IҗCŗvq{sZ{ʁB\

	yz
	D_IIDꇊQcI@DꇊQꟁI
	FFIcFF߉ΔMIC樐lscI\
	;-gʉ;----------------------------------
	mov $_se,"WC007"
	mov $debugstr,"gFWC007 "
	gosub *se
;ʂʂo

	I_CrI`֘툤tZ
	D^sIAǒЗOoB\

	yz
	DꇊQIDꇊQꟁII@v풸I
	ߌocsvꟁcI@TTII\
	;-gʉ;----------------------------------
	mov $_se,"WC001"
	mov $debugstr,"gFWC001 "
	gosub *se
;ijOo

	ܔMdICꢓIAӖ|hB
	I~]C꒼ѐꢓIq{B\

	yz
	ꟁIIITTIIDID_I
	FFIIcꟁII\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	o^uBuوȕB
	Ig̑ΈRċNB\

	yz
	đ_Iđ_IFFI
	FFI@ĔcUXꍱII\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	ߌoYsٖ@vlB
	ꢏ󒅐SFF߈I~]B
	͔͋@AkKB\

	og̐Gq$g_heroIꏈʓsIB
	zvXAXB\

	pꢓߐᔒI\Cpꢓ嫏p
	_ICpꢓIwBpȓ߈IB\
	;-gʉ;----------------------------------
	mov $_se,"WM13"
	mov $debugstr,"gFWM13"
	gosub *se
;Ⴅ

	󓞗_C$g_hero_
	ݖ{ɌIp͒nCNB\

	yz
	ꟁIIIvI
	vII@vꟁII@FFII\
	;-gʉ;----------------------------------
	mov $_se,"WA006"
	mov $debugstr,"gFWA006 "
	gosub *se
;wŒ܂킷i߁j

	딼NgqCꢊoŋIA߈IgFԎ
	\󓞍XIhB\

	^tDoIGr
	NPIȁB\

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

	po]Z$g_heroB
	ꢗp͒NCO@ޓCᆋnR\B
	ꢒC់nRǵB\

	yz
	vIvI@FFCˏoI
	cFIˋI@DDꟁI\
	;-gʉ;----------------------------------
	mov $_se,"WC003"
	mov $debugstr,"gFWC003 "
	gosub *se
;ijo/OŌiZ߁j

	IsZnTB
	yIڕߋߍݚ@ځB\
	;-gʉ;----------------------------------
	mov $_se,"WD003"
	mov $debugstr,"gFWD003 "
	gosub *se
;hsbhshsb
	;-- CxgCG;----------------------------------
	mov $_cg,"B05B"
	mov $debugstr,"bfFB05B"
	gosub *cgout	;Cxgbf

	ΎII@КjjII
	ИEEEjjjIIII\

	yz
	ꟁIIIvIFFI
	FFIvI@ҌҒnII\

	靓ItCݖIA瞔oB\
	;-gʉ;----------------------------------
	mov $_se,"WE002"
	mov $debugstr,"gFWE002 "
	gosub *se
;hshsbI

	ݚaII\

	_[[ѐCʓIt
	풼ڒIq{B\

	yz
	BꟁID_ID_I
	FFIFFIFFIII\
	;-gʉ;----------------------------------
	mov $_se,"WM19"
	mov $debugstr,"gFWM19"
	gosub *se
;тԂ

	ًْniٗ$g_heroI_B
	ꢓIꎟiفCs樉ĎːB\

	I~]C^$g_heroI
	oCZΞΕāB\

	yz
	ꟁcꟁcꟁcꟁcB\

	III
	Ig̔@GdʒeB\

	yz
	FFcB\

	ꢐ[nꒅC@
	֗Z_aIKÔVB\
;I
	return
	;----------------------------------
;---M31  END -----
;============================================
; M32
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M32	; t@CJñx
	mov $debugstr,"M32 " : gosub *debugout
;uSd杊O`@ҁvF܌ƖFM32
;
;܌Ɩ

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG015B"
	mov $debugstr,"afFBG015B"
	gosub *bg	;ʂɏo
;afF̕
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	ɁcHFFcB
	ꟁcݝꟁcB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	YcDߕIꡁB
	ɁC琥cH\
	;--L;----------------------------------
	mov $_char,"TIG"
	mov $debugstr,"FTIG "
	gosub *char  ;ʂɏo

	yz
	ccCFFIꠁB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	k⊶CsߞIGB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	IHwAwIH
	AI@꣘YJnœIꟁI\
	;--L;----------------------------------
	mov $_char,"TLG"
	mov $debugstr,"FTLG "
	gosub *char  ;ʂɏo

	y܌z
	sJnAݗꠁB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	ϑԁIMI@FTII
	I@꣜mIꟁI\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	ߓRׁCߎu͗ʁv
	s\osIꠁB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	ꟁCꟁcB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	cߗIƋŔC
	]꣔\DDӉꡁB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	ƐwcCc]aCvcB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	S̐GBS̐B\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	ށcB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	œߘʓIlAL꘢GB
	b񗈁C琿樉Ŋ꣓IǵB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	ׁA׏YH\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	Ig̉ߌoߗB
	ŗ꣒IfꡁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	IATBȉˑzc
	FFcB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	^ICOsl݌ӗVO
	v\nADcB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	cB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	駕ʕRC樉Ŋ꣓IǵB
	׉kSSꟁB\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	䊮SvcB\
	print 16
	;--wi;----------------------------------
	mov $_bg,"BG015B"
	mov $debugstr,"afFBG015B"
	mov %effect,17	;GtFNgw
	gosub *bg	;ʂɏo
;ʂ䂪ށBUCNȁB
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	ꟁCɁH\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	꣋ߛʓIC
	\vLeꡁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	IccB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	꣎b×{iꠁB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	߁AߚFFꡁH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	uvcCŊŁB\

	y$g_heroz
	ꟁcH\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	FFIH\

	y$g_heroz
	cccccccB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	cҖvcꡁBpꠁB\

	y$g_heroz
	IcccB\
	;-ʉ;----------------------------------
	mov $_se,"ZDOSA"
	mov $debugstr,"rdFZDOSA "
	gosub *se
	;--L;----------------------------------
	mov $_char,"----"
	mov $debugstr,"F----"
	gosub *char  ;ʂɏo
;
;
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	H\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	AʓIVޓIBшC
	ŋ߈VEILAB\
	;--L;----------------------------------
	mov $_char,"TID"
	mov $debugstr,"FTID "
	gosub *char  ;ʂɏo

	yz
	ꣁA꣔YӎvI\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	ÁBsꝁCҖvꡁB
	ҖvߗꡁB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	AˁcB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ߑg̓I{\뗹B
	{Zs㐥ߗB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	߁cB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	v樑ssnߗCkϓIB
	]ICߊȒcB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	߁cFFcB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	b樑ߏ
	ʓIꠁBvICkAߗIB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	׏YH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	ƁCŋߕsvƗꝁB
	ߘƒnC꣒mꝁH\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	smB\
	;--L;----------------------------------
	mov $_char,"TLD"
	mov $debugstr,"FTLD "
	gosub *char  ;ʂɏo

	y܌z
	uwxGB
	AߕЕs˓IF{ƓIynB\
	;--L;----------------------------------
	mov $_char,"TIH"
	mov $debugstr,"FTIH "
	gosub *char  ;ʂɏo

	yz
	cIH\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	xCg粉IꠁB
	R@CsRnɓB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	vIADlIC
	ߗIB\

	y܌z
	sŊ슽ꝁB
	ߎ퓌B\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	cꝁB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	A꣓ssMC߉ꔁH\
	;--L;----------------------------------
	mov $_char,"TIA"
	mov $debugstr,"FTIA "
	gosub *char  ;ʂɏo

	yz
	cTB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	̋SVlBClsC
	ClsXSIB\
	;--L;----------------------------------
	mov $_char,"TIE"
	mov $debugstr,"FTIE "
	gosub *char  ;ʂɏo

	yz
	FFcCFFcB
	הncADꡁB\
	;--L;----------------------------------
	mov $_char,"TLA"
	mov $debugstr,"FTLA "
	gosub *char  ;ʂɏo

	y܌z
	TBICnADB
	sߐ]ԓIGB\
	;--L;----------------------------------
	mov $_char,"TIC"
	mov $debugstr,"FTIC "
	gosub *char  ;ʂɏo

	yz
	ncA^Ic\ꡁB\
	return
	;----------------------------------
;---M32  END -----
;============================================
; M33
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*M33	; t@CJñx
	mov $debugstr,"M33 " : gosub *debugout
;uSd杊O`@ҁvF$g_herỏƁFM33
;
;$g_herỏ
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG002A"
	mov $debugstr,"afFBG002A"
	gosub *bg	;ʂɏo
;afF$g_hero̕

	y$g_heroz
	TccccccB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	FFINꊁI
	^II@sߗII\

	y$g_heroz
	ꟁcH\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	꣗vYꟁC^I``II\

	y$g_heroz
	ɁcHVCcB\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	NvŐVƁCғߛғIH\

	y$g_heroz
	ꟁcBGCΗB\
	;--L;----------------------------------
	mov $_char,"TSJ"
	mov $debugstr,"FTSJ "
	gosub *char  ;ʂɏo

	yԁz
	^IB@
	A|吇B\

	y$g_heroz
	@H׏YH\
	;--L;----------------------------------
	mov $_char,"TSD"
	mov $debugstr,"FTSD "
	gosub *char  ;ʂɏo

	yԁz
	rꊁI^II@AȎ󏝓I
	sYH\

	y$g_heroz
	ꟁcBGCΗBNCD񎖗cB
	Tc䐥×cIꠁB\
	;--L;----------------------------------
	mov $_char,"TSF"
	mov $debugstr,"FTSF "
	gosub *char  ;ʂɏo

	yԁz
	꣜H@FF꣉IB
	g̕sꝁH\

	y$g_heroz
	scBsIB\
	;--L;----------------------------------
	mov $_char,"TSA"
	mov $debugstr,"FTSA "
	gosub *char  ;ʂɏo

	yԁz
	߁C꣜H\

	y$g_heroz
	ccccIccB\
	gosub *clear_charall
	gosub *musicstop
	;-ʉ;----------------------------------
	mov $_se,"ZSKON"
	mov $debugstr,"rdFZSKON "
	gosub *se

	y$g_heroz
	꘢sm׉CLO
	S[CIB\

	y$g_heroz
	AC꘢B\
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"02": gosub *out
;BGM:nodmhmf
;II

	\\\ՓTVߋߍ݊O\\\B\
	return
	;----------------------------------
;---M33  END -----

;13.txt 
;SO`uЂv 
;============================================
; H00
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H00	; t@CJñx
	mov $debugstr,"H00 " : gosub *debugout
;uSd杊O`@ЂҁvFSO`PFH00
;
;SO`P
;^CgFS}i炢j
;l$g_heroƂЂ
;SƏ
	gosub *musicstop
	gosub *blackout
	;-ʉ;----------------------------------
	mov $_se,"ZFOOT3"
	mov $debugstr,"rdFZFOOT3"
	gosub *se

	yz
	ꟁcꟁcꟁcB\
	;-ʉ;----------------------------------
	mov $_se,"ZZ051"
	mov $debugstr,"rdFZZ051 "
	gosub *se
	gosub *cutting2
	WAIT 100
	;-ʉ;----------------------------------
	mov $_se,"ZBLOOD"
	mov $debugstr,"rdFZBLOOD"
	gosub *se

	yz
	II\

	yz
	AZC琥vpIB\
	;--wi;----------------------------------
	mov $_bg,"BG016A"
	mov $debugstr,"afFBG016A"
	gosub *bg	;ʂɏo

	;--BGM;----------------------------------
	mov $_music,"11": gosub *out
;BGM:ehfgs@

	dXIlݚLB
	@׎]IdXC
	|⑒nhLB\

	kQB
	LB\

	׊QOIC
	ُmIdXݚLB\

	yz
	꣗vEꝁH\

	lkOC
	ÎOI݁B\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	ҜkNyB
	gݖ闢UVIKB᪓IB\

	lIKjΔʓIƒC
	vLVCvLIxB\

	ECBSCAE{B
	ߑoƒ[ꏈӎuB\

	lAU񋎓I͟svLB
	sCA_͓svLB\

	OICŐIgB
	ʑΓ߈|I͗ʁCl|يҎV́B\

	蒆IC݌
	@MsIuʁCMࡒIPB\

	yz
	awqC꣓svE{ꝁH\
	;-ʉ;----------------------------------
	mov $_se,"ZKAMA"
	mov $debugstr,"rdFZKAMA "
	gosub *se
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	SIbCAEB\

	I񓚓B
	ߐsєCB\

	yz
	ꟁcc\

	l|ٌFI{OC
	Roꐺ]IQB\
	;-ʉ;----------------------------------
	mov $_se,"ZZ052"
	mov $debugstr,"rdFZZ052 "
	gosub *se
	gosub *cutting2

	K钆CꓹM߁B
	dXI@B\
	;-ʉ;----------------------------------
	mov $_se,"ZKIN"
	mov $debugstr,"rdFZKIN"
	gosub *se

	IpݐΓC݈u
	oꐺƐ뗘IB\

	yz
	BꟁIII\

	S݈B\

	pߕʐlߓ։I
	lVCS݈B\

	yz
	IIIc\

	vL񓚁B
	ꢑÐÒnȗB\

	yz
	䍦A䍦A䍦ꟁIII\

	yz
	CҗLwqCYIII\
	;-ʉ;----------------------------------
	mov $_se,"ZKAMA"
	mov $debugstr,"rdFZKAMA "
	gosub *se
	gosub *cutting2

	ʑΖo㗈ISCꓹMB
	MdB\

	yЂz
	SCAEB\
	gosub *musicstop
	;-ʉ;----------------------------------
	mov $_se,"ZBLOOD2"
	mov $debugstr,"rdFZBLOOD2 "
	gosub *se
	gosub *splash

	uInCߗNgItB\
	;--wi;----------------------------------
	mov $_bg,"BG016A"
	mov $debugstr,"afFBG016A"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	nlÐÒnȗB\
	gosub *blackout
;Ó]A
	return
	;----------------------------------
;---H00  END -----
;============================================
; H01
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H01	; t@CJñx
	mov $debugstr,"H01 " : gosub *debugout
;uSd杊O`@ЂҁvFOPFH01
;
;OP

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG017A"
	mov $debugstr,"afFBG017A"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
;Ȃ񂩔ĝ悤ȉʌʂgƂȂc
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F

	uꖏHށ@H
	@ʉV_lƓIHށ@Hށv\

	KÒC`̐B\
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F

	uJ樉ߋꠁ@ߋ
	@vLvIls߁@s߁v\
	gosub *blackout

	̐ꖗ`IHNݏꡁH\

	ِlmœāB̐ˋ݉񋿁B\
;_ƃ^Cgʕ\B
;P
	return
	;----------------------------------
;---H01  END -----
;============================================
; H02
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H02	; t@CJñx
	mov $debugstr,"H02 " : gosub *debugout
;uSd杊O`@ЂҁvFOpeningFH02
;
;Opening
;lƂЂA䓰ɍs

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG018A"
	mov $debugstr,"afFBG018A"
	gosub *bg	;ʂɏo
;afFRĂƁ[

	cIR
	햟ؓIMB\

	y$g_heroz
	ꟁ`Cݎ䗹B
	CsݔߋxꉺꝁH\

	gwINߓ
	ΓZg蕞IB\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	^voB
	ˍߚGB\

	LꓪGK풷IyΈꐺB
	嫑RlsIہC
	Aꢖ]NI\pk_aB\

	y$g_heroz
	j``BړInҗLꟁcB
	_H\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ꟁcBđ꘢AB
	Zs㑽IꠁH\

	y$g_heroz
	䊴oߌo
	ꟁcc\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	AZ꣕C
	vLl꣑GB\

	y$g_heroz
	mꊁBNC
	ߘϐlIƚvꟁB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	ߐwNH\

	y$g_heroz
	Aߘ^
	lIlIIƚB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	cccccccccB\
	return
	;----------------------------------
;---H02  END -----
;============================================
; H03
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H03	; t@CJñx
	mov $debugstr,"H03 " : gosub *debugout
;uSd杊O`@ЂҁvFЂl|ɐӂ߂FH03
;
;Ђl|ɐӂ߂
;ߋz

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG003C"
	mov $debugstr,"afFBG003C"
	gosub *bg	;ʂɏo
;afFЂ̉Ƃ̕ZsAƂ
	;--L;----------------------------------
	mov $_char,"TDA"
	mov $debugstr,"FTDA "
	gosub *char  ;ʂɏo

	yqz
	Dvv݌݉Ɖߖ闹ꡁ\B\
	;--L;----------------------------------
	mov $_char,"TEA"
	mov $debugstr,"FTEA "
	gosub *char  ;ʂɏo

	ySz
	CꟁB
	s߁C\꣐^DB\
	;--L;----------------------------------
	mov $_char,"TDD"
	mov $debugstr,"FTDD "
	gosub *char  ;ʂɏo

	yqz
	Α΁B㎟꣖sꠁH
	R@VvoꝁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ccTB\
	;--L;----------------------------------
	mov $_char,"TDC"
	mov $debugstr,"FTDC "
	gosub *char  ;ʂɏo

	yqz
	svVLݘa$g_hero
	oC瑽˗ꉺvB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	vݕ׋ȚGB\
	;--L;----------------------------------
	mov $_char,"TDF"
	mov $debugstr,"FTDF "
	gosub *char  ;ʂɏo

	yqz
	^IꝁHꟁCҊY
	בva$g_hero݈Ncc헝RH\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	IAII\
	;--L;----------------------------------
	mov $_char,"TDA"
	mov $debugstr,"FTDA "
	gosub *char  ;ʂɏo

	yqz
	ꟙC_sg܁I\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ˁA˕scc
	חLߘKvccȍˁccB\
	;--L;----------------------------------
	mov $_char,"TEC"
	mov $debugstr,"FTEC "
	gosub *char  ;ʂɏo

	ySz
	C@spQ㵗ꠁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ccLYDQ㵓IB\
	;--L;----------------------------------
	mov $_char,"TDA"
	mov $debugstr,"FTDA "
	gosub *char  ;ʂɏo

	yqz
	sRIn
	kꡁI@݁I\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	sC_ꠁI
	VҗvNꡁI\
	;--L;----------------------------------
	mov $_char,"TDA"
	mov $debugstr,"FTDA "
	gosub *char  ;ʂɏo

	yqz
	ґzJߔhꡁB
	^ɁB\
	;--L;----------------------------------
	mov $_char,"TEA"
	mov $debugstr,"FTEA "
	gosub *char  ;ʂɏo

	ySz
	ߛCAꠁB\
	gosub *musicstop
	;-ʉ;----------------------------------
	mov $_se,"ZFUSUMA"
	mov $debugstr,"rdFZFUSUMA "
	gosub *se
	gosub *clear_char	;--Li^񒆁j
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG003C"
	mov $debugstr,"afFBG003C"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	āccB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	bv@iߗlꡁcc
	sCΑlsoccB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroccB
	߉ƚCvvL䔆ݑg粓IbccB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	߉ƚccB\

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BG003C"
	mov $debugstr,"afFBG003C"
	gosub *bg	;ʂɏo
	;-ʉ;----------------------------------
	mov $_se,"ZFUSUMA"
	mov $debugstr,"rdFZFUSUMA "
	gosub *se
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	[ŏC]
	lB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	C|B\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	֘VIcc
	ꋗvaߘjllNꝁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	LYꝁH\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	葾BCяꠁB
	ߘjlk댯B\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	꣐c꣐Msߓ߉ƚc$g_heroꝁH\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	s䘢lMsMCIB
	_ClꋉY琴^ˑ΁B\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	|B\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	ssvM߉ƚB
	svc֋NB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	FׁCvLKvҍ݌lꋓIg粁B\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	꣎ȓIz@ꝁH\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	琥eʑlIӎvB
	lF{ꑰÍCꋓIg̋MB\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	ߘlIgCnŊꠁB
	`ꋗClcc\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣐C꣔\œ|$g_heroH\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	IsߘӎvB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	oYCR䗈ӕsADH
	꣐CsꝁH\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	lB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	@ʓ߉ƚvSI͗ʓۚIbccB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	ߘCR䗈EB
	ߖꝁC|B\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	ccRlccꋔ@]IbB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߛCbA׎~B
	VҗvNBvxB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	jꋔӈClB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	TB꣖琥C|B\
	;-ʉ;----------------------------------
	mov $_se,"ZFUSUMAC"
	mov $debugstr,"rdFZFUSUMAC"
	gosub *se
	gosub *clear_char	;--Li^񒆁j
;Ђ^`O
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	lccB\
;̒j͂قƂɂЂlȂȂcB
	return
	;----------------------------------
;---H03  END -----
;============================================
; H04
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H04	; t@CJñx
	mov $debugstr,"H04 " : gosub *debugout
;uSd杊O`@ЂҁvFȂŌ䓰ɍŝFH04
;
;ȂŌ䓰ɍŝ
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG018A"
	mov $debugstr,"afFBG018A"
	gosub *bg	;ʂɏo
;afFR

	y$g_heroz
	CB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	AH\

	y$g_heroz
	꣜CݔB
	꣐ꝁH\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	sCvL߉񎖁B\

	y$g_heroz
	s߁CҐxꉺꠁB
	꣓I_FŋNkB\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	cc琥BӎꣁB\

	y$g_heroz
	MYꟁCה_YꟁB
	樉ksꟁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	o꒼skRꟁB\

	y$g_heroz
	ccccccccccB
	DʐC꣏A粓I骏ꠁB\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	TBccTCiCʑRyB\

	y$g_heroz
	b񗈁C׏Y
	v[RVїꟁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	VOCsߌoߗꝁH
	䐥ĉIIB\

	y$g_heroz
	AZ꣑CߕsꟁB
	vLꟁB꣕s꒼sۗ{kĚvB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	IswʏIB\

	y$g_heroz
	ߏA_wʁccccH\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	꣔ꟁB
	vCAIcI׋VB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	LvgpC
	AƉ㌌B\

	y$g_heroz
	GCꝁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣖vߐߗdVޓIꝁH\

	y$g_heroz
	ꟁC꣐IꠁHI\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	嫑RҗLkIc
	AMlCAϐߞB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	XvCMIҐScB\

	y$g_heroz
	AcOꠁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	A񎖁B\
	gosub *musicstop

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se

	y$g_heroz
	ccɁHYH\
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se

	uꖗIށ@V_lIށv\

	y$g_heroz
	i̐ccH@f́ccꝁHj\

	y$g_heroz
	iꖗ`IccH@NݏHj\

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	YꡁB
	ߌoyꗹꠁBB\

	_㕂oꖕ΁C
	Aߞ钩[RB\

	y$g_heroz
	ꟁCꟁB\

	y$g_heroz
	i˓ߐꐥYꡁccj\
	return
	;----------------------------------
;---H04  END -----
;============================================
; H05
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H05	; t@CJñx
	mov $debugstr,"H05 " : gosub *debugout
;uSd杊O`@ЂҁvFSFH05
;
;S
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG019A"
	mov $debugstr,"afFBG019A"
	gosub *bg	;ʂɏo
;afF

	y$g_heroz
	AړInꝁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	sߐړInInW뗹B\

	y$g_heroz
	nWccYӎvH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	vcB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	DꟁI\

	y$g_heroz
	jI꣐II\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	SٗlB\

	oݗlʑOIB
	SٗƓÍ\\Sٗ^B\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	GCRҋLꟁB
	rDCrDB\

	^enB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	sꟁCAʋSٗlB
	lƑz樎ȊoXAXNyꍱvB\

	y$g_heroz
	ҐVqCNsځccYC
	\s\ʘVߎߎIꟁcc\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	ߛCv˔\
	iLꋐIߎ펞阖NyIoꡁH\

	y$g_heroz
	ccC꣕ʓߛF^nꟁcc\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	TBCAYnꐺu^݁vB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	s\@̌ĔNҁB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	NҁH\

	^nUB
	AZB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	s\cc@`ncčĒyB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	꣊ҐÔꟁcco꣍
	a_ٖWB꣊oꡁH\

	y$g_heroz
	ICʔceꟁB
	^݁B\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	TIsvB嫑Rlߐ^݁A^Y
	җL^ԓcc\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ʑRCҐoYVHꟁB
	TC^݁B^xǏꟁB\

	y$g_heroz
	ҐVqC^MsꉓIlꟁcB
	NCꢈ׏YݔH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ꟁBߐׁC_IZˑRaB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	}aH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	b嫔@C茔Bߐpߌo􊮗
	ߒiԏA񗈁cc\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	ϗcBs\ݔՔԁcB
	SIeqғscB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	CAm꣉zB
	ȁCˉꟁB\

	y$g_heroz
	C꣉הVޓIꝁH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	꣈Ȉ׉䐥NꟁB꣏As
	cSqCSꠁII\

	y$g_heroz
	c^Ic\樐lSꝁcB\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	L퐥SٗlꟁB
	ꢓsߘꏏ㗹CYvꠁB\

	y$g_heroz
	Y|ٍIMꡁC
	ҐY]ꢔ\\o_ꡁcB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	IC꣘݊YꡁB
	ҕs_㗈B\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	쑖ꠁB\

	y$g_heroz
	GB\
	return
	;----------------------------------
;---H05  END -----
;============================================
; H06
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H06	; t@CJñx
	mov $debugstr,"H06 " : gosub *debugout
;uSd杊O`@ЂҁvF̐FH06
;
;̐
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG020A"
	mov $debugstr,"afFBG020A"
	gosub *bg	;ʂɏo
;afFa

	y$g_heroz
	ȁC꣐vבꠁH
	vH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ށCʔ}B
	CvVˊJnꡁB\

	y$g_heroz
	VH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	הԏꐮVꡁB
	F{ƓICyDꝁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ݔB\

	^NߗIB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	TB핍gdꟁB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	בO{Vo߈DB\

	zNߍ\oISC
	B\

	$g_heroYvLB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ݓߔV@CshIꡁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ꖗB䕪VB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	sssChI聖[IށB\

	^ΒCŌ$g_heroB\

	y$g_heroz
	ccICʐߎbꟁI
	׏ꟁII\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	ꟁH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	CŗF{ƓI̊ҖvꡁB
	꣘염CLݍDDnߌꝁH\

	y$g_heroz
	RLݘꟁI\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	IAIB꣐ݘccݘYH
	bꝁHҐSH\

	y$g_heroz
	sꊁI\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߐYH\

	y$g_heroz
	ʖ◹I꣔✒`I\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	꣐N✒`IN✒`I
	s߉䜃\ꟁI\

	y$g_heroz
	A䜃oꟁIʐlIʁI\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	@ʖvYkSC
	׏YsI\

	y$g_heroz
	AZskSCL
	sDӎvʐlʐIꠁII\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߐYB
	vLGB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	G`BߛCӕs@A粊_C
	粙ߙߊF{̓IƖZꠁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ƖccZH\

	y$g_heroz
	ꟁ``C^II꣜ҕsꟁI
	SߗISII\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	HHH\

	$g_hero݌IȌyB\

	y$g_heroz
	ȐꟁC˓ߐׁcc
	iwjcc\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ccccccccccB\
;炪ԂȂB
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	ccccccccccB\

	y$g_heroz
	A񎖁BꉗꝁH\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	꣔I
	ٗVkII@ٗVkꟁ```II\

	y$g_heroz
	ꟁIsAsꟁI
	bICSٗƓIcc\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	^AsGC$g_heroB\

	y$g_heroz
	sA^vI꣘a
	ߎ琥^IccꟁII\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	DADII\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ITCŗF{̐}ꟁB\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	AAII\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	`܁`BB\

	y$g_heroz
	sv\qJSꟁcc\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	BR@CߏAvꔖ@CR䗈
	$g_heroۗ̋ԍDB\

	y$g_heroz
	AꋏYꟁIH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	Ҕ\YBے~IbC
	樖{RȓIGB\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	IcjjccB\

	y$g_heroz
	AVCyӔꠁB
	AꠁBVsvNꝁH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	TCꡁBֈCv
	RCȗvpĉ΁B`]B\

	y$g_heroz
	`IvĊJnꝁII
	tꡁH@vLꝁH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	p㬘䗢㗈IGB\

	y$g_heroz
	^I{ꝁcB\
	return
	;----------------------------------
;---H06  END -----
;============================================
; H07
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H07	; t@CJñx
	mov $debugstr,"H07 " : gosub *debugout
;uSd杊O`@ЂҁvFF$g_heroƐ^FH07
;
;F$g_heroƐ^
;^ɂȂ񂩌B
;Ó]
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG020B"
	mov $debugstr,"afFBG020B"
	gosub *bg	;ʂɏo
;afFĂƁ[Șa
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ā``B˗˗B
	IZ|sDꡁB\

	y$g_heroz
	ȒSꟁC߉ƚB
	雒ncB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	B\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	䋎c`EꉺB\

	y$g_heroz
	TC߉䋎yUꠁcB
	UR琥vĎēIꟁcB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߛB\
	gosub *clear_char	;--Li^񒆁j
;łЂ

	y$g_heroz
	DCcB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	sCB\

	y$g_heroz
	HYH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	粗C$g_heroB
	L_z꣐B\

	y$g_heroz
	zIH\

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	F{ƓIlcsCݛߌo̗ꟁB
	߉ƚc꣋ꠁB\

	y$g_heroz
	ꢁHH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	א꣍ˍsB߉ƚC꣓I
	ߛVƚe\ꡁB\

	y$g_heroz
	cccccccccB\

	y$g_heroz
	Acc䐥cSH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	Cݎbs_CAAsyc\

	y$g_heroz
	ccc꣖zIH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ICvœ߁B
	@CL_˒mꟁB\

	y$g_heroz
	sꝁH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	vnIC
	F׊YR꣘쎩ȗIC꣊oꡁH\

	y$g_heroz
	c琥B
	s슽樕ʐlrIB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	Cb嫔@C
	AzȌvߛeꟁcB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	sߚvCݐSIlʑO
	oҐYѓOIB\
	return
	;----------------------------------
;---H07  END -----
;============================================
; H08
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H08	; t@CJñx
	mov $debugstr,"H08 " : gosub *debugout
;uSd杊O`@ЂҁvFFH08
;
;

	;--BGM;----------------------------------
	mov $_music,"06": gosub *out
;BGM:knud@ÂJW
	;--wi;----------------------------------
	mov $_bg,"BG021B"
	mov $debugstr,"afFBG021B"
	gosub *bg	;ʂɏo
;afF{뉀ۂ́A
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	cccccccccB\

	ӓI@B
	ꢎ蒆pI{B\

	ꢏdVŗʋNB
	g㎧ÒWI䊁B\

	y$g_heroz
	H\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroꟁcc\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣍ݑzYH\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	vc䐥ݑzC
	pcaESꟁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߘcsaEIƚC
	AA㏬IƚaB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	AאSCȉEB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	vߐDҐC
	٘fB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	yqs@ꠁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ACߘI
	ʝّICC֌݉TߛꠁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	S^lsB\

	y$g_heroz
	c߉ꡁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ꣁclށB
	꣑IאlށCsꝁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	R@C꣏AlB
	䐥FדIB\

	y$g_heroz
	ߏADB\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	C^sꟁB\

	y$g_heroz
	T׌FꠁB
	ҐcB\
	return
	;----------------------------------
;---H08  END -----
;============================================
; H09
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H09	; t@CJñx
	mov $debugstr,"H09 " : gosub *debugout
;uSd杊O`@ЂҁvFЂƂFH09
;
;ЂƂ
;āAς

	;--BGM;----------------------------------
	mov $_music,"06": gosub *out
;BGM:knud@ÂJW
	;-- CxgCG;----------------------------------
	mov $_cg,"B01A"
	mov $debugstr,"bfFB01A"
	gosub *cgout	;Cxgbf

	yЂz
	ҐH\

	y$g_heroz
	狖׌ꣁCkYꠁB\

	yЂz
	ꣁA꣔✒`I\

	y$g_heroz
	׏YꟁB꣐^IkYB
	݌C꣓IasMMB\

	yЂz
	ēVIꟁB
	ҎZs㑽YꠁB\

	y$g_heroz
	ꝁBƎ󒆁C
	⎧zRB\

	yЂz
	꣓ߘbCݚꡁH
	ҐݑꡁH\

	y$g_heroz
	粓ssGB
	zLo苎mFꉺ뗹B\

	yЂz
	䘸kvȑOAݑzc
	꣐s{bʉH\

	y$g_heroz
	v^ߛCAsǍSC
	AB\

	yЂz
	^CA~꣜\ߎHB\

	y$g_heroz
	꣊oKYH
	lIlꝁH\

	yЂz
	✒`B\

	$g_heronLÏZIB\

	y$g_heroz
	퓖✒`ُBs߁Cs琥✒`ꡁB\

	$g_heroA閩_C
	^IoOd݈NB\

	yЂz
	IccB\
	;-- CxgCG;----------------------------------
	mov $_cg,"B01C"
	mov $debugstr,"bfFB01C"
	gosub *cgout	;Cxgbf

	Œ_juԐgIC
	$g_heroQʒᐺꡚfB\

	y$g_heroz
	cc^ICDꟁccB\

	yЂz
	꣍݌ӐYC꣔ƚB\

	y$g_heroz
	spQ㵓IB
	ݐbꟁB\

	yЂz
	꣜kB\

	fB\

	y$g_heroz
	׏YB\

	yЂz
	@ʕsC꣏AsΉ
	oߎbB\

	y$g_heroz
	NsvꝁH
	꣕YC҉YIB\

	yЂz
	smB\

	y$g_heroz
	ߐDBꗈC
	ΌICAL꘢lB\

	˕sz樔ClB
	Iz@$g_heroI쎧oB\

	yЂz
	꣔ƚI\

	y$g_heroz
	樉Đ_B\

	ĈꎟGqꢓI{OB
	IA畆IGߐlSB\

	RC
	kAٖ@C$g_hero㓪iB\

	yЂz
	IcTāccB\

	MVI㓪GC
	YJno@IꡁB\

	^CݑϖB
	e_IGB\

	$g_heroI㓪sfhC
	ӐNƒIoB\

	yЂz
	ccꟁccB\

	foܔMICso
	IΉݑ̓ɊɔRB\

	ꎟꎟCsfdIeB
	g̔ꎟꎟnًٕZB\

	염lICzz߁B
	zvXϋ߁B\

	oߕCLIؓsDVB
	zv󑼓I؁B\

	y$g_heroz
	җvccpB\

	$g_heroIOOڊJB
	foIFtNMࡒB\

	yЂz
	ꟁcH\

	y$g_heroz
	ĕsGꣁCAEsZB\

	ВnꐺccB
	$g_heroJIAIjсB\

	y$g_heroz
	Aݝ]畨C
	s樉䊴Ss߁B\

	yЂz
	IAIC꣊YICvݔcH\

	y$g_heroz
	TBAݔCꠁB\

	$g_heropߑvnC
	JIJqB\
	;-- CxgCG;----------------------------------
	mov $_cg,"B01B"
	mov $debugstr,"bfFB01B"
	gosub *cgout	;Cxgbf

	y$g_heroz
	I^IkYꟁB嫑RkC
	A`ɉC_xLeB\

	䏫_iꢓIC
	yyn꘢B\

	yЂz
	ꟁIccZcI\

	y$g_heroz
	LoꠁHsN{ΗB\

	pwCyꢓI@zB
	\^no
	INww{΁B\

	yЂz
	✁c✒`cTācI\

	䏫ꢋOgFI[ܓ
	acnz⒅B\

	yЂz
	ꟁcTcII\

	y$g_heroz
	CkqꡁCB
	ߌoϓdMMIB\
	;-gʉ;----------------------------------
	mov $_se,"WD002"
	mov $debugstr,"gFWD002 "
	gosub *se
;Nj

	acBaꠁcaꠁcB
	IC݉ICI
	rCyynz⒅B\

	yЂz
	IccITccIꟁccsvccB\

	ݔoOIꑤ[C
	$g_heroIwגvnߘMB\

	ŗvcᔒI[NʁC
	ߗ퉷_ncc㝆sB\

	yЂz
	ꟁcĚjcI\

	y$g_heroz
	꣓IcϓLoꡁCB
	JnҐkyIcB\

	yЂz
	IcDcB\

	nsIwC
	nCB\

	䕏ꢑ@דIC
	G̓ꢋْvL^I\C
	R@CꢓI㒆B\

	yЂz
	ށcꟁcB\

	y$g_heroz
	ҕskꡁB
	s߁cߌoLB\
	;-gʉ;----------------------------------
	mov $_se,"WA002"
	mov $debugstr,"gFWA002 "
	gosub *se
;włij

	IwCuQC
	CߓߍŔ\їIΉʎC\

	yЂz
	ITcII\

	y$g_heroz
	ݏAߘMC
	Ґ≺IDH\

	yЂz
	ꟁcH\

	IoC
	ߌoJn~ϓB\

	$g_hero݊mF_@C
	ڕiIڔVԁB\
	;-gʉ;----------------------------------
	mov $_se,"WA001"
	mov $debugstr,"gFWA001 "
	gosub *se
;wōLiςcj

	䏫ږCߍŕqIʁB\

	yЂz
	ꟁcTācI\

	Jn׉˓I[B\

	䏫oI\@C
	uI߁CnsNB\

	y$g_heroz
	ҁcDC
	cIcB^z꒼̉cB\

	yЂz
	ꟁcTcB\

	הpC
	ًٓ\ݗ$g_heroIgB\

	ouQҕsC
	֏߉򏬕zЋEB\

	yЂz
	cꟁcBށcB\

	䗧NG᳁CꢎyyC@C
	֝وӎnȎ哮yyRNB\

	y$g_heroz
	iDꇊQc樐lcj\

	œߘÔICݎ哮
	IqCȒvsB\

	yЂz
	꣓IccD靁ccB\

	݌I߁C
	$g_heroߖMdIB\

	y$g_heroz
	cc׌C
	ȉ䌻ݓIoȒ󓾈όГhB\

	嫑RIߌoC
	Aoݔԓ_AڝIbC
	oL_ߐS}B\

	y$g_heroz
	vcꝁH\

	݌I粔@C
	ꢘIoꕛדI\CyynhhB\

	yЂz
	VcR䗈ꣁB\

	y$g_heroz
	H\
;tF
	;-- CxgCG;----------------------------------
	mov $_cg,"B02A"
	mov $debugstr,"bfFB02A"
	gosub *cgout	;Cxgbf

	yЂz
	ccAȗꝁH\

	L݉@qIpC
	O$g_heroIԁB\

	y$g_heroz
	iFcc^◹ccB\

	$g_herozoIzC
	ߌd𗧁CHtB\
;@@@Ȃ񂩕꒲ۂBPꂪi[B

	yЂz
	IcBacB
	cفcAȗꝁH\

	ߏIg
	yynToCْ$g_heroIjB\

	嫑RZI㗈S✐ٕsC
	AsǜCIߘꟁB\

	y$g_heroz
	DꇊQcc꣐ꖗwIꟁH\

	yЂz
	cHߐYH\

	y$g_heroz
	AC꣌ݕsAݘꝁB\

	yЂz
	ߐׁc꣑Ή䔇cB\

	y$g_heroz
	ꟁcTATcB
	ߘCokꠁH\

	yЂz
	DADIb
	׏Y꣈_ssQꟁH\

	y$g_heroz
	VAׁA׏YH\

	yЂz
	ꣁcفcߗcI
	Q㵓sCQ㵓scB\

	yЂz
	{z꣑̉ꉺSIc
	꣈׏YꟁI\

	y$g_heroz
	ߓRclC
	oNsIꠁB\

	yЂz
	ׁA׏YH꣔cn
	ʐlꟁI@sQꝁH\

	y$g_heroz
	嫑RQ㵁CAkB
	vDDnώ@IGB\

	yЂz
	✒`IϑԁII\

	y$g_heroz
	O[sߌooꝁH
	꣓IߗC񎖚GB\

	yЂz
	ccꝁH\

	y$g_heroz
	وꉺB\
	;-gʉ;----------------------------------
	mov $_se,"WM16"
	mov $debugstr,"gFWM16"
	gosub *se
;[キ[[

	yЂz
	IcBacac
	acB\

	y$g_heroz
	DꇊQcB\

	yЂz
	Icjcݚ{Cϑ嗹B
	ϓꟁH@DADcB\

	y$g_heroz
	꣍ݐYnbꡁB݌꣓Ig̗
	ICƚXI܁B\

	yЂz
	xAxlBcpssZI
	\iꟁB\

	y$g_heroz
	iGB꣓IߗC嫑R
	CA\kJGB\

	yЂz
	ߗH\

	y$g_heroz
	cڔVԁC̍ꉺŊŁB
	ߗCAI{biInB\

	yЂz
	IccB\

	VVnC
	ߘ$g_heroIߔԘbB\

	ΘގC{ȐُmC
	ȕsRA$g_heroIbB
	@\

	ȓ߉BIp
	LowB\
	;-gʉ;----------------------------------
	mov $_se,"WA001"
	mov $debugstr,"gFWA001 "
	gosub *se
;wōLiςcj

	ݚacB\

	yЂz
	AcB\

	_ʍgn
	񍐒Ȑg̓IvB\

	y$g_heroz
	s䍄ˍXH
	ٓI꣋ꝁH\

	yЂz
	IcDcDcB\

	y$g_heroz
	LY֌nCٌ꣓Iߗ
	kLoꟁB\

	yЂz
	IcB\

	y$g_heroz
	đفBp㓪C
	eeIB\

	yЂz
	AmB\

	yЂz
	i^$g_hero߁C
	@ҕs@sNrsߛQ㵁cj\

	oacIꐺC
	zN[oIStB\

	y$g_heroz
	TcII\

	yЂz
	cLoꝁH\

	y$g_heroz
	߁cRcB\

	NC֊œ$g_heroٍ
	EϒB\

	yЂz
	ic^Lӎvcj\

	ҊIc쌀ʓISO㗈B
	X˘$g_heroI㎘VB\
	;-gʉ;----------------------------------
	mov $_se,"WM16"
	mov $debugstr,"gFWM16"
	gosub *se
;[キ[[

	yЂz
	TcIcacaꠁcB
	c蜓IncokDꝁH\

	ꎟB
	IZIs\LDB\

	y$g_heroz
	jcꣁc꣏Y
	Jn퉺IbcB\

	yЂz
	꣜YsߕʑzꟁI
	P⎧ꠁI\

	y$g_heroz
	cB\

	yЂz
	CvsIb
	펖sA◹ꝁH\

	y$g_heroz
	v퍉IbC|z꒼󉺋cB\

	yЂz
	ϑԁB\

	y$g_heroz
	_xҕsZϑԁcꊁB\
	;-gʉ;----------------------------------
	mov $_se,"WM19"
	mov $debugstr,"gFWM19"
	gosub *se
;тԂ

	yЂz
	sC꣏AϑԁB
	IcBacaIcB\

	_ɊɒnꑓB
	SsB\

	y$g_heroz
	IccTccB\

	$g_heroIg̘oB\

	yЂz
	icc񎖁ccߒC
	@g̏AϓccD靁ccj\

	חqXiIC
	p㓪A{Oa厕pΓIB\

	y$g_heroz
	D_cDcDccB\
	;-gʉ;----------------------------------
	mov $_se,"WM16"
	mov $debugstr,"gFWM16"
	gosub *se
;[キ[[

	yЂz
	TcTcBaccB
	ΚacΚacB\

	smsoԏȓI
	ݗIAB\

	yЂz
	ꟁcꟁcTcajc
	DꇊQc݈ꒊꒊncҗLIcB\

	_oIt́C
	aȌItB\

	vICosלk艑
	΍sځCA݋poٔ䈤B\

	yЂz
	i׏YcccqI
	@܍ݚ{coꡁcj\

	y$g_heroz
	``ߗCوفcB\

	yЂz
	ꟁcTTcꝁcB\

	嫑R_mmC
	a$g_heroߍD{\

	Aeג[ځC
	ΌҐꎟB
	ꢝDD]]np@דIw㝆B\

	yЂz
	DcDꟁcB
	ꢜkbcB\

	ꢑvߔXܐNʁC
	y_nsB\

	y$g_heroz
	TcIcII\

	yЂz
	cLoꝁB
	jlIǵC^ꟁcB\

	y$g_heroz
	IAIII\

	yЂz
	cI\

	粌yyIX܁C
	粍ĎpꢑNgI{O܏Z䊮SuNIAsB\
	;-gʉ;----------------------------------
	mov $_se,"WD002"
	mov $debugstr,"gFWD002 "
	gosub *se
;Nj

	wacݚaccaEEcB\

	yЂz
	IcIIcI@IcI@\

	NJnCnꍱC
	GN{OCisΓIB\
	;-gʉ;----------------------------------
	mov $_se,"WM19"
	mov $debugstr,"gFWM19"
	gosub *se
;тԂ

	aEEcΚacaEEc
	ݚacaꠁAaꠁcB\

	y$g_heroz
	icߘR哮ܒI_
	@hC׉䕞cj\

	y$g_heroz
	IcIꟁcI@DuI@DuI
	v˗I@Cv˗ꟁII\

	yЂz
	IcTācI\

	AA_B\

	y$g_heroz
	ITcII\
	;-gʉ;----------------------------------
	mov $_se,"WE001"
	mov $debugstr,"gFWE001 "
	gosub *se
;ʂɃhsbƏoiЂj
	;-- CxgCG;----------------------------------
	mov $_cg,"WHITE"
	mov $debugstr,"bfFWHITE "
	mov	%effect,1	;GtFNgw
	gosub *cgout	;Cxgbf
	;-- CxgCG;----------------------------------
	mov $_cg,"B02B"
	mov $debugstr,"bfFB02B"
	gosub *cgout	;Cxgbf

	ИEEII@IИEEII@
	ИEEII@ΚaII@ΚaII\
	;-gʉ;----------------------------------
	mov $_se,"WE002"
	mov $debugstr,"gFWE002 "
	gosub *se
;hshsbI

	yЂz
	IcTꟚjcII
	PcI@PcI@PcI\

	ːi{It
	蓏ZACPuNB\

	y$g_heroz
	]cB\

	yЂz
	scvcBs߁cvz\ˏo
	ꟁcd꒵cB\

	y$g_heroz
	꣔CҐ^L_sDӎvꟁcB
	sˏoIvccB\

	$g_heropwyy
	_IȔroItB\

	yЂz
	LݓߔVOC
	vve׊ώ@aꏗʁB\

	y$g_heroz
	ߓR׌꣑B
	蜓ϓv@ێnL]ꟁB\

	$g_heroߍݐO粗nMI
	݁CאSnC@ėB\

	yЂz
	CcߘB\

	y$g_heroz
	H\

	ꟚjB\

	$g_herot̓Iw
	ܐiȓI{B\
	;-gʉ;----------------------------------
	mov $_se,"WM16"
	mov $debugstr,"gFWM16"
	gosub *se
;[キ[[

	yЂz
	ITcBaccBaꠁcaꠁcB\

	y$g_heroz
	IAII\

	œߘC
	$g_heroIҊԓڎϓЎܔMB\

	yЂz
	AH
	C꣖zٔꝁH\

	y$g_heroz
	vLَȐtIKB
	ccb񗈁C꣈׏YvccB\

	yЂz
	ꣁA꣍ː꒼ىI
	ґΖ]_IsꝁB\

	y$g_heroz
	ꟁCߘccB\

	yЂz
	䓖RccvxccB\

	y$g_heroz
	ʍݔnꑈꟁB\

	yЂz
	ꣁcc꣓IccߘccTccYꡁcc
	ccvLHIꡁccBatsccB\

	y$g_heroz
	sp]IC
	䗈pꠁB\

	$g_heroɊɒn
	|ݒnʏB\
;
	;-gʉ;----------------------------------
	mov $_se,"WM02"
	mov $debugstr,"gFWM02"
	gosub *se
;ՂIIA}
	;-- CxgCG;----------------------------------
	mov $_cg,"B03A"
	mov $debugstr,"bfFB03A"
	gosub *cgout	;Cxgbf

	acca㩁ccIII\

	y$g_heroz
	IcII\

	䝛J툤tGIAC
	_IAB\

	yЂz
	ꟁcccIII\
	;-gʉ;----------------------------------
	mov $_se,"WM03A"
	mov $debugstr,"gFWM03A "
	gosub *se
;ڍO`bIYkbIk`I

	΁cΎcI@ݚacI@\

	睓Is
	IًْnckiفB\
	;-gʉ;----------------------------------
	mov $_se,"WA008"
	mov $debugstr,"gFWA008 "
	gosub *se
;wŒ܂킷iCj

	y$g_heroz
	Duc_cIMcuЌГIc
	DꇊQcc꣍VkꟁcB\
	;-gʉ;----------------------------------
	mov $_se,"WC005"
	mov $debugstr,"gFWC005 "
	gosub *se
;ijo/ippj

	ΎI@鼚aI@ݚaI@kI
	鼚aI@kI@kI@ݚaI\

	$g_heroILߑtnNB
	iAI_[n
	MꢈI\
	;-gʉ;----------------------------------
	mov $_se,"WC003"
	mov $debugstr,"gFWC003 "
	gosub *se
;ijo/OŌiZ߁j

	yЂz
	ꟁIꟁIꟁIꟁcT^ꟁcI
	ꟁcꟁcꟁI@ssII\

	_[[InC
	ȔEI`՗ꢓISgB\
	;-- CxgCG;----------------------------------
	mov $_cg,"B03B"
	mov $debugstr,"bfFB03B"
	gosub *cgout	;Cxgbf
	;-gʉ;----------------------------------
	mov $_se,"WC004"
	mov $debugstr,"gFWC004 "
	gosub *se
;ijo/OŌi߁j

	yЂz
	ꟁcꟁcIscsvI
	VcꟁcꟁII@ocTII\

	y$g_heroz
	kuꠁH
	đRRCR@꣜kuB\

	yЂz
	cocꟁcIꟁITII
	BcBTcII\

	NIoځC
	騒n𓮁B\
	;-gʉ;----------------------------------
	mov $_se,"WC007"
	mov $debugstr,"gFWC007 "
	gosub *se
;ʂʂo

	ݚaIݚaIݚaII\

	dI_O[
	sIǁC
	Ґshn[ѓB\
	;-gʉ;----------------------------------
	mov $_se,"WM12B"
	mov $debugstr,"gFWM12B "
	gosub *se
;ςς

	yЂz
	ꟁcIccŗʗII
	BꟁcI@TI@ꟁII\
	;-gʉ;----------------------------------
	mov $_se,"WM08"
	mov $debugstr,"gFWM08"
	gosub *se
;C

	얞tIC
	`ΚaΚaIB\

	y$g_heroz
	cꇊQcBȒ
	ʖSsItꠁH\
	;-gʉ;----------------------------------
	mov $_se,"WM11"
	mov $debugstr,"gFWM11"
	gosub *se
;ʂʂA؂

	yЂz
	ˁc˕scꟁcIcϓ
	Icsc꣓IccꟁII\

	y$g_heroz
	IYH\
	;-gʉ;----------------------------------
	mov $_se,"WM03B"
	mov $debugstr,"gFWM03B "
	gosub *se
;ڍO`bIYkbIk`I

	yЂz
	꣓IcߘcꟁcD靁c
	ccvcUcꟁII\

	y$g_heroz
	uꝁHI{bouꝁH
	ґzv䑽ꝁH\

	yЂz
	ꟁcBꟁcTccI
	vI@II@ꟁI\
	;-gʉ;----------------------------------
	mov $_se,"WC005"
	mov $debugstr,"gFWC005 "
	gosub *se
;ijo/ippj

	ΚaI鼚aI鼁II\

	I݌툤tGI\C
	oIc\
	;-gʉ;----------------------------------
	mov $_se,"WM10"
	mov $debugstr,"gFWM10"
	gosub *se
;ʂʂ

	ݚaIݚaIΚaIaI\

	I_݌IAhC
	`uVICB\
	;-gʉ;----------------------------------
	mov $_se,"WC002"
	mov $debugstr,"gFWC002 "
	gosub *se
;ijOoiƊۂj

	y$g_heroz
	ccꟁccIIII\

	yЂz
	TccꟁccꟁI
	$g_heroccߌoccvccꟁccꟁccII\
	;-gʉ;----------------------------------
	mov $_se,"WC004"
	mov $debugstr,"gFWC004 "
	gosub *se
;ijo/OŌi߁j

	y$g_heroz
	vICvIvII\
	;-gʉ;----------------------------------
	mov $_se,"WC003"
	mov $debugstr,"gFWC003 "
	gosub *se
;ijo/OŌiZ߁j
	;-- CxgCG;----------------------------------
	mov $_cg,"WHITE"
	mov $debugstr,"bfFWHITE "
	mov	%effect,1	;GtFNgw
	gosub *cgout	;Cxgbf
	;-- CxgCG;----------------------------------
	mov $_cg,"B03C"
	mov $debugstr,"bfFB03C"
	gosub *cgout	;Cxgbf

	ΒʁIΒʁIII
	^튴oʊѐ$g_heroISgB\

	yЂz
	ꟁIIIII\

	靓ItC󒍓IٓB\
	;-gʉ;----------------------------------
	mov $_se,"WD003"
	mov $debugstr,"gFWD003 "
	gosub *se
;hsbhshsb

	ΚaEEEEEEEccIII
	ЁI΁IЁII\

	靓IdCN|vLI瑏ہB
	ʓIt̊ҍݎ˒B\

	y$g_heroz
	IcccI\
	;-gʉ;----------------------------------
	mov $_se,"WE001"
	mov $debugstr,"gFWE001 "
	gosub *se
;ʂɃhsbƏoiЂj

	ЁcЁcЁcI\

	yЂz
	ꟁcꟁcTcII
	vcI@ꟁII\

	oꐺIeC
	g̖ҒnC}IⒸB\
	return
	;----------------------------------
;---H09  END -----
;============================================
; H10
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H10	; t@CJñx
	mov $debugstr,"H10 " : gosub *debugout
;uSd杊O`@ЂҁvFF̐FH10
;
;F̐
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG022B"
	mov $debugstr,"afFBG022B"
	gosub *bg	;ʂɏo

	ߌsm`_OIB
	ݏhՋȁB\

	y̐z
	ꠁCC
	ƌڕIlXꖗ\

	y̐z
	|ߎRCCщY畨C
	Qۙ♔VJB\

	l≺̐CΒȉIlXΒB
	ߐ_IAʓI΁B\

	y̐z
	CwqB
	ꟁCŊ슽̗ꡁcB\

	l݉IC꘢cX͞IߋB\

	yHHHz
	cccccB\

	y̐z
	A}osB
	׏YCs񓚉ꡁH\

	yHHHz
	ccccccB\

	lvJYICB\

	y̐z
	v֌nCv֌nB__
	꣔cAeagpsQ񗈓IB\

	y̐z
	SIa
	alsB\

	y̐z
	AށC߈ʍŔŋIl
	`̊җGB\

	y̐z
	ߕICߐ
	R߈ʑllޗΑҁB\

	ߋYvL񓚁B\

	y̐z
	ꟁCꟁB^ߕꡁB
	s߁CAS__ꠁB\

	y̐z
	כ__꣑ÑPIB
	CIGB\
	gosub *blackout
;Q
	return
	;----------------------------------
;---H10  END -----
;============================================
; H11
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H11	; t@CJñx
	mov $debugstr,"H11 " : gosub *debugout
;uSd杊O`@ЂҁvFBFH11
;
;B
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;-ʉ;----------------------------------
	mov $_se,"ZSUZUME"
	mov $debugstr,"rdFZSUZUME "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG020A"
	mov $debugstr,"afFBG020A"
	gosub *bg	;ʂɏo
;afF̕

	y$g_heroz
	ā\IVVsꟁB
	ovMNB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	DC$g_heroB\

	y$g_heroz
	GCDB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߛC䓾yїꟁB
	sDӎvC䓾Θїcc\

	y$g_heroz
	cccccccccB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	AHnKŁB
	_㟞YꝁH\

	y$g_heroz
	sC䐥݌ŊŁC
	LvL݌InꟁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	瑁H\

	y$g_heroz
	sꠁCVӏI
	꣛ߌoYꝁB\
;Ԃ
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	IIIIIIIIII\

	y$g_heroz
	TCŗvB{ҒSS
	ߗICsߊҍD\ߕDD᳏Zcc\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	ꣁA꣔✒`II\
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZHIT2"
	mov $debugstr,"rdFZHIT2 "
	gosub *se
;rdFZDOKA;ǂI
	gosub *guragura

	y$g_heroz
	DADɁIvꊁI
	sŕsI@vIꊁII\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	׏YCݔ퐴uIC
	꣔ƚĐ펖ccI\

	y$g_heroz
	sAאvBVӏ
	LvᗹCL_sZԁB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	꣔ƚIII\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	C呁AeMꟁB
	꣘염ʁB\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	SASASٗlII\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	sssB^݁B\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	^A^A^cclB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	I``TCvZB
	NyI^lsB\

	y$g_heroz
	sv֋ȉ`eꟁB
	b񗈁C֘VIcB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	TCvaSٗlNӏ
	sҍݕߓIAB\

	y$g_heroz
	AH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	חLE݁B߉sݕ
	֕֏A\MIGB\

	y$g_heroz
	GcB߉ꡁcB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	AIŉƗށB\

	y$g_heroz
	V`IH@DꟁcB
	狎ssꝁH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	slADIGB\

	y$g_heroz
	؁B\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	DC꣉疜ʁcB\

	y$g_heroz
	ʗCꠁH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	vCS吥ٖ@zߌEIB
	꣏ADDxꠁBVkݗꠁH\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	ꣁA꣐YI\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ށCbsv
	꣓I甯VޓIGB\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	IccB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	DC߉hꠁB
	fmXa`ɕsꡁB\

	y$g_heroz
	B\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	svו`C􍂓{`ɁB\

	y$g_heroz
	ꟁ``I^Iv^ꟁI\
	return
	;----------------------------------
;---H11  END -----
;============================================
; H12
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H12	; t@CJñx
	mov $debugstr,"H12 " : gosub *debugout
;uSd杊O`@ЂҁvFoFH12
;
;o
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG019A"
	mov $debugstr,"afFBG019A"
	gosub *bg	;ʂɏo
;afF˂݂Ȃ񂶂̂Ƃ
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߛC䑖B
	ƗA`꣗B\

	y$g_heroz
	TBߛCH㏬SBB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣖琥B\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	꣘^ށB\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	A쑖C^lI\

	y$g_heroz
	H㏬S\\I\
	return
	;----------------------------------
;---H12  END -----
;============================================
; H13
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H13	; t@CJñx
	mov $debugstr,"H13 " : gosub *debugout
;uSd杊O`@ЂҁvF$g_heroFH13
;
;$g_hero
;ƈÓ]
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG019A"
	mov $debugstr,"afFBG019A"
	gosub *bg	;ʂɏo
;afF

	y$g_heroz
	cŉƁccB\

	y$g_heroz
	ccҐ^ꟁccB
	vsǓǏꠁccB\
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG023A"
	mov $debugstr,"afFBG023A"
	gosub *bg	;ʂɏo

	y$g_heroz
	I\\B\

	y$g_heroz
	cʎSocAZCQُA@@
	@cB여cBɗH\

	y$g_heroz
	_YHꟁB
	ҐlDꡁccB\

	y$g_heroz
	AvLaŋي֓Iꝁ\\B
	DꟁBꖜLꏕ񎆖DccB\

	$g_heroLCݘEꐺ
	eC]VB\

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"SORA"
	mov $debugstr,"afFSORA"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
	;-ʉ;----------------------------------
	mov $_se,"ZTORI5"
	mov $debugstr,"rdFZTORI5"
	gosub *se

	\œ_IAXѓIΘa߉UIVB\

	y$g_heroz
	cIZcꝁB
	Av樎͓IlsFꢁcAӎvꠁB\

	y$g_heroz
	bC
	As꒩[A\ꔓIꟁcB\

	y$g_heroz
	cccccccccccccccB\

	y$g_heroz
	cccccccccccccccB\

	y$g_heroz
	cccccccccccccccB\

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF

	y$g_heroz
	ꟁCđzvpB
	䔇^flꟁB\

	y$g_heroz
	oUUꠁBݎ_I@q
	EꉺIbCYv֌nꠁB\
	return
	;----------------------------------
;---H13  END -----
;============================================
; H14
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H14	; t@CJñx
	mov $debugstr,"H14 " : gosub *debugout
;uSd杊O`@ЂҁvF̉ƂցFH14
;
;̉Ƃ
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG018A"
	mov $debugstr,"afFBG018A"
	gosub *bg	;ʂɏo
;afFĂƁ[

	y$g_heroz
	ācBҍ݉qDcB
	s߁CΈӊҐ^ZꟁcB\

	y$g_heroz
	cɁH\
	gosub *musicstop

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se

	y̐z
	ꠁCC
	ƌڕIlꖙX\

	y$g_heroz
	iccaVߓIkcj\
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se

	y̐z
	|ߑRCI畨YށC
	Qۘa♔VJB\

	y$g_heroz
	LlcݓߗꝁH
	L粓`IcB\
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG024A"
	mov $debugstr,"afFBG024A"
	gosub *bg	;ʂɏo
;afF̉ƁiR[̕îɁj

	y$g_heroz
	ɁHnL[qꝁH
	VIvœꟁcB\

	yz
	ߘBoYꝁH\

	$g_heroQZߓB\

	ߗ⋒ʐgaAIwlC
	_㐳ђa\IΗeB\

	ēIWFWјa
	nیIDсCȋyIѝJB\

	ꢓߔdlIC
	AHsvLB\

	y$g_heroz
	icB^ꇊQꟁc
	@InDIMwlcAwlꠁcj\

	I]Co
	{spIB\

	I嫑RÐFÍC
	AL퐥ȍ~SבvIƑC
	ȌsIB\

	y$g_heroz
	ꟁCߘCC
	ߎ_IcB\

	yz
	ꟁcB\

	l__B\

	y$g_heroz
	יߓ̐c
	AsmsoncB\

	yz
	CΗB
	ߐ՗َC^IB\

	y$g_heroz
	ꟁB
	ꋓI퓮߁B\

	yz
	ӎꋓIB
	b񗈁CZꝁH\

	y$g_heroz
	ZH@_IꝁH\

	yz
	IBL_C
	zʁcB\

	y$g_heroz
	ꟁcߘCߐZ
	ݏZ@cB\

	yz
	ށCϗcB
	LzaʁcB\

	y$g_heroz
	ʁHꟁC嫑R
	\sYZcB\

	lΗB\

	yz
	sCsYsIB
	cOVIXqB\

	y$g_heroz
	ꟁc߁AߐcB
	ΕsNB\

	yz
	ȁc{zדߛwq
	ꋟ{cB\

	y$g_heroz
	iGcBߍ_CҐo
	@Sn펖ꟁcj\

	y$g_heroz
	ib񗈁Cݔ[RR
	@\L{ꟁcj\

	yz
	ߛCZlIg̜闹H\

	y$g_heroz
	ӒC|يVcB
	bscB\

	yz
	ށC߉^sB
	ߛCnIAvcB\

	y$g_heroz
	H\

	yz
	_SBnїC
	{zlIcs߁CDB\

	y$g_heroz
	YDH\

	yz
	A꣐iꠁB
	C粗B\

	y$g_heroz
	\AߘC鑾ŏꋗcB\

	yz
	NylspqB
	ꠗꠁC_B\

	y$g_heroz
	ADIB\
	return
	;----------------------------------
;---H14  END -----
;============================================
; H15
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H15	; t@CJñx
	mov $debugstr,"H15 " : gosub *debugout
;uSd杊O`@ЂҁvF̉ƂŁFH15
;
;̉Ƃ
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG025A"
	mov $debugstr,"afFBG025A"
	gosub *bg	;ʂɏo
;afF̉Ƃ̕

	yz
	CpB
	AÔ\꣓IB\

	ꢒ[㗈IꏓI_SB
	e퐥ΐFICLŐʓIFVB\
	;--L;----------------------------------
	mov $_char,"TAA"
	mov $debugstr,"FTAA "
	gosub *char  ;ʂɏo

	y$g_heroz
	cBŋNDDhꟁcB\

	yz
	NylkhꠁB
	CpꠁB\

	y$g_heroz
	ꟁCAL꘢lhL_cc
	ꋗvsvNhH\

	yz
	꣔^B
	ߛCAaꢈNhB\

	$g_heroaߘllNhʓ_SB\

	y$g_heroz
	TBuuyyAICґђ_AAcc
	[DhB퓌ҐꎟhB\

	yz
	DB꣔\슽C
	ˍXꡁB\

	y$g_heroz
	^IDhB\i
	IꝁH\

	yz
	ށC꣑ŎZȘꝁH\

	y$g_heroz
	@ʉo\IbABvsC
	AQIl􋋉hB\

	$g_herogB\

	yz
	C꣊Ґ^RꡁB
	ꟁC_ShIGB\

	y$g_heroz
	TCݚ{ꉺqAJB
	IbCAZvI\hꠁB\

	y$g_heroz
	s߁cD_ꟁc
	嫑Rk[cAosc\

	y$g_heroz
	oCꖗh߈c
	YꡁcLOIB\

	yz
	א_SC
	\֕GB\

	y$g_heroz
	GcBȍˉLOIcꝁB\

	yz
	꣓IeꡁH\

	y$g_heroz
	cO{VC׉΍ЋB\

	lI_˖֏㗹wB\

	yz
	ꟁC]C◹sYIB\

	y$g_heroz
	sCv֌nBs߉ʑRC
	al֓V粋hCoXB\

	yz
	ꟁB嫑R꘢l
	kyCAǐglҐk⛋IB\

	y$g_heroz
	s߁CNa֌nsDIl݈NC
	꘢l\ҍXDB\

	yz
	C꣗L}IlꝁH\

	y$g_heroz
	}IlH\

	yz
	꣑\ߒNꝁH\

	y$g_heroz
	vLcBsߓ|LsIlB
	vIbcB|sLB\

	yz
	TCߐ^DB꣊ꟁB
	@ʕsꉓCߏADB\

	yz
	דߞXKB\

	y$g_heroz
	KH\

	yz
	IB튴틭
	kAÁCōDҐsvÎB\

	yz
	A֔@CҐLssÎIB\

	yz
	SIlwBB\

	yz
	SIlsݗCߎɋAD
	ܑZDsݔ܏ĈB\

	y$g_heroz
	ccꋐwccꋓ߉ߐIwqꝁH\

	yz
	ccccccccccB\

	y$g_heroz
	΁AΕsNB
	D]IbB\

	$g_heroL㵜B\

	yz
	sccv֌nIB
	ʍ݈ӁB\

	y$g_heroz
	\]B\
	return
	;----------------------------------
;---H15  END -----
;============================================
; H16
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H16	; t@CJñx
	mov $debugstr,"H16 " : gosub *debugout
;uSd杊O`@ЂҁvFDȐl̂ƁFH16
;
;DȐl̂
;ŁAЂ郉ûƂB

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG025A"
	mov $debugstr,"afFBG025A"
	gosub *bg	;ʂɏo

	yz
	꣖Lc슽IlꝁH\

	y$g_heroz
	슽IlH\

	yz
	cdvIlB
	꘢AZv]ȓICzvcߞIlB\

	y$g_heroz
	vcB\
;----------------------------------
*hintH16
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintH161off
	csel
	"RAЂ", *H1610,
	"͋Ȃ", *H1620,
	"qg", *H1630
*hintH161off	;qgOFF̂Ƃ
	csel
	"RAЂ", *H1610,
	"͋Ȃ", *H1620
;----------------------------------
*H1610
;RAЂ

	y$g_heroz
	icߓRꠁj\

	y$g_heroz
	LꟁBYcIFꠁB
	sߔAdnoCoL_sDӎvB\

	yz
	cCꋐ^ꡁB
	ꢈ营ʜkDGIlꠁB\

	y$g_heroz
	DsDGcsmC
	Ak슽ꢁB\

	yz
	^ߐlB
	ACΉ䗈cߌokyIB\

	y$g_heroz
	yH@׏YH\
	goto *nextH16	;nextH16ֈړ
;----------------------------------
*H1620
;͋Ȃ

	y$g_heroz
	i嫑Rk슽C
	@AvsꢁcҐ^ꟁcj\

	y$g_heroz
	iCs҉
	@lcj\

	y$g_heroz
	\樉Yߎz@IlC
	݁cg粊ҖvLꡁB\

	yz
	ꟁcB\

	lc݋OC
	B\

	y$g_heroz
	ꋜH\

	yz
	vYcBR@CAZꋏC
	YvLl݈ꠁB\

	y$g_heroz
	c߁AߘcꋔbI
	瑾BmVUǓƖvcB\

	yz
	cJߏΎ߁B
	scB\
;obhGh
	mov %hikaru_bad,1
	goto *nextH16	;nextH16ֈړ
;----------------------------------
*H1630
;qg

	uRv
	vRBAsvGB
	DǍݍB\

	uvLv
	AsߓI֌ncB
	ǍݍB\
;qgI
	goto *hintH16	;hintH16ֈړ
;----------------------------------
*nextH16

	yz
	ᐥvL튴CۏA\
	Xyn꒼KꡁB\

	y$g_heroz
	׏YH\

	yz
	ׁCAZ}IlC
	gysꝁB\

	yz
	AZsFIlC
	ߖ琥s݈ӓIB\

	yz
	BLSIlC
	٘_@s樐lɋ꓾ȔEB\

	yz
	@nMA@nl判C
	҈Ȉה䎩ȓISXdvB\

	yz
	UߞI݁cB
	ɋB\

	yz
	푞B\

	y$g_heroz
	H\

	yz
	TcBכg粔DB
	䑞ߘDIB\

	yz
	ȁB\

	yz
	ȁccB\
	gosub *musicstop
	gosub *clear_char	;--Li^񒆁j
	;-ʉ;----------------------------------
	mov $_se,"ZSKON"
	mov $debugstr,"rdFZSKON "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG025B"
	mov $debugstr,"afFBG025B"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	y$g_heroz
	ꟁccH\

	ߕsCߕsB
	䏊\ߌICLB\
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F

	uꖏHށ@H
	@V_lIHށ@Hށv\

	ߌ̐B
	ꖗ`IꡁBNݏꡁB\
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F
	;--wi;----------------------------------
	mov $_bg,"BG025C"
	mov $debugstr,"afFBG025C"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	u樉ߋꉺꠁ@ߋ
	@vLvIls߁@s߁v\

	ُmB\ߌ̐`B\

	y$g_heroz
	icj\
	;-ʉ;----------------------------------
	mov $_se,"ZDOSA"
	mov $debugstr,"rdFZDOSA "
	gosub *se
	gosub *blackout

	KØU㫗$g_heroB\
	return
	;----------------------------------
;---H16  END -----
;============================================
; H17
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H17	; t@CJñx
	mov $debugstr,"H17 " : gosub *debugout
;uSd杊O`@ЂҁvFЂ邪߂ĂFH17
;
;Ђ邪߂Ă
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG019A"
	mov $debugstr,"afFBG019A"
	gosub *bg	;ʂɏo
;afF
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ācCZ݈VVrC^DcB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	瑽k^lC
	튴ꋁB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	TBs߁CӉs\◯݌C
	]꣔\pg̗ꟁB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	pApg̐wcB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	CӍ聖[BwqVԑ
	sGB}v̌vccB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroA$g_heroC񗈗B\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ʊQ㵁CʊQ㵚vBҐCiߘjl
	߈RoH\
;炪Ԃ
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroA$g_heroI
	꣍ꖗH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	ʝَށB
	ҐC꣕sꉂRoYӎvH\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	smCszmB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	|Ȑeg꣚GB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	sKB
	IC$g_heroI@c߉ƚCꖙXcB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	IcB^ꟁB
	^vssocB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	䋎QQŁB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	TB\
	gosub *blackout
;Ó]ŎԌo߁B

	;--BGM;----------------------------------
	mov $_music,"07": gosub *out
;BGM:tmd`rx@ȗ\
	;--wi;----------------------------------
	mov $_bg,"BG019B"
	mov $debugstr,"afFBG019B"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ʑRCꖗsQsB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	IccBϗꡁccB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	sCSccB߉ƚcc
	$g_heroccS勋KIڕWccB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	הkH
	Ґ׋SÍH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ҊFLBLAzEIlC
	Lzi׋SVIlB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	l󊽌}k]ꡁB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	^lI
	݉sJߏΓII\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	v݊Jߏ΁cBs߁CRSC
	쉞YisEI_ˑ΁cB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	\߉ƚ쎩
	nnocB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	xCҐfH\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	CAߞIsvLB
	@ʐSIbC$g_heroY@oˑ΁B\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	cB\
	return
	;----------------------------------
;---H17  END -----
;============================================
; H18
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H18	; t@CJñx
	mov $debugstr,"H18 " : gosub *debugout
;uSd杊O`@ЂҁvF|oFH18
;
;|o

	;--BGM;----------------------------------
	mov $_music,"11": gosub *out
;BGM:ehfgs@
	;-ʉ;----------------------------------
	mov $_se,"ZFUSUMAC"
	mov $debugstr,"rdFZFUSUMAC"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG019B"
	mov $debugstr,"afFBG019B"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	lII\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	|I꣜ݔH\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	䐥ǒSߗIB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	CvLSIuvꟁcB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	ߐRIB
	Ε嫐SCpSVB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	SH\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	lB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	@IAʗB
	lSꟁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	SIlꟁB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	s
	\ߋSIEI\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	|C֘߉ƚC꣊ҒmʓIYꝁH\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	߉ƚcȑOl
	ꋏŝ{IߘSB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	ߛC$g_herocI\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	cc@ʛlIb
	IcB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	^lCoׁB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	狎B
	RlvIbB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	IAII꣘염vꖙXꟁI
	꣘mړInꝁH\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	mB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	GBII͗ꝁB\
;bƂĂ
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	ccccccccB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣜B
	쑖C|B\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	ClB\
;̎RBЂƍ|B
	return
	;----------------------------------
;---H18  END -----
;============================================
; H19
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H19	; t@CJñx
	mov $debugstr,"H19 " : gosub *debugout
;uSd杊O`@ЂҁvF炢AFH19
;
;炢A
	gosub *blackout

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG026A"
	mov $debugstr,"afFBG026A"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
;afFAۂƂB

	y$g_heroz
	iocDgcj\

	yz
	wqBIwqB
	A꒼ҍݔꠁB\

	yz
	^B߉IwƏl
	fꡁB\

	y$g_heroz
	iꟁcIcDgc
	@Gccj\

	wCrCSgI畆C
	sAݔM鉷MB
	AvZݏYB\

	yz
	Ĕc꣐ՁB
	R䗈c꣐B\

	yz
	SVB߈ʋA|C
	A_IlB\

	y$g_heroz
	icj\
	;-ʉ;----------------------------------
	mov $_se,"ZSKON"
	mov $debugstr,"rdFZSKON "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG026B"
	mov $debugstr,"afFBG026B"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	y$g_heroz
	i񎖁ccDc
	@Dꟁccj\

	yz
	wqCE꣌ݔglꠁB
	ω꣌IqꠁB\
	;-ʉ;----------------------------------
	mov $_se,"ZSKON2"
	mov $debugstr,"rdFZSKON2"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG026C"
	mov $debugstr,"afFBG026C"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	y$g_heroz
	cccccccccccB\
	return
	;----------------------------------
;---H19  END -----
;============================================
; H20
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H20	; t@CJñx
	mov $debugstr,"H20 " : gosub *debugout
;uSd杊O`@ЂҁvF݂IFH20
;
;݂I
	gosub *blackout
	gosub *musicstop

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F

	uꖙXI󓹙ށ@󓹙
	@V_lI󓹙ށ@󓹙ށv\

	KÒCߓ̐B\
	;--wi;----------------------------------
	mov $_bg,"BG016A"
	mov $debugstr,"afFBG016A"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	lI@˓ߐIH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	TBACYH
	adcaSscB\
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F

	u樉ccߋꠁ@ߋ
	@sǊœNss樉߁@s樉߁v\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	AC|ً^␥dI͗ʁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ĉOꠁB\
;;Ó]
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG018B"
	mov $debugstr,"afFBG018B"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	cB䖾o
	ߓ`IcB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	YeqA`̓svLB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	cTcBAcB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	lH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	cЍB\
	;-ʉ;----------------------------------
	mov $_se,"ZZ049"
	mov $debugstr,"rdFZZ049 "
	gosub *se

	䧒nꉺUoȓIB
	鉺CMB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	ilC^ꟁcj\

	g˒CMࡒIPB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	II\

	ߔcinʁB\
	;-ʉ;----------------------------------
	mov $_se,"ZZ051"
	mov $debugstr,"rdFZZ051 "
	gosub *se
;ƉƂB
	gosub *whiteout
	;--wi;----------------------------------
	mov $_bg,"BG026C"
	mov $debugstr,"afFBG026C"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo
;afF̉
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	ߐI\

	݌a|IOC
	o꘢ˊҊŕsIAB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	쑖C|B\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	ClB\

	lz開VB\
	return
	;----------------------------------
;---H20  END -----
;============================================
; H21
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H21	; t@CJñx
	mov $debugstr,"H21 " : gosub *debugout
;uSd杊O`@ЂҁvF̉ƂŁFH21
;
;̉Ƃ
;Ńogłȁ[قƂɂˁBWJyȂ̂ɂˁ[B

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG026C"
	mov $debugstr,"afFBG026C"
	gosub *bg	;ʂɏo

	yz
	␥ꖈʁH\

	ʐgpIwlB
	ꢓI]^C$g_heroB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ꣁII\

	yz
	ꋊҋLꝁH
	F{IlB\

	vlIoΎI΁B\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	c$g_heroҋI\

	yz
	B߈ʑlCSVB
	Ycl҉񗈁CbߋN^sʗ́B\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	cclCs߉ƚIgeB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	AC\o߉ƚIB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	犴oB
	ꖗccH\

	yz
	CŕsꝁH
	@ʊŕsIbCss\唯ߍi꣚GB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣔ƚCzYMꝁI\

	yz
	߈ʑlCAݓߗB\

	q@ygCɊɐLVB\

	{وꕨICqRo꘢IB
	KÒCߘ̕ō݌ċzʍÒnMࡒB\

	ߓߑwIC
	ȊŌꖼN吏kݑꑐB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroII\

	y$g_heroz
	ccccccccccB\

	$g_heroߒ๔@dXʒtcIʍE|ٜFC
	ݓߐÐÒnꑐB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	꣑ΑYH\

	yz
	cccc\zʑlC
	ĎsoB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣐YI\

	yz
	樑YpאlILC
	׋SVC׉IwqcB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	䜃\꣘ߎ펖I\

	yz
	꣐C]lplꝁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߐRIB\

	yz
	v@ꝁH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	I@\

	yz
	ߛCAp꣓IꠁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	pIIH\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	zvIbCAII
	s꣑ΌloII\

	yz
	sv꣓IB
	zvICEIIߘlIB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	cccccB\

	yz
	DCꋗv@IꡁH
	ꋎȁCҐlBꋗvIꖈ粁H\
;----------------------------------
*hintH21
	gosub *hintsave	;qgpZ[u
	if %g_hint==OFF goto *hintH212off
	csel
	"Ђ̖", *H2110,
	"̂Ă", *H2120,
	"qg", *H2130
*hintH212off	;qgOFF̂Ƃ
	csel
	"Ђ̖", *H2110,
	"̂Ă", *H2120
;----------------------------------
*H2110
;Ђ̖
	mov %hikaru_bad,0
	goto *nextH21	;nextH21ֈړ
;----------------------------------
*H2120
;$g_hero͌̂Ă
;obhGh
	mov %hikaru_bad,1
	goto *nextH21	;nextH21ֈړ
;----------------------------------
*H2130
;qg

	uoIv
	􎢖玩]ꉺꠁB
	g@dݔ粁B\

	ueP$g_herov
	lePkߓIB
	a@dݔ粁B\
;qgI
	goto *hintH21	;hintH21ֈړ
;----------------------------------
*nextH21
	return
	;----------------------------------
;---H21  END -----
;============================================
; H22
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H22	; t@CJñx
	mov $debugstr,"H22 " : gosub *debugout
;uSd杊O`@ЂҁvFЂ̖FH22
;
;Ђ̖

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--wi;----------------------------------
	mov $_bg,"BG026C"
	mov $debugstr,"afFBG026C"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	cc䖾B
	@ʉI\꣖ӁCߏAsǝ\ꠁB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	lI@sȁII\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	v֌nC|Bs߁CsŎZ
	AyՒncꣁB\

	yz
	꣊o꣎ȓIC䔇lҏdvꝁH\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	Z{OB\

	yЂz
	cccccccB\

	R@Cꢑ藹rSʊJB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	䓖RzB
	]\aSIjl݈NCLYB\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	lccB\
	gosub *clear_char	;--Li^񒆁j

	yz
	B\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	LYDΓIB\

	yz
	vYcBȈׁC꣕sߐ
	caESC@ʓI݁cB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	cczC琥vꔖ@IꠁB\

	yz
	^ꡁB
	lޔ퐶c^svcꡁB\

	yz
	ECCCcB\

	l判nyy̗IʁB\

	yz
	lC琥@cB
	lޓIeBlޓISB\

	yz
	ߌosS嗹B
	s]ȍĐSB\

	yz
	lށcaSCvLIꠁB
	ҐLsꡁBCcB\

	yz
	scCΉ䗈CߌovLKvꉗB
	ߌoCvLCÖ]B\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣐cB\

	yz
	ҋꠁB
	ΘݓI䗈CߌosvIB\
	return
	;----------------------------------
;---H22  END -----
;============================================
; H23
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H23	; t@CJñx
	mov $debugstr,"H23 " : gosub *debugout
;uSd杊O`@ЂҁvFlA$g_heroԂFH23
;
;lA$g_heroԂ
;Ꮧ݂
	;-ʉ;----------------------------------
	mov $_se,"ZKIN"
	mov $debugstr,"rdFZKIN"
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	WAIT 50
	;--wi;----------------------------------
	mov $_bg,"BG026C"
	mov $debugstr,"afFBG026C"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo

	ߏqyy|]菶C
	󒆓I֊ɊɗnʁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroII\
	;-ʉ;----------------------------------
	mov $_se,"ZKIN2"
	mov $debugstr,"rdFZKIN2 "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"WHITE"
	mov $debugstr,"afFWHITE "
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo
	WAIT 50
	;--wi;----------------------------------
	mov $_bg,"BG026B"
	mov $debugstr,"afFBG026B"
	mov %effect,37	;GtFNgw
	gosub *bg	;ʂɏo

	݌GqIuԁC
	߈w鼒nꐺjB\
	;--wi;----------------------------------
	mov $_bg,"BG026A"
	mov $debugstr,"afFBG026A"
	mov %effect,4	;GtFNgw
	gosub *bg	;ʂɏo

	y$g_heroz
	ꟁccccH\

	;--BGM;----------------------------------
	mov $_music,"08": gosub *out
;BGM:o`sgnr@ߋȂ
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroI@$g_heroII\

	}]ߐgCQQn$g_herooߗB\

	󓞓ߑoًٙCZȓI@׎]IGC
	$g_heronB\

	y$g_heroz
	C׏YvH
	bcc꣍ݚLꝁHccH\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	˖vLc˖vLLII\

	y$g_heroz
	ʚLꊁC^IcB\
	;--L;----------------------------------
	mov $_char,"TCF"
	mov $debugstr,"FTCF "
	gosub *char  ;ʂɏo

	yЂz
	✒`ccB\

	$g_heroLoCyynZIwB\

	yz
	C^ꡁB\

	y$g_heroz
	ꋐccB\

	yz
	@c꣐pאlށc
	ҐCēx׋SꡁcB\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	ߎ펖C
	s樛B\

	yz
	cҐCʓIcώ
	֓IlCg׋SꝁcB\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	ccScaB\

	yz
	cB\
	;-ʉ;----------------------------------
	mov $_se,"ZFEEN"
	mov $debugstr,"rdFZFEEN "
	gosub *se
	;--wi;----------------------------------
	mov $_bg,"BG026D"
	mov $debugstr,"afFBG026D"
	gosub *bg	;ʂɏo

	lIgehgCQWB\

	y$g_heroz
	˓ߐIH\

	yz
	ŗߌoٖ@
	Ĉێ`ԗꡁB\

	y$g_heroz
	cccccccccB\

	$g_hero}C⋋NgB
	Y݋󒆓IߘlIgeB\

	$g_heroIC
	ÎߘlB\

	lÐÒnΒB\

	yz
	ČB\

	ߐ꒣ŏ^ߏstwsc
	ʈړI_B\

	y$g_heroz
	ccČB\
	gosub *whiteout
;ʐ^ɂ
	return
	;----------------------------------
;---H23  END -----
;============================================
; H24
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H24	; t@CJñx
	mov $debugstr,"H24 " : gosub *debugout
;uSd杊O`@ЂҁvFÍFH24
;
;I
	gosub *musicstop
	gosub *blackout
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F

	uꖗIHށ@H
	@V_lIHށ@Hށv\
	;-ʉ;----------------------------------
	mov $_se,"ZSUZU"
	mov $debugstr,"rdFZSUZU "
	gosub *se
;rdFZSUZU;񂾗̉F

	u樉ߋꠁ@ߋ
	@vLvs߁@s߁v\
	gosub *whiteout
	;-ʉ;----------------------------------
	mov $_se,"ZTORI5"
	mov $debugstr,"rdFZTORI5"
	gosub *se

	;--BGM;----------------------------------
	mov $_music,"03": gosub *out
;BGM:c`xaxc`xF
	;--wi;----------------------------------
	mov $_bg,"BG018A"
	mov $debugstr,"afFBG018A"
	gosub *bg	;ʂɏo
;afFX

	XѓߗΐFIuDԁC
	B񟭉KNFI䊁B\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	smsoԁCߌoߋꡁB\

	y$g_heroz
	TBꠁCB\

	$g_heroV^َגnΎ΁C
	śߌoYL˓IB\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	i^Icjlcj\

	ΗꉺB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	ꉺB\

	y$g_heroz
	qH@꣏Y󗈓IꟁC|B\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	A꣗DƟƒn
	ߘlZZIB\

	y$g_heroz
	꣔bYӎvꟁII\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	^ICRߎ퉺ISSZ
	c^vzCRASIꟁB\

	y$g_heroz
	YI\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ʔC|B
	ʑΓߘSCAՕsꠁB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	lH\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	֐gCvOˋ
	vOwqIecꝁB\

	y$g_heroz
	ߘlcꢑΉCvLGӁB
	ꢔ퉷_cȍˉcB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	꣍˔SZꝁB\

	y$g_heroz
	ߖB\
	;--L;----------------------------------
	mov $_char,"TCC"
	mov $debugstr,"FTCC "
	gosub *char  ;ʂɏo

	yЂz
	^IC꣉^VDlꟁB
	琿꣍lꉺISꟁB\

	y$g_heroz
	]B
	ꟁCs߉kB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	YH\

	y$g_heroz
	꣐䐥꣊슽IjlB\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	YI@꣔✒`III\

	y$g_heroz
	׏Yꟁ`H@꣓ߛno
	^IkꟁI\
	;--L;----------------------------------
	mov $_char,"TCG"
	mov $debugstr,"FTCG "
	gosub *char  ;ʂɏo

	yЂz
	YI@YII\

	y$g_heroz
	svsvI@vLyqI\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	vCYI\

	y$g_heroz
	֕s꣗C|I\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	IC꣘{I@ݓߙXYꡁI
	ΎIS闹H\

	y$g_heroz
	ꟁC^ꟁB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	^݁H\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	꣖vꢓIB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	ꟁH\

	y$g_heroz
	ꟙCDꊁCvYsIvB
	ꠁCB\

	$g_heroLoB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	琥ꡁBꠁB\

	ΒCًوZIB\
	gosub *clear_charall

	SVlIB\

	]\iC݉g粁B\
	return
	;----------------------------------
;---H24  END -----
;============================================
; H25
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H25	; t@CJñx
	mov $debugstr,"H25 " : gosub *debugout
;uSd杊O`@ЂҁvF$g_hero͌̂ĂFobhGhFH25
;
;$g_hero͌̂ĂFobhGh

	;--BGM;----------------------------------
	mov $_music,"10": gosub *out
;BGM:cdbhcd@I
	;--wi;----------------------------------
	mov $_bg,"BG026C"
	mov $debugstr,"afFBG026C"
	gosub *bg	;ʂɏo
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	ccʝّ@B
	ꣁCҗL$g_heroCsvE{B\
	;--L;----------------------------------
	mov $_char,"TFD"
	mov $debugstr,"FTFD "
	gosub *char  ;ʂɏo

	y|z
	ꋐDClB\

	yz
	cB꣓^kDB
	LbCÖ]A\B\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	YӎvIH\

	yz
	ʑlc\]Ȕ\p꘢lށB
	g樑댩Ȕl}B\

	yz
	٘_樑YIc
	s]\p꘢lށB\

	yz
	\Cᐥח
	AZٖWB\

	yz
	C꣋peaf؁B\

	yz
	꣎afʑl
	zvpאlISB\

	y$g_heroz
	iccj\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ߐׁcII
	ߐׁCv䎀CSAcI\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	s\樌lIDI\

	yz
	s꣝QYRC
	ߓs꣎ȓIIB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	IcB\

	yz
	AB
	ʑlISC׋SVScB\

	yz
	ߎ׎~CvbʗB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroII\

	ݔIcc̒CٙX
	ꑐI$g_heroCyJoB\

	y$g_heroz
	iccccj\

	ߐo[ߏ^cc{IˁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroIsIIsII
	ccccIII\

	y$g_heroz
	iccccccccj\

	$g_heroɊɕoIC
	͒QД䩓ICB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroII\

	N楁I楁II
	`^퓌IB
	EݕׁB\

	ΑݝCo験IB\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	k댯B
	lCOʋII\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_hero\\\\\\\\\IIIIII\

	|NesIC
	QϓIoB\
	gosub *whiteout
	;-ʉ;----------------------------------
	mov $_se,"ZKIN"
	mov $debugstr,"rdFZKIN"
	gosub *se
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	IIIIIIII\

	ݏ_agI䊒C
	@ʏUB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroccB\

	៣B\

	ICҐrIC
	AȖ٘mŁB\

	cߌoCsB
	ĖsB\

	LߋbC@Q
	OISC~sZB\

	|YvC
	vی⋍ݓߗB\
	;--L;----------------------------------
	mov $_char,"T3A"
	mov $debugstr,"FT3A "
	gosub *char  ;ʂɏo

	y^z
	I\\I@ꔯYIH\

	`^IarB\

	@I瑏CߌoYsvLB\
	return
	;----------------------------------
;---H25  END -----
;============================================
; H26
; Copyright (C) Cherrysoft. All rights reserved
; 2003/10/11
;============================================
*H26	; t@CJñx
	mov $debugstr,"H26 " : gosub *debugout
;uSd杊O`@ЂҁvF͋Ȃꍇ̃obhGhFH26
;
;͋Ȃꍇ̃obhGh
	;--wi;----------------------------------
	mov $_bg,"BG019A"
	mov $debugstr,"afFBG019A"
	gosub *bg	;ʂɏo
;afF
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	I\\C$g_heroB
	񗈗B꣍ꖗH\
	;--L;----------------------------------
	mov $_char,"TCD"
	mov $debugstr,"FTCD "
	gosub *char  ;ʂɏo

	yЂz
	$g_heroI@$g_heroccII
	꣍ꖗH\

	߈ȍ@C$g_heroĖvL񗈉߁B\

	a^C嫑R
	pAIH瑓sQsB\

	|I񍐁CȑO
	œ|ISCAݔ_I߁B\
	gosub *blackout
	;--wi;----------------------------------
	mov $_bg,"BG003A"
	mov $debugstr,"afFBG003A"
	gosub *bg	;ʂɏo
;afFЂ̉
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	AC׉cc˘oI񕜁H\
	;--L;----------------------------------
	mov $_char,"TFA"
	mov $debugstr,"FTFA "
	gosub *char  ;ʂɏo

	y|z
	ꠁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ꝁcc\

	Ҕ\Ď$g_heroꝁB
	ߎI$g_heroCۊҐgאlށH\

	ҐדGlcc
	ȋSVpgꡁB\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	i٘_꣕ϐYqsDB
	@٘_YsDj\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	i֔@CvꣁB
	@Q꣓Icj\
	;--L;----------------------------------
	mov $_char,"TCA"
	mov $debugstr,"FTCA "
	gosub *char  ;ʂɏo

	yЂz
	ȁcC$g_heroB\
;obhGh
	return
	;----------------------------------
;---H26  END -----
