;mode800
;;;
;;; 2009.07.18A2009.07.19, 2009.07.20 remake
;;;
*define
nsa
gosub *define_menu
gosub *define_effect
gosub *define_keys
gosub *define_cols
gosub *define_effs
gosub *define_numalias

game
*load
systemcall load
*save
systemcall save

goto *start
*start
lookbackflush;obNO
textspeeddefault
goto *title_menu

*begin_ore_route
;gosub *reset_window_daigo
gosub *read_button
gosub *reset
rmode 1;ENbNL

goto *begin_game

*exit
mesbox "I܂B","ImF"
end



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

*define_menu
	resetmenu
	insertmenu "I",END
	insertmenu "Zbg",RESET
	;insertmenu "̑Iɐi",SKIP
	insertmenu "ǃXLbv",SKIP
	insertmenu "I[g[h",AUTO
	insertmenu "eLXgXs[h",SUB
		insertmenu "x",TEXTSLOW,1
		insertmenu "",TEXTMIDDLE,1
		insertmenu "",TEXTFAST,1
	insertmenu "tHg",FONT
	insertmenu "",DWAVEVOLUME
	insertmenu "",SUB
		insertmenu "tXN[",FULL,1
		insertmenu "EBhE",WINDOW,1
return

*define_effect
	effect 2,10,1000;Vb^[1000ms
	effect 3,6,1000;RJ[e(ʓ])
	effect 10,17,1000;POUCNCiɖ߂j
	effect 11,16,1000;PPUCNAEgi]^CXbvj
return

;bg "{\摜t@C}",{GtFNg},{GtFNgɂ鎞}
;
;GtFNgԍ	
;1	uԕ\BԎw͂܂B
;2	Vb^[
;3	EVb^[
;4	Vb^[
;5	Vb^[
;6	J[e
;7	EJ[e
;8	J[e
;9	J[e
;10	sNZPʂ̃NXtF[h
;11	XN[
;12	EXN[
;13	ォXN[
;14	XN[
;17	UCNC

;15	}XNp^[ɂtF[h
;18	}XNp^[ɂNXtF[h
;GtFNg15eff.bmpgĔwiP\
;:bg "bg1.jpg",15,1000,"eff.bmp"
;ق\Ă

*define_keys
	humanz 100
	windowback
	usewheel
	lookbacksp 12,13
	textgosub *text_lb
	kidokuskip
	rmenu "EBhE",windowerase,"Z[u",save,"[h",load,"z",lookback,"^Cgɖ߂",reset
	filelog
	globalon
	rubyon 10,10		;rgp
;	loadgosub *load_config	;[hɌĂяoTu[`
	windoweffect 10,400	;eLXgEBhEJB
	defaultspeed 80,20,10
return

*define_cols
	selectcolor #80C1FF,#78EDFF
	menusetwindow 26,26,0,5,0,0,#00A0A0
	menuselectcolor #FFFFFF,#7CFC00,#BBBBBB
return

*define_effs
	transmode alpha
	effect 2,10,1000;Vb^[1000ms
	effect 3,6,1000;RJ[e(ʓ])
	effect 10,17,1000;POUCNCiɖ߂j
	effect 11,16,1000;PPUCNAEgi]^CXbvj
return

;; MANUAL
;;ϐ%0`%999ƁAϐ$0`$999Aꂼ1000݂܂B
;;0Ԃ199Ԃ܂łʂ̕ϐŁA200Ԃ999Ԃ܂łO[oϐłB
;;ʂ̕ϐ́AQ[IAreset߂Ȃǂœŏɖ߂
;;l܂AO[oϐ͏܂B
;;̓Iɂ́AႦ΁Aʂ̕ϐ͍DxɁA
;;O[oϐ̓NAtOɁAƂgł傤B
*define_numalias
	numalias bwait,503		;{^
	numalias creditnow,511		;
	numalias creditx,512		;
	numalias credity,513		;
	numalias creditscroll,514	;
	numalias sub1,501
	numalias savetextget,505	;Z[ueLXg擾
	numalias name_window,506	;0 \ 1\L
	numalias name,507		;name_tablep̖O
	numalias name2,508		;name_tablep̖O
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*title_menu
	caption "DOEKIEDOEKIȂ̂̌y񂯂ҁz"
	bg "haikei\projectj\title.jpg",2
	btndef ""

;ڂ̕\pi\j
	lsp 1,":s/26,26,0;#FF3E3E#FF69B4͂߂",240,320:print 10,400
	lsp 2,":s/26,26,0;#FF3E3E#FF69B4Â",240,360:print 10,400
	lsp 5,":s/26,26,0;#FF3E3E#FF69B4@ I"    ,245,400:print 10,400
	lsp 7,":s/26,26,0;#FF3E3E#FF69B4Copyright " ,240,440:print 10,400

*loop;uԕ\p
	lsp 1,":s/26,26,0;#FF3E3E#FF69B4͂߂",240,320:print 1
	lsp 2,":s/26,26,0;#FF3E3E#FF69B4Â",240,360:print 1
	lsp 5,":s/26,26,0;#FF3E3E#FF69B4@ I"    ,245,400:print 1
	lsp 7,":s/26,26,0;#FF3E3E#FF69B4Copyright " ,240,440:print 1

	spbtn 1,1
	spbtn 2,2
	spbtn 5,5
	spbtn 7,7

	btnwait %0
	if %0==-3	csp -1:	goto *loop
	if %0==-2	csp -1:	goto *loop
	if %0==-1	csp -1:	goto *loop
	if %0==0	csp -1:	goto *loop
	if %0==1	csp -1:	goto *begin_ore_route
	if %0==2	csp -1:	goto *load
	if %0==5	csp -1:	goto *exit
	if %0==4	csp -1:	goto *cg_mode_begin
	if %0==7	csp -1:	goto *copyright:;Rs[Cg
goto *loop

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; sEy[W
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*text_lb
	btndef clear
	gosub *sysbtn
*textbtnloop
	ispage %0
	getcursorpos %1,%2
	if %0=1 amsp 5,%1,%2:vsp 5,1
	print 1
	textbtnwait %0
	repaint
	if %0=  0                                        goto *end_textbtn
	if %0= -2 gosub *cursctrl:gosub *sysbtn        :goto *textbtnloop
	if %0= -1 gosub *rclick                        :goto *textbtnloop
	if %0=100 allsphide:systemcall save:allspresume:goto *textbtnloop
	if %0=101 allsphide:mov $name2,$name:systemcall load:allspresume:goto *textbtnloop
	if %0=102 gosub *cursctrl:gosub *sysbtn        :goto *textbtnloop
goto *textbtnloop

*rclick
windoweffect      1;ɃeLXgEBhEJ
	vsp 5,0
	print 1
	systemcall windowerase
windoweffect 10,400;eLXgEBhEJB
return

*cursctrl
windoweffect      1;ɃeLXgEBhEJ
	vsp 5,0
	print 1
	systemcall lookback
	print 1
windoweffect 10,400;eLXgEBhEJB
return

*end_textbtn
	texec
	vsp 5,0
	print 1
	saveon
return

*sysbtn
	btn 100, 558,570,     80,25,0,25
	btn 101, 638,570,     80,25,0, 0
	btn 102, 727,500,     62,34,0,49
;          ԍ,\ʒu,摜TCY,̈; btn100-102̈ʒuĂƂ܂sȂ
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; csel
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*customsel
	skipoff
	btndef clear
	gosub *sysbtn
	getcselnum %0
	getcursorpos %1,%2
	cselbtn 0,50,%1,%2
	add %2,25
	cselbtn 1,51,%1,%2
	if %0>2 add %2,25:cselbtn 2,52,%1,%2
	if %0>3 add %2,25:cselbtn 3,53,%1,%2
	if %0>4 add %2,25:cselbtn 4,54,%1,%2

*csel_loop
	selectbtnwait %0
	repaint
	if %0=-1 systemcall windowerase:goto *csel_loop
	if %0=100 systemcall save:goto *csel_loop
	if %0=101 systemcall load:goto *csel_loop
	if %0=102 gosub *cursctrl:gosub *sysbtn:goto *csel_loop
	if %0>=50 & %0<=54 saveon:sub %0,50:cselgoto %0
goto *csel_loop

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; lreset
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*reset
	mov %name_window,0
	mov $name,""
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; window
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*reset_window
;	#ffffff
	setwindow3 24,330,25,6,22,22,0,3,30,0,1,":a;text.bmp",0,322
	textspeeddefault
;	gosub *read_button
return


*reset_window_daigo
	setwindow3 64,408,  25,6,     24,24,2,10,  30, 0,1,":a;text_daigo.bmp",0,402
	textspeeddefault
return

*reset_window_daigo2
;	setwindow3 64,408,  25,6,     24,24,2,10,  30, 0,1,":a;text_daigo.bmp",0,402
	setwindow3 40,5,  25,26,     24,24,2,10,  30, 0,1,":a;text_daigo2.bmp",0,0
;                ,,TCY,s,x,e,t@C         , ʒu
	textspeeddefault
return

*reset_window_akira
	setwindow3 64,408, 25,6, 24,24, 2,10, 30, 0,1,":a;text_akira.bmp",0,402
	textspeeddefault
return

*reset_window_copyright
	setwindow3 0,0, 30,30, 24,24, 2,10, 30 ,1,1,#999999,0,0,800,600
	textspeeddefault
return

*read_button
	btndef "system.bmp"
	lsph 5,":a/4,120,0;cursor2.bmp",0,0
	lsph 12,":l/2,0,3;upbtn.bmp",727,500
	lsph 13,":l/2,0,3;dwbtn.bmp",727,535
	erasetextwindow 0
	textoff
return

;;;==========================================================================
;;;Ol[EEBhEɕ\
;;;QlURL http://f39.aaa.livedoor.jp/~nscr/index.html
;;;==========================================================================
;;;
;;; 2009.07.19
;;;
;*pri_name:;
;	csp 214			;\pXvCg(reset)
;	getparam $name		;w肳ꂽ擾
;	len %0,$name		;ϐ%0ɕ$name̒Ԃ
;	div %0,2		;len߂œ镶͔płׁASp2Ŋ
;	if %0 = 0 texec:vsp 215,0:print 10,400:mov %name_window,0:return
;	;ȌꍇAȉɂ菈
;	mov $0,$name
;	if %0 = 1 lsph 214,":s/24,24,0;#FFFFFF$0",104,356
;	if %0 = 2 lsph 214,":s/24,24,0;#FFFFFF$0", 91,356
;	if %0 = 3 lsph 214,":s/24,24,0;#FFFFFF$0", 78,356
;	if %0 = 4 lsph 214,":s/24,24,0;#FFFFFF$0", 65,356
;	if %0 = 5 lsph 214,":s/24,24,0;#FFFFFF$0", 52,356
;	if %0 = 6 lsph 214,":s/24,24,0;#FFFFFF$0", 39,356
;
;;	if %0 = 1 lsph 214,$name,104,356
;;	if %0 = 2 lsph 214,$name, 91,356
;;	if %0 = 3 lsph 214,$name, 78,356
;;	if %0 = 4 lsph 214,$name, 65,356
;;	if %0 = 5 lsph 214,$name, 52,356
;;	if %0 = 6 lsph 214,$name, 39,356
;	;XvCg\
;	if %name_window=0:vsp 215,1:print 10,400;name_windowJĂȂƂ\
;	mov %name_window,1	;1:window\L 0:\
;	vsp 214,1:
;	print 10,1000
;return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; load config
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*load_config
;csp -1
;csp 215
;gosub *reset_window
;gosub *read_button
;gosub *reset	
;	vsp 214,1:
;	print 10,1000
;	if %name_window = 1 vsp 215,1:print 10,1000
;vsp 214,0
;vsp 215,0
;print 1
;gosub *pri_name $name2
;gosub *reset_window
;gosub *read_button
;gosub *reset
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;cg_mode http://www.interq.or.jp/earth/msym/ 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*cg_mode_begin
play "midi\pro_j06.mid"
;@lsp n,("A")"B""C",*,*
;@摜Aǂݍ񂾂ƂΉ摜BAΉ摜CAn
;̃XvCgɕ荞ނƂ菇łB
;
;@"allsphide"͑SẴXvCgB߁AāA
;"allspresume"͏L̏Ԃɖ߂߂łB{
;;;
;;; XV
;;;

*cg_mode1:;1
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\s2_04.jpg"  )":c,0,3;event\OUT\s2_04.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\akane3_05.bmp"  )":c,0,3;event\OUT\akane3_05.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\s4_07.jpg"  )":c,0,3;event\OUT\s4_07.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\s11_16a.jpg"  )":c,0,3;event\OUT\s11_16a.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\s3_05.jpg"  )":c,0,3;event\OUT\s3_05.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\s11_15a.jpg"  )":c,0,3;event\OUT\s11_15a.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#ccffcc#ccffccPREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode1a:;1̏]
	if fchk "event\s2_04.jpg"   spbtn 11,1
	if fchk "event\akane3_05.bmp"   spbtn 12,2
	if fchk "event\s4_07.jpg"   spbtn 13,3
	if fchk "event\s11_16a.jpg"   spbtn 14,4
	if fchk "event\s3_05.jpg"   spbtn 15,5
	if fchk "event\s11_15a.jpg"   spbtn 16,6
;	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode1a
	if %10== 1 gosub *cg_mode1b_s2_04   :goto *cg_mode1a
	if %10== 2 gosub *cg_mode1b_akane3_05   :goto *cg_mode1a
	if %10== 3 gosub *cg_mode1b_s4_07   :goto *cg_mode1a
	if %10== 4 gosub *cg_mode1b_s11_16a   :goto *cg_mode1a
	if %10== 5 gosub *cg_mode1b_s3_05   :goto *cg_mode1a
	if %10== 6 gosub *cg_mode1b_s11_15a   :goto *cg_mode1a
;	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode0
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode2
*cg_mode1b_s2_04
	allsphide
	if    fchk "event\s2_04.jpg" bg "event\s2_04.jpg",2
	notif fchk "event\s2_04.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode1b_akane3_05
	allsphide
	if    fchk "event\akane3_05.bmp" bg "event\akane3_05.bmp",2
	notif fchk "event\akane3_05.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode1b_s4_07
	allsphide
	if    fchk "event\s4_07.jpg" bg "event\s4_07.jpg",2
	notif fchk "event\s4_07.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode1b_s11_16a
	allsphide
	if    fchk "event\s11_16a.jpg" bg "event\s11_16a.jpg",2
	notif fchk "event\s11_16a.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode1b_s3_05
	allsphide
	if    fchk "event\s3_05.jpg" bg "event\s3_05.jpg",2
	notif fchk "event\s3_05.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode1b_s11_15a
	allsphide
	if    fchk "event\s11_15a.jpg" bg "event\s11_15a.jpg",2
	notif fchk "event\s11_15a.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_15b.jpg" bg "event\s11_15b.jpg",2
	notif fchk "event\s11_15b.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_15c.jpg" bg "event\s11_15c.jpg",2
	notif fchk "event\s11_15c.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_15d.jpg" bg "event\s11_15d.jpg",2
	notif fchk "event\s11_15d.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_15e.jpg" bg "event\s11_15e.jpg",2
	notif fchk "event\s11_15e.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_15f.jpg" bg "event\s11_15f.jpg",2
	notif fchk "event\s11_15f.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode2:;2
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\s11_15g.jpg"  )":c,0,3;event\OUT\s11_15g.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\s11_17a.jpg"  )":c,0,3;event\OUT\s11_17a.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\s11_17d.jpg"  )":c,0,3;event\OUT\s11_17d.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\s11_17f.jpg"  )":c,0,3;event\OUT\s11_17f.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\akane11_16a.bmp"  )":c,0,3;event\OUT\akane11_16a.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\akane11_16c.bmp"  )":c,0,3;event\OUT\akane11_16c.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode2a:;2̏]
	if fchk "event\s11_15g.jpg"   spbtn 11,1
	if fchk "event\s11_17a.jpg"   spbtn 12,2
	if fchk "event\s11_17d.jpg"   spbtn 13,3
	if fchk "event\s11_17f.jpg"   spbtn 14,4
	if fchk "event\akane11_16a.bmp"   spbtn 15,5
	if fchk "event\akane11_16c.bmp"   spbtn 16,6
	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode2a
	if %10== 1 gosub *cg_mode2b_s11_15g   :goto *cg_mode2a
	if %10== 2 gosub *cg_mode2b_s11_17a   :goto *cg_mode2a
	if %10== 3 gosub *cg_mode2b_s11_17d   :goto *cg_mode2a
	if %10== 4 gosub *cg_mode2b_s11_17f   :goto *cg_mode2a
	if %10== 5 gosub *cg_mode2b_akane11_16a   :goto *cg_mode2a
	if %10== 6 gosub *cg_mode2b_akane11_16c   :goto *cg_mode2a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode1
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode3
*cg_mode2b_s11_15g
	allsphide
	if    fchk "event\s11_15g.jpg" bg "event\s11_15g.jpg",2
	notif fchk "event\s11_15g.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_15h.jpg" bg "event\s11_15h.jpg",2
	notif fchk "event\s11_15h.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode2b_s11_17a
	allsphide
	if    fchk "event\s11_17a.jpg" bg "event\s11_17a.jpg",2
	notif fchk "event\s11_17a.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_17b.jpg" bg "event\s11_17b.jpg",2
	notif fchk "event\s11_17b.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_17c.jpg" bg "event\s11_17c.jpg",2
	notif fchk "event\s11_17c.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode2b_s11_17d
	allsphide
	if    fchk "event\s11_17d.jpg" bg "event\s11_17d.jpg",2
	notif fchk "event\s11_17d.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_17e.jpg" bg "event\s11_17e.jpg",2
	notif fchk "event\s11_17e.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode2b_s11_17f
	allsphide
	if    fchk "event\s11_17f.jpg" bg "event\s11_17f.jpg",2
	notif fchk "event\s11_17f.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_17g.jpg" bg "event\s11_17g.jpg",2
	notif fchk "event\s11_17g.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode2b_akane11_16a
	allsphide
	if    fchk "event\akane11_16a.bmp" bg "event\akane11_16a.bmp",2
	notif fchk "event\akane11_16a.bmp" bg "null.bmp",2
	click
	if    fchk "event\akane11_16b.bmp" bg "event\akane11_16b.bmp",2
	notif fchk "event\akane11_16b.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode2b_akane11_16c
	allsphide
	if    fchk "event\akane11_16c.bmp" bg "event\akane11_16c.bmp",2
	notif fchk "event\akane11_16c.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode3:;3
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\akane11_16d.bmp"  )":c,0,3;event\OUT\akane11_16d.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\s2_05.jpg"  )":c,0,3;event\OUT\s2_05.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\148-05-05.BMP"  )":c,0,3;event\OUT\148-05-05.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\150-04a-01.bmp"  )":c,0,3;event\OUT\150-04a-01.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\s9_01a.jpg"  )":c,0,3;event\OUT\s9_01a.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\s9_03a.jpg"  )":c,0,3;event\OUT\s9_03a.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode3a:;3̏]
	if fchk "event\akane11_16d.bmp"   spbtn 11,1
	if fchk "event\s2_05.jpg"   spbtn 12,2
	if fchk "event\148-05-05.BMP"   spbtn 13,3
	if fchk "event\150-04a-01.bmp"   spbtn 14,4
	if fchk "event\s9_01a.jpg"   spbtn 15,5
	if fchk "event\s9_03a.jpg"   spbtn 16,6
	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode3a
	if %10== 1 gosub *cg_mode3b_akane11_16d   :goto *cg_mode3a
	if %10== 2 gosub *cg_mode3b_s2_05   :goto *cg_mode3a
	if %10== 3 gosub *cg_mode3b_148_05_05   :goto *cg_mode3a
	if %10== 4 gosub *cg_mode3b_150_04a_01   :goto *cg_mode3a
	if %10== 5 gosub *cg_mode3b_s9_01a   :goto *cg_mode3a
	if %10== 6 gosub *cg_mode3b_s9_03a   :goto *cg_mode3a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode2
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode4
*cg_mode3b_akane11_16d
	allsphide
	if    fchk "event\akane11_16d.bmp" bg "event\akane11_16d.bmp",2
	notif fchk "event\akane11_16d.bmp" bg "null.bmp",2
	click
	if    fchk "event\akane11_16e.bmp" bg "event\akane11_16e.bmp",2
	notif fchk "event\akane11_16e.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode3b_s2_05
	allsphide
	if    fchk "event\s2_05.jpg" bg "event\s2_05.jpg",2
	notif fchk "event\s2_05.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode3b_148_05_05
	allsphide
	if    fchk "event\148-05-05.BMP" bg "event\148-05-05.BMP",2
	notif fchk "event\148-05-05.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-06.BMP" bg "event\148-05-06.BMP",2
	notif fchk "event\148-05-06.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-07.BMP" bg "event\148-05-07.BMP",2
	notif fchk "event\148-05-07.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-08.BMP" bg "event\148-05-08.BMP",2
	notif fchk "event\148-05-08.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-09.BMP" bg "event\148-05-09.BMP",2
	notif fchk "event\148-05-09.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-10.BMP" bg "event\148-05-10.BMP",2
	notif fchk "event\148-05-10.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-11.BMP" bg "event\148-05-11.BMP",2
	notif fchk "event\148-05-11.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-12.BMP" bg "event\148-05-12.BMP",2
	notif fchk "event\148-05-12.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-13.BMP" bg "event\148-05-13.BMP",2
	notif fchk "event\148-05-13.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-14.BMP" bg "event\148-05-14.BMP",2
	notif fchk "event\148-05-14.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-15.BMP" bg "event\148-05-15.BMP",2
	notif fchk "event\148-05-15.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-16.BMP" bg "event\148-05-16.BMP",2
	notif fchk "event\148-05-16.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-17.BMP" bg "event\148-05-17.BMP",2
	notif fchk "event\148-05-17.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-18.BMP" bg "event\148-05-18.BMP",2
	notif fchk "event\148-05-18.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-19.BMP" bg "event\148-05-19.BMP",2
	notif fchk "event\148-05-19.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-20.BMP" bg "event\148-05-20.BMP",2
	notif fchk "event\148-05-20.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-21.BMP" bg "event\148-05-21.BMP",2
	notif fchk "event\148-05-21.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-22.BMP" bg "event\148-05-22.BMP",2
	notif fchk "event\148-05-22.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-23b.BMP" bg "event\148-05-23b.BMP",2
	notif fchk "event\148-05-23b.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-23c.BMP" bg "event\148-05-23c.BMP",2
	notif fchk "event\148-05-23c.BMP" bg "null.bmp",2
	click
	if    fchk "event\148-05-24.BMP" bg "event\148-05-24.BMP",2
	notif fchk "event\148-05-24.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode3b_150_04a_01
	allsphide
	if    fchk "event\150-04a-01.bmp" bg "event\150-04a-01.bmp",2
	notif fchk "event\150-04a-01.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-02.bmp" bg "event\150-04a-02.bmp",2
	notif fchk "event\150-04a-02.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-04.bmp" bg "event\150-04a-04.bmp",2
	notif fchk "event\150-04a-04.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-05.bmp" bg "event\150-04a-05.bmp",2
	notif fchk "event\150-04a-05.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-06.bmp" bg "event\150-04a-06.bmp",2
	notif fchk "event\150-04a-06.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-07.bmp" bg "event\150-04a-07.bmp",2
	notif fchk "event\150-04a-07.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-08.bmp" bg "event\150-04a-08.bmp",2
	notif fchk "event\150-04a-08.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-09.bmp" bg "event\150-04a-09.bmp",2
	notif fchk "event\150-04a-09.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-10.bmp" bg "event\150-04a-10.bmp",2
	notif fchk "event\150-04a-10.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-11.bmp" bg "event\150-04a-11.bmp",2
	notif fchk "event\150-04a-11.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-12.bmp" bg "event\150-04a-12.bmp",2
	notif fchk "event\150-04a-12.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-13.bmp" bg "event\150-04a-13.bmp",2
	notif fchk "event\150-04a-13.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-14.bmp" bg "event\150-04a-14.bmp",2
	notif fchk "event\150-04a-14.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-15.bmp" bg "event\150-04a-15.bmp",2
	notif fchk "event\150-04a-15.bmp" bg "null.bmp",2
	click
	if    fchk "event\150-04a-16.bmp" bg "event\150-04a-16.bmp",2
	notif fchk "event\150-04a-16.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode3b_s9_01a
	allsphide
	if    fchk "event\s9_01a.jpg" bg "event\s9_01a.jpg",2
	notif fchk "event\s9_01a.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_01b.jpg" bg "event\s9_01b.jpg",2
	notif fchk "event\s9_01b.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_01c.jpg" bg "event\s9_01c.jpg",2
	notif fchk "event\s9_01c.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode3b_s9_03a
	allsphide
	if    fchk "event\s9_03a.jpg" bg "event\s9_03a.jpg",2
	notif fchk "event\s9_03a.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03b.jpg" bg "event\s9_03b.jpg",2
	notif fchk "event\s9_03b.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03c.jpg" bg "event\s9_03c.jpg",2
	notif fchk "event\s9_03c.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03d.jpg" bg "event\s9_03d.jpg",2
	notif fchk "event\s9_03d.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03e.jpg" bg "event\s9_03e.jpg",2
	notif fchk "event\s9_03e.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03f.jpg" bg "event\s9_03f.jpg",2
	notif fchk "event\s9_03f.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03g.jpg" bg "event\s9_03g.jpg",2
	notif fchk "event\s9_03g.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03h.jpg" bg "event\s9_03h.jpg",2
	notif fchk "event\s9_03h.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03i.jpg" bg "event\s9_03i.jpg",2
	notif fchk "event\s9_03i.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03j.jpg" bg "event\s9_03j.jpg",2
	notif fchk "event\s9_03j.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03k.jpg" bg "event\s9_03k.jpg",2
	notif fchk "event\s9_03k.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03l.jpg" bg "event\s9_03l.jpg",2
	notif fchk "event\s9_03l.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03m.jpg" bg "event\s9_03m.jpg",2
	notif fchk "event\s9_03m.jpg" bg "null.bmp",2
	click
	if    fchk "event\s9_03a.jpg" bg "event\s9_03a.jpg",2
	notif fchk "event\s9_03a.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode4:;4
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\151-03a.bmp"  )":c,0,3;event\OUT\151-03a.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\132-03-01.BMP"  )":c,0,3;event\OUT\132-03-01.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\s11_00a.jpg"  )":c,0,3;event\OUT\s11_00a.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\s11_00i.jpg"  )":c,0,3;event\OUT\s11_00i.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\134-04-01.BMP"  )":c,0,3;event\OUT\134-04-01.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\138-03-01.BMP"  )":c,0,3;event\OUT\138-03-01.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode4a:;4̏]
	if fchk "event\151-03a.bmp"   spbtn 11,1
	if fchk "event\132-03-01.BMP"   spbtn 12,2
	if fchk "event\s11_00a.jpg"   spbtn 13,3
	if fchk "event\s11_00i.jpg"   spbtn 14,4
	if fchk "event\134-04-01.BMP"   spbtn 15,5
	if fchk "event\138-03-01.BMP"   spbtn 16,6
	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode4a
	if %10== 1 gosub *cg_mode4b_151_03a   :goto *cg_mode4a
	if %10== 2 gosub *cg_mode4b_132_03_01   :goto *cg_mode4a
	if %10== 3 gosub *cg_mode4b_s11_00a   :goto *cg_mode4a
	if %10== 4 gosub *cg_mode4b_s11_00i   :goto *cg_mode4a
	if %10== 5 gosub *cg_mode4b_134_04_01   :goto *cg_mode4a
	if %10== 6 gosub *cg_mode4b_138_03_01   :goto *cg_mode4a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode3
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode5
*cg_mode4b_151_03a
	allsphide
	if    fchk "event\151-03a.bmp" bg "event\151-03a.bmp",2
	notif fchk "event\151-03a.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode4b_132_03_01
	allsphide
	if    fchk "event\132-03-01.BMP" bg "event\132-03-01.BMP",2
	notif fchk "event\132-03-01.BMP" bg "null.bmp",2
	click
	if    fchk "event\132-03-02.BMP" bg "event\132-03-02.BMP",2
	notif fchk "event\132-03-02.BMP" bg "null.bmp",2
	click
	if    fchk "event\132-03-03.BMP" bg "event\132-03-03.BMP",2
	notif fchk "event\132-03-03.BMP" bg "null.bmp",2
	click
	if    fchk "event\132-03-04.BMP" bg "event\132-03-04.BMP",2
	notif fchk "event\132-03-04.BMP" bg "null.bmp",2
	click
	if    fchk "event\132-03-05.BMP" bg "event\132-03-05.BMP",2
	notif fchk "event\132-03-05.BMP" bg "null.bmp",2
	click
	if    fchk "event\132-03-06.BMP" bg "event\132-03-06.BMP",2
	notif fchk "event\132-03-06.BMP" bg "null.bmp",2
	click
	if    fchk "event\132-03-07.BMP" bg "event\132-03-07.BMP",2
	notif fchk "event\132-03-07.BMP" bg "null.bmp",2
	click
	if    fchk "event\132-03-08.BMP" bg "event\132-03-08.BMP",2
	notif fchk "event\132-03-08.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode4b_s11_00a
	allsphide
	if    fchk "event\s11_00a.jpg" bg "event\s11_00a.jpg",2
	notif fchk "event\s11_00a.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00b.jpg" bg "event\s11_00b.jpg",2
	notif fchk "event\s11_00b.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00c.jpg" bg "event\s11_00c.jpg",2
	notif fchk "event\s11_00c.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00d.jpg" bg "event\s11_00d.jpg",2
	notif fchk "event\s11_00d.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00e.jpg" bg "event\s11_00e.jpg",2
	notif fchk "event\s11_00e.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00f.jpg" bg "event\s11_00f.jpg",2
	notif fchk "event\s11_00f.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00g.jpg" bg "event\s11_00g.jpg",2
	notif fchk "event\s11_00g.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00h.jpg" bg "event\s11_00h.jpg",2
	notif fchk "event\s11_00h.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode4b_s11_00i
	allsphide
	if    fchk "event\s11_00i.jpg" bg "event\s11_00i.jpg",2
	notif fchk "event\s11_00i.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00j.jpg" bg "event\s11_00j.jpg",2
	notif fchk "event\s11_00j.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00k.jpg" bg "event\s11_00k.jpg",2
	notif fchk "event\s11_00k.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00l.jpg" bg "event\s11_00l.jpg",2
	notif fchk "event\s11_00l.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00m.jpg" bg "event\s11_00m.jpg",2
	notif fchk "event\s11_00m.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00n.jpg" bg "event\s11_00n.jpg",2
	notif fchk "event\s11_00n.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00o.jpg" bg "event\s11_00o.jpg",2
	notif fchk "event\s11_00o.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00p.jpg" bg "event\s11_00p.jpg",2
	notif fchk "event\s11_00p.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00q.jpg" bg "event\s11_00q.jpg",2
	notif fchk "event\s11_00q.jpg" bg "null.bmp",2
	click
	if    fchk "event\s11_00r.jpg" bg "event\s11_00r.jpg",2
	notif fchk "event\s11_00r.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode4b_134_04_01
	allsphide
	if    fchk "event\134-04-01.BMP" bg "event\134-04-01.BMP",2
	notif fchk "event\134-04-01.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode4b_138_03_01
	allsphide
	if    fchk "event\138-03-01.BMP" bg "event\138-03-01.BMP",2
	notif fchk "event\138-03-01.BMP" bg "null.bmp",2
	click
	if    fchk "event\138-03-02.BMP" bg "event\138-03-02.BMP",2
	notif fchk "event\138-03-02.BMP" bg "null.bmp",2
	click
	if    fchk "event\138-03-03.BMP" bg "event\138-03-03.BMP",2
	notif fchk "event\138-03-03.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode5:;5
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\127-04c-01.BMP"  )":c,0,3;event\OUT\127-04c-01.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\156-04-01.bmp"  )":c,0,3;event\OUT\156-04-01.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\140-03-01.BMP"  )":c,0,3;event\OUT\140-03-01.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\164-04a.BMP"  )":c,0,3;event\OUT\164-04a.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\takayuki02_06a.JPG"  )":c,0,3;event\OUT\takayuki02_06a.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\takayuki04_10z.jpg"  )":c,0,3;event\OUT\takayuki04_10z.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode5a:;5̏]
	if fchk "event\127-04c-01.BMP"   spbtn 11,1
	if fchk "event\156-04-01.bmp"   spbtn 12,2
	if fchk "event\140-03-01.BMP"   spbtn 13,3
	if fchk "event\164-04a.BMP"   spbtn 14,4
	if fchk "event\takayuki02_06a.JPG"   spbtn 15,5
	if fchk "event\takayuki04_10z.jpg"   spbtn 16,6
	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode5a
	if %10== 1 gosub *cg_mode5b_127_04c_01   :goto *cg_mode5a
	if %10== 2 gosub *cg_mode5b_156_04_01   :goto *cg_mode5a
	if %10== 3 gosub *cg_mode5b_140_03_01   :goto *cg_mode5a
	if %10== 4 gosub *cg_mode5b_164_04a   :goto *cg_mode5a
	if %10== 5 gosub *cg_mode5b_takayuki02_06a   :goto *cg_mode5a
	if %10== 6 gosub *cg_mode5b_takayuki04_10z   :goto *cg_mode5a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode4
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode6
*cg_mode5b_127_04c_01
	allsphide
	if    fchk "event\127-04c-01.BMP" bg "event\127-04c-01.BMP",2
	notif fchk "event\127-04c-01.BMP" bg "null.bmp",2
	click
	if    fchk "event\127-04c-02.BMP" bg "event\127-04c-02.BMP",2
	notif fchk "event\127-04c-02.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode5b_156_04_01
	allsphide
	if    fchk "event\156-04-01.bmp" bg "event\156-04-01.bmp",2
	notif fchk "event\156-04-01.bmp" bg "null.bmp",2
	click
	if    fchk "event\156-04-03.bmp" bg "event\156-04-03.bmp",2
	notif fchk "event\156-04-03.bmp" bg "null.bmp",2
	click
	if    fchk "event\156-04-04.bmp" bg "event\156-04-04.bmp",2
	notif fchk "event\156-04-04.bmp" bg "null.bmp",2
	click
	if    fchk "event\156-04-05.bmp" bg "event\156-04-05.bmp",2
	notif fchk "event\156-04-05.bmp" bg "null.bmp",2
	click
	if    fchk "event\156-04-06.bmp" bg "event\156-04-06.bmp",2
	notif fchk "event\156-04-06.bmp" bg "null.bmp",2
	click
	if    fchk "event\156-04-07.bmp" bg "event\156-04-07.bmp",2
	notif fchk "event\156-04-07.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode5b_140_03_01
	allsphide
	if    fchk "event\140-03-01.BMP" bg "event\140-03-01.BMP",2
	notif fchk "event\140-03-01.BMP" bg "null.bmp",2
	click
	if    fchk "event\140-03-02.BMP" bg "event\140-03-02.BMP",2
	notif fchk "event\140-03-02.BMP" bg "null.bmp",2
	click
	if    fchk "event\140-03-03.BMP" bg "event\140-03-03.BMP",2
	notif fchk "event\140-03-03.BMP" bg "null.bmp",2
	click
	if    fchk "event\140-03-04.BMP" bg "event\140-03-04.BMP",2
	notif fchk "event\140-03-04.BMP" bg "null.bmp",2
	click
	if    fchk "event\140-03-05.BMP" bg "event\140-03-05.BMP",2
	notif fchk "event\140-03-05.BMP" bg "null.bmp",2
	click
	if    fchk "event\140-03-06.BMP" bg "event\140-03-06.BMP",2
	notif fchk "event\140-03-06.BMP" bg "null.bmp",2
	click
	if    fchk "event\140-03-07.BMP" bg "event\140-03-07.BMP",2
	notif fchk "event\140-03-07.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode5b_164_04a
	allsphide
	if    fchk "event\164-04a.BMP" bg "event\164-04a.BMP",2
	notif fchk "event\164-04a.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode5b_takayuki02_06a
	allsphide
	if    fchk "event\takayuki02_06a.JPG" bg "event\takayuki02_06a.JPG",2
	notif fchk "event\takayuki02_06a.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki02_06b.JPG" bg "event\takayuki02_06b.JPG",2
	notif fchk "event\takayuki02_06b.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki02_06c.JPG" bg "event\takayuki02_06c.JPG",2
	notif fchk "event\takayuki02_06c.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki02_06d.JPG" bg "event\takayuki02_06d.JPG",2
	notif fchk "event\takayuki02_06d.JPG" bg "null.bmp",2
	click
	bg "event\white.jpg",2
	if    fchk "event\takayuki03_02a.JPG" bg "event\takayuki03_02a.JPG",2
	notif fchk "event\takayuki03_02a.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki03_02b.JPG" bg "event\takayuki03_02b.JPG",2
	notif fchk "event\takayuki03_02b.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki03_02c.JPG" bg "event\takayuki03_02c.JPG",2
	notif fchk "event\takayuki03_02c.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki03_02d.JPG" bg "event\takayuki03_02d.JPG",2
	notif fchk "event\takayuki03_02d.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki03_02e.JPG" bg "event\takayuki03_02e.JPG",2
	notif fchk "event\takayuki03_02e.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki03_02f.JPG" bg "event\takayuki03_02f.JPG",2
	notif fchk "event\takayuki03_02f.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki03_02g.JPG" bg "event\takayuki03_02g.JPG",2
	notif fchk "event\takayuki03_02g.JPG" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode5b_takayuki04_10z
	allsphide
	if    fchk "event\takayuki04_10z.jpg" bg "event\takayuki04_10z.jpg",2
	notif fchk "event\takayuki04_10z.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode6:;6
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\takayuki04_10aa.JPG"  )":c,0,3;event\OUT\takayuki04_10aa.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\takayuki04_10ba.JPG"  )":c,0,3;event\OUT\takayuki04_10ba.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\takayuki04_10ca.JPG"  )":c,0,3;event\OUT\takayuki04_10ca.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\takayuki05_12a.jpg"  )":c,0,3;event\OUT\takayuki05_12a.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\takayuki06_06a.JPG"  )":c,0,3;event\OUT\takayuki06_06a.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\takayuki11_21c.bmp"  )":c,0,3;event\OUT\takayuki11_21c.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode6a:;6̏]
	if fchk "event\takayuki04_10aa.JPG"   spbtn 11,1
	if fchk "event\takayuki04_10ba.JPG"   spbtn 12,2
	if fchk "event\takayuki04_10ca.JPG"   spbtn 13,3
	if fchk "event\takayuki05_12a.jpg"   spbtn 14,4
	if fchk "event\takayuki06_06a.JPG"   spbtn 15,5
	if fchk "event\takayuki11_21c.bmp"   spbtn 16,6
	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode6a
	if %10== 1 gosub *cg_mode6b_takayuki04_10aa   :goto *cg_mode6a
	if %10== 2 gosub *cg_mode6b_takayuki04_10ba   :goto *cg_mode6a
	if %10== 3 gosub *cg_mode6b_takayuki04_10ca   :goto *cg_mode6a
	if %10== 4 gosub *cg_mode6b_takayuki05_12a   :goto *cg_mode6a
	if %10== 5 gosub *cg_mode6b_takayuki06_06a   :goto *cg_mode6a
	if %10== 6 gosub *cg_mode6b_takayuki11_21c   :goto *cg_mode6a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode5
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode7
*cg_mode6b_takayuki04_10aa
	allsphide
	if    fchk "event\takayuki04_10aa.JPG" bg "event\takayuki04_10aa.JPG",2
	notif fchk "event\takayuki04_10aa.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10ab.JPG" bg "event\takayuki04_10ab.JPG",2
	notif fchk "event\takayuki04_10ab.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10ac.JPG" bg "event\takayuki04_10ac.JPG",2
	notif fchk "event\takayuki04_10ac.JPG" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode6b_takayuki04_10ba
	allsphide
	if    fchk "event\takayuki04_10ba.JPG" bg "event\takayuki04_10ba.JPG",2
	notif fchk "event\takayuki04_10ba.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10ba2.JPG" bg "event\takayuki04_10ba2.JPG",2
	notif fchk "event\takayuki04_10ba2.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10bb.JPG" bg "event\takayuki04_10bb.JPG",2
	notif fchk "event\takayuki04_10bb.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10bc.JPG" bg "event\takayuki04_10bc.JPG",2
	notif fchk "event\takayuki04_10bc.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10bd.JPG" bg "event\takayuki04_10bd.JPG",2
	notif fchk "event\takayuki04_10bd.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10be.JPG" bg "event\takayuki04_10be.JPG",2
	notif fchk "event\takayuki04_10be.JPG" bg "null.bmp",2
	click
	bg "event\white.jpg",2
	if    fchk "event\takayuki04_10bo1.JPG" bg "event\takayuki04_10bo1.JPG",2
	notif fchk "event\takayuki04_10bo1.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10bo2.JPG" bg "event\takayuki04_10bo2.JPG",2
	notif fchk "event\takayuki04_10bo2.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10bo1.JPG" bg "event\takayuki04_10bo1.JPG",2
	notif fchk "event\takayuki04_10bo1.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10bo3.JPG" bg "event\takayuki04_10bo3.JPG",2
	notif fchk "event\takayuki04_10bo3.JPG" bg "null.bmp",2
	click
	bg "event\white.jpg",2
	if    fchk "event\takayuki04_10bf.JPG" bg "event\takayuki04_10bf.JPG",2
	notif fchk "event\takayuki04_10bf.JPG" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode6b_takayuki04_10ca
	allsphide
	if    fchk "event\takayuki04_10ca.JPG" bg "event\takayuki04_10ca.JPG",2
	notif fchk "event\takayuki04_10ca.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10cb.JPG" bg "event\takayuki04_10cb.JPG",2
	notif fchk "event\takayuki04_10cb.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10cc.JPG" bg "event\takayuki04_10cc.JPG",2
	notif fchk "event\takayuki04_10cc.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10ce.JPG" bg "event\takayuki04_10ce.JPG",2
	notif fchk "event\takayuki04_10ce.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10cf.JPG" bg "event\takayuki04_10cf.JPG",2
	notif fchk "event\takayuki04_10cf.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10cg.JPG" bg "event\takayuki04_10cg.JPG",2
	notif fchk "event\takayuki04_10cg.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10ch.JPG" bg "event\takayuki04_10ch.JPG",2
	notif fchk "event\takayuki04_10ch.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10ci.JPG" bg "event\takayuki04_10ci.JPG",2
	notif fchk "event\takayuki04_10ci.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10cj.JPG" bg "event\takayuki04_10cj.JPG",2
	notif fchk "event\takayuki04_10cj.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10ck.JPG" bg "event\takayuki04_10ck.JPG",2
	notif fchk "event\takayuki04_10ck.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki04_10cl.JPG" bg "event\takayuki04_10cl.JPG",2
	notif fchk "event\takayuki04_10cl.JPG" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode6b_takayuki05_12a
	allsphide
	if    fchk "event\takayuki05_12a.jpg" bg "event\takayuki05_12a.jpg",2
	notif fchk "event\takayuki05_12a.jpg" bg "null.bmp",2
	click
	if    fchk "event\takayuki05_12b.jpg" bg "event\takayuki05_12b.jpg",2
	notif fchk "event\takayuki05_12b.jpg" bg "null.bmp",2
	click
	if    fchk "event\takayuki05_12c.jpg" bg "event\takayuki05_12c.jpg",2
	notif fchk "event\takayuki05_12c.jpg" bg "null.bmp",2
	click
	if    fchk "event\takayuki05_12d.jpg" bg "event\takayuki05_12d.jpg",2
	notif fchk "event\takayuki05_12d.jpg" bg "null.bmp",2
	click
	if    fchk "event\takayuki05_12e.jpg" bg "event\takayuki05_12e.jpg",2
	notif fchk "event\takayuki05_12e.jpg" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode6b_takayuki06_06a
	allsphide
	if    fchk "event\takayuki06_06a.JPG" bg "event\takayuki06_06a.JPG",2
	notif fchk "event\takayuki06_06a.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki06_06b.JPG" bg "event\takayuki06_06b.JPG",2
	notif fchk "event\takayuki06_06b.JPG" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode6b_takayuki11_21c
	allsphide
	if    fchk "event\takayuki11_21c.bmp" bg "event\takayuki11_21c.bmp",2
	notif fchk "event\takayuki11_21c.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode7:;7
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\takayuki11_21a.bmp"  )":c,0,3;event\OUT\takayuki11_21a.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\takayuki04_30.JPG"  )":c,0,3;event\OUT\takayuki04_30.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\takayuki11_22.bmp"  )":c,0,3;event\OUT\takayuki11_22.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\takayuki11_23a.JPG"  )":c,0,3;event\OUT\takayuki11_23a.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\takayuki11_34aa.bmp"  )":c,0,3;event\OUT\takayuki11_34aa.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\takayuki11_34b.bmp"  )":c,0,3;event\OUT\takayuki11_34b.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode7a:;7̏]
	if fchk "event\takayuki11_21a.bmp"   spbtn 11,1
	if fchk "event\takayuki04_30.JPG"   spbtn 12,2
	if fchk "event\takayuki11_22.bmp"   spbtn 13,3
	if fchk "event\takayuki11_23a.JPG"   spbtn 14,4
	if fchk "event\takayuki11_34aa.bmp"   spbtn 15,5
	if fchk "event\takayuki11_34b.bmp"   spbtn 16,6
	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode7a
	if %10== 1 gosub *cg_mode7b_takayuki11_21a   :goto *cg_mode7a
	if %10== 2 gosub *cg_mode7b_takayuki04_30   :goto *cg_mode7a
	if %10== 3 gosub *cg_mode7b_takayuki11_22   :goto *cg_mode7a
	if %10== 4 gosub *cg_mode7b_takayuki11_23a   :goto *cg_mode7a
	if %10== 5 gosub *cg_mode7b_takayuki11_34aa   :goto *cg_mode7a
	if %10== 6 gosub *cg_mode7b_takayuki11_34b   :goto *cg_mode7a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode6
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode8
*cg_mode7b_takayuki11_21a
	allsphide
	if    fchk "event\takayuki11_21a.bmp" bg "event\takayuki11_21a.bmp",2
	notif fchk "event\takayuki11_21a.bmp" bg "null.bmp",2
	click
	if    fchk "event\takayuki11_21b.bmp" bg "event\takayuki11_21b.bmp",2
	notif fchk "event\takayuki11_21b.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode7b_takayuki04_30
	allsphide
	if    fchk "event\takayuki04_30.JPG" bg "event\takayuki04_30.JPG",2
	notif fchk "event\takayuki04_30.JPG" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode7b_takayuki11_22
	allsphide
	if    fchk "event\takayuki11_22.bmp" bg "event\takayuki11_22.bmp",2
	notif fchk "event\takayuki11_22.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode7b_takayuki11_23a
	allsphide
	if    fchk "event\takayuki11_23a.JPG" bg "event\takayuki11_23a.JPG",2
	notif fchk "event\takayuki11_23a.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki11_23b.JPG" bg "event\takayuki11_23b.JPG",2
	notif fchk "event\takayuki11_23b.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki11_23d.JPG" bg "event\takayuki11_23d.JPG",2
	notif fchk "event\takayuki11_23d.JPG" bg "null.bmp",2
	click
	if    fchk "event\takayuki11_23c.JPG" bg "event\takayuki11_23c.JPG",2
	notif fchk "event\takayuki11_23c.JPG" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode7b_takayuki11_34aa
	allsphide
	if    fchk "event\takayuki11_34aa.bmp" bg "event\takayuki11_34aa.bmp",2
	notif fchk "event\takayuki11_34aa.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode7b_takayuki11_34b
	allsphide
	if    fchk "event\takayuki11_34b.bmp" bg "event\takayuki11_34b.bmp",2
	notif fchk "event\takayuki11_34b.bmp" bg "null.bmp",2
	click
	if    fchk "event\takayuki11_34c.bmp" bg "event\takayuki11_34c.bmp",2
	notif fchk "event\takayuki11_34c.bmp" bg "null.bmp",2
	click
	if    fchk "event\takayuki11_34d.bmp" bg "event\takayuki11_34d.bmp",2
	notif fchk "event\takayuki11_34d.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode8:;8
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\yui04_01.BMP"  )":c,0,3;event\OUT\yui04_01.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 12,("event\yui04_03a.bmp"  )":c,0,3;event\OUT\yui04_03a.JPG"  ":c,0,3;null.bmp", 220, 80
	lsp 13,("event\yui04_08a.bmp"  )":c,0,3;event\OUT\yui04_08a.JPG"  ":c,0,3;null.bmp", 430, 80
	lsp 14,("event\yui04_09a.bmp"  )":c,0,3;event\OUT\yui04_09a.JPG"  ":c,0,3;null.bmp", 10, 250
	lsp 15,("event\syouko06_04a.bmp"  )":c,0,3;event\OUT\syouko06_04a.JPG"  ":c,0,3;null.bmp", 220, 250
	lsp 16,("event\mihoyuna01-1.bmp"  )":c,0,3;event\OUT\mihoyuna01-1.JPG"  ":c,0,3;null.bmp", 430, 250
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#0033ff#ffff00NEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode8a:;8̏]
	if fchk "event\yui04_01.BMP"   spbtn 11,1
	if fchk "event\yui04_03a.bmp"   spbtn 12,2
	if fchk "event\yui04_08a.bmp"   spbtn 13,3
	if fchk "event\yui04_09a.bmp"   spbtn 14,4
	if fchk "event\syouko06_04a.bmp"   spbtn 15,5
	if fchk "event\mihoyuna01-1.bmp"   spbtn 16,6
	spbtn 17,7
	spbtn 18,8
	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode8a
	if %10== 1 gosub *cg_mode8b_yui04_01   :goto *cg_mode8a
	if %10== 2 gosub *cg_mode8b_yui04_03a   :goto *cg_mode8a
	if %10== 3 gosub *cg_mode8b_yui04_08a   :goto *cg_mode8a
	if %10== 4 gosub *cg_mode8b_yui04_09a   :goto *cg_mode8a
	if %10== 5 gosub *cg_mode8b_syouko06_04a   :goto *cg_mode8a
	if %10== 6 gosub *cg_mode8b_mihoyuna01_1   :goto *cg_mode8a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode7
	if %10== 8 csp-1 :btndef "" :stop:goto *start
	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode9
*cg_mode8b_yui04_01
	allsphide
	if    fchk "event\yui04_01.BMP" bg "event\yui04_01.BMP",2
	notif fchk "event\yui04_01.BMP" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode8b_yui04_03a
	allsphide
	if    fchk "event\yui04_03a.bmp" bg "event\yui04_03a.bmp",2
	notif fchk "event\yui04_03a.bmp" bg "null.bmp",2
	click
	if    fchk "event\yui04_03b.bmp" bg "event\yui04_03b.bmp",2
	notif fchk "event\yui04_03b.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode8b_yui04_08a
	allsphide
	if    fchk "event\yui04_08a.bmp" bg "event\yui04_08a.bmp",2
	notif fchk "event\yui04_08a.bmp" bg "null.bmp",2
	click
	if    fchk "event\yui04_08b.bmp" bg "event\yui04_08b.bmp",2
	notif fchk "event\yui04_08b.bmp" bg "null.bmp",2
	click
	if    fchk "event\yui04_08c.bmp" bg "event\yui04_08c.bmp",2
	notif fchk "event\yui04_08c.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode8b_yui04_09a
	allsphide
	if    fchk "event\yui04_09a.bmp" bg "event\yui04_09a.bmp",2
	notif fchk "event\yui04_09a.bmp" bg "null.bmp",2
	click
	if    fchk "event\yui04_09b.bmp" bg "event\yui04_09b.bmp",2
	notif fchk "event\yui04_09b.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode8b_syouko06_04a
	allsphide
	if    fchk "event\syouko06_04a.bmp" bg "event\syouko06_04a.bmp",2
	notif fchk "event\syouko06_04a.bmp" bg "null.bmp",2
	click
	if    fchk "event\syouko06_04b.bmp" bg "event\syouko06_04b.bmp",2
	notif fchk "event\syouko06_04b.bmp" bg "null.bmp",2
	click
	if    fchk "event\syouko06_04c.bmp" bg "event\syouko06_04c.bmp",2
	notif fchk "event\syouko06_04c.bmp" bg "null.bmp",2
	click
	if    fchk "event\syouko06_04d.bmp" bg "event\syouko06_04d.bmp",2
	notif fchk "event\syouko06_04d.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode8b_mihoyuna01_1
	allsphide
	if    fchk "event\mihoyuna01-1.bmp" bg "event\mihoyuna01-1.bmp",2
	notif fchk "event\mihoyuna01-1.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna01-2.bmp" bg "event\mihoyuna01-2.bmp",2
	notif fchk "event\mihoyuna01-2.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna01-3.bmp" bg "event\mihoyuna01-3.bmp",2
	notif fchk "event\mihoyuna01-3.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna01-4.bmp" bg "event\mihoyuna01-4.bmp",2
	notif fchk "event\mihoyuna01-4.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna01-5.bmp" bg "event\mihoyuna01-5.bmp",2
	notif fchk "event\mihoyuna01-5.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna01-6.bmp" bg "event\mihoyuna01-6.bmp",2
	notif fchk "event\mihoyuna01-6.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return
*cg_mode9:;9
	btndef ""
	bg "haikei\check.jpg",1
	lsp 11,("event\mihoyuna02-1.bmp"  )":c,0,3;event\OUT\mihoyuna02-1.JPG"  ":c,0,3;null.bmp", 10, 80
	lsp 17,":s/35,25,0;#0033ff#ffff00PREV"      ,185,435 :cell 17,0
	lsp 18,":s/35,25,0;#0033ff#ffff00߂" ,285,435 :cell 18,0
	lsp 19,":s/35,25,0;#ccffcc#ccffccNEXT"      ,385,435 :cell 19,0
	print 3
*cg_mode9a:;9̏]
	if fchk "event\mihoyuna02-1.bmp"   spbtn 11,1
	spbtn 17,7
	spbtn 18,8
;	spbtn 19,9
	btnwait %10
	if %10<= 0  goto *cg_mode9a
	if %10== 1 gosub *cg_mode9b_mihoyuna02_1   :goto *cg_mode9a
	if %10== 7 csp-1 :btndef "" :    :goto *cg_mode8
	if %10== 8 csp-1 :btndef "" :stop:goto *start
;	if %10== 9 csp-1 :btndef "" :    :goto *cg_mode10
*cg_mode9b_mihoyuna02_1
	allsphide
	if    fchk "event\mihoyuna02-1.bmp" bg "event\mihoyuna02-1.bmp",2
	notif fchk "event\mihoyuna02-1.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna02-2.bmp" bg "event\mihoyuna02-2.bmp",2
	notif fchk "event\mihoyuna02-2.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna02-3.bmp" bg "event\mihoyuna02-3.bmp",2
	notif fchk "event\mihoyuna02-3.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna02-4.bmp" bg "event\mihoyuna02-4.bmp",2
	notif fchk "event\mihoyuna02-4.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna02-5.bmp" bg "event\mihoyuna02-5.bmp",2
	notif fchk "event\mihoyuna02-5.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna02-6.bmp" bg "event\mihoyuna02-6.bmp",2
	notif fchk "event\mihoyuna02-6.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna02-7.bmp" bg "event\mihoyuna02-7.bmp",2
	notif fchk "event\mihoyuna02-7.bmp" bg "null.bmp",2
	click
	if    fchk "event\mihoyuna02-8.bmp" bg "event\mihoyuna02-8.bmp",2
	notif fchk "event\mihoyuna02-8.bmp" bg "null.bmp",2
	click
	bg white,2
	bg "haikei\check.jpg",2
	allspresume
return

;;;
;;; cg-mode eof
;;;
